Code ASCII touche retour et flèches

Version imprimable

20/05/2008, 01h15
Bibou_ini

Code ASCII touche retour et flèches
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:

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
20/05/2008, 16h17
bs.box

Bonjour..

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+ 8-)
20/05/2008, 16h18
defluc

Code:

if x = #13 then
20/05/2008, 16h40
droggo

Fao,

Citation:

Envoyé par Bibou_ini

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. :)

Salut..

Citation:

Envoyé par Bibou_ini

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:

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

Citation:

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:

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+ ;)

21/05/2008, 03h14
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
21/05/2008, 17h57
bs.box

Bonjour..

Citation:

Envoyé par Bibou_ini

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é..
:lahola:

a+ ;)

Citation:

Envoyé par +bsdocuments+

Voici la réponse;

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
 
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.... ??

21/05/2009, 23h18
inidark

es qu'on il existe un code comme "#75...." pour la touche entrer ????
merci ;)
21/05/2009, 23h22
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.
22/05/2009, 00h14
inidark

Citation:

Envoyé par wormful_sickfoot

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é ;)

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:

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:

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:

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.