新手用VB做的钟表小程序(共2页).doc

《新手用VB做的钟表小程序(共2页).doc》由会员分享，可在线阅读，更多相关《新手用VB做的钟表小程序(共2页).doc（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上新手用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

2、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

3、 * 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)-(22

4、50, -2000)pi = 3.End 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专心-专注-专业