Lire une touche au clavier sans interrompre le programme

Version imprimable

26/03/2003, 13h31
Allelouia

Lire une touche au clavier sans interrompre le programme

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.
26/03/2003, 16h17
Pascail

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

Merci

@++ Mathieu
26/03/2003, 20h51
charly
j ai rencontrer le meme probleme
on le resou en general comme sa :
Code:

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 ...
26/03/2003, 22h02
Allelouia
Citation:
Envoyé par charly

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

Code:

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 !! :)
27/03/2003, 07h05
Pascail
Citation:
Envoyé par charly

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

Code:

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
27/03/2003, 18h49
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+
27/03/2003, 18h56
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
27/03/2003, 19h45
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 !!

Voici le code illustré par Charly :

Code:

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

28/03/2003, 18h31
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:

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
28/03/2003, 19h25
Allelouia
Citation:
Envoyé par 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:

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:

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.

Citation:

Envoyé par haypo

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.
28/03/2003, 19h59
Pascail

Allelouia, tout marche, youpi !!!

Bon, ok, je sort ... :oops:

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

Code:

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:

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;

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:

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+