Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / yet another analog clock:p

Author

Message

CuCuMBeR

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 28th Nov 2005 21:15

Link

hi fellas,
first post after a while, trying to get hands on dbpro back again..

+ Code Snippet

do : cls
for a=1 to 360 step 30 : center text 320+sin(a+30)*100,240-cos(a+30)*100,str$(a/30+1) : next a
time$ = get time$() : hr = val(left$(time$,2)) : min = val(mid$(time$,4)+mid$(time$,5)) : sec = val(right$(time$,2))
hrt = hr mod 12
ink rgb(255,0,0),0 : line 320,240,320+sin(sec*6)*75,240-cos(sec*6)*75
ink rgb(200,200,0),0 : line 320,240,320+sin(min*6)*75,240-cos(min*6)*75
ink rgb(200,200,200),0 : line 320,240,320+sin(hrt*30)*50,240-cos(hrt*30)*50
loop : end

Profile PM

Server time is: 2024-11-27 03:05:35
Your offset time is: 2024-11-27 03:05:35