Gamla laptop (eller pc) i en klocka. (2 / 9 steg)
Steg 2: Kompilera koden.
[code]
"OSYNLIGA ÄR INTE EN STANDARD KLOCKA
DIM SEK SOM STRÄNG, MIN AS STRING, HR SOM STRÄNG
SKÄRM 0: FÄRG 3, 15: BREDD 40, 25
CLS
GÖRA
HR$ = VÄNSTER$ (TID$, 2): MIN$ = MITTEN AV$ (TID$, 4, 2): SEK$ = RÄTT$ (TID$, 2)
LETA UPP 1, 1: SKRIVA UT HR$; ":"; MIN$; ":"; SEC$
"MINUTER
IF (VAL(MIN$) < 10 och val(min$) > = 5) eller (VAL(MIN$) > = 55 och VAL(MIN$) < 60) sedan färg 12, 15
LETA UPP 3, 2: SKRIVA UT "FEM": FÄRG 3, 15
OM VAL(MIN$) > = 10 och VAL(MIN$) < 15 eller VAL(MIN$) > = 50 och VAL(MIN$) < 55 sedan färg 12, 15
LETA UPP 3, 8: SKRIVA UT "TIO": FÄRG 3, 15
OM VAL(MIN$) > = 15 och VAL(MIN$) < 20 eller VAL(MIN$) > = 45 och VAL(MIN$) < 50 sedan färg 12, 15
LETA UPP 3, 13: SKRIVA UT "FEMTON": FÄRG 3, 15
OM VAL(MIN$) > = 20 och VAL(MIN$) < 25 eller VAL(MIN$) > = 40 och VAL(MIN$) < 45 sedan färg 12, 15
LETA UPP 3, 21: SKRIVA UT "TJUGO": FÄRG 3, 15
OM VAL(MIN$) > = 25 och VAL(MIN$) < 30 eller VAL(MIN$) > = 35 och VAL(MIN$) < 40 sedan färg 12, 15
LETA UPP 3, 28: PRINT "TJUGOFEM": FÄRG 3, 15
LETA UPP 7, 12: PRINT "MIN"
"EXTRA MINUTER
OM VAL(MIN$) > 30 sedan färg 12, 15
LETA UPP 5, 3: PRINT "MINUS": FÄRG 3, 15
OM VAL(MIN$) < 30 sedan färg 12, 15
LETA UPP 5, 10: PRINT "PLUS": FÄRG 3, 15
OM VAL (MITTEN AV$ (TID$, 5, 1)) = 6 ELLER VAL (MITTEN AV$ (TID$, 5, 1)) = 4 SEDAN FÄRG 12, 15
LETA UPP 7, 3: PRINT "1": FÄRG 3, 15
OM VAL (MITTEN AV$ (TID$, 5, 1)) = 7 ELLER VAL (MITTEN AV$ (TID$, 5, 1)) = 3 SEDAN FÄRG 12, 15
LETA UPP 7, 5: PRINT "2": FÄRG 3, 15
OM VAL (MITTEN AV$ (TID$, 5, 1)) = 8 ELLER VAL (MITTEN AV$ (TID$, 5, 1)) = 2 SEDAN FÄRG 12, 15
LETA UPP 7, 7: PRINT "3": FÄRG 3, 15
OM VAL (MITTEN AV$ (TID$, 5, 1)) = 9 ELLER VAL (MITTEN AV$ (TID$, 5, 1)) = 1 SEDAN FÄRG 12, 15
LETA UPP 7, 9: PRINT "4": FÄRG 3, 15
"TILL SENASTE
OM VAL(MIN$) > 30 sedan färg 12, 15
LETA UPP 9, 10: PRINT "TILL NÄSTA TIMME": FÄRG 3, 15
OM VAL(MIN$) < = 30 sedan färg 12, 15
LETA UPP 9, 30: PRINT "FÖRFLUTNA":: FÄRG 3, 15
OM VAL(MIN$) = 30 SEDAN FÄRG 12, 15
LETA UPP 9, 36: SKRIVA UT "HÄLFTEN": FÄRG 3, 15
"TIMMAR
OM VAL(HR$) = 1 ELLER VAL(HR$) = 13 SEDAN FÄRG 12, 15
LETA UPP 11, 2: PRINT "EN": FÄRG 3, 15
OM VAL(HR$) = 2 ELLER VAL(HR$) = 14 SEDAN FÄRG 12, 15
LETA UPP 11, 7: SKRIVA UT "TVÅ": FÄRG 3, 15
OM VAL(HR$) = 3 ELLER VAL(HR$) = 15 SEDAN FÄRG 12, 15
LETA UPP 11, 12: SKRIVA UT "TRE": FÄRG 3, 15
OM VAL(HR$) = 4 ELLER VAL(HR$) = 16 SEDAN FÄRG 12, 15
LETA UPP 11, 19: SKRIVA UT "FYRA": FÄRG 3, 15
OM VAL(HR$) = 5 ELLER VAL(HR$) = 17 SEDAN FÄRG 12, 15
LETA UPP 11, 25: SKRIVA UT "FEM": FÄRG 3, 15
OM VAL(HR$) = 6 ELLER VAL(HR$) = 18 SEDAN FÄRG 12, 15
LETA UPP 11, 30: SKRIVA UT "SEX": FÄRG 3, 15
OM VAL(HR$) = 7 ELLER VAL(HR$) = 19 SEDAN FÄRG 12, 15
LETA UPP 11, 35: SKRIVA UT "SJU": FÄRG 3, 15
OM VAL(HR$) = 8 ELLER VAL(HR$) = 20 SEDAN FÄRG 12, 15
LETA UPP 12, 5: SKRIVA UT "ÅTTA": FÄRG 3, 15
OM VAL(HR$) = 9 ELLER VAL(HR$) = 21 SEDAN FÄRG 12, 15
LETA UPP 12, 12: SKRIVA UT "NIO": FÄRG 3, 15
OM VAL(HR$) = 10 ELLER VAL(HR$) = 22 SEDAN FÄRG 12, 15
LETA UPP 12, 18: SKRIVA UT "TIO": FÄRG 3, 15
OM VAL(HR$) = 11 ELLER VAL(HR$) = 23 SEDAN FÄRG 12, 15
LETA UPP 12, 23: SKRIVA UT "ELVA": FÄRG 3, 15
OM VAL(HR$) = 0 ELLER VAL(HR$) = 12 SEDAN FÄRG 12, 15
LETA UPP 12, 31: SKRIVA UT "TOLV": FÄRG 3, 15
"KL-
OM VAL(HR$) > = 12 sedan färg 12, 15
LETA UPP 16, 5: PRINT "PM": FÄRG 3, 15
OM VAL(HR$) < 12 sedan färg 12, 15
LETA UPP 16, 2: PRINT "AM": FÄRG 3, 15
"SEKUNDER
FÄRG 12, 15: LETA REDA 19, 2: SKRIV UT "OCH"
FÄRG 3, 15
OM VAL(SEC$) = 5 SEDAN FÄRG 12, 15
LETA UPP 21, 1: PRINT "5": FÄRG 3, 15
OM VAL(SEC$) = 10 SEDAN FÄRG 12, 15
LETA UPP 21, 3: PRINT "10": FÄRG 3, 15
OM VAL(SEC$) = 15 SEDAN FÄRG 12, 15
LETA UPP 21, 7: PRINT "15": FÄRG 3, 15
OM VAL(SEC$) = 20 SEDAN FÄRG 12, 15
LETA UPP 21, 11: PRINT "20": FÄRG 3, 15
OM VAL(SEC$) = 25 SEDAN FÄRG 12, 15
LETA UPP 21, 15: PRINT "25": FÄRG 3, 15
OM VAL(SEC$) = 30 SEDAN FÄRG 12, 15
LETA UPP 21, 19: PRINT "30": FÄRG 3, 15
OM VAL(SEC$) = 35 SEDAN FÄRG 12, 15
LETA UPP 21, 23: PRINT "35": FÄRG 3, 15
OM VAL(SEC$) = 40 SEDAN FÄRG 12, 15
LETA UPP 21, 27: PRINT "40": FÄRG 3, 15
OM VAL(SEC$) = 45 SEDAN FÄRG 12, 15
LETA UPP 21, 31: PRINT "45": FÄRG 3, 15
OM VAL(SEC$) = 50 SEDAN FÄRG 12, 15
LETA UPP 21, 35: PRINT "50": FÄRG 3, 15
OM VAL(SEC$) = 55 SEDAN FÄRG 12, 15
LETA UPP 21, 39: PRINT "55": FÄRG 3, 15
FÄRG 12, 15: LETA REDA 23, 32: PRINT "SEKUNDER"
FÄRG 3, 15
LOOP
[/code]
Observera du kan lägga till ett avsnitt för larm som läser i en textfil av framtida larm i koden om du ville men programmet skulle behöva byggas.