Discussion :

[xavier faure]

Bonjour,
J'ai un léger souci :
j'ai cherché les valeurs du readkey dans la bibliothèque crt pour l'appui sur une touche du pavé directionnel. J'ai trouvé #80 #77 #75 #72
Et pourtant quand je lui dis si c'est une touche du pavé directionnel qui est enfoncé alors tu m'écris bonsoir sinon tu m'écris bon soir.
Et à chaque fois il m'écris bon soir
Quel est le problème s'il vous plait.
Merci d'avance Xavier

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
Program testFlecheDirect;
uses crt;
var reponse,keyNULL:string;
Begin
 while keypressed do    //ya un bug et parfois le buffer n'est pas à zero
  keyNULL:=readkey;
 repeat
 until keypressed;
 reponse:=readkey;
 if (reponse=#80) or (reponse=#77) or (reponse=#72) then
  begin
   write('bonjour');
   readln
  End
 else
  write('bon soir')
End.

[Eric Sigoillot]

Bonjour,

Le pavé numérique fait partie des touches étendue. La manière de procéder n'est donc pas bonne.

Il faut se référer à la FAQ : http://pascal.developpez.com/faq/

@++

[j.p.mignot]

sous dos voir l'état du byte [$40:$18] { keyboard 2 }

[xavier faure]

merci

[Eric Sigoillot]

sous dos voir l'état du byte [$40:$18] { keyboard 2 }

Dangereux avec les compilateurs actuels qui fonctionnent en mode protégé

@++