hey guys im currantly making a program called "time keeper"
so far it has a countdown timer,stopwatch/timer counts up and can show date and time
not much but its a start
its being made using dbpro with some extra plugins that can be found here :
winskin
http://www.bandedsoftware.com/downloads/WinSkin.zip
wingui
http://forum.thegamecreators.com/?m=forum_view&t=97660&b=8
heres the dbpro code
REM Project: simple timer
REM Created: 03/04/08 7:57 PM
REM ***** Main Source File *****
`setup
sync rate 100
sync
set window skin "background.bmp",0,0,255
gosub startscreen
par=gui_makewindow(0,0)
gui_hidewindow par
control=gui_makewindow(225,200,"TIME CONTROL",PAR,1,1)
gui_setwindowcolor control,0,0,0
five=gui_makeradiobox("- 5 minutes",5,10,100,15,control)
ten=gui_makeradiobox("- 10 minutes",5,30,100,15,control)
thirty=gui_makeradiobox("- 30 minutes",5,50,100,15,control)
countdown=gui_makebutton("countdown",115,10,100,50,control)
timers=gui_makebutton("timer",5,70,100,50,control)
timedate=gui_makebutton("time / date",115,70,100,50,control)
endp=gui_makebutton("close",15,130,75,25,control)
restart=gui_makebutton("restart program",105,130,110,25,control)
GUI_SETBOXCHECKED ten,1
program:
do
if mouseclick()=1
drag window
endif
if gui_buttonpressed(endp)
end
endif
if gui_buttonpressed(timers)
gosub timers
endif
if gui_buttonpressed(timedate)
gosub timedate
endif
if gui_buttonpressed(countdown)
if gui_boxchecked(five)
minutes=5
gosub countdown
endif
if gui_boxchecked(ten)
minutes=10
gosub countdown
endif
if gui_boxchecked(thirty)
minutes=30
gosub countdown
endif
endif
loop
countdown:
sec=60
do
cls
print
print " minutes left ",minutes
print " seconds left ",sec
repeat
if gui_buttonpressed(restart)
goto startscreen
goto program
endif
if gui_buttonpressed(endp)
end
endif
if mouseclick()=1
drag window
endif
wait 100
s=s+100
until s=1000
s=0
sec=sec-1
if sec=0
minutes=minutes-1
sec=60
endif
if minutes=-1
goto startscreen
goto program
endif
loop
timers:
sec=0
minutes=0
do
cls
print
print " minutes ",minutes
print " seconds ",sec
repeat
if gui_buttonpressed(restart)
goto startscreen
goto program
endif
if gui_buttonpressed(endp)
end
endif
if mouseclick()=1
drag window
endif
wait 100
s=s+100
until s=1000
s=0
sec=sec+1
if sec=60
minutes=minutes+1
sec=0
endif
loop
timedate:
do
cls
print
print " date ",get date$()
print " time ",get time$()
if gui_buttonpressed(restart)
goto startscreen
goto program
endif
if gui_buttonpressed(endp)
end
endif
if mouseclick()=1
drag window
endif
loop
function startscreen:
cls
GUI_POSITIONWINDOW dbphwnd(),500,50
print " -<TIME KEEPER>-"
print " BY"
print " SHAUN WILESMITH"
endfunction
please comment
edit:
oh heres the media
and exe if you cant be botherd to download the plugins
winxp-intel core 2 duo 2.00ghz-2.00gb ram
nvidia en7300gt silent 256mb gfx
