细心整理
新手用VB做的钟表小程序
Dim pi!, m!, f!, s!’通用变量
‘时针绘制
Function sz(s1 As Single)
= 3
R = 1000细心整理
新手用VB做的钟表小程序
Dim pi!, m!, f!, s!’通用变量
‘时针绘制
Function sz(s1 As Single)
= 3
R = 1000
(0, 0)-(R * Cos(s), R * Sin(s)), RGB(0, 0, 255)
细心整理
End Function
‘分针绘制
Function fz(f1 As Single)
= 3
R = 1200
(0, 0)-(R * Cos(f), R * Sin(f)), RGB(0, 0, 0)
End Function
‘秒针绘制
Function mz(m1 As Single)
= 3
R = 1400
(0, 0)-(R * Cos(m), R * Sin(m)), RGB(255, 0, 0)
End Function
‘表盘绘制
Function bphz()
= 3
(0, 0), 1500, RGB(0, 0, 0)
= 2
Dim R!, r1!, x!, y!, ang!
R = 1500
r1 = 1250
For i = 0 To 2 * pi Step 2 * pi / 12
细心整理
(r1 * Cos(i), r1 * Sin(i))-(R * Cos(i), R * Sin(i)), RGB(0, 0, 0)
Next
r1 = 1400
For i = 0 To 2 * pi Step 2 * pi / 60
(r1 * Cos(i), r1 * Sin(i))-(R * Cos(i), R * Sin(i)), RGB(0, 0, 0)
Next
End Function
‘窗体加载
Private Sub
新手用VB做的钟表小程序 来自淘豆网www.taodocs.com转载请标明出处.