Questions diverses pour un projet informatique

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:

---

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.

Je laisse tomber...

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? :?

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:

---

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;

---

Voe,

Citation:

---

Envoyé par chrysbi

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).

@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é?

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 ;)

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:

---

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...

Code:

---

1 2 3

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

---

Merci!!

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

Code:

---

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;

---