TheGameCreators - CodeBase - Simple Analog Clock

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 22nd Dec 2008 22:39

Modified: 22nd Dec 2008 22:41

Author: bjdgames

Summary

A simple analog clock program. Includes hour, minute, and second hands. Demonstrates trig and time functions. Enjoy.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Clock

sync on : sync rate 0

rem Main Program Loop

rem Update Time

Hour# = GetHour()

Minute# = GetMinute()

Second# = GetSecond()

Hour# = Hour# + (Minute# / 60.0)

rem Draw Background

ink rgb(255,255,255),0

box 0,0,screen width(),screen height()

rem Draw Clock

ink 0,0

num = 1

set text size 15

set text font "Verdana"

dot screen width()/2,screen height()/2

for a = -60 to 300 step 30

text screen width()/2 - (text width(str$(num))/2) + (cos(A)*100),screen height()/2 - (text height(str$(num))/2) + (sin(A)*100),str$(num)

inc num

if num = 13 then num = 1

next a

for a = -60 to 300 step 6

if a mod 5 <> 0

dot screen width()/2 + (cos(a)*100),screen height()/2 + (sin(a)*100)

endif

next a

circle screen width()/2,screen height()/2,108

rem Draw Hour Hand

ink 0,0

line screen width()/2,screen height()/2,screen width()/2 + (cos((Hour# - 3.0) * 30.0)*60.0),screen height()/2 + (sin((Hour# - 3.0) * 30.0)*60.0)

rem Draw Minute Hand

ink 0,0

line screen width()/2,screen height()/2,screen width()/2 + (cos((Minute# / 5.0 - 3.0) * 30.0)*90.0),screen height()/2 + (sin((Minute# / 5.0 - 3.0) * 30.0)*90.0)

rem Draw Second Hand

ink rgb(255,0,0),0

line screen width()/2,screen height()/2,screen width()/2 + (cos((Second# / 5.0 - 3.0) * 30.0)*90.0),screen height()/2 + (sin((Second# / 5.0 - 3.0) * 30.0)*90.0)

rem Update Screen

sync

cls

loop

rem End Program

end

rem Functions

function GetHour()

Value# = val(left$(get time$(),2))

endfunction Value#

function GetMinute()

Value# = val(mid$(get time$(),4) + mid$(get time$(),5))

endfunction Value#

function GetSecond()

Value# = val(right$(get time$(),2))

endfunction Value#

Download

Please login to download

Comments

No comments yet.

Author Name:	bjdgames
CodeBase Entries:	1

CodeBase - Simple Analog Clock

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments