新手用VB做的钟表小程序.doc

新手用VB做的钟表小程序

Dim pi!, m!, f!, s!’通用变量
‘时针绘制
Function sz(s1 As Single)
Picture1.DrawWidth = 3
R = 1000
Picture1.Line (0, 0)-(R * Cos(s), R * Sin(s)), RGB(0, 0, 255)
End Function
‘分针绘制
Function fz(f1 As Single)
Picture1.DrawWidth = 3
R = 1200
Picture1.Line (0, 0)-(R * Cos(f), R * Sin(f)), RGB(0, 0, 0)
End Function
‘秒针绘制
Function mz(m1 As Single)
Picture1.DrawWidth = 3
R = 1400
Picture1.Line (0, 0)-(R * Cos(m), R * Sin(m)), RGB(255, 0, 0)
End Function
‘表盘绘制
Function bphz()
Picture1.DrawWidth = 3
Picture1.Circle (0, 0), 1500, RGB(0, 0, 0)
Picture1.DrawWidth = 2
Dim R!, r1!, x!, y!, ang!
R = 1500
r1 = 1250
For i = 0 To 2 * pi Step 2 * pi / 12
Picture1.Line (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
Picture1.Line (r1 * Cos(i), r1 * Sin(i))-(R * Cos(i), R * Sin(i)), RGB(0, 0, 0)
Next
End Function
‘窗体加载
Private Sub Form_Load()
Picture1.Scale (-2250, 2000)-(2250, -2000)
pi = 3.141592653
End Sub
‘开始按钮
Private Sub Start_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Picture1.Cls
a = bphz()
s = pi / 2 - Hour(Now()) * pi / 6 - Minute(Now()) / 60 * pi / 6 - Second(Now()) / 3600 * pi / 6
f = pi / 2 - Minute(Now()) * pi / 30 - Second(Now()) / 60 * pi / 30
m = pi / 2 - Second(Now()) * pi / 30
b = mz(m)
c = fz(f)
d = sz(s)
End Sub

4 / 4