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

文档介绍：1 / 3
新手用VB做的钟表小程序
Dｉm ｐi！, m!, ｆ!, s！’通用变量
‘时针绘制
Ｆunctｉｏｎ　ｓz(s1　Ａs　Ｓiｎｇｌｅ)
= 3
R ＝ 1０01 / 3
新手用VB做的钟表小程序
Dｉm ｐi！, m!, ｆ!, s！’通用变量
‘时针绘制
Ｆunctｉｏｎ　ｓz(s1　Ａs　Ｓiｎｇｌｅ)
= 3
R ＝ 1０00
　（０, 0)-(R　＊　Cos(s）,　R * Sin（s)), ＲGB(０, 0, 255)
Eｎd Functiｏｎ
‘分针绘制
Ｆuｎｃｔioｎ fz(f１ Aｓ Sｉｎｇｌｅ)
Piｃｔure1．DｒaｗWｉdth = 3
R ＝　12００
　(0, 0)－(R *　Ｃｏｓ(ｆ）, Ｒ ＊ Ｓｉn(f)), RGB（0, ０, 0)
2 / 3
End Function
‘秒针绘制
Funcｔｉｏｎ ｍz（m１ As Sinｇle)
＝　3
R = １４０0
(0,　0)-(Ｒ ＊ Cｏs(m），　Ｒ ＊　Ｓiｎ（ｍ)), RGB（２５５, 0， 0)
Enｄ Ｆunｃtiｏｎ
‘表盘绘制
Ｆunctioｎ ｂphz(）
Pｉcture1．DｒａwWidｔh　＝ 3
Pｉcｔｕｒe1．Ciｒｃｌe (0，　0），　1５０0, ＲGB(0, 0, 0)
　=　2
Diｍ Ｒ！, r1！，　ｘ!, y！, ang!
Ｒ　= 1５00
r1　＝　1250
For　i ＝ 0 Ｔo 2　＊ pi　Stｅp ２ * pi ／ 12
(r１ * Cｏs（ｉ),　ｒ１　* Siｎ(i))－(R　* Cos(ｉ）， R　＊　Ｓiｎ(i)）,　RＧB（0， ０, 0）
Ｎeｘt
r１　＝　1400
For i = 0 Tｏ 2 ＊ ｐi Stｅｐ ２ * pｉ /　60
(ｒ１ * Cos(i), r1　*　Sin（ｉ）)－(R　* Cｏｓ(i）, R ＊　Sｉn(i））,　RＧB（０, 0， ０)
Ｎext
Eｎd Ｆuｎｃtion
‘窗体加载
Private Ｓub　F