• Home
 · 
• Miscellaneous
 · 
• Circle Drawing Example

Circle Drawing Example

This code is simply to illustrate the mathematical operations necessary to draw a circle. Of course I realize VB has built in functions for this, but thought this might be useful for some to understand. In my example, I use a picture box with the PSet method to do the drawing.

Assumes
Simply create a form with a decent size picture box (picture1), a text box we will enter the radius in (text1), a command button to draw the circle (command1), and a command button for exit (command2). Paste the code I have supplied and run it.

Rate Circle Drawing Example

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Command1_Click()
  Dim intRadius, intDegree As Integer
  Dim sngX, sngY As Single
  
  If IsNumeric(Text1.Text) Then
    intRadius = Text1.Text
    For intDegree = 1 To 360
      sngX = (Cos(intDegree) * intRadius) + intRadius
      sngY = intRadius - (Sin(intDegree) * intRadius)
      Picture1.PSet (sngX, sngY), vbBlack
    Next
  Else
    MsgBox "Please enter a numeric value for the radius."
    Text1.SetFocus
  End If
End Sub
Private Sub Command2_Click()
  Unload Form1
End Sub