Discussion :

[messahel]

Je veux réaliser un programme dont les traitements dépendent d'une entrée de choix.
La fonction CASE fait ça mais il faut valider le choix par la touche enter et moi je veux que l'exécution démarre en parallèle avec la touche.
Je l'ai déjà réalisé il y a 5 ans mais j'ai tout oublié.
Merci.

[darrylsite]

Qu' entends-tu par "l'execition demare en paralle avec la touche" ?
si tu veux que l'utilisateur n' appuie pas sur ENTER pour valider son choix, la meilleur solution serait de lire la touche appuyé avec readkey.
Ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program test;
 var tch :char;
begin
 writeln('taper une touche :');
 repeat
  tch:=readkey;
  case tch of
   'a', 'A' : writeln(' executer le traitement A');
   'b', 'B' : writeln('executer le traitement B');
  end;
 until (tch='q') or (tch='Q');
end.

[diden138]

Bonjour,
tu peux faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var
    Cmd         :char;
    Sortie       :boolean;
Begin
 
   Repeat
   writeln('1  : action 1 '.....);
   Cmd:=Readkey;
   Case  Ord(Cmd) of 
   65 : ....
 
   until  Sortie;

Cordialement,

[droggo]

Qai,

Regarde du côté de ReadKey.

ps : case ... of n'est pas une fonction, mais une instruction.

[krachik]

Bonjour
3 messages postés à la même minutes.
Je crois que avec ça il devrait s'en tirer

Cordialement

[messahel]

merci pour vos repences tous
la solution c'est readkey, je l'ai deja utlise mais j'ai tout oublie
merci encore

[diden138]

Bonjour
3 messages postés à la même minutes.
Je crois que avec ça il devrait s'en tirer

Cordialement

je crois qu'un record a été battu sur developpez faut enregistrer ça sur quelques chose
Cordialement,