Le temps est écoulé

GW-Basic, utilisé par PC-Basic

Programme avec Texte Seulement

PC-BASIC

Ce n'est peut-être pas une surprise pour vous que votre ordinateur ait une horloge interne qui fonctionne toujours. Alors pourquoi ne pas le régler sur une minuterie ?

Lancez le programme : on vous demandera immédiatement quand vous voulez que l'alarme sonne. Tapez l'heure, appuyez sur ENTER et attendez que votre temps soit écoulé.

Dans GW-BASIC, TIME$ est réservé pour l'heure actuelle ; de même, DATE$ est défini sur la date du jour en cours. Une fois que l'heure de l'alarme et l'heure vraie convergent, le programme émet un son et passe à un sous-programme de clignotement de l'écran.

10 SCREEN 9:SCREEN 0: KEY OFF:COLOR 15:CLS
11 CLS
12 LOCATE 2,20:PRINT "HEURE D'ALARME (L'HEURE ACTUELLE EST";TIME$;")";
13 INPUT Y$
14 IF Y$="" THEN CLS:GOTO 20
20 LOCATE 16,25:PRINT TIME$
25 LOCATE 11,25:PRINT DATE$
26 IF TIME$=Y$ THEN SOUND 3000,20:GOTO 60
27 I$=INKEY$
28 IF I$="E" OR I$="e" THEN CLS:END
30 IF I$="A" OR I$="a" THEN GOTO 11
40 LOCATE 14,25:PRINT "Appuyez sur E pour quitter, et sur A pour réinitialiser l'alarme."
50 GOTO 20
60 CLS
70 FOR OUTER=1 TO 10
75 FOR LOOP=1 TO 15
80 COLOR ,LOOP:CLS
90 FOR PAUSE=1 TO 100:NEXT PAUSE
100 NEXT LOOP
105 NEXT OUTER
110 GOTO 10

Le programme n'est pas clinquant, au sens non littéral du terme ; beaucoup plus pourrait être fait avec l'interface utilisateur.

Par exemple, peut-être que des cadrans d'horloge numériques pourraient être présentés, ce qui nécessiterait cependant des manipulations graphiques sophistiquées.

Plus difficile encore, envisagez d'écrire un programme avec une horloge analogique à l'écran affichant l'heure. Vous devrez utiliser de la trigonométrie pour obtenir les rotations correctes des aiguilles des secondes, des minutes et des heures. Ce n'est pas une tâche trop difficile pour le programmeur GW-BASIC le plus aventureux en mathématiques.