Private Sub tmrclock_Timer()
Const hourhand = 0
Const minutehand = 13
Const secondhand = 14
Dim Angle
Static lastsecond
If Second(Now) = lastsecond Then Exit Sub
lastsecond = Second(Now)
Angle = -0.5236 * (15 - (Hour(Now) + minute(Now) / 60))
linclock(hourhand).X1 = 0
linclock(hourhand).Y1 = 0
linclock(hourhand).X2 = 0.5 * Cos(Angle)
linclock(hourhand).Y2 = 0.5 * Sin(Angle)
'Position minute hand
Angle = -0.1047 * (75 - (minute(Now) + Second(Now) / 60))
linclock(minutehand).X1 = 0
linclock(minutehand).Y1 = 0
linclock(minutehand).X2 = 0.7 * Cos(Angle)
linclock(minutehand).Y2 = 0.7 * Sin(Angle)
'Position second hand
Angle = -0.1047 * (75 - Second(Now))
linclock(secondhand).X1 = 0
linclock(secondhand).Y1 = 0
linclock(secondhand).X2 = 0.8 * Cos(Angle)
linclock(secondhand).Y2 = 0.8 * Sin(Angle)
End Sub
想问问高手们:Angle = -0.5236 * (15 - (Hour(Now) + minute(Now) / 60))
Angle = -0.1047 * (75 - (minute(Now) + Second(Now) / 60))
Angle = -0.1047 * (75 - Second(Now))
能给我解释一下这些代码呀?看不懂!!!!
Const hourhand = 0
Const minutehand = 13
Const secondhand = 14
Dim Angle
Static lastsecond
If Second(Now) = lastsecond Then Exit Sub
lastsecond = Second(Now)
Angle = -0.5236 * (15 - (Hour(Now) + minute(Now) / 60))
linclock(hourhand).X1 = 0
linclock(hourhand).Y1 = 0
linclock(hourhand).X2 = 0.5 * Cos(Angle)
linclock(hourhand).Y2 = 0.5 * Sin(Angle)
'Position minute hand
Angle = -0.1047 * (75 - (minute(Now) + Second(Now) / 60))
linclock(minutehand).X1 = 0
linclock(minutehand).Y1 = 0
linclock(minutehand).X2 = 0.7 * Cos(Angle)
linclock(minutehand).Y2 = 0.7 * Sin(Angle)
'Position second hand
Angle = -0.1047 * (75 - Second(Now))
linclock(secondhand).X1 = 0
linclock(secondhand).Y1 = 0
linclock(secondhand).X2 = 0.8 * Cos(Angle)
linclock(secondhand).Y2 = 0.8 * Sin(Angle)
End Sub
想问问高手们:Angle = -0.5236 * (15 - (Hour(Now) + minute(Now) / 60))
Angle = -0.1047 * (75 - (minute(Now) + Second(Now) / 60))
Angle = -0.1047 * (75 - Second(Now))
能给我解释一下这些代码呀?看不懂!!!!
每圈秒与分都是60格,所以每格就是2*Pi/60=0.1047
每圈时针是12格,所以每格就是2*Pi/12=0.5236