Objet Balle dans un form

**intheair** · 09/12/2009, 19h46

Salut à tous,

je dois faire un objet balle pour les cours et la faire rebondir dans un form.
Je m'esquinte la dessus de puis hier soir, et ca bug, mais je ne comprend spas pq...
voici mon code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
unit balls;
 
interface
 
  uses sysutils, forms, graphics;
 
  TYPE TBall = CLASS (TOBJECT)
    x1, x2, y1, y2, step_x, step_y : integer;
 
 
  END;
 
  Procedure Create_Ball(dest:TForm; ball:TBall);
  Procedure Move_Ball(dest:TForm; ball:TBall);
 
implementation
 
  var dest:TForm;
 
  procedure Create_Ball (dest:TForm;ball:TBall);
    begin
      dest.Canvas.Pen.Color:=clblack;
      dest.Canvas.Ellipse(ball.x1, ball.y1, ball.x2, ball.y2);
    end;
 
  procedure bounce(var ball:TBall);
    begin
      if (ball.x1<=0) or (ball.x2>=dest.clientwidth) then
        ball.step_x:=-ball.step_x
        else
          if (ball.y1<=0) or (ball.y2>=dest.clientheight) then
        ball.step_y:=-ball.step_y;
    end;
 
  procedure Move_Ball(dest:TForm; ball:TBall);
    begin
      dest.Canvas.Pen.Color:=clbtnface;
      dest.Canvas.Ellipse(ball.x1, ball.y1, ball.x2, ball.y2);
      ball.x1:=ball.x1+ball.step_x;
      ball.x2:=ball.x2+ball.step_x;
      ball.y1:=ball.y1+ball.step_y;
      ball.y1:=ball.y1+ball.step_y;
      bounce(ball);
    end;
end.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
unit form;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, balls, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
var ball1:TBall;
 
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  doublebuffered:=True;
  ball1.x1:=0;
  ball1.x2:=0;
  ball1.y1:=10;
  ball1.y2:=10;
  ball1.step_x:=5;
  ball1.step_y:=5;
  Create_Ball(Form1, ball1);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Move_Ball(Form1, Ball1);
  Create_Ball(Form1, Ball1);
end;
 
end.

Si quelqu'un a une petite piste pour moi, n'hésitez pas...
Merciii !!

**Cl@udius** · 09/12/2009, 19h58

Salut et bienvenue

Tu peux peut-être t'inspirer des propositions faites dans cette discussion: Comment simuler la chute du curseur ? , notamment celle de Waskol (et puis la mienne aussi).

A adapter, mais c'est une bonne base de départ.

@+ Claudius.

**intheair** · 09/12/2009, 23h06

alors le truc, c'est que j'arrive à le faire correctement

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x1, y1, x2, y2, px, py : integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //canvas.ellipse((self.ClientWidth div 2) - 15, (self.ClientHeight div 2) - 15 ,(self.ClientWidth div 2) + 15, (self.ClientHeight div 2) + 15 );
  //canvas.Pixels[self.clientWidth div 2,self.ClientHeight div 2]:=clRed;
 
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  x1:=0;
  y1:=0;
  x2:=10;
  y2:=10;
  py:=1;
  px:=1;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
canvas.Pen.Color:=clred;
//canvas.Brush.Color:=clblue;
x1:=x1+px;
y1:=y1+py;
x2:=x2+px;
y2:=y2+py;
canvas.Ellipse(x1, y1, x2, y2);
if (x2>=clientwidth) or (x1<= 0) then
  px:=-px
  else
  if (y2>=clientheight) or (y1<=0) then
  py:=-py;
 
end;
 
end.

mais pas en mettant la balle dans une classe, de sorte à pouvoir en générer autant que je veux.

Any idea en mettant la balle dans une classe ?

**Dr.Who** · 10/12/2009, 00h21

hehehe, l'exercice de base pour l'animation avec delphi...

et bien regarde en piece jointe, ce n'est pas 1 mais 2 demos
l'une est commenté l'autre est une recopie de mon jeux BuBulle un peu modifié.

tu y verras deux méthode différente pour faire bouger les sprites.
dans Baballs1, j'utilise des sinus et cosinus
dans Baballs2, j'utilise de simple additions et soustraction (comme dans ton exercice).

l'exemple avec Sin/Cos montre bien comment on peut obtenir des trajectoires beaucoup plus fluides et différentes.

**ShaiLeTroll** · 10/12/2009, 10h44

Les Gars, vos sources, c'est gentil, cela ne va pas l'aider pour comprendre l'objet, son problème ce n'est pas l'algo mais l'architecture du code ... il apprend à développer, c'est pas en lui donnant du code que cela lui servira, tient ça me rappelle une histoire de pêcheur ...

@intheair, relit ton cours sur l'objet, tu verras une notion d'encapsulation des Traitements et des données au sein d'une même classe
Ensuite, tu verras aussi la notion d'instanciation (et de libération) des objets

Bon je tape le code directement sur le forum, j'espère qu'il n'y aura pas d'erreur ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
type
  TBall = class(TObject)
  private
    FDestination: TForm;
    procedure Bounce();
  public
    x1, x2, y1, y2, step_x, step_y : integer;
 
    constructor Create(ADestination: TForm);
    procedure Draw();
    procedure Move();
  end;

Tu encapsule le traitement et la donnée dans le Même Objet, il est là pour cela

Trois Méthodes
le constructeur, c'est surtout pour affecter la Destination une bonne fois pour toute ... et c'est plein de concept interessant ... comme inherited ... je te laisse regarder l'aide pour comprendre
Ton Create_Ball effectivement, il "créait" la Balle d'un point Visuel, mais pas d'un point de vue objet, sa vrai fonction, c'est de dessiner, donc Draw...
le Move_Ball, était bien nommé, on simplifie ...

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
32
33
constructor TBall.Create(ADestination: TForm);
begin
  inherited Create();
 
  FDestination := ADestination;   	
end;
 
procedure TBall.Draw();
begin
  FDestination.Canvas.Pen.Color := clblack;
  FDestination.Canvas.Ellipse(Self.x1, Self.y1, Self.x2, Self.y2); // Self c'est l'instance de TBall, c'est le receveur de la Méthode
end;
 
procedure TBall.Move();
begin
  FDestination.Canvas.Pen.Color:=clbtnface;
  FDestination.Canvas.Ellipse(x1, y1, x2, y2); // Self est implicite !
 
  x1: = x1 + step_x;
  x2 := x2 + step_x;
  y1 := y1 + step_y;
  y1 := y1 + step_y;
 
  Bounce();
end;
procedure TBall.Bounce();
begin
  if (x1 <= 0) or (x2 >= FDestination.ClientWidth) then
     step_ x:= -step_x
  else 
    if (y1  <= 0) or (y2 >= FDestination.ClientHeight) then
       step_y := -step_y;
end;

LA Fenêtre qui utilise la Balle ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    TheBall: TBall; // Ici c'est mieux !
  public
    { Public declarations }
    destructor Destroy; override;
  end;

Tu notes juste que TheBall fait parti maintenant de la Fenêtre, c'est moche les globales que tu l'avais fait ... normal, on commence tous comme ça ...

Alors, je commente un peu le code ...

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
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DoubleBuffered :=True;
 
  TheBall := TBall.Create(Self); // Ben, l'objet, il faut lui donner vie, donc la méthode Create c'est son boulot, cela va allouer  la mémoire nécessaire à l'instance
  // Note que l'on utilise Self qui cette fois si l'instace de TForm1 receveuse de la méthode Button1Click ...
  TheBall.x1:=0;
  TheBall.x2:=0;
  TheBall.y1:=10;
  TheBall.y2:=10;
  TheBall.step_x:=5;
  TheBall.step_y:=5;
  TheBall.Draw(); // Je Dessine, Donc j'appele Draw, TheBall est le receveur de la Méthode ... pas besoin de paramètre 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TheBall.Move(); 
  TheBall.Draw();
end;
 
destructor TForm1.Destroy; 
begin
  TheBall.Free(); // Chaque Create doit être accompagné d'un Free ... sinon la mémoire reste occupée ...	
end;

Ah, sinon, si j'étais un prof, si je donnais un devoir à mes élèves, je pense que je trouverais très vite ceux qui ont eux la réponse sur le web (surtout sur un site aussi populaire) ... lorsque j'étais à l'école, je n'ai jamais eu besoin de forum pour faire ce genre d'exercice (à l'époque en C et Java), tu devrais plutôt relire tes cours ou demander à ton prof, il est payé pour cela ... pas nous ...

**intheair** · 10/12/2009, 12h17

@ShaiLeTroll: C'est pas vraiment un devoir, juste un exercice parmis d'autres...
Et comme tu le dis, je ne cherche pas le code tout fait mais plus une explication sur mes erreurs... Ce que tu fais très bien et je t'en remercie

@others...: merci ...

@+

**Andnotor** · 10/12/2009, 13h21

Petite modif'.

Le Timer calcule le Move et doit rafraîchir la fiche par Invalidate.
Le Draw devrait être déplacé dans OnPaint

.

**peter27x** · 10/12/2009, 16h27

Envoyé par ShaiLeTroll

lorsque j'étais à l'école, je n'ai jamais eu besoin de forum pour faire ce genre d'exercice (à l'époque en C et Java), tu devrais plutôt relire tes cours ou demander à ton prof, il est payé pour cela ... pas nous ...

T'as du bol, du Java c'est déjà pas mal, t'as pas eu des cours de CICS (et des TP en Eiffel...) toi au moins...

**ShaiLeTroll** · 10/12/2009, 17h00

Euh, j'ai pas testé, le "else" est en trop non, retire le "else" entre les deux if ... il faut toujours tester les DEUX bornes, tu peux les atteindre en même temps ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Procedure TBall.Bounce();
begin
  if (x1 <= 0) or (x2 >= FDestination.ClientWidth) then
    stepx:=-stepx;
 
  if (y1 <= 0) or (y2 >= FDestination.ClientHeight) then
    stepy:=-stepy;
end;

J'ai copié collé ton Move_Ball sans vérifier, je pense que tu as corrigé toi-même, le doublon de y1 et l'oubli de y2 ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TBall.Move();
begin
  FDestination.Canvas.Pen.Color := FDestination.Color; // Effacement de l'ancinne position ... même si tu une TForm, cela ne sert pas ... cela ne mémorise pas ...
  FDestination.Canvas.Ellipse(x1, y1, x2, y2); // Self est implicite !
 
  x1: = x1 + step_x;
  x2 := x2 + step_x;
  y1 := y1 + step_y;
  y2 := y2 + step_y;
 
  Bounce();
end;

Ou l'init incorrect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  TheBall.x1:=0;
  TheBall.x2:=10;
  TheBall.y1:=0;
  TheBall.y2:=10;

Tu nous as glissé plein d'erreur !!!

Envoyé par peter27x

T'as du bol, du Java c'est déjà pas mal, t'as pas eu des cours de CICS (et des TP en Eiffel...) toi au moins...

J'ai fait du COBOL aussi ...

Objet Balle dans un form

Delphi

Vue hybride

Discussions similaires

Partager

Partager