Stap 2: De code compileren.
[code]
' ONZICHTBARE IS NIET EEN STANDAARD KLOK
SEC AS STRING, MIN AS STRING, HR AS STRING DIM
SCHERM 0: KLEUR 3, 15: BREEDTE 40, 25
CLS
DOEN
HR$ = LINKER$ (TIJD$, 2): MIN$ = MID$ (TIJD$, 4, 2): SEC$ = JUISTE$ (TIJD$, 2)
ZOEK 1, 1: AFDRUKKEN VAN HR$; ":"; MIN$; ":"; SEC$
' MINUTEN
IF (VAL(MIN$) < 10 en val(min$) > = 5) of (VAL(MIN$) > = 55 en VAL(MIN$) < 60) vervolgens kleur 12, 15
ZOEK 3, 2: "VIJF" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) > = 10 en VAL(MIN$) < 15 of VAL(MIN$) > = 50 en VAL(MIN$) < 55 vervolgens kleur 12, 15
ZOEK 3, 8: "TIEN" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) > = 15 en VAL(MIN$) < 20 of VAL(MIN$) > = 45 en VAL(MIN$) < 50 vervolgens kleur 12, 15
ZOEK 3, 13: "VIJFTIEN" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) > = 20 en VAL(MIN$) < 25 of VAL(MIN$) > = 40 en VAL(MIN$) < 45 vervolgens kleur 12, 15
ZOEK 3, 21: "TWINTIG" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) > = 25 en VAL(MIN$) < 30 of VAL(MIN$) > = 35 en VAL(MIN$) < 40 vervolgens kleur 12, 15
ZOEK 3, 28: PRINT "VIJFENTWINTIG": KLEUR 3, 15
ZOEK 7, 12: PRINT "MIN 'S"
' EXTRA MINUTEN
IF VAL(MIN$) > 30 vervolgens kleur 12, 15
ZOEK 5, 3: PRINT "MIN": KLEUR 3, 15
IF VAL(MIN$) < 30 vervolgens kleur 12, 15
ZOEK 5, 10: "PLUS" AFDRUKKEN: KLEUR 3, 15
ALS VAL (MID$ (TIJD$, 5, 1)) = 6 OF VAL (MID$ (TIJD$, 5, 1)) = 4 VERVOLGENS KLEUR 12, 15
ZOEK 7, 3: PRINT '1': KLEUR 3, 15
ALS VAL (MID$ (TIJD$, 5, 1)) = 7 OF VAL (MID$ (TIJD$, 5, 1)) = 3 VERVOLGENS KLEUR 12, 15
ZOEK 7, 5: PRINT "2": KLEUR 3, 15
ALS VAL (MID$ (TIJD$, 5, 1)) = 8 OF VAL (MID$ (TIJD$, 5, 1)) = 2 VERVOLGENS KLEUR 12, 15
ZOEK 7, 7: PRINT "3": KLEUR 3, 15
ALS VAL (MID$ (TIJD$, 5, 1)) = 9 OF VAL (MID$ (TIJD$, 5, 1)) = 1 DAN KLEUR 12, 15
ZOEK 7, 9: PRINT '4': KLEUR 3, 15
' TOT AFGELOPEN
IF VAL(MIN$) > 30 vervolgens kleur 12, 15
ZOEK 9, 10: "NAAR HET VOLGENDE UUR" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) < = 30 vervolgens kleur 12, 15
ZOEK 9, 30: PRINT "VERLEDEN":: KLEUR 3, 15
IF VAL(MIN$) = 30 VERVOLGENS KLEUR 12, 15
ZOEK 9, 36: "DE HELFT" AFDRUKKEN: KLEUR 3, 15
' UREN
IF VAL(HR$) = 1 OF VAL(HR$) = 13 VERVOLGENS KLEUR 12, 15
ZOEK 11, 2: PRINT "ONE": KLEUR 3, 15
IF VAL(HR$) = 2 OF VAL(HR$) = 14 VERVOLGENS KLEUR 12, 15
ZOEK 11, 7: "TWEE" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 3 OF VAL(HR$) = 15 VERVOLGENS KLEUR 12, 15
ZOEK 11, 12: "DRIE" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 4 OF VAL(HR$) = 16 VERVOLGENS KLEUR 12, 15
ZOEK 11, 19: "VIER" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 5 OF VAL(HR$) = 17 DAN KLEUR 12, 15
GA NAAR 11, 25: "VIJF" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 6 OF VAL(HR$) = 18 DAN KLEUR 12, 15
ZOEK 11, 30: "ZES" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 7 OF VAL(HR$) = 19 VERVOLGENS KLEUR 12, 15
ZOEK 11, 35: "ZEVEN" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 8 OF VAL(HR$) = 20 VERVOLGENS KLEUR 12, 15
ZOEK 12, 5: "ACHT" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 9 OF VAL(HR$) = 21 VERVOLGENS KLEUR 12, 15
ZOEK 12, 12: "NINE" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 10 OF VAL(HR$) = 22 VERVOLGENS KLEUR 12, 15
ZOEK 12, 18: "TIEN" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 11 OF VAL(HR$) = 23 VERVOLGENS KLEUR 12, 15
ZOEK 12, 23: "ELF" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 0 OF VAL(HR$) = 12 DAN KLEUR 12, 15
ZOEK 12, 31: "TWAALF" AFDRUKKEN: KLEUR 3, 15
' AM-PM
IF VAL(HR$) > = 12 dan kleur 12, 15
ZOEK 16, 5: PRINT 'PM': KLEUR 3, 15
IF VAL(HR$) < 12 vervolgens kleur 12, 15
ZOEK 16, 2: PRINT 'AM': KLEUR 3, 15
' SECONDS
KLEUR 12, 15: GA 19, 2: PRINT "EN"
KLEUR 3, 15
IF VAL(SEC$) = 5 VERVOLGENS KLEUR 12, 15
ZOEK 21, 1: AFDRUKKEN "5": KLEUR 3, 15
IF VAL(SEC$) = 10 VERVOLGENS KLEUR 12, 15
ZOEK 21, 3: "10" AFDRUKKEN: KLEUR 3, 15
IF VAL(SEC$) = 15 VERVOLGENS KLEUR 12, 15
ZOEK 21, 7: PRINT "15": KLEUR 3, 15
IF VAL(SEC$) = 20 VERVOLGENS KLEUR 12, 15
ZOEK 21, 11: PRINT "20": KLEUR 3, 15
IF VAL(SEC$) = 25 VERVOLGENS KLEUR 12, 15
ZOEK 21, 15: PRINT "25": KLEUR 3, 15
IF VAL(SEC$) = 30 VERVOLGENS KLEUR 12, 15
ZOEK 21, 19: PRINT "30": KLEUR 3, 15
IF VAL(SEC$) = 35 DAN KLEUR 12, 15
ZOEK 21, 23: PRINT "35": KLEUR 3, 15
IF VAL(SEC$) = 40 KLIK KLEUR 12, 15
ZOEK 21, 27: PRINT "40": KLEUR 3, 15
IF VAL(SEC$) = 45 VERVOLGENS KLEUR 12, 15
ZOEK 21, 31: "45" AFDRUKKEN: KLEUR 3, 15
IF VAL(SEC$) = 50 VERVOLGENS KLEUR 12, 15
ZOEK 21, 35: PRINT "50": KLEUR 3, 15
IF VAL(SEC$) = 55 VERVOLGENS KLEUR 12, 15
ZOEK 21, 39: PRINT "55": KLEUR 3, 15
KLEUR 12, 15: GA 23, 32: PRINT "SECONDEN"
KLEUR 3, 15
LOOP
[/ code]
Opmerking u kunt een sectie voor alarmen die leest in een tekstbestand voor toekomstige alarmen in de code kan toevoegen als je wilde, maar het programma zou moeten worden gecompileerd.
