[Débutant] Touches F1 -> F 10 ; ECHAP,..

Version imprimable

11/05/2008, 16h37
dimi2

[Débutant] Touches F1 -> F 10 ; ECHAP,..
Bonjour,

Existe-t-il un code représentant les touches de fonctions (F1 -> F12, Echap, ...) ? Comment s'utilise-t-il ? Par exemple :
Code:

1 2 3 touche := readkey; if (touche = xxx) then donewincrt;
Merci beaucoup.

Hia,

De mémoire, sous XP, la console winCrt ne reçoit rien de ces touches.

J'ai donc refait le test:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program poubelle; uses wincrt; var c : char; begin InitWinCRT; Repeat c := ReadKey; if (Ord(c) >= 32) then writeln(c) else writeln('code = ',Ord(c)); Until c = Chr(13); WriteLn; ReadLn; DoneWinCRT; end.
et effectivement, aucun affichage quand on appuie sur toutes les touches spéciales.

Comme il y a belle lurette que je n'utilise plus ces vieux compilateurs (sauf pour ce genre de test), je ne me suis jamais demandé s'il y avait un moyen de corriger ça.

ps : prends l'habitude de faire ce genre de petit programme, ça t'évitera souvent de perdre du temps. :)

Merci beaucoup. Il y a au moins les touches "Echap" et "Entrée" qui sont reconnues. Je voudrais que l'on puisse sortir du programme à chaque entrée utilisateur si celui-ci le souhaite. J'ai fait ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 var c : char; capitale : string; entree : string; begin ... c := readkey; if (Ord(c) = 27) then MenuPrincipal; if (ord(c) <> 27) then capitale := chr(ord(c)); write(capitale); readln(entree); entree := capitale + entree; capitale := ''; ...
Les deux variables (choix et entree) n'étant pas du même type, j'ai dû convertir le Char en String. Y avait-il meilleure manière de faire ? Existe-t-il des fonctions de conversion entre un Char et un String ?
Merci encore.

12/05/2008, 14h48
droggo
Hia,

Citation:

Envoyé par dimi2

Merci beaucoup. Il y a au moins les touches "Echap" et "Entrée" qui sont reconnues

Pour moi, les touches "Echap" et "Entrée" ne font pas partie des touches spéciales. :)

Citation:

Envoyé par dimi2

Je voudrais que l'on puisse sortir du programme à chaque entrée utilisateur si celui-ci le souhaite.

Il y a je ne sais combien d'exemples dans les différents sujets du forum.
Citation:
Envoyé par dimi2

Code:

1 2 ... capitale := chr(ord(c)); ...
As-tu réfléchi à ce que fait cette instruction ?

Citation:

Envoyé par dimi2

Les deux variables (choix et entree) n'étant pas du même type, j'ai dû convertir le Char en String. Y avait-il meilleure manière de faire ? Existe-t-il des fonctions de conversion entre un Char et un String ?
Merci encore.

Il suffit d'affecter le Char à String.

Pour le reste, ce que tu cherches à faire, et surtout ce que tu as fait, reste plutôt confus.

Tu as tendance à écrire des programmes qui utilisent des moyens détournés pour faire des choses qu'on peut faire beaucoup plus simplement, alors on en revient à la base:
AVANT de te lancer dans le code, écris un algorithme qui résolve le problème, sans te préoccuper de la manière de le coder, mais qui soit le plus direct et clair possible.
Si tu sautes cette étape, tu te heurteras toujours au même problème, qui te conduit à modifier au coup par coup un programme fait au pif au départ, ce qui à son tour conduit inévitablement à un programme compliqué, dans lequel tu ne t'y retrouves plus, d'où une bonne partie de tes questions.
12/05/2008, 22h14
dimi2

Voici ce que je cherche à faire :

Mon programme propose une phrase française à l'utilisateur, et ce dernier doit entrer sa traduction dans une langue étrangère. Je voudrais que l'utilisateur puisse mettre fin à l'exercice à l'occasion de chaque question posée s'il ne souhaite pas poursuivre l'exercice. Cela en appuyant sur la touche Echap.

Le code que j'ai imaginé teste la première touche entrée :

- si touche Echap alors retour au menu
- si autre touche, alors considérer la touche enfoncée comme le premier caractère de l'entrée en convertissant le Char en String
- concaténer ce String à la suite de la réponse.

Le code marche très bien, tout se passe comme je le veux. Je n'ai plus qu'un souci : en cas de correction de la réponse entrée par l'utilisateur, ce dernier ne peut corriger que la partie entrée après le Char car ce dernier est ineffaçable. Je comprends pourquoi mais je ne sais résoudre la problème.

J'espérais trouver une solution moins tarabiscotée, j''ai cherché des messages concernant Echap sur le forum, mais je n'ai rien trouvé concernant TPW. Idem dans la FAQ.

Avec mes remerciements.
13/05/2008, 00h22
droggo

Jie,

Alors montre-nous toute la hiérarchie des fonctions/procédures qui gère tout cet enchaînement, en ne laissant que le code nécessaire pour ça.

Du peu que tu nous a montré, je perçois un problème, mais qui ne peut être confirmé qu'en ayant le tout. :)

Bonsoir,
je souhaitais proposer à l'utilisateur 2 possibilités lorsqu'une traduction s'affiche :
- soit quitter en appuyant sur la touche ECHAP
- soit poursuivre le travail en appuyant sur la première lettre de la traduction à entrer. Puis lier cette lettre à la variable "entree" . C'est là qu'apparaît le problème : l'utilisateur ne peut corriger s'il le souhaite cette première lettre étant donné que celle-ci ne fait pas partie de la variable "entree".
Ne parvenant pas à mes fins, j'ai choisi de proposer 2 autres possibilités à l'utilisateur : ECHAP pour quitter et AUTRE TOUCHE pour poursuivre. Ca m'ennuie parce que ça impose une manipulation de plus à l'utilisateur : appuyer sur UNE TOUCHE afin d'afficher la phrase à traduire suivante. Voici donc mon nouveau code :
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 var x : integer; y : integer; phraseFrancaise : string; choix : char; begin repeat Readln(donnee,phraseFrancaise); x := WhereX; y := WhereY; writeln(' Pressez la touche "Echap" pour quitter ou sur une autre touche pour continuer'); choix := readkey; if (Ord(choix) = 27) then menu; if (ord(choix) <> 27) then begin i := 1; j := 0; gotoxy(x,y); while (i <= 90) do begin gotoXY(x + j, y); write(' '); inc(i); inc(j); end; end; gotoxy(x,y); writeln(phraseFrancaise); readln(entree);
Merci de l'attention que vous portez à mes questions.

14/05/2008, 00h57
droggo

Hae,

Désolé, mais le code montré ne correspond pas du tout à ma demande, qui est le total de la hiérarchie des procédures/fonctions gérant les enchainements des demandes d'entrées, et les sortie, éventuellement.

Là, tu montres un vague morceau de code, on ne peut moins complet.

Ma boule de cristal est en panne, et le problème est que dès que je la répare, elle se met en grève car je refuse de lui payer des lunettes (ben oui, elle est myope :)).
15/05/2008, 10h15
dimi2

Je n'ai pas de procédures ou fonctions supplémentaires à ce petit programme.
Une boucle REPEAT affiche l'une après l'autre une phrase en langue française, L'utilisateur doit entrer sa traduction dans une langue étrangère. Le programme vérifie la validité de la réponse et signale à l'utilisateur sa réussite ou son échec.
Je vous remercie de l'attention que vous portez à mes questions.
15/05/2008, 15h11
droggo

Gai,

Citation:

Envoyé par dimi2

Je n'ai pas de procédures ou fonctions supplémentaires à ce petit programme.
Une boucle REPEAT affiche l'une après l'autre une phrase en langue française, L'utilisateur doit entrer sa traduction dans une langue étrangère. Le programme vérifie la validité de la réponse et signale à l'utilisateur sa réussite ou son échec.
Je vous remercie de l'attention que vous portez à mes questions.

Alors donne au moins le code complet du programme, de préférence compilable, en l'état actuel.

Ou dois-je une fois de plus consulter ma boule de cristal ?

Bonsoir,
Voici le code :

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
program traduc;
uses wincrt;
 
var
x : integer;
y : integer;
i : integer;
j : integer;
donnee : text;
reponse : text;
phraseFrancaise : string;
phraseEtrangere : string;
entree : string;
choix : char;
 
procedure Sortie;
begin
donewincrt; 
end;
 
begin
Assign(donnee,'franc.txt');
Reset(donnee);
Assign(reponse,'etran.txt');
Reset(reponse);
 
 
repeat
 Readln(donnee,phraseFrancaise);
 Readln(reponse,phraseEtrangere);
 
 
    x := WhereX;
    y := WhereY;
    writeln('"Echap" pour quitter ou autre touche pour continuer');
    choix := readkey;
    if (Ord(choix) = 27) then  Sortie;
    if (ord(choix) <> 27) then 
        begin
    i := 1;
    j := 0;
 
    gotoxy(x,y);
    while (i <= 90) do
            begin
            gotoXY(x + j, y);
            write(' ');
            inc(i);
            inc(j);
            end;
    end;
 
 
    gotoxy(x,y);
    writeln(phraseFrancaise);
 
    readln(entree);
 
    if (phraseEtrangere = entree) then
 
    writeln('Reponse exacte !')
 
    else
    writeln('Erreur !');
 
    Until eof(donnee);
       close(donnee);
       close(reponse);
       Readkey;
 
    end.

Jea,

Leitmotiv : présentation du code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
program traduc;
 
uses wincrt;
 
var
  x : Integer;
  y : Integer;
  i : Integer;
  j : Integer;
  donnee : Text;
  reponse : Text;
  phraseFrancaise : string;
  phraseEtrangere : string;
  entree : string;
  choix : Char;
 
procedure Sortie;
begin
  donewincrt; 
end;
 
begin
  Assign(donnee, 'franc.txt');
  Reset(donnee);
  Assign(reponse, 'etran.txt');
  Reset(reponse);
 
  repeat
    Readln(donnee, phraseFrancaise);
    Readln(reponse, phraseEtrangere);     
 
    x := WhereX;
    y := WhereY;
    Writeln('"Echap" pour quitter ou autre touche pour continuer');
    choix := readkey;
    if (Ord(choix) = 27) then  
      Sortie;
    if (Ord(choix) <> 27) then 
    begin
      i := 1;
      j := 0;
      gotoxy(x, y);
      while (i <= 90) do
      begin
        gotoXY(x + j, y);
        Write(' ');
        Inc(i);
        Inc(j);
      end;
    end;
 
    gotoxy(x, y);
    Writeln(phraseFrancaise);        
    Readln(entree);
 
    if (phraseEtrangere = entree) then
      Writeln('Reponse exacte !')
    else
      Writeln('Erreur !');
 
  until Eof(donnee);
 
  Close(donnee);
  Close(reponse);
  Readkey;
 end.

C'est'y pas mieux comme ça ?

Ceci

Code:

1
2
3
4
    if (Ord(choix) = 27) then  
      Sortie;
    if (Ord(choix) <> 27) then 
    begin

se remplace avantageusement par

Code:

1
2
3
4
    if (Ord(choix) = 27) then  
      Sortie
    else 
    begin

ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    begin
      i := 1;
      j := 0;
      gotoxy(x, y);
      while (i <= 90) do
      begin
        gotoXY(x + j, y);
        Write(' ');
        Inc(i);
        Inc(j);
      end;
    end;

semble être destiné à effacer la fin de la ligne, et peut être remplacé par

Code:

1
2
3
4
    begin
      gotoxy(x, y);
      ClrEol;
    end;

Sinon, je n'ai pas testé, n'ayant pas TPW sous la main.

16/05/2008, 12h28
dimi2

Merci pour vos conseils.
Concernant le programme, il fonctionne très bien.
Reste la question de l'utilisation de la touche ECHAP que j'aimerais être à la disposition de l'utilisateur tout au long du programme. Les idées que j'ai testées ne me satisfont pas pour les raisons évoquées dans les messages précédents. Si TPW ne peut pas faire mieux, je m'en contenterai...
16/05/2008, 14h27
droggo

Hei,

On peut toujours faire mieux.

Pour cela, il faut comme toujours bien poser le problème, et analyser tous les cas possibles.
De là découlent les fonctions à créer, et leur enchaînement.

Accessoirement, une application fenêtrée windows habituelle ne poserait pas ce genre de problème. :)
16/05/2008, 16h49
dimi2

Citation:

Envoyé par droggo

Accessoirement, une application fenêtrée windows habituelle ne poserait pas ce genre de problème. :)

Qu'entendez-vous par "fenêtrée windows" ?
16/05/2008, 17h42
droggo

Gia,

Citation:

Envoyé par dimi2

Qu'entendez-vous par "fenêtrée windows" ?

Je n'ai pas dit "fenêtrée windows", mais "application fenêtrée windows".

Toutes les applications windows (tu sais, toutes ces fenêtres :)), hormis celles qui s'exécutent en mode console, ce qui est le cas de ton programme, puisqu'il utilise WinCrt, qui n'est autre qu'une simulation de console, Win 3.1, qui plus est.