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

细心整理新手用VB做的钟表小程序Dim pi!, m!, f!, s!’通用变量‘时针绘制Function sz(s1 As Single)Picture1.DrawWidth = 3R = 1000Picture1.Line (0, 0)-(R * Cos(s), R * Sin(s)), RGB(0, 0, 255)End Function‘分针绘制Function fz(f1 As Single)Picture1.DrawWidth = 3R = 1200Picture1.Line (0, 0)-(R * Cos(f), R * Sin(f)), RGB(0, 0, 0)End Function‘秒针绘制Function mz(m1 As Single)Picture1.DrawWidth = 3R = 1400Picture1.Line (0, 0)-(R * Cos(m), R * Sin(m)), RGB(255, 0, 0)End Function‘表盘绘制Function bphz()Picture1.DrawWidth = 3Picture1.Circle (0, 0), 1500, RGB(0, 0, 0)Picture1.DrawWidth = 2Dim R!, r1!, x!, y!, ang!R = 1500r1 = 1250For i = 0 To 2 * pi Step 2 * pi / 12Picture1.Line (r1 * Cos(i), r1 * Sin(i))-(R * Cos(i), R * Sin(i)), RGB(0, 0, 0)Nextr1 = 1400For i = 0 To 2 * pi Step 2 * pi / 60Picture1.Line (r1 * Cos(i), r1 * Sin(i))-(R * Cos(i), R * Sin(i)), RGB(0, 0, 0)NextEnd Function‘窗体加载Private Sub Form_Load()Picture1.Scale (-2250, 2000)-(2250, -2000)pi = 3.141592653End Sub‘起先按钮Private Sub Start_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Picture1.Clsa = bphz()s = pi / 2 - Hour(Now()) * pi / 6 - Minute(Now()) / 60 * pi / 6 - Second(Now()) / 3600 * pi / 6f = pi / 2 - Minute(Now()) * pi / 30 - Second(Now()) / 60 * pi / 30m = pi / 2 - Second(Now()) * pi / 30b = mz(m)c = fz(f)d = sz(s)End Sub。