vb 指针时钟的代码

Private Sub Form_Load()
Timer1.Interval = 500
Form1.Height = 8085
Form1.Width = 9225
End Sub

Private Sub Timer1_Timer()
Cls
Scale (-2000, 2000)-(3000, -2200)
Line (0, 0)-(1000 * Sin(Second(Time) / 60 * 6.28), 1000 * Cos(Second(Time) / 60 * 6.28)), 255
Line (0, 0)-(800 * Sin(Minute(Time) / 60 * 6.28), 800 * Cos(Minute(Time) / 60 * 6.28)), 200
If Hour(Time) > 12 Then
Line (0, 0)-(600 * Sin((Hour(Time) - 12) / 12 * 6.28), 600 * Cos((Hour(Time) - 12) / 12 * 6.28)), 0
Else
Line (0, 0)-(600 * Sin(Hour(Time) / 12 * 6.28), 600 * Cos(Hour(Time) / 12 * 6.28)), 0
End If
Circle (0, 0), 1000
End Sub

Sub getxy(line, degree)
y = -Sin(degree) * line
If (degree < 270) Then y = Sin(degree) * line
If (degree < 90) Then y = -Sin(degree) * line
x = (line ^ 2 - y ^ 2) ^ 0.5 * Sgn(degree - 180)
End Sub