Hello! I made a little program today that simulates one of those little binary clocks. You can enter the time in at the variables in the top of the code, then compile it at that time you entered then the clock will display the current time in binary. Unfortunately, i made it to use the American time unit, so you people way up there in the Europe will have to convert it to use the metric time system.
Haha just kidding on that one!
Here's da codez:
cls rgb(127,127,127)
hour=1
minute=00
second=00
do
wait 1000
inc second,1
if second>59
second=0
inc minute,1
if minute>59
minute=0
inc hour,1
if hour>12
hour=1
endif
endif
endif
if second<10
leftsecond=0
else
leftsecond=val(left$(str$(second),1))
endif
rightsecond=val(right$(str$(second),1))
if minute<10
leftminute=0
else
leftminute=val(left$(str$(minute),1))
endif
rightminute=val(right$(str$(minute),1))
if hour<10
lefthour=0
else
lefthour=val(left$(str$(hour),1))
endif
righthour=val(right$(str$(hour),1))
displaydigits(lefthour,50,50)
displaydigits(righthour,150,50)
displaydigits(leftminute,250,50)
displaydigits(rightminute,350,50)
displaydigits(leftsecond,450,50)
displaydigits(rightsecond,550,50)
loop
end
function drawsquare(x,y,status)
lock pixels
for x2=x to x+50 step 1
for y2=y to y+50 step 1
dot x2,y2,rgb(0,0,255*status)
next y2
next x2
unlock pixels
endfunction
function displaydigits(number,x,y)
if number=0
drawsquare(x,y,0)
drawsquare(x,y+100,0)
drawsquare(x,y+200,0)
drawsquare(x,y+300,0)
endif
if number=1
drawsquare(x,y,0)
drawsquare(x,y+100,0)
drawsquare(x,y+200,0)
drawsquare(x,y+300,1)
endif
if number=2
drawsquare(x,y,0)
drawsquare(x,y+100,0)
drawsquare(x,y+200,1)
drawsquare(x,y+300,0)
endif
if number=3
drawsquare(x,y,0)
drawsquare(x,y+100,0)
drawsquare(x,y+200,1)
drawsquare(x,y+300,1)
endif
if number=4
drawsquare(x,y,0)
drawsquare(x,y+100,1)
drawsquare(x,y+200,0)
drawsquare(x,y+300,0)
endif
if number=5
drawsquare(x,y,0)
drawsquare(x,y+100,1)
drawsquare(x,y+200,0)
drawsquare(x,y+300,1)
endif
if number=6
drawsquare(x,y,0)
drawsquare(x,y+100,1)
drawsquare(x,y+200,1)
drawsquare(x,y+300,0)
endif
if number=7
drawsquare(x,y,0)
drawsquare(x,y+100,1)
drawsquare(x,y+200,1)
drawsquare(x,y+300,1)
endif
if number=8
drawsquare(x,y,1)
drawsquare(x,y+100,0)
drawsquare(x,y+200,0)
drawsquare(x,y+300,0)
endif
if number=9
drawsquare(x,y,1)
drawsquare(x,y+100,0)
drawsquare(x,y+200,0)
drawsquare(x,y+300,1)
endif
endfunction
However i must say a metric time system would be nice, a day split into 10 hours, an hour split into 100 minutes and a minute split into 100 seconds or something like that... It would just be more simple than our confusing 24 seconds in an hour and 60 hours in a day Bajingladoo of a system!
Anyway, criticism on the program positive or negative are awesome as they are both almost always constructive. Thanks and enjoy! Look these things up on the internet, particularly youtube, they are pretty awesome.
There are 10 types of people: those who read binary and those who dont.
