Stap 8: Semi-analoge klok.
AnalogClock.bas
[code]
'=================================================================
' semi-analoge klok door computothought
'
'--------------------------------------------------------
' housekeeping
CLS
ware % = -1
Zoek 4,1: afdrukken "Uren";
Zoek 6,1: afdrukken "Minuten";
Zoek 8,1: afdrukken "Seconden";
Zoek 15,1: afdrukken "Uren";
Zoek 18,1: afdrukken "Minuten";
Zoek 21,1: afdrukken "Seconden";
'--------------------------------------------------------
' Main lus
terwijl de echte %
Zoek 2,10: afdrukken "de tijd is:"; tijd van $; ".";
HR = val(left$(time$,2))
min = val(mid$(time$,4,2))
SEC = val(mid$(time$,7,2))
HR$ = juiste$ ("00" + str$(hr),2)
min$ = juiste$ ("00" + str$(min),2)
SEC$ = juiste$ ("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)
' uren
Zoek 5,1: print left$(string$(hr,"H") + string$ (60, ""), 60);
"mins
Zoek 7,1: print left$(string$(min,"M") + string$ (60, ""), 60);
' secs
Zoek 9,1: print left$(string$(sec,"S") + string$ (60, ""), 60);
' uren
als hr = 0 dan zoekt 16,1: print $ string (60, "");
Zoek 16,1: print $ string (hr - 1, ""); lhr$; $ string (60 - hr, "");
als hr = 0 dan zoekt 17,1: print $ string (60, "");
Zoek 17,1: print $ string (hr - 1, ""); rhr$; $ string (60 - hr, "");
"mins
als min = 0 dan zoekt 19,1: print $ string (60, "");
Zoek 19,1: print $ string (min - 1, ""); lmin$; $ string (60 - hr, "");
als min = 0 dan zoekt 20,1: print $ string (60, "");
Zoek 20,1: print $ string (min - 1, ""); rmin$; $ string (60 - hr, "");
' secs
Als sec = 0 Zoek 22,1: print $ string (60, "");
Zoek 22,1: print $ string (sec - 1, ""); lsec$; $ string (60 - hr, "");
Als sec = 0 Zoek 23,1: print $ string (60, "");
Zoek 23,1: print $ string (sec - 1, ""); rsec$; $ string (60 - hr, "");
wend
'------------------------------------------------
' nep einde
Zoek 14,1: afdrukken;
einde
[/ code]