Discussion :

[Allelouia]

Voilà je débute et je bloque sur un problème probablement tout con...

Je voudrais savoir quelle touche du clavier (touches fléchées) est activée SANS interrompre le programme.
Avec readkey je connais la touche activée mais le programme s'arrête tant qu'une touche n'est pas frappée.
Avec keypressed le programme ne s'arrête pas dans l'attente d'une touche mais impossible de savoir quelle est celle qui a été activée.

Et je voudrais pouvoir faire ça avec les units normales de Turbo Pascal...

Merci de votre aide.

[Pascail]

Je te donne le feu vert pour nous mettre un petit bout de code !

Merci

@++ Mathieu

[charly]

j ai rencontrer le meme probleme
on le resou en general comme sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
repeat
...
...
if keypressed then begin
case readkey of 
...
end;
end;
...
...
 
until  false ;

attention dans mon exemple , la boucle est infinis , et suppose que pour sotir une certaine touche doit etre presser suivit d un break !!
------
Edité par pascail, changement de la syntaxe.
Si vous cherchez Charly, il est dans son hamac au bord de la plage, avec un vert de jus de mangue a la main et une paye de couleur rouge pétante. surement en train de faire la sciéste, c'est pour cela qu'il n'a pas pu editer son message ...

[Allelouia]

j ai rencontrer le meme probleme
on le resou en general comme sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
repeat
...
...
if jeypressed then begin
case readkey of 
...
end;
end;
...
...
 
until  false ;

Simple et efficace, ça fonctionne parfaitement. Merci !!

[Pascail]

j ai rencontrer le meme probleme
on le resou en general comme sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
repeat
...
...
if jeypressed then begin
case readkey of 
...
end;
end;
...
...
 
until  false ;

Désolé charles, je n'avais pas vu !
Quand je t'ai dit de préciser que la boucle était infinie, je n'avais pas vu la grosse erreur de syntaxe, fait par une simple faute de frappe :
C'est KeyPressed et pas JeyPressed
Je te laisse éditer charles.

@++ Mathieu

[M.Dlb]

Un magnifique code made in Charly...
Il vaut mieux éviter la solution du break et faire une condition de sortie convenable... Il n'est pas très conseillé d'utiliser le break, on est pas en basic, on est en turbo pascal !!
a+

[Pascail]

Je n'ai jamais été pour les boucles infinies ... Mais j'ai quand même laissé, même si y'a du begin et du end ; en trop !

@++ Mathieu

[charly]

et je l ai fais en 5 minutes ,et la boucle infinis , je l aime pas non plus , mais j ai pas le coeur , de faire un prog entier juse pour expliquer la lecture de touche sans interrupt de touche !!

l autre solution ( convernable ) c est de faie un " until sortie = true "
et de faire sortie:=true quand on appuiy sur un touche particuliaire
voila l erreur est rectifier !!

[M.Dlb]

Voici le code illustré par Charly :

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
 
uses crt;
var sortie:boolean;
var ch:char;
begin
sortie:=false;
repeat
if keypressed then
begin
ch:=readkey;
case ch of
'a' : begin
      write('Aurevoir');
      sortie:=true;
      end;
'b' : write('Salut');
end;
end;
until sortie;
end.

Voilà...

[haypo]

C'est bien gentil tout ça, mais la question traitait des "touches flêchées". Pour lire une touche flêchée, il faut lire deux fois ReadKey ! En fait, ReadKey renvoie 0 pour les touches spéciales (touches flêchées, page haut/bas, début/fin, etc.), puis envoie un nouveau code. Ce que je préfère, c'est :

Code :

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

1
2
3
4
5
6
7
8
9
10
function LitTouche : char;
var c: char;
begin
  c := ReadKey;
  if c=#0 then begin
    c := ReadKey;
    c := chr(ord(c)+128); 
  end;
  LitTouche := c;
end;

Pour les touches spéciales, on ajoute 128 à sa valeur.

Sinon, tu peux reprogrammer le pilote clavier comme ça tu auras un tableau donnant la liste des touches enfoncées et la liste des touches relachées. Cool non ? Il faut savoir qu'en fait le clavier envoie trois type d'instructions au PC :
- Touche enfoncée (scancode)
- Touche relachée (scancode)
- Tampon clavier plein (= tu t'es endormi la tête sur le clavier :-/ )

Je parle de scancode car les touches sont identifiées par un code de touche (scancode) et non un code ASCII ... Il faut refaire la convertion à la main. En plein y'a les touches "modificatrices" (ALT, CTRL, MAJ, ...). Donc bcp de boulot.
---
Sinon, y'a plus simple : tu utilises mon unité SClavier dite "Super Clavier" :-) Le code source est fourni, donc tu peux toujours l'adapter à tes besoins. Il y a un exemple à la fin du code source de l'unité, sinon regarde la page "Périphériques".
http://pascal.developpez.com/peripherique/
(programme Clav_INT)

Voilà voilà.
@+ Haypo

[Allelouia]

C'est bien gentil tout ça, mais la question traitait des "touches flêchées". Pour lire une touche flêchée, il faut lire deux fois ReadKey ! En fait, ReadKey renvoie 0 pour les touches spéciales (touches flêchées, page haut/bas, début/fin, etc.), puis envoie un nouveau code. Ce que je préfère, c'est :

Code :

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

1
2
3
4
5
6
7
8
9
10
function LitTouche : char;
var c: char;
begin
  c := ReadKey;
  if c=#0 then begin
    c := ReadKey;
    c := chr(ord(c)+128); 
  end;
  LitTouche := c;
end;

Pour les touches spéciales, on ajoute 128 à sa valeur.

Je me suis contenté d'un :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  repeat
    if keypressed then begin
      case readkey of
        chr(72):barremonte;
        chr(80):barrebas;
        'q':Stop;
      end;
    end;
  until fin = 1;

Bon faudrait que je potasse un peu plus ton exemple.

Sinon, y'a plus simple : tu utilises mon unité SClavier dite "Super Clavier" :-) Le code source est fourni, donc tu peux toujours l'adapter à tes besoins. Il y a un exemple à la fin du code source de l'unité, sinon regarde la page "Périphériques".
http://pascal.developpez.com/peripherique/
(programme Clav_INT)

Vi vi
Mais je voulais utiliser les units de base.

[Pascail]

Allelouia, tout marche, youpi !!!

Bon, ok, je sort ...

[Allelouia]

J'ai un peu modifier mon source pour utiliser ta fonction LitTouche.
Ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
...
repeat
    if keypressed then begin
      case LitTouche of
        'È':barremonte;
        'Ð':barrebas;
        'q':Stop;
      end;
    end;
  until fin = 1;

Cela fonctionne bien, mais je comprends mal ce qu'il y a de faux dans celui que ce que j'avais au départ :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  repeat
    if keypressed then begin
      case readkey of
        chr(72):barremonte;
        chr(80):barrebas;
        'q':Stop;
      end;
    end;
  until fin = 1;

[Eric Sigoillot]

Un peu de théorie s'impose...

Le clavier est composé de deux types de touches différents : les touches standards, et les touches dites étendues.

les touches étendues ont un vilain défaut : avant de s'identifier clairement, elles "préviennent" de leur arrivée, en envoyant un code de touche étendue.

Avec ReadKey, celà se traduit par la lecture préalable d'un caractère #0 avec le code de la touche en lui-même.

Parmi les touches étendues, on va notament retrouver les touches de direction, les touches de fonction et le pavé Inser, Suppr et comparses.

Si tu le désires, je dispose d'un programme qui donne tout le nécessaire : code ASCII de la touche, est-ce que la touche est étendue ou non, et scancode. Si tu le veux...


En attendant, pour "attraper" une touche étendue, il faut faire comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
case ReadKey of
#00: case ReadKey of { Touche étendue }
     #72: WriteLn('Haut !');
     #80: WriteLn('Bas !');
     #75: WriteLn('Gauche !');
     #77: WriteLn('Droite !');
     end;
end;
until ...

A+