Discussion :

[nmech]

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

[krachik]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
@+

[Ultima]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[CapJack]

Oooh, l'affreux !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

C'est tout de suite mieux...

[Alcatîz]

Bonjour !

Oooh, l'affreux !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[droggo]

Kol,

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

[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
@+

[droggo]

Jal,

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.

[elhou80]

Salut, voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[CapJack]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;