>Menggambar Lingkaran-Visual Basic 6.0

>

visual basic menggambar lingkaran

Private Sub Command1_Click()
Dim Po As Integer
X = Val(txtX.Text)
Y = Val(txtY.Text)
R = Val(txtR.Text)

Y = R
X = 0
    Picture1.PSet (X, Y), RGB(0, 0, 0)
    Picture1.PSet (-X, Y), RGB(0, 0, 0)
    Picture1.PSet (X, -Y), RGB(0, 0, 0)
    Picture1.PSet (-X, -Y), RGB(0, 0, 0)
    Picture1.PSet (Y, X), RGB(0, 0, 0)
    Picture1.PSet (-Y, X), RGB(0, 0, 0)
    Picture1.PSet (Y, -X), RGB(0, 0, 0)
    Picture1.PSet (-Y, -X), RGB(0, 0, 0)
    List1.AddItem (X & ”   ” & Y)
   
Po = 1 – R
While (X <= Y)
    If (Po < 0) Then
    X = X + 1
    Picture1.PSet (X, Y), RGB(0, 0, 0)
    Picture1.PSet (-X, Y), RGB(0, 0, 0)
    Picture1.PSet (X, -Y), RGB(0, 0, 0)
    Picture1.PSet (-X, -Y), RGB(0, 0, 0)
    Picture1.PSet (Y, X), RGB(0, 0, 0)
    Picture1.PSet (-Y, X), RGB(0, 0, 0)
    Picture1.PSet (Y, -X), RGB(0, 0, 0)
    Picture1.PSet (-Y, -X), RGB(0, 0, 0)
    List1.AddItem (X & ”   ” & Y)
    Po = Po + (2 * X) + 1
   
    Else
    X = X + 1
    Y = Y – 1
    Picture1.PSet (X, Y), RGB(0, 0, 0)
    Picture1.PSet (-X, Y), RGB(0, 0, 0)
    Picture1.PSet (X, -Y), RGB(0, 0, 0)
    Picture1.PSet (-X, -Y), RGB(0, 0, 0)
    Picture1.PSet (Y, X), RGB(0, 0, 0)
    Picture1.PSet (-Y, X), RGB(0, 0, 0)
    Picture1.PSet (Y, -X), RGB(0, 0, 0)
    Picture1.PSet (-Y, -X), RGB(0, 0, 0)
    List1.AddItem (X & ”   ” & Y)
    Po = Po + ((2 * X) – (2 * Y)) + 1
   
    End If
   
Wend

End Sub

Private Sub Form_Activate()
Picture1.Scale (-100, 100)-(100, -100)
Picture1.Line (-100, 0)-(100, 0), RGB(255, 0, 0) ‘sb-x
Picture1.Line (0, 100)-(0, -100), RGB(255, 0, 0)   ‘sb-y
End Sub

Private Sub List1_Click()

End Sub

Private Sub Picture1_Click()

End Sub

Print Friendly, PDF & Email

Leave a Reply

Your email address will not be published. Required fields are marked *