1 / 4
文档名称:

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

格式:docx   大小:28KB   页数:4页
下载后只包含 1 个 DOCX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

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

上传人:mama1 2022/5/12 文件大小:28 KB

下载得到文件列表

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

文档介绍

文档介绍:细心整理
新手用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