Makinkg a digital clock - GameCreators Forum

Author

Message

jsilvo

18

Years of Service

User Offline

Joined: 15th Sep 2006

Location:

Posted: 24th May 2012 23:42

Link

Hello

I'm trying to make digital clock to top of screen and i'm allmost done, but one little question:

+ Code Snippet

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

sync on
sync rate 60

do
cls
PRINT "Clock: "; GetTime()
PRINT "Today: "; GetDate()
set text font "verdana"
set text size 16

sync
loop


FUNCTION GetTime()
Time$ = ""
Hour = 0

Hour = VAL(LEFT$(GET TIME$(), 2))

Time$ = STR$(Hour) + RIGHT$(GET TIME$(), 6)
ENDFUNCTION Time$

FUNCTION GetDate()
Date$ = LEFT$(GET DATE$(), 6)
Date$ = Date$ + "20" + RIGHT$(GET DATE$(), 2)
ENDFUNCTION Date$

How i can make a clock with no second?
Can i return a day of week in get date$ funtion?

Thanks for answers.

Back to top

Profile PM

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 25th May 2012 00:20

Link

0. Haven't read your code snippet as my phone's browser is playing up, anyway; to answer your questions...

1. You simply print/text it without seconds by reducing 3 characters from the string returned by GET TIME$(). Eg:

+ Code Snippet

rem Assume the time is 19:45:52
out$ = GET TIME$()
out$ = LEFT$(out$, LEN(out$) - 3)
PRINT out$
rem Output is 19:45
rem This can be done in a single line, but
rem I have broken it down for readability.

2. No, but you can get the day with a little effort. You can calculate the day name (Mon, Tue, Wed, etc) based on the day number of the year (obtain this from getting the month, adding the total days of each month to the current date. remember to compensate for leap years by checking for a divisor of 4 in the year) - or something like that. It boils down to numeric patterns, nothing more. Will throw some code up tomorrow (if somebody else hasn't by then) as I'm on my phone (hard to code on a phone). Good luck till then.