TheGameCreators - CodeBase

Category: Display

Version: 0.5

Information

Uploaded: 28th Mar 2013 21:25

Modified: 9th Dec 2013 22:13

Author: MaPo

Summary

A black background, with early Atari VCS (2600) type font displaying the system time in the center of the screen. I imagine this could be used as a screen saver.

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

`-----------

`ATARI CLOCK

`-----------

set display mode 320,240,32

cls

hide mouse

ink rgb (142,142,142),0

type variables

`---------------------------------

`variables for getting system time

`---------------------------------

CURRENT_TIME as string

CURRENT_TIME_DIGIT_1 as string

CURRENT_TIME_DIGIT_2 as string

CURRENT_TIME_DIGIT_4 as string

CURRENT_TIME_DIGIT_5 as string

CURRENT_TIME_DIGIT_7 as string

CURRENT_TIME_DIGIT_8 as string

`---------------------------------------

`variables for outputting time to screen

`---------------------------------------

OUTPUT_POS_1 as integer

OUTPUT_POS_2 as integer

OUTPUT_POS_3 as integer

OUTPUT_POS_4 as integer

OUTPUT_POS_5 as integer

OUTPUT_POS_6 as integer

OUTPUT_POS_7 as integer

OUTPUT_POS_8 as integer

endtype

v as variables

cls

`-----------------------

`get current system time

`-----------------------

v.CURRENT_TIME = get time$()

`hours

v.CURRENT_TIME_DIGIT_1 = mid$(v.CURRENT_TIME, 1)

v.CURRENT_TIME_DIGIT_2 = mid$(v.CURRENT_TIME, 2)

`minutes

v.CURRENT_TIME_DIGIT_4 = mid$(v.CURRENT_TIME, 4)

v.CURRENT_TIME_DIGIT_5 = mid$(v.CURRENT_TIME, 5)

`seconds

v.CURRENT_TIME_DIGIT_7 = mid$(v.CURRENT_TIME, 7)

v.CURRENT_TIME_DIGIT_8 = mid$(v.CURRENT_TIME, 8)

`-----------------------------------------------

`for a twelve-hour presentation, check the first

`time digit for "1" eg. 10, 11 or 12 o'clock

`we're doing this for screen-centering purpose

`-----------------------------------------------

if v.CURRENT_TIME_DIGIT_1 = "1"

v.OUTPUT_POS_1 = 32

else

v.OUTPUT_POS_2 = 38

endif

print v.OUTPUT_POS_2

drawZero(10,10)

drawColon(41,10)

drawTwo(72,10)

drawThree(103,10)

loop

`drawZero(10,10)

`drawColon(41,10)

`drawTwo(72,10)

`drawThree(103,10)

`drawFour(134,10)

`drawFive(10,26)

`drawSix(41,26)

`drawSeven(72,26)

`drawEight(103,26)

`drawNine(134,26)

wait key

function drawColon(left,top)

box left+008, top+002, left+0016, top+004

box left+008, top+006, left+0016, top+008

endfunction

function drawZero(left,top)

box left+000, top+000, left+023, top+002

box left+000, top+002, left+007, top+008

box left+016, top+002, left+023, top+008

box left+000, top+008, left+023, top+010

endfunction

function drawOne(left,top)

box left+008, top+000, left+0016, top+010

endfunction

function drawTwo(left,top)

box left+000, top+000, left+024, top+002

box left+000, top+004, left+024, top+006

box left+000, top+008, left+024, top+010

box left+016, top+002, left+024, top+004

box left+000, top+006, left+008, top+008

endfunction

function drawThree(left,top)

box left+000, top+000, left+024, top+002

box left+000, top+004, left+024, top+006

box left+000, top+008, left+024, top+010

box left+016, top+002, left+024, top+004

box left+016, top+006, left+024, top+008

endfunction

function drawFour(left,top)

box left+000, top+000, left+008, top+006

box left+008, top+004, left+016, top+006

box left+016, top+000, left+024, top+010

endfunction

function drawFive(left,top)

box left+000, top+000, left+024, top+002

box left+000, top+004, left+024, top+006

box left+000, top+008, left+024, top+010

box left+016, top+006, left+024, top+008

box left+000, top+002, left+008, top+004

endfunction

function drawSix(left,top)

box left+016, top+004, left+023, top+008

box left+007, top+004, left+016, top+006

box left+000, top+000, left+007, top+008

box left+000, top+008, left+023, top+010

endfunction

function drawSeven(left,top)

box left+000, top+000, left+024, top+002

box left+016, top+002, left+024, top+010

endfunction

function drawEight(left,top)

box left+000, top+000, left+023, top+002

box left+000, top+002, left+007, top+008

box left+016, top+002, left+023, top+008

box left+000, top+008, left+023, top+010

box left+007, top+004, left+016, top+006

endfunction

function drawNine(left,top)

box left+000, top+000, left+008, top+006

box left+008, top+004, left+016, top+006

box left+016, top+000, left+024, top+010

box left+008, top+000, left+016, top+002

endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - ATARI Clock

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	MaPo
CodeBase Entries:	14