Gamla laptop (eller pc) i en klocka. (8 / 9 steg)
Steg 8: Semi analog klocka.
AnalogClock.bas
[code]
'=================================================================
"semi analog klocka av computothought
'
'--------------------------------------------------------
"städning
CLS
True % = -1
Leta upp 4,1: skriva ut "Timmar";
Leta upp 6,1: skriva ut "Minuter";
Leta upp 8,1: skriva ut "Sekunder".
Leta upp 15,1: skriva ut "Timmar";
Leta upp 18,1: skriva ut "Minuter";
Leta upp 21,1: skriva ut "Sekunder".
'--------------------------------------------------------
"Main loop
medan true %
Leta upp 2,10: skriva ut "tiden är:"; tid$; ".";
HR = val(left$(time$,2))
min = val(mid$(time$,4,2))
SEC = val(mid$(time$,7,2))
HR$ = rätt$ ("00" + str$(hr),2)
min$ = rätt$ ("00" + str$(min),2)
SEK$ = rätt$ ("00" + str$(sec),2)
LHR$ = left$(hr$,1)
rhr$ = right$(hr$,1)
lmin$ = left$(min$,1)
Rmin$ = right$(min$,1)
lsec$ = left$(sec$,1)
rsec$ = right$(sec$,1)
"timmar
Leta upp 5,1: print left$(string$(hr,"H") + strängen$ (60, ""), 60);
"minuter
Leta upp 7,1: print left$(string$(min,"M") + strängen$ (60, ""), 60);
"SEK
Leta upp 9,1: print left$(string$(sec,"S") + strängen$ (60, ""), 60);
"timmar
om hr = 0 då lokalisera 16,1: skriva ut strängen$ (60, "");
Leta upp 16,1: skriva ut strängen$ (hr - 1, ""); lhr$; sträng$ (60 - hr, "");
om hr = 0 då lokalisera 17,1: skriva ut strängen$ (60, "");
Leta upp 17,1: skriva ut strängen$ (hr - 1, ""), rhr$; sträng$ (60 - hr, "");
"minuter
om min = 0 då lokalisera 19,1: skriva ut strängen$ (60, "");
Leta upp 19,1: skriva ut strängen$ (min - 1, ""); lmin$; sträng$ (60 - hr, "");
om min = 0 då lokalisera 20,1: skriva ut strängen$ (60, "");
Leta upp 20,1: skriva ut strängen$ (min - 1, ""); rmin$; sträng$ (60 - hr, "");
"SEK
om SEK = 0 då lokalisera 22,1: skriva ut strängen$ (60, "");
Leta upp 22,1: skriva ut strängen$ (SEK - 1, ""), lsec$; sträng$ (60 - hr, "");
om SEK = 0 då lokalisera 23,1: skriva ut strängen$ (60, "");
Leta upp 23,1: skriva ut strängen$ (SEK - 1, ""), rsec$; sträng$ (60 - hr, "");
wend
'------------------------------------------------
"falska slutet
Leta upp 14,1: skriva ut;
slutet
[/code]