by sherif rofael (15 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 19th July 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
this code will allow you to draw an animated clock. wanna the source code or exe file please e-mail me:[email protected]
VBcoders
'as z increases the clock becomes slower.
'by sherif rofael
' mailto: [email protected]
' http://vbsherif.memebers.easyspace.com
' visit it and download any of my 25 programs there.
If r = "" Then r = 2
If Z = "" Then Z = 100000
If Z = 0 Then Z = 100000
x = Width / 2
y = Height / 2
X1 = x
Y1 = y - 2000
I = 90
For w = 1 To r
Line (x, y)-(X2, Y2), 1
I = I + 6
X2 = x - 1500 * Cos(I * 3.14 / 180)
Y2 = y - 1500 * Sin(I * 3.14 / 180)
Line (x, y)-(X2, Y2), 65725
Print "1", RGB(233, 94, 100)
For k = 1 To 60
For t = 1 To Z
Next t
Line (x, y)-(X1, Y1), 1
I = I + 6
X1 = x - 2000 * Cos(I * 3.14 / 180)
Y1 = y - 2000 * Sin(I * 3.14 / 180)
Circle (x, y), 2000, 16711680
Line (x, y)-(X1, Y1), 65535
Next k
Next w
Z = 0
No comments have been posted about this code will allow you to draw an animated clock. wanna the source code or exe file please e-mail. Why not be the first to post a comment about this code will allow you to draw an animated clock. wanna the source code or exe file please e-mail.
