Pratique de dactylographie

GW-Basic, utilisé par PC-Basic

Programme avec Texte Seulement

PC-BASIC

Le "jeu de retournement" n'a pas de limite de temps ; Et si on construisait un jeu avec une ?

Les écoles publiques avaient des cours qui enseignaient aux élèves une seule compétence : la dactylographie. Oui, en tapant sur un clavier d'ordinateur ou, dans un passé plus lointain, sur une machine à écrire.

Les cours de dactylographie ont fait long feu. Alors, que diriez-vous d'exécuter un programme pour affiner vos compétences en dactylographie ?

Exécutez TYPEPRAC.BAS et appuyez sur la barre d'espace, et vous avez environ cinq secondes pour taper les lettres que vous voyez à l'écran aussi rapidement que possible. Inutile de dire que ce n'est pas facile, même pour moi, quelqu'un qui a été obligé de suivre un cours de dactylographie dans une école publique au siècle dernier.

Une fonctionnalité intéressante : tant que vous ne sortez pas de TYPEPRAC.BAS, votre meilleur score est conservé.

Au lieu d'appeler officieusement une partie d'un programme un « sous-programme », nous voyons ici un sous-programme formel : regardez les lignes 50 à 60, qui évoquent une nouvelle lettre aléatoire à coller rapidement sur l'écran. à l'aide de codes ASCII. La dernière ligne du sous-programme contient un RETURN, qui signifie retour à l'endroit du programme d'où le sous-programme a été appelé (qui était, comme vous pouvez le voir, à la ligne 31).

Plus d'options pourraient être présentées à l'utilisateur pour augmenter (ou diminuer) le défi, comme une restriction dans les lettres affichées (ou peut-être seulement des chiffres) et des limites de temps ajustables.

5 HIGHSCORE=0
10 KEY OFF:SCREEN 7:COLOR 2,0:CLS:SCORE=0
11 RANDOMIZE TIMER
12 I$=CHR$(INT(1+25*RND(1))+65)
15 PRINT "Pratique de dactylographie!"
16 PRINT:PRINT "VOUS AVEZ 5 SECONDES, UNE FOIS QUE"
17 PRINT "APPURER SUR ÉCHAP, POUR TAPER LES LETTRES INDIQUÉES"
18 PRINT "À L'ÉCRAN AUSSI RAPIDEMENT QUE VOUS POUVEZ... PRÊT?
19 PRINT "ACTIVER LE VERROUILLAGE DES MAJUSCULES"
20 PRINT " Appuyer <ESPACE> POUR COMMENCER!"
22 IF INKEY$<>" " THEN 22
23 CLS
25 FOR TIME=1 TO 500
30 LOCATE 10,20:PRINT I$
31 IF INKEY$=I$ THEN GOSUB 50
40 NEXT TIME
45 GOTO 70
50 'SOUS-ROUTINE : OBTENIR UNE NOUVELLE LETTRE ALÉATOIRE
55 I$=CHR$(INT(1+25*RND(1))+65)
56 SCORE=SCORE+1
60 RETURN
70 CLS
80 PRINT:PRINT "EN 5 SECONDES, VOUS AVEZ ";SCORE;"CORRECTE":PRINT
82 IF SCORE>HIGHSCORE THEN HIGHSCORE=SCORE
90 PRINT "VOTRE MEILLEUR SCORE EST ";HIGHSCORE
95 PRINT:PRINT" Appuyez sur <ESPACE> Pour un autre tour'
96 PRINT "Ou <ESCAPE> Pour Quitter..."
100 Q$=INKEY$
110 IF Q$=" " THEN 10
120 IF Q$=CHR$(27) THEN CLS:END
130 GOTO 100