BALLE REBONDISSANTE
fbalien
Messages postés
251
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
11 novembre 2016
-
13 oct. 2006 à 09:48
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 15 oct. 2006 à 17:43
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 15 oct. 2006 à 17:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39900-balle-rebondissante
https://codes-sources.commentcamarche.net/source/39900-balle-rebondissante
15 oct. 2006 à 17:43
a moins que tu crée un objet Balle qui peut etre utilisé dans n'importe quel canvas.
ce qui serait deja plus interressant d'un point de vue technique.
14 oct. 2006 à 12:03
14 oct. 2006 à 08:36
sinon passont au choses serieuse :
TCoord est un plagia tu type TPoint ... donc inutile de reinventer ce qui existe :
TPoint = record X,Y : integer end;
qui vas avec la fontion Point(X,Y : integer) : TPoint
ensuite, un truc que tu vas trouver pratique : With ... Do
qui permet d'eviter cela :
form1.Image1.Canvas.Pen.Color:=clblue;
form1.Image1.Canvas.Brush.Color:=clblue;
form1.Image1.Canvas.Ellipse(balle.coo_haut.x,balle.coo_haut.y,balle.coo_bas.x,balle.coo_bas.y);
en le transformant en cela :
with form1.Image1.Canvas do begin
Pen.Color:=clblue;
Brush.Color:=clblue;
Ellipse(balle.coo_haut.x,balle.coo_haut.y,balle.coo_bas.x,balle.coo_bas.y);
end;
encore un autre truc que tu vas apprecier :
TPaintBox au lieu de TImage. Timage est plus lourd que TPaintBox est n'est pas initialement prevus pour l'animation.
un inverseur booleen, qui reduit considerablement cette procedure :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = vk_space then begin
Timer1.Enabled := not Timer1.Enabled;
end;
et pour finir on augmente les performances :
const
RTD : extended = 180/Pi;
procedure deplacer_balle(var balle : Tballe);
var DDG : extended;
PST,PCT : integer;
begin
with form1.Image1.Canvas do begin
Brush.Color := clWhite;
FillRect(Image1.ClientRect);
end;
with Balle do begin
DDG := direction * RTD;
PST := round( Vitesse * cos(DDG) );
PCT := round( Vitesse * sin(DDG) );
coo_haut := point( coo_haut.x+PCT, coo_haut.y+PST);
coo_bas := point( coo_bas.x+PCT, coo_bas.y+PST);
end;
controler_sortie(balle);
end;
13 oct. 2006 à 21:02
13 oct. 2006 à 14:44
13 oct. 2006 à 09:48