plusweb
Messages postés13Date d'inscriptionjeudi 13 mars 2003StatutMembreDernière intervention23 novembre 2005
-
23 nov. 2005 à 15:50
plusweb
Messages postés13Date d'inscriptionjeudi 13 mars 2003StatutMembreDernière intervention23 novembre 2005
-
23 nov. 2005 à 15:50
Voilà,j'ai un exo à faire dont voici l'enoncé :
On souhaite faire un programme qui dessine un labyrinthe et qui le fait parcourir par un objet d’abord en essai et erreur puis qui le fait sans erreur grâce à son apprentissage.
Boj j'ai commencer à faire le debut et je bloque dejà...
j'ai dessiné 5 traits epais sur lequel se deplace un Tshape, c lui qui doit parcourir mes traits (vous aurez compris que mes trats sont mon labyrinthe...)
Mes probleme : -Mon tshape efface le trait qd il se deplace et aussi autour de lui sur qql pixels (donc impossible de le faire se deplacer correctement).
- Mon timer ne marche pas
Voilà ce que j'ai fais :
//là je cré mon labyrinthe et place mon tshape dessus.
procedure TForm1.Button1Click(Sender: TObject);
begin
image3.visible := true;
image1.visible := true;
shape1.top := 100;
Shape1.Left := 50;
with canvas do begin
pen.Color := clBlue ;
pen.Width:= 20;
moveto(50,100);
lineto(300,100);
lineto(300,150);
lineto(300,400);
lineto(600,400);
lineto(600,280);
moveto(120,300);
lineto(480,300);
end;
end;
//là je lance un timer qui( j'aimerai ) fasse déplacer mon tshape sur le trait..
procedure TForm1.Timer1Timer(Sender: TObject);
var cfont : tcolor;
Begin
if canvas.pixels[shape1.left,shape1.top] = clblue then begin
shape1.Left := shape1.left+10;
shape1.Top := shape1.top;
end;
end;
//je lance le timer là...mais marche pas
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
end.
SVP aidez moi et surotu n'hésiter pas à me donner vos idées sur comment réaliser au mieux cet exercice...
Merci d'avance pour vos réponses...
