vb时钟代码

来源：百度知道 编辑：UC知道 时间：2024/07/07 17:09:10
要简易明白的，要有过程解释，要是初学者能用到的。要求：一、有timer时间控件；二，要用代码写出三个line，分别是秒针、分针、时针，并显示在一个用代码circle写的圆里，三支时针必须圆圆里。最终效果如系统自带的时钟那样。
要100%准确！因为急用的。
可以在简单一点吗！！！
Const rad = 0.017453292517 '1角度的弧度数
const rad后面可以不用数字代替吗？用其他代替吗
可以用ten或sin或cos代替吗？

'这个是最新修改的。再简单？那等高手解决吧。
'祝你学习愉快！

'Timer1的Interval属性设为1000
'建议Form1的Width属性设为2595，Height属性设为2535

Dim a As Integer, b As Integer, rad As Double
Private Sub Form_Load()
a = Me.ScaleWidth \ 2 '圆心X坐标
b = Me.ScaleHeight \ 2 '圆心Y坐标
rad = Atn(1) / 45 '1角度的弧度数
Me.DrawWidth = 2
End Sub

Private Sub Timer1_Timer()
Dim angle1 As Double, angle2 As Double, angle3 As Double
angle1 = ((Hour(Now) Mod 12) * 30 + Minute(Now) / 2 - 90) * rad '时针的角度
angle2 = (Minute(Now) * 6 + Second(Now) / 10 - 90) * rad '分针的角度
angle3 = (Second(Now) * 6 - 90) * rad '秒针的角度
Cls '清除画面，以便画下一秒的状态
Me.Circle (a, b), 720 '画石英钟轮廓
For i = 1 To 12
Me.CurrentX = a - IIf(i < 7, 115, 170) + 600 * Cos((i * 30 - 90) * rad) '刻度X坐标
Me.CurrentY = b - 90 + 600 * Sin((i * 30 - 90) * rad) '刻度Y坐标
Print i '画刻度
Next
Me.Line (a, b)-(a + 300 * Co