Simple Binary Clock

[Kale]

Code updated for 5.20+

A very small snippet i was playing with and thought its quite cute. I may turn it into a full prog with nice UI Need to be a geek to read it though.

Code: Select all

Procedure CalculateTime()
  CurrentDate = Date()
  Hour = Hour(CurrentDate)
  Minute = Minute(CurrentDate)
  Second = Second(CurrentDate)
  ClearConsole()
  Print(RSet(Bin(Hour), 8, "0") + " : " + RSet(Bin(Minute), 8, "0") + " : " + RSet(Bin(Second), 8, "0"))
EndProcedure

OpenConsole()
EnableGraphicalConsole(#True)
CalculateTime()

StartTime = ElapsedMilliseconds()

Repeat
  ElapsedTime = ElapsedMilliseconds()
  
  If (ElapsedTime - StartTime) > 1000
    CalculateTime()
    StartTime = ElapsedMilliseconds()
  EndIf
ForEver

[thefool]

If you are going to use this way on a real clock, you need a widescreen led display

Sweet.

[PolyVector]

http://www.thinkgeek.com/cubegoodies/lights/59e0/

They have watches somewhere too

[thefool]

Cool

this thing has nothing to do with a binary clock, but its definantly cool:
http://www.thinkgeek.com/electronics/phones/5c83/