Les articles Amstrad >Les produits Amstrad > Les CPC > Programmation > BASIC > Listing : Apprendre à taper au clavier

Listing : Apprendre à taper au clavier

Affiche une lettre au hasard sur le dessin du clavier. Vous devez taper immédiatement sur cette touche. Chaque bonne réponse donne 1 point.

 

Algorithme :

listin1.gif (42586 octets)

Listing :

 

10 REM APPRENDRE A TAPER AU CLAVIER

20 REM ---------------------------------------------------

30 DIM C$(48),X(48),Y(48)

40 MODE 1: INK 0,1: INK 1,24 : PAPER 0: PEN 1: BORDER 1

50 DATA 1,2,3,4,5,6,7,8,9,0,-,^

60 DATA Q,W,E,R,T,Y,U,I,O,P,@,[

70 DATA A,S,D,F,G,H,J,K,L,":",;,]

80 DATA Z,X,C,V,B,N,M,",",.,/,

90 DATA "  "

100 Y=3:X=2

110 FOR I=1 TO 48

120 READ C$(I)

130 X(I)=X:Y(I)=Y

140 X=X 3

150 IF X>37 THEN Y=Y 3:X=INT(Y/3) 1

160 NEXT I

170 RANDOMIZE TIME

280 REM -------------------------------------------

290 REM DESSIN DU CLAVIER

300 CLS

310 FOR I=1 TO 47

320 MOVE X(I)*16-26,425-Y(I)*16RAWR 35,0RAWR 0,-35RAWR -35,0RAWR 0,35

330 NEXT I

340 MOVER -13,-48RAWR -419,0RAWR 0,-35RAWR 419,0RAWR 0,35

350 X(48)=20:Y(48)=15

380 REM ----------------------------------------

390 REM APPRENTISSAGE

400 N=0

410 P=0

420 LOCATE 1,20:PRINT "NIVEAU : ";N; "          MOYENNE : "

430 FOR K=1 TO 20

440 C=INT(RND(1)*48) 1

450 IF C=48 THEN LOCATE X(C),Y(C):PRINT CHR$(231): GOTO 470

460 LOCATE X(C),Y(C):PRINT C$(C)

470 FOR I=1 TO 380-N*20

480 A$=INKEY$:IF A$<>"" THEN 500

490 NEXT I

500 IF A$=C$(C) THEN P=P 1

510 LOCATE 30,20:PRINT P;"/20 "

520 FOR I=1 TO 380-N*20:Z$=INKEY$:NEXT I

530 LOCATE X(C),Y(C):PRINT"  "

540 NEXT K

550 IF P>17 THEN N=N 1:FOR I=500 TO 50 STEP -5: SOUND 1,I,2:NEXT ELSE FOR I=50 TO 500 STEP 5: SOUND 1,I,2:NEXT

560 IF N>9 THEN N=9

570 GOTO 410

Le Programme :

Ligne 30 à 170 : lecture des DATA

     On place dans le tableau C$() les lettres qui composent le clavier et dans les tableaux X() et Y() leurs coordonnées sur l'écran.

     La ligne 170 initialise les nombres aléatoires.

 

Ligne 300 à 350 : dessin du clavier

     Chaque touche du clavier est représentée par un carré sur l'écran. La touche d'espace étant de forme différente, c'est la ligne 340 qui l'affiche.

 

Ligne 400 à 570 : apprentissage

     On affiche vingt fois de suite une lettre au hasard aux coordonnées pointées par les tableaux X et Y.

     Pour la barre d'espacement, on affiche le point contenu dans le caractère graphique 231. La ligne 480 saisit la réponse du joueur pendant un temps précis défini par le niveau N. Si on a plus de 17 réponses exactes, on augmente automatiquement le niveau (ligne 550)

 

Liste des variables :

A$     réponse tapée au clavier

C      numéro de la lettre choisie au hasard

C$()  tableau des lettres du clavier

I       indice de boucle FOR/NEXT

K      indice de boucle FOR/NEXT

N      niveau de rapidité 

P      nombre de points

X Y   coordonnées temporaires

X() Y() coordonnées des lettres sur l'écran

  Voir cet article au format PDF Imprimer cet article

RECHERCHE
LANGUE
* Donathon 2017 *

145 €

 

 

 

 En savoir plus

Le Chat
 Smiles  Loading...
EN LIGNE
8 Personne(s) en ligne (1 Personne(s) connectée(s) sur Les articles Amstrad)

Utilisateur(s): 4
Invité(s): 4

Moonbeam, Golem13, PacoRabanne, rity, Plus ...
Musiques CPC

Lecteur MP3
CPC-Scene Radio

 

 

ROLAND RADIO

Connexion
Identifiant :

Mot de passe :

Se souvenir de moi



Mot de passe perdu ?

Inscrivez-vous !

 

Informations
________________________________

Suivre Amstrad.eu

________________________________

Autres Créations web

________________________________

 

Declaration CNIL : 1005884

Association : 0540200002843

Charte

Avertissements

Plan du site

Carte de France des membres

 

 

 

Facebook.

Twitter.

RSS forum.

RSS News.

Contact.

 

Gaston-Phoebus.com

Amstrad.eu

untour.fr

Cathydeco.com

Higoogle

Harloup.fr

** Faire un don **

 

Conception Phenix © 2000 - 2014