[TP] Problème code touche clavier [Non suivi]

**phildeb** · 02/12/2005, 18h44

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 !

**M.Dlb** · 02/12/2005, 21h11

Case of d'un readkey, dans une boucle qui affiche le rectangle

**phildeb** · 02/12/2005, 21h37

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?

**M.Dlb** · 02/12/2005, 22h04

Regarde ici

**phildeb** · 02/12/2005, 22h23

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 !

**Edouard Kaiser** · 02/12/2005, 22h26

Donne nous tes sources et on va t'aider

**phildeb** · 02/12/2005, 22h30

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