Discussion :

[Bibou_ini]

Bonsoir,
voilà je voudrais savoir comment detecter que la touche de retour (les 4 flèches) a été tapée en Turbo Pascal.
J'ai essayé d'avoir son code ascii, j'ai trouvé que c'est le OM (0.75) mais comment le declarer pour pouvoir dire par exemple :

Code :

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

1
2
3
4
5
6
7
x:= char; c,v:integer;
begin 
x:= readkey;
c:= wherex; v:= wherey;
if x = OM ou  x = chr(0.75) then 
gotoxy((x-1),y);
end.

MERCI d'avance

[bs.box]

Moi personnellement, je n'ai jamais vu un nombre comme 0.75
sur une fonction Chr().
En tout cas.

Les Codes ASCII pour les touches de directions sont les suivants:

(203-128) -> GAUCHE;
(205-128) -> DROITE
(200-128) -> HAUT
(208-128) -> BAS


a+

[defluc]

Code :

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

if x = #13 then

[droggo]

Fao,

bon soir,
voila je voudrais savoir comment detecté que la touche de retour ( les 4 fleches ) a été tapé en turbopascal .
j'ai esseyé d'avoir son code ascii j'ai trouver que c'est le OM (0.75)

Je suis curieux de voir le test qui t'a donné ces valeurs.

[bs.box]

MERCI
le code #75 est bon mais le curseur ne revient pas en arrier il reste a sa place et efface ce qu'il ya juste devant lui
voila mon program ( je ve faire : quant je tap la fleche gauche le curseur revien en arrier )

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
 
program test ;
uses wincrt,crt;
var s,x: char ;c,v,i:integer ;
begin
 
repeat
  i:= 0;
  x:= readkey;
  c:= wherex ; v := wherey;
        if x= #75 then
            begin
               gotoxy(c-2,v);
               i:=1
            end;
  if i<>1 then
      begin
          write(x);
      end;
until x='a';
readln;
end.

MERCI

MERCI
le code #75 est bon mais le curseur ne revient pas en arrier
il reste a sa place et efface ce qu'il ya juste devant lui
voila mon program ( je ve faire :
quant je tap la fleche gauche le curseur revien en arrier )

Voici la réponse;

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
 
uses Crt;
var   C:Char; {Caractere a lire}
 
begin
ClrScr; {Effacer l'ecran}
WriteLn('Rappel: Pour Quittrez Appuyez Sur ESC.');
WriteLn('Appuyez Sur La Touche ENTREE Pour Continuer...');
ReadLn;
ClrScr; {Effacer l'ecran}
repeat
 C:=ReadKey;  {Lire Le Caractere}
 if C in [#75,#77,#72,#80]
    then begin
    Case C Of
   #75 : GotoXY(WhereX-1,WhereY);  {GAUCHE}
   #77 : GotoXY(WhereX+1,WhereY);  {DROITE}
   #72 : GotoXY(WhereX,WhereY-1);   {HAUT}
   #80 : GotoXY(WhereX,WhereY+1);   {BAS}
    End;
    C:=#0;
         end
    else if C<>#0 then Write(C)
until C=#27; {jusqu'a la touche ESCAPE}
end.

Bon Courage..
a+

[krachik]

Bonjour
@Bibou_ini Le plus simple à faire dans ces genres de situation c'est écrire un petit programme qui te permet d'avoir le code ascii d'une touche lors d'un appui sur cette touche la

Cordialement

[bs.box]

JE vous Remerci du font du coeur sa marche a merveil
si vous vaitbesoin de qqc que je peut faire pour vous je ss la merci a bien tot

Ouais,.. ça a marché..


a+

[inidark]

Voici la réponse;

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
 
uses Crt;
var   C:Char; {Caractere a lire}
 
begin
ClrScr; {Effacer l'ecran}
WriteLn('Rappel: Pour Quittrez Appuyez Sur ESC.');
WriteLn('Appuyez Sur La Touche ENTREE Pour Continuer...');
ReadLn;
ClrScr; {Effacer l'ecran}
repeat
 C:=ReadKey;  {Lire Le Caractere}
 if C in [#75,#77,#72,#80]
    then begin
    Case C Of
   #75 : GotoXY(WhereX-1,WhereY);  {GAUCHE}
   #77 : GotoXY(WhereX+1,WhereY);  {DROITE}
   #72 : GotoXY(WhereX,WhereY-1);   {HAUT}
   #80 : GotoXY(WhereX,WhereY+1);   {BAS}
    End;
    C:=#0;
         end
    else if C<>#0 then Write(C)
until C=#27; {jusqu'a la touche ESCAPE}
end.

Bon Courage..
a+

juste une question qu'esque ça veut dire les #75.... ??

[inidark]

es qu'on il existe un code comme "#75...." pour la touche entrer ????
merci

[M.Dlb]

Ca correspond au code ASCII noté en décimal. Par exemple, #65 donne le caractère A.

Pour la touche entrée, qui en réalité envoie le code caractère 13 (Carriage return), peut être donné avec la combinaison #13.

[inidark]

Ca correspond au code ASCII noté en décimal. Par exemple, #65 donne le caractère A.

Pour la touche entrée, qui en réalité envoie le code caractère 13 (Carriage return), peut être donné avec la combinaison #13.

merci wormful_sickfoot , j'ai pigé

[DUGUERPF]

Je me permets d'apporter une précision. Dans le domaine ascii, il existe les codes normaux, comme les lettres, les chiffres, etc...

Les flèches sont des codes ascii "spéciaux", càd qu'ils renvoient deux codes ascii. Enfin, je ne sais pas trop ce qu'ils renvoient, mais je vais m'expliquer par l'exemple suivant.

Je veux déclencher une action si j'appuie sur "flèche haut", code ascii 72, mais touche spéciale du clavier.

Si j'écris :

Code :

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

1
2
3
4
5
6
VAR cle : char;
BEGIN
cle:=readkey;
if cle=chr(72) then begin
   {peu importe l'action}
end.

Alors, l'action pourra être déclenchée fort heureusement par la touche que je visais, "flèche haut",mais aussi par la touche "H". En effet, les deux renvoient le code ascii final #72.

Si en revanche j'écris :

Code :

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

1
2
3
4
5
6
7
8
9
10
VAR cle : char;
BEGIN
cle:=readkey;
   i f cle=#0 then begin {signifie qu'un code ascii spécial vient d'être frappé}
      cle:=readkey; {je dois relire le deuxième code envoyé par le fait d'avoir frappé une touche spéciale}
      if cle=chr(72) then begin
         {peu importe l'action}
      end;
   end;
end.

Ici, seule la touche "flèche haut" déclenchera l'action.

Ceci est valable pour les touches comme les flèches, les F1 à F9, etc...
Par exemple, F9 renvoie le code ascii final #67 qui est aussi le code de "C". Avec le passage par le test de touche spéciale, on évite cet écueil.

J'espère avoir contribué au débat. J'ai un petit programme qui gère cette affaire, parce que je ne me souviens pas toujours des codes. Le voici :

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
PROGRAM ASCII;
 
USES CRT;
 
VAR
   cle : char;
   caractere_special : boolean;
 
 
PROCEDURE FOND;
begin
   clrscr;
   gotoxy(25,1);
   write('TAPER SUR UNE TOUCHE POUR TROUVER SON CODE ASCII');
   gotoxy(25,2);
   write('<ESC> pour quitter (code ASCII 27)');
   gotoxy(25,10);
   write('>>>');
end;
 
 
BEGIN
   textmode(3);
   textcolor(15);
   textbackground(0);
   fond;
   repeat
      cle:=readkey;
      fond;
      if cle=#0 then begin
         cle:=readkey;
         caractere_special:=true;
      end
      else caractere_special:=false;
      gotoxy(30,10);
      write(ord(cle));
      if caractere_special=true then begin
         gotoxy(25,11);
         write('CARACTERE SPECIAL');
      end;
   until cle=chr(27);
   clrscr;
END.