Gamla laptop (eller pc) i en klocka. (7 / 9 steg)
Steg 7: Binär klocka.
binclock.bas
[code]
'=================================================================
"binär klocka av computothought
'
'--------------------------------------------------------
"städning
CLS
True % = -1
Leta upp 4,10: skriva ut "tiden är:"; tid$; ".";
Leta upp 7,20: skriva ut "Hexadecimalt";
Leta upp 7,36: skriva ut "Binary";
'--------------------------------------------------------
Huvudloop
medan true %
HR = val(left$(time$,2))
min = val(mid$(time$,4,2))
SEC = val(mid$(time$,7,2))
"timmar
Leta upp 08,20: skriva ut "";
HR$ = rätt$ ("" + hex$(hr),2)
Leta upp 08,10: skriva ut "Timmar"; : hitta 08,20: print hr$;
N = hr
GOSUB binit
BHR$ = C$
Leta upp 08,30: skriva ut "";
Leta upp 08,30: print rätt$ ("" + bhr$, 16);
"minuter
Leta upp 10,20: skriva ut "";
min$ = rätt$ ("" + hex$(min),2)
Leta upp 10,10: skriva ut "Minuter"; : hitta 10,20: skriva ut min$;
N = min
GOSUB binit
Leta upp 10,30: skriva ut "";
bmin$ = C$
Leta upp 10,30: print rätt$ ("" + bmin$, 16);
"SEK
Leta upp 12,20: skriva ut "";
SEK$ = rätt$ ("" + hex$(sec),2)
Leta upp 12,10: skriva ut "Sekunder". : hitta 12,20: print SEK$;
N = SEK
GOSUB binit
Leta upp 12.30: skriva ut "";
BSEC$ = C$
Leta upp 12.30: print rätt$ ("" + bsec$, 16);
wend
'------------------------------------------------
"falska slutet
Leta upp 14,1: skriva ut;
slutet
'------------------------------------------------
"subrutiner
binit:
C$=""
MEDAN N <> 0
A = N MOD 2
B$ = STR$(A)
N = FIX(N / 2)
C$ = B$ + C$
WEND
returnera
[/code]