analog clock

‘timer and a picture box control

Option Explicit

Private Const PI = 3.14159265

Private Sub DrawClock()
Static last_time As Date

Dim cx As Single
Dim cy As Single
Dim num As Single
Dim radius As Single
Dim theta As Single

If last_time = Now Then Exit Sub

last_time = Now
picClock.Cls

cx = picClock.ScaleWidth / 2
cy = picClock.ScaleHeight / 2

‘ Hours.
num = 5 * (DatePart(“h”, last_time) + DatePart(“n”, last_time) / 60 + DatePart(“s”, last_time) / 3600)
theta = MinutesToRadians(num)
radius = picClock.ScaleWidth * 0.3
picClock.DrawWidth = 3
picClock.Line (cx, cy)-Step(radius * Cos(theta), -radius * Sin(theta))

‘ Minutes.
num = DatePart(“n”, last_time)
theta = MinutesToRadians(num)
radius = picClock.ScaleWidth * 0.3
picClock.DrawWidth = 2
picClock.Line (cx, cy)-Step(radius * Cos(theta), -radius * Sin(theta))

‘ Seconds.
num = DatePart(“s”, last_time)
theta = MinutesToRadians(num)
radius = picClock.ScaleWidth * 0.4
picClock.DrawWidth = 1
picClock.Line (cx, cy)-Step(radius * Cos(theta), -radius * Sin(theta))
End Sub
Private Sub DrawFace()
Dim r1 As Single
Dim r2 As Single
Dim r3 As Single
Dim cx As Single
Dim cy As Single
Dim i As Integer
Dim theta As Single

picClock.AutoRedraw = True

cx = picClock.ScaleWidth / 2
cy = picClock.ScaleHeight / 2
r1 = picClock.ScaleWidth * 0.45
r2 = picClock.ScaleWidth * 0.4
r3 = picClock.ScaleWidth * 0.35

For i = 1 To 60
theta = MinutesToRadians(i)
If i Mod 5 = 0 Then
picClock.Line (cx + r1 * Cos(theta), cy + r1 * Sin(theta))-(cx + r3 * Cos(theta), cy + r3 * Sin(theta))
Else
picClock.Line (cx + r1 * Cos(theta), cy + r1 * Sin(theta))-(cx + r2 * Cos(theta), cy + r2 * Sin(theta))
End If
Next i

picClock.Picture = picClock.Image
End Sub
Private Function MinutesToRadians(ByVal num As Single) As Single
MinutesToRadians = (15 – num) * 2 * PI / 60
End Function

Private Sub Form_Load()
DrawFace
End Sub

Private Sub picClock_Paint()
DrawClock
End Sub

Private Sub tmrClock_Timer()
DrawClock
End Sub

Bookmark It