I am having some trouble drawing a circle that is constant when the program runs. right now I am able to create one of my clock hands (that is going counterclockwise), but I can't figure out how to draw the circle of the clock..any suggestions?
Option Strict On
Imports System.Math
Public Class Form1
Dim arr(359) As PointF, counter As Integer
Function rads(ByVal deg As Double) As Double
Return deg * PI / 180
End Function
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 359
arr(i).X = 100 * Convert.ToSingle(Cos(rads(i))) + 125
arr(i).Y = -100 * Convert.ToSingle(Sin(rads(i))) + 125
Next
End Sub
Private Sub TestButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles TestButton.Click
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
Dim gr As Graphics = picOut.CreateGraphics
Dim a As Graphics = picOut.CreateGraphics
Dim pn As New Pen(Color.Red)
Dim rect As New Rectangle(0, 0, arr(i).X * 2, arr(i).Y * 2)
g.DrawEllipse(pn, rect)
counter += 1 : If counter = 360 Then counter = 0
gr.Clear(Color.Red)
gr.DrawLine(Pens.Black, 125, 125, arr(counter).X, arr(counter).Y)
End Sub
End Class