Const pi = 3.14159
Private len_S As Single, len_M As Single, len_H As Single
Private Sub Form_Load()
'先取各指針的長度
len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ^ 2) '秒針長度
len_M = Sqr((LineM.Y2 - LineM.Y1) ^ 2 + (LineM.X2 - LineM.X1) ^ 2) '分針長度
len_H = Sqr((LineH.Y2 - LineH.Y1) ^ 2 + (LineH.X2 - LineH.X1) ^ 2) '時針長度
Call timer1_timer
End Sub
Private Sub timer1_timer() '定時器的定時事件過程
Dim s As Single, m As Single, h As Single
Form1.Caption = Time
s = Second(Time)
m = Minute(Time)
h = Hour(Time) + m / 60
'繪制秒針
LineS.X2 = LineS.X1 + len_S * Sin(pi * s / 30)
LineS.Y2 = LineS.Y1 - len_S * Cos(pi * s / 30)
'繪制分針
LineM.X2 = LineM.X1 + len_M * Sin(pi * m / 30)
LineM.Y2 = LineM.Y1 - len_M * Cos(pi * m / 30)
'繪制時針
If h >= 12 Then h = h - 12
LineH.X2 = LineH.X1 + len_H * Sin(pi * h / 6)
LineH.Y2 = LineH.Y1 - len_H * Cos(pi * h / 6)
End Sub