Discussion :

[yann.m]

A mon avis (encore ;p) tu devrait partir sur un array à longueur fixe vu que tu utilise les planètes du système solaire.

Par contre ton Objet CPlanetes devrait avoir diverses propriétés pour pouvoir être n'importe quelle planete (Cplanetes.Nom, CPlanetes.Checked, etc...)

dans le constructeur create tu crée toutes tes planètes mais tu définis la propriété Checked de chaque planete à False par exemple.

Quelque chose du genre:

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
 
TabEspace: array[0..9] of Cplanetes; 
 
 
// définir 
constructor create...
var i:integer;
begin
 
for i := 0 to 9 do
begin
 
TabEspace[i] := Cplanetes.Create;
TabEspace[i].Checked := False;
// définir soleil
if i = 0 then
begin
TabEspace[i].Nom := 'Soleil'; // string
TabEspace[i].Taille := 100; // integer
TabEspace[i].PositionX := 0; // integer
TabEspace[i].PositionY := 0; // integer
end
// autre planète
else if i = 1 then
begin
...
end
// etc...
 
end;
 
end;
 
// ajouter 1 planete
procedure ajouter(NomPlanete:String)...
var i: integer;
begin
 
for i := 0 to 9 do
begin
 
if TabEspace[i].Nom = NomPlanete then
begin
TabEspace[i].Checked := True;
Break; // on stoppe la boucle plus besoin de continuer
end;
 
end;
 
 
end;

En gros tu te contente d'activer ce que tu veux comme planete.
Une procedure "dessiner" avec une boucle comme montré avant te permettrait de savoir quelles planètes sont à dessiner.

L'avantage d'un tableau à longueur fixe c'est que tu n'as pas besoin de le redimensionner avec des SetLength(TonTableau,LongueurTableau).

Attention les exemples de code sont à adapter à ton cas.

[tintinux]

Je laisse tomber...

[chrysbi]

Ok, c'est bon, ça marche!!
En fait, le problème venait du fait qu'il fallait que je déclare mon E comme une variable globale, et non locale...
Et aussi un problème dans la boucle de remplissage de mon tableau qui n'est pas répétée un nombre précis de fois (selon le nombre de planètes à rajouter).

Sinon, j'ai une autre question (j'ai pas trouvé sur Google):
maintenant, j'aimerais tracer la trajectoire d'un missile, et on m'a dit qu'il était possible d'avoir quelque chose comme une variable de temps, qui pourrait être placée dans une formule dans mon programme, et qu'à chaque intervalle de temps identique, il me refait le calcul (pour simuler la vitesse en fait).
Quelle est cette variable? Existe-t-elle, ou est-ce quelque chose que je dois créer?

[yann.m]

Un simple TTimer (onglet "System" dans l'EDI) ne te suffit pas pour recalculer à intervales réguliers la position de ton missile ?

tu peux aussi l'ajouter à un de tes objets en le codant

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
 
...
var
mon_timer: TTimer;
...
 
constructor create...
begin
...
mon_timer := TTimer.Create(Self);
mon_timer.Enabled := True;
mon_timer.Interval := 100; 
mon_timer.OnTimer := @mon_timerOnTimer;
...
end;
 
procedure mon_timerOnTimer(Sender: TObject);
begin
...
// calcul missile
...
end;

[droggo]

Voe,

En fait, le problème venait du fait qu'il fallait que je déclare mon E comme une variable globale, et non locale...

Mauvais point, les variables globales sont à proscrire.

Une procédure doit recevoir en paramètre tout ce dont elle a besoin (saus ses variables locales, bien entendu).

[chrysbi]

@droggo> Pour l'instant, mon programme marche comme ça. Sans, il bug, donc je vais laisser comme ça pour l'instant

@yann.m> Je sais pas ce qu'est le Timer... du coup, je comprends pas ton code...


Par contre, ce que j'ai essayé de faire en fait, c'était d'intégrer ma formule, mais au final, y'a un problème, car ma force elle-même est dépendante du temps...

En fait, je calcule ma force au point initial, puis je la décompose en 2 composantes Xf et Yf. Ensuite, j'ai voulu intégrer avec la formule du principe fondamental de la dynamique pour avoir l'accélération, puis intégrer pour obtenir ma les formules pour calculer les coordoonées x et y en fonction du temps. Mais comme ma force est dépendante du temps (vu que mon missile se déplace et qu'il ne subit pas constamment la même force), en réalité, je ne pouvais pas l'intégrer du tout...
Quelqu'un aurait une idée du comment faire? (je sais que c'est plus trop de l'info là )


Ah oui, une autre question: pour les fonctions cos et sin, la valeur qu'on rentre est-ce-qu'il le traite en tant que radian ou degré?

[yann.m]

un TTimer execute une procedure à intervale régulier (n'as-tu pas besoin de calculer la position de ton missile toutes les x millisec ?).

- la procedure à executer est définie dans la proprieté TTimer.OnTimer
- l'intervale est défini dans la propriété TTimer.Interval (1000 = 1sec)
- pour plus d'infos/tuto Google est aussi ton ami

[chrysbi]

Salut,

j'ai re un problème: je voudrais prendre uniquement la partie entière d'un réelle (car il semblerait que pour dessiner sur un TImage, Lazarus n'accepte que des entiers pour les coordonnées), et lorsque j'essaie avec ce code:

Code :

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

1
2
X:=trunc(X+Fxtotal);
Y:=trunc(Y+Fytotal);

et bien, ça ne marche pas, j'ai un message d'erreur SIGFPE. Je suis certaine que le problème vient de ces 2 lignes, puisque lorsque je les enlève, tout marche!
Alors à moins que trunc soit juste, je ne sais pas d'où vient l'erreur...

[yann.m]

Code :

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

1
2
3
 
 
mon_entier := Round(10.35); // arrondir à l'entier le plus proche

[chrysbi]

Merci!!

Par contre, comment dessine-t-on un point? (pas un segment, juste un point là où se trouve le curseur)

[yann.m]

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
 
procedure TForm1.FormCreate(Sender: TObject);
var
  bmp: TBitmap;
  couleur: TColor;
begin
    bmp := TBitmap.Create;
    Image1.Picture.Bitmap.Assign(bmp);
    bmp.Free;
    Image1.Picture.Bitmap.SetSize(100,100);
    // définition de la couleur
    couleur := clRed;
    // attribution de cette couleur pour le pixel aux coordonnées X Y 
    Image1.Picture.Bitmap.Canvas.Pixels[10,10] := couleur;
    // ou directement
    Image1.Picture.Bitmap.Canvas.Pixels[10,10] := clRed;
end;