[TP] Problème code touche clavier

Version imprimable

02/12/2005, 18h44
phildeb

[TP] Problème code touche clavier

bonjour,

j'essaye de créer un programme mais je n'y arrive pas !

Je voudrais afficher un triangle : jusque la ca va !

mais je voudrais que quand j'appuie sur les touches directionnelles le sommet monte, descende, aille sur la gauche ou sur la droite et que la base reste dans le bas de l'écran.

La base du triangle est dans le fond de l'écran

comment je dois faire pour que quand j'appuie sur les touches directionnelles le programme fasse bouger le sommet?

Case of?
if?

merci pour votre aide !
02/12/2005, 21h11
M.Dlb

Case of d'un readkey, dans une boucle qui affiche le rectangle :)
02/12/2005, 21h37
phildeb

moi j'ai fait :

readln(touche); {touche en char}
case touche of

'a' : et j'ai déplacé le sommet du triangle

ou je peut trouver le code des touches directionelles?
02/12/2005, 22h04
M.Dlb

Regarde ici
02/12/2005, 22h23
phildeb

oui j'ai compris !

mais comment je dois integrer ca dans mon programme

moi je voudrais que le programme m'incrémente un compteur quand j'appuye sur la touche du haut et qu'il le décrémente quand j'appuie sur le bas !
02/12/2005, 22h26
Edouard Kaiser

Donne nous tes sources et on va t'aider :)

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
program examen;
uses graph,crt;
var
gd,gm:integer;
i,j:word;
touche:char;
 
begin
detectgraph(gd,gm);
initgraph(gd,gm,'c:\tp7\bgi');
i:=318;
j:=239;
line(1,479,639,479);
line(1,479,i,j);
line(i,j,639,479);
touche:=readkey;
 
case touche of
          #72 : begin
               setcolor(black);
               line(1,479,i,j);
               line(i,j,639,479);
               setcolor(white);
               line(1,479,639,479);
               line(1,479,i+50,j-50);
               line(i+50,j-50,639,479);
              end;
 end;
readkey;
closegraph;
end.

02/12/2005, 22h36
phildeb

mnt je voudrais qu'a la place d'appuyer sur 'a' je doive appuyer sur la fleche du haut !
qq je dois changer??
02/12/2005, 22h40
Edouard Kaiser

Je crois que sous Delphi le code des touches c'est : VK_RIGHT, VK_DOWN etc...
02/12/2005, 22h42
phildeb

moi j'utilise turbo pascal 7.0

et vk_right... ne fonctionne pas :(
02/12/2005, 22h44
Edouard Kaiser

http://pascal.developpez.com/faq/?pa...uchesDirection ;)