Shape + Timer illusion d'une balle qui rebonditRésolu

Question

Bonjour,

Pour un project Delphi je doit cr&#233;e un Shape qui donne l illusion de
rebondire dans le formulaire a l'aide d'un Timer pour cela je doit
tirer un chiffre alleatoire avec les fonction Randomize et Random pour
changer la direction et la couleur de mon shape (Rond evidement). Mon
probleme est que je ne sais pas du tous quoi ecrir dans la procedure
Timer.



merci davance pour vos reponse.



OzZ

cs_Kenavo · Accepted Answer

Salut OzZ Voilà ce que je te propose : procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered := True; Randomize; VarX := Random(50)-25; VarY := Random(50)-25; Timer1.Interval :=5; Shape1.Brush.Color := random($1000000); Shape1.Pen.Color := Shape1.Brush.Color; end ; procedure TForm1.Timer1Timer(Sender: TObject); begin Shape1.Left : = Round(Shape1.Left + VarX); Shape1.Top := Round(Shape1.Top + VarY); if (Shape1.left<0) or (Shape1.left > ClientWidth-Shape1.Width) then VarX : =-VarX; if (Shape1.Top<0) or (Shape1.Top > ClientHeight-Shape1.Height) then VarY := -VarY; end ; J'espère avoir une bonne note ! Ken@vo

Code, Code, Codec ! [%3C/body ]

ozzdu38 · Answer

merci beaucoup mais au risque de paraitre pour un gros nul:) je vien de rentr&#233; ton code mais rien ne bouge :s

japee · Answer

Il ont des "Shapes ronds", vive la Bretagne, mdr, Kenavo... 



Tu l'as rentr&#233; o&#249; le code, ozzdu38  



Si tu es vraiment tr&#232;s d&#233;butant, voici ce qu'il faut faire avec l'inspecteur d'objets :



- double clique sur OnCreate pour Form1, et entre le code correspondant &#224; FormCreate,

- double clique sur OnTimer pour Timer1, et l&#224; tu places le code correspondant &#224; Timer1OnTimer.



Rien d'autre &#224; faire que de lancer la compilation. 



Bonne prog' 



japee

WhiteHippo · Answer

Faut v&#233;rifier que la propri&#233;t&#233; enabled du timer &#224; la valeur TRUE dans l'inspecteur d'objet ou bien tu rajoutes dans l'&#233;v&#233;nement OnCreate du Form1 :

Timer1.Enabled := TRUE ;

Cordialement.

japee · Answer

Oui, on ne sait jamais, WhiteHippo... 



Mais je me dois de pr&#233;ciser &#224; ozzdu38 que Enabled :=  True est la propri&#233;t&#233;  par d&#233;faut .

Il lui suffit de faire Nouveau =>Application, de d&#233;poser un chapeau
rond heu... un Shape rond et un Timer tout neuf sur son Form, de
rentrer le code &#224; Kenavo comme je le lui explique, et... il n'a plus
qu'&#224; essayer de suivre la baballe des yeux, lol. 

&#201;videmment, s'il se met &#224; tout tripoter avant m&#234;me d'avoir test&#233;, alors... 



Bonne prog'  



japee

cs_Kenavo · Answer

On
peut aussi v&#233;rifier que les variables de d&#233;placement (VarX et VarY) ne
sont pas nulles, mais les deux nulles en m&#234;me temps ..... &#231;a serait pas
de bol !



Et danse le Shape rond (vivent les bretons !)



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

ozzdu38 · Answer

c'est bon tous marche bien en fait javais juste fair une petiote erreur de declaration des VarX et VarY dans le main

tous marche bien merci tous le monde pour votre aide et merci kenavo pour ton code :)

Shape + Timer illusion d'une balle qui rebondit

7 réponses

Votre réponse