2022年 新手用vb做的钟表小程序.docx

文档介绍：_新手用vb做旳钟表小程序
新手用VB做旳钟表小程序 Dim pi!, m!, f!, s!’通用变量 ‘时针绘制 Function sz(s1 As Single) = 3 R = 1000 (0, 0)-(R * Cos(s),_新手用vb做旳钟表小程序
新手用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