내 머릿속 데이터베이스

그래프 그리는 함수 본문

Programming/VB/VB.NET

그래프 그리는 함수

파도소리 2007. 2. 8. 18:07
언젠가 선배가 다이어트 관련 프로그램을 제작할 때 옆에서 그래프 함수를 만들어줬었던 기억이 있다.

뭐 효율, 그런거 안따지고 만들었고 좋지 않은 소스일테지만 우연히 다시 발견하여 올린다.

Function BioGraph(Target As Shape, ByVal Value As Integer, _
                  Optional COLOR As Long = vbRed, _
                  Optional MAX As Integer = 2000, _
                  Optional BASIC As Integer = 3000)

'Target : 그래프가 될 Shape 객체
'Value  : 그래프의 값 (%)
'COLOR  : 그래프의 색상
'MAX    : 그래프의 최대 너비 (px)
'BASIC  : 그래프의 기준점인 가운데 좌표 (px)

Target.FillStyle = 0
Target.FillColor = COLOR

  If Value = 0 Then
    Target.Visible = False
    Exit Function
  End If
   
  Target.Visible = True
   
  If (Value > 0) Then
    Target.Width = MAX * (Value / 100)
    Target.Left = BASIC + 60
  ElseIf (Value < 0) Then
    Target.Width = MAX * (Value * -1 / 100)
    Target.Left = BASIC - 60 - Target.Width
  End If

End Function

Comments