BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Binary Time (Vertical version).", by kuklisj

OS-time (in Your PC) in binary & graphix form.
U have 2 read it from left 2 right & from bottom 2 up.
1 column represents 1 digit.
Have a fun.
sar.com

Code

;Binarny cas aka Modny bytovy doplnok - sar.com - Anno Domini 2004.
;vVERTICAL Countdown.
;opSys requiremenc : DirectX, Courier font.
;© + ® All Rights R Pre-reserved !
AppTitle "BinTime vV (Release Candidate)","IdZeM Ta hEt !!"

;Definicia parametrov grafickeho okna & fontov pisma.
Global Pismo,Solid
Graphics 320,240,0,3
Pismo = LoadFont("Courier",18,False,False,False)
SetFont Pismo
y=150

;Begin of program Loop.
.BopL

;BossKey = ESCAPE.
While Not KeyHit(1)

;Double Buffering.
SetBuffer BackBuffer()
Color 0,255,0

aktuaTime$=CurrentTime$()
aktuaHour10$=Left$(aktuaTime$,1)
aktuaHour1$=Mid$(aktuaTime$,2,1)
aktuaMin10$=Mid$(aktuaTime,4,1)
aktuaMin1$=Mid$(aktuaTime,5,1)
aktuaSec10$=Mid$(aktuaTime$,7,1)
aktuaSec1$=Right$(aktuaTime$,1)

aktuaBinHour10$=Right$(Bin$(aktuaHour10$),2)
aktuaBinHour1$=Right$(Bin$(aktuaHour1$),4)
aktuaBinMin10$=Right$(Bin$(aktuaMin10$),3)
aktuaBinMin1$=Right$(Bin$(aktuaMin1$),4)
aktuaBinSec10$=Right$(Bin$(aktuaSec10$),3)
aktuaBinSec1$=Right$(Bin$(aktuaSec1$),4)

Flip
Cls

x=40
a=2
b$=aktuaBinHour10$
Gosub DRAW

x=80
a=4
b$=aktuaBinHour1$
Gosub DRAW

x=120
a=3
b$=aktuaBinMin10$
Gosub DRAW

x=160
a=4
b$=aktuaBinMin1$
Gosub DRAW

x=200
a=3
b$=aktuaBinSec10$
Gosub DRAW

x=240
a=4
b$=aktuaBinSec1$
Gosub DRAW

;4 IT non-fanatix.
Color 0,100,0
Text 160,200,CurrentTime$(),True,False

Goto BopL

;Naprosto neocakavany koniec programu ...
Wend
FreeFont Pismo
End

;subRoutinne DRAW.
.DRAW
For H = a To 1 Step -1
Solid=Mid$(b$,H,1)
Oval x,y,30,30,Solid
y=y-40
Next
y=150
Return

Code software created by Krylar's Kreations