Étape 2: Compiler le code.
[code]
' INVISIBLE N’EST PAS UNE HORLOGE STANDARD
DIM S AS STRING, MIN AS STRING, HR AS STRING
ÉCRAN 0: COULEUR 3, 15 : LARGEUR 40, 25
CLS
FAIRE
H$ = LEFT$ ($ DE L’HEURE, 2): MIN$ = MID$ (TEMPS$, 4, 2): S$ = RIGHT$ ($ DE L’HEURE, 2)
LOCALISER 1, 1: PRINT $ HR ; ":"; MIN$ ; ":"; S$
' MINUTES
IF (VAL(MIN$) < 10 et val(min$) > = 5) ou (VAL(MIN$) > = 55 et VAL(MIN$) < 60) puis couleur 12, 15
TROUVER 3, 2: « CINQ » D’IMPRESSION : COULEUR 3, 15
IF VAL(MIN$) > = 10 et VAL(MIN$) < 15 ou VAL(MIN$) > = 50 et VAL(MIN$) < 55 puis couleur 12, 15
TROUVER 3, 8: « DIX » IMPRIMER : COULEUR 3, 15
IF VAL(MIN$) > = 15 et VAL(MIN$) < 20 ou VAL(MIN$) > = 45 et VAL(MIN$) < 50 puis couleur 12, 15
TROUVER 3, 13: « QUINZE » IMPRIMER : COULEUR 3, 15
IF VAL(MIN$) > = 20 et VAL(MIN$) < 25 ou VAL(MIN$) > = 40 et VAL(MIN$) < 45 puis couleur 12, 15
TROUVER 3, 21: « VINGT » D’IMPRESSION : COULEUR 3, 15
IF VAL(MIN$) > = 25 et VAL(MIN$) < 30 ou VAL(MIN$) > = 35 et VAL(MIN$) < 40 puis couleur 12, 15
TROUVER 3, 28 : IMPRESSION « VINGT-CINQ »: COULEUR 3, 15
LOCALISER 7, 12 : IMPRESSION « MIN »
' MINUTES ADDITIONNELLES
IF VAL(MIN$) > 30 puis couleur 12, 15
RECHERCHEZ 5, 3: IMPRESSION DE « MOINS »: COULEUR 3, 15
IF VAL(MIN$) < 30 puis couleur 12, 15
RECHERCHEZ 5, 10 : PRINT « PLUS »: COULEUR 3, 15
IF VAL (MID$ (TEMPS$, 5, 1)) = 6 OU VAL (MID$ (TEMPS$, 5, 1)) = 4 PUIS COULEUR 12, 15
LOCALISER 7, 3: PRINT « 1 »: COULEUR 3, 15
IF VAL (MID$ (TEMPS$, 5, 1)) = 7 OU VAL (MID$ (TEMPS$, 5, 1)) = 3 COULEUR PUIS 12, 15
LOCALISER 7, 5: PRINT « 2 »: COULEUR 3, 15
IF VAL (MID$ (TEMPS$, 5, 1)) = 8 OU VAL (MID$ (TEMPS$, 5, 1)) = 2 PUIS COULEUR 12, 15
LOCALISER 7, 7: PRINT « 3 »: COULEUR 3, 15
IF VAL (MID$ (TEMPS$, 5, 1)) = 9 OU VAL (MID$ (TEMPS$, 5, 1)) = 1 ALORS COULEUR 12, 15
LOCALISER 7, 9: PRINT « 4 »: COULEUR 3, 15
"AU COURS
IF VAL(MIN$) > 30 puis couleur 12, 15
LOCALISER 9, 10 : PRINT "À L’HEURE SUIVANTE": COULEUR 3, 15
IF VAL(MIN$) < = 30 puis couleur 12, 15
LOCALISER 9, 30 : IMPRESSION « PASSÉ »:: COULEUR 3, 15
IF VAL(MIN$) = 30 PUIS COULEUR 12, 15
LOCALISER 9, 36: « LA MOITIÉ » IMPRIMER : COULEUR 3, 15
' HEURES
IF VAL(HR$) = 1 OU VAL(HR$) = 13 PUIS COULEUR 12, 15
LOCALISER 11, 2: IMPRESSION « ONE »: COULEUR 3, 15
IF VAL(HR$) = 2 OU VAL(HR$) = COULEUR PUIS 14 12, 15
LOCALISER 11, 7: IMPRIMER « DEUX »: COULEUR 3, 15
IF VAL(HR$) = 3 OU VAL(HR$) = COULEUR PUIS 15 12, 15
LOCALISER 11, 12: « TROIS » D’IMPRESSION : COULEUR 3, 15
IF VAL(HR$) = 4 OU VAL(HR$) = 16 COULEURS PUIS 12, 15
LOCALISER 11, 19 : IMPRIMER DES « QUATRE »: COULEUR 3, 15
IF VAL(HR$) = 5 OU VAL(HR$) = COULEUR PUIS 17 12, 15
LOCALISER 11, 25: « CINQ » D’IMPRESSION : COULEUR 3, 15
IF VAL(HR$) = 6 OU VAL(HR$) = COULEUR PUIS 18 12, 15
LOCALISER 11, 30: « SIX » D’IMPRESSION : COULEUR 3, 15
IF VAL(HR$) = 7 OU VAL(HR$) = COULEUR PUIS 19 12, 15
LOCALISER 11, 35: « SEPT » IMPRIMER : COULEUR 3, 15
IF VAL(HR$) = 8 OU VAL(HR$) = COULEUR PUIS 20 12, 15
LOCALISER 12, 5: « HUIT » D’IMPRESSION : COULEUR 3, 15
IF VAL(HR$) = 9 OU VAL(HR$) = COULEUR PUIS 21 12, 15
LOCALISER 12, 12: « NINE » D’IMPRESSION : COULEUR 3, 15
IF VAL(HR$) = 10 OU VAL(HR$) = 22 PUIS COULEUR 12, 15
LOCALISER 12, 18: « DIX » D’IMPRESSION : COULEUR 3, 15
IF VAL(HR$) = 11 OU VAL(HR$) = COULEUR PUIS 23 12, 15
LOCALISER 12, 23: « ONZE » D’IMPRESSION : COULEUR 3, 15
IF VAL(HR$) = 0 OU VAL(HR$) = COULEUR PUIS 12 12, 15
LOCALISER 12, 31: « TWELVE » D’IMPRESSION : COULEUR 3, 15
'-H
IF VAL(HR$) > = 12 couleur puis 12, 15
LOCALISER 16, 5: IMPRESSION « PM »: COULEUR 3, 15
IF VAL(HR$) < 12 puis couleur 12, 15
LOCALISER 16, 2: IMPRESSION « AM »: COULEUR 3, 15
' SECONDES
COULEUR, 12, 15 : LOCALISER 19, 2: PRINT « ET »
COULEUR 3, 15
IF VAL(SEC$) = 5 COULEUR PUIS 12, 15
LOCALISER 21, 1: PRINT « 5 »: COULEUR 3, 15
IF VAL(SEC$) = 10 PUIS COULEUR 12, 15
LOCALISER 21, 3: PRINT « 10 »: COULEUR 3, 15
IF VAL(SEC$) = COULEUR PUIS 15 12, 15
LOCALISER 21, 7: PRINT « 15 »: COULEUR 3, 15
IF VAL(SEC$) = COULEUR PUIS 20 12, 15
LOCALISER 21, 11 : PRINT « 20 »: COULEUR 3, 15
IF VAL(SEC$) = 25 PUIS COULEUR 12, 15
LOCALISER 21, 15 : PRINT « 25 »: COULEUR 3, 15
IF VAL(SEC$) = 30 PUIS COULEUR 12, 15
LOCALISER 21, 19 : PRINT « 30 »: COULEUR 3, 15
IF VAL(SEC$) = 35 COULEUR PUIS 12, 15
LOCALISER 21, 23 : PRINT « 35 »: COULEUR 3, 15
IF VAL(SEC$) = 40 COULEUR PUIS 12, 15
LOCALISER 21, 27 : PRINT « 40 »: COULEUR 3, 15
IF VAL(SEC$) = 45 PUIS COULEUR 12, 15
LOCALISER 21, 31 : PRINT « 45 »: COULEUR 3, 15
IF VAL(SEC$) = 50 COULEUR PUIS 12, 15
LOCALISER 21, 35 : PRINT « 50 »: COULEUR 3, 15
IF VAL(SEC$) = 55 PUIS COULEUR 12, 15
LOCALISER 21, 39 : PRINT « 55 »: COULEUR 3, 15
COULEUR, 12, 15 : LOCALISER 23, 32 : IMPRESSION « SECONDES »
COULEUR 3, 15
BOUCLE
[/ code]
Remarque Vous pouvez ajouter une section pour les alarmes qui lit dans un fichier texte d’alarmes futures dans le code si vous voulez, mais le programme devra être recompilé.