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 (Horizontal version).", by kuklisj

OS-time (in Your PC) in binary & graphix form.
U have 2 read it from from up 2 down & from right 2 left.
1 row represents 2 digits (HH:MM:SS).
Have a fun.
sar.com

Code

;Binarny cas aka Modny bytovy doplnok - sar.com - Anno Domini 2004.
;vHORIZONTAL Countdown.
;opSys requiremenc : DirectX, Courier font.
;© + ® All Rights R Pre-reserved !
AppTitle "BinTime vH (Release Candidate)","iDzEm tA HeT !!"

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

;Begin of program Loop.
.BopL

;BossKey = ESCAPE.
While Not KeyHit(1)

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

aktuaTime$=CurrentTime$()
aktuaHour$=Left$(aktuaTime$,2)
aktuaMin$=Mid$(aktuaTime,4,2)
aktuaSec$=Right$(aktuaTime$,2)

aktuaBinHour$=Right$(Bin$(aktuaHour$),5)
aktuaBinMin$=Right$(Bin$(aktuaMin$),6)
aktuaBinSec$=Right$(Bin$(aktuaSec$),6)

Flip
Cls

y=30
a=5
b$=aktuaBinHour$
Gosub DRAW

y=80
a=6
b$=aktuaBinMin$
Gosub DRAW

y=130
a=6
b$=aktuaBinSec$
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
x=x-40
Next
x=240
Return

Code software created by Krylar's Kreations