[TP] Lecture d'une touche

Version imprimable

04/05/2007, 16h20
nmech

[TP] Lecture d'une touche

salut tout le monde
je suis une etudiante en informatique et actuellement je suis entrain de faire un pgm en pascal, et je veux le faire en sorte qu'il demande a lutilisateur d'appuyer sur la touche 'c' par exemple pour executer une partie du pgm principale.. comment faire cette procedure aidez moi svp .Merci

bonjour et bienvenue
il suffit de lire la touche sur laquelle tu veux que l'utilisateur appuie par la fonction readkey et apres
tu pouras faire ce que tu veux exemple
Code:

1 2 3 4 5 6 7 8 9 ........ touche:=readkey; if(touche='c') writeln('c''est la touche ',c); else writeln('autre touche'); ......... .......
ou bien
Code:

1 2 3 4 5 6 if(touche='c') begin { Execution de mon programme.........} { instructionsssssssssss.........} end;
n'oublies pas que touche est un caractere
apres tu peux ecrire ta procedure avec les instructions que tu veux
@+

Exemple avec deux choix

Bonjour,
On rencontre souvent les logiciels qui donnent plusieurs choix à son utilisateur.
Voici un petit programme qui donne deux choix à son utilisateur, Oui ou Non.
Ce qui est intéressant ici, c’est que tout les choix autres que ceux attendus, ne sont pas pris en compte.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt; // pour pouvoir utiliser Readkey
 
function YesOrNo : BOOLEAN;  // Le programme va attendre que l'utilisateur choisisse entre Oui et Non les autres choix ne seront pas considérés.
  var car : CHAR;
  begin
    repeat
      car:= ReadKey
    until (car = 'o') or (car = 'O') or (car = 'n') or (car = 'N');
 
  YesOrNo := (car = 'o') or (car = 'O');
end;  // YesOrNo vaut TRUE, si l'utilisateur appui sur O, ou sur o
 
 
begin
  writeln('Vous avez un choix');
  writeln('Quitter le programme? [O/N]');
 
  while not YesOrNo do
    writeln('Vous avez décidé de rester dans le programme');
 
  writeln('Vous quittez le programme');
end.

05/05/2007, 08h51
CapJack
Oooh, l'affreux ! :)

Code:

until car in ['O','o','N','n'];

mieux :
Code:

1 2 car:= upcase(ReadKey) until car in ['O','N'];
C'est tout de suite mieux... ;)
05/05/2007, 14h58
Alcatîz
Bonjour !
Citation:
Envoyé par CapJack

Oooh, l'affreux ! :)

Code:

until car in ['O','o','N','n'];

mieux :

Code:

1 2 car:= upcase(ReadKey) until car in ['O','N'];

C'est tout de suite mieux... ;)
Le "mieux" est discutable car remplacer deux tests de comparaison par un appel de fonction est peut-être plus élégant visuellement mais ne me semble pas très rentable dans l'exécutable final. ;)
05/05/2007, 16h19
droggo

Kol,

Citation:

Envoyé par Alcatîz

Bonjour !

Le "mieux" est discutable car remplacer deux tests de comparaison par un appel de fonction est peut-être plus élégant visuellement mais ne me semble pas très rentable dans l'exécutable final. ;)

Ce n'est pas le temps d'exécution d'une lecture du clavier, opération manuelle par définition, qui compte pour un programme, même sur de vieilles bécanes antédiluviennes.

Sauf cas particulier de calculs intensifs et/ou temps de réponse critique, il vaut mieux écrire du code "élégant" que de chercher la petite bête qui se compte au plus en microsecondes, et même moins, avec les machines modernes.

En l'occurrence, il est clair que l'entrée d'une donnée au clavier ne peut pas être considérée comme une partie de code critique pour le temps d'exécution, le temps de réaction de l'opérateur est très largement supérieur au temps d'exécution d'une petite fonction comme upCase
05/05/2007, 16h24
krachik

je crois que ce que Alcatîz voulais juste dire que ça coute plus à l'execution l'appel d'une fonction que l'utilisation des conditions ,pour les petites programmes on sent pas mais pour les grandes c'est vite senti,mais apres tout est relatif,faut voir
@+
05/05/2007, 17h25
droggo

Jal,

Citation:

Envoyé par krachik

je crois que ce que Alcatîz voulais juste dire que ça coute plus à l'execution l'appel d'une fonction que l'utilisation des conditions ,pour les petites programmes on sent pas mais pour les grandes c'est vite senti,mais apres tout est relatif,faut voir
@+

J'ai bien parlé de petites fonctions, et surtout de leur temps d'exécution par rapport à la lecture d'une donnée au clavier, qui est la partie bloquante du code.

Salut, voici un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
  procedure menu;
     var c:char;
  begin
    clrscr;
 
      textcolor(yellow);
      gotoxy(15,2); write('MOT DE PASSE DU Num‚ro dghgdg‚ ukjy');
      gotoxy(10,4);  write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
      gotoxy(10,5);  write('ÛÛÛ                                           ÛÛÛ');
      gotoxy(10,6);  write('ÛÛ                                             ÛÛ');
      gotoxy(10,7);  write('ÛÛ                                             ÛÛ');
      gotoxy(10,8);  write('ÛÛ                                             ÛÛ');
      gotoxy(10,9);  write('ÛÛ                                             ÛÛ');
      gotoxy(10,10); write('ÛÛ                                             ÛÛ');
      gotoxy(10,11); write('ÛÛ                                             ÛÛ');
      gotoxy(10,12); write('ÛÛÛ                                           ÛÛÛ');
      gotoxy(10,13); write('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
      textcolor(4);
      gotoxy(12,6);  write('      R‚alis‚ par: Z. Hocine              ');
      gotoxy(12,7);  write('           Skikda/Alger                   ');
      textcolor(9);
      gotoxy(14,8);  write('  1- Consultation Mot de Passe eee.    ');
      gotoxy(14,9);  write('  2- Help ...                          ');
      gotoxy(14,10); write('  3- Quitter.                      ');
      textcolor(2);
      gotoxy(13,11); write('    Entrez votre choix SVP..[ ]   ');
 
      textcolor(3);
      gotoxy(42,11); readln(c);
      case c of
        '1': begin
               consulter;
               menu;
             end;
        '2': begin
               help;
               menu;
             end;
        '3': begin
               clrscr;
               textcolor(yellow);
               gotoxy(10,5);
               write('FIN DU PROGRAMME ... Merci');
             end;
         else begin
           gotoxy(40,15); write('Choix incorect  !!!');
           readln;
           menu;
         end;
 
      end;
  end;

Ton code est mal ficelé : il s'appelle récursivement sans raison. On est en Pascal, pas en Basic, un appel de procédure n'est pas un goto !

Si un tel logiciel restait en fonction toute la journée, ça risquerait de se terminer en "Memory Full".

Version corrigée, sans Readln :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure menu;
     var c:char;
  begin
 
   repeat
 
      clrscr;
      textcolor(yellow);
      // Plein de machins pour faire joli...
      textcolor(9);
      gotoxy(14,8);  write('  [P] - Consultation Mot de Passe eee.    ');
      gotoxy(14,9);  write('  [H] - Help ...                          ');
      gotoxy(14,10); write('  [Q] - Quitter.                      ');
      textcolor(2);
      gotoxy(13,11); write('    Entrez votre choix SVP..[ ]   ');
 
      textcolor(3);
      gotoxy(42,11);
 
      repeat c:=upcase(readkey) until c in ['P','H','Q'];
 
      case c of
        'P': consulter;
        'H': help;
      end;
 
   until c='Q';
 
   clrscr;
   textcolor(yellow);
   gotoxy(10,5);
   write('FIN DU PROGRAMME ... Merci');
 
  end;