TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 9th Jun 2006 20:24

Modified: 1st Jan 1970 01:00

Author: Darkfoil

Summary

An anaolgue clock for your desktop.

Full Description

An analogue clock that runs in the background and can be positioned anywhere on the screen using the mouse. To compile this program you will need to have the SkinWin .dll this can be obtained free from www.ACCODE.com

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Clock

Rem Created: 09/06/2006 11:11:07

Rem ***** Main Source File *****

set window on

set window size 190,155

set window layout 0,0,0

skin window "skin2.bmp"

color backdrop rgb(0,0,0)

autocam off

set ambient light 100

sync on

sync rate 0

CLOCKFACE()

HOURHAND()

MINUTEHAND()

SECONDHAND()

GETTIME()

UPDATETIME()

if mouseclick()=1 then window move

if mouseclick()=2 then end

sync

loop

function CLOCKFACE()

make object box 1,400,400,1

load image "clock face.png",1

texture object 1,1

point object 1,camera position x(),camera position y(),camera position z()

position camera 0,0,-350

endfunction

function HOURHAND()

make object sphere 2,300

set image colorkey 0,0,0

load image "hour hand2.bmp",2,0

set object transparency 2,1

texture object 2,2

position object 2,object position x(1),object position y(1),object position z(1)

endfunction

function MINUTEHAND()

make object sphere 3,300

set image colorkey 0,0,0

load image "minute hand2.bmp",3,0

set object transparency 3,1

texture object 3,3

position object 3,object position x(1),object position y(1),object position z(1)

endfunction

function SECONDHAND()

make object sphere 4,310

set image colorkey 0,0,0

load image "second hand.bmp",4,0

set object transparency 4,1

texture object 4,4

position object 4,object position x(1),object position y(1),object position z(1)

endfunction

function GETTIME()

t$=get time$()

hours$=left$(t$,2)

hours=val(hours$)

if hours>12

hours=hours-12

hours$=str$(hours)

endif

minutes$=mid$(t$,4)+mid$(t$,5)

seconds$=right$(t$,2)

zrotate object 2,-wrapvalue(val(hours$)*30)

zrotate object 3,-wrapvalue(val(minutes$)*6)

zrotate object 4,-wrapvalue(val(seconds$)*6)

endfunction

function UPDATETIME()

t$=get time$()

hours$=left$(t$,2)

hours=val(hours$)

if hours>12

hours=hours-12

hours$=str$(hours)

endif

minutes$=mid$(t$,4)+mid$(t$,5)

seconds$=right$(t$,2)

zrotate object 2,-wrapvalue(val(hours$)*30)+(-wrapvalue(val(minutes$)*6)/15)

zrotate object 3,-wrapvalue(val(minutes$)*6)+(-wrapvalue(val(seconds$)*6)/60)

zrotate object 4,-wrapvalue(val(seconds$)*6)

endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Desktop Clock.

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Darkfoil
CodeBase Entries:	1