SIMULATION DU SYSTÈME SOLAIRE

Commentaire de Patrice99 le 04/02/2003 09:56:57

Tes 3 sources sont excellentes, bravo ! il y a juste quelques imperfections à régler (par exemples tracer les angles pour les jeux sur la gravitation). Pour ceux que la gravitation intéresse, voir aussi :
- Gravity.Net : l'écran de veille chaotique en VB.Net (Gravity2.scr) :
www.vbfrance.com/article.aspx?Val=5646
- Version VB6 : www.vbfrance.com/article.asp?Val=2162

Commentaire de nruiz le 04/02/2003 11:36:42

Trés bon bravo ! Par contre, où as-tu déniché les formules de gravitation et d'orbites ?

Commentaire de joker le 04/02/2003 14:07:54

ok, ok ... je t'avais bien dit que j'étais pas un  spécialiste  lol
Le domaine est très intéressant et le résultat excellent.
est-ce qu'il existerait un tuto ou des infos pour se plonger un peu sur ce genre de simulation ?

Commentaire de Salutpoilau le 04/02/2003 20:15:33

C la premiere fois ke je donne une note t ke je donne un commentaire se commentaire est le suivant:
"FELICITATION" => note 10/10

Commentaire de asd le 05/02/2003 11:44:39

Bravo !
9/10

Commentaire de bigane le 16/02/2003 14:11:58

Bonjour,
Le travail est impressionnant, et le résultat est là.
Mais, (il y a toujours un Mais) j'ai remarqué quelques imperfctions dans ton code :
Tu ne déclare que rarement tes variables et il y a des erreurs de déclaration. Par exemple dans sysol.Timer1_Timer,  tu as : Dim e0, p0, p1, x0, y0, x1, y1, px, py, r1 As Double
Seul r1 est déclaré double, les autres valeurs sont de type variant. Il faut préciser As double pour toutes tes valeurs, ton code sera accéléré.
Dans tes fonctions du module plan_det, effectue ce type de modification :
Public Function Terre_L01( byval t as double) As Double
  dim Q as double
...
Là encore, tu accélèreras le code. Si il est bien optimisé, tu pourras alors mettre une fréquence de timer plus petite (exemple 50 au lieu de 100), et tu pourras diminuer l'incrément :
On peut avoir une précision à l'heure près en effectuant ces modifications dans syssol.timer1_timer :
...
toto = toto + v.Value / 24
np(10) = Format$(toto, "short date") & " : " & Format$(toto, "HH")
d = Day(toto) + Format(toto, "HH") / 24
...

Tu peux utiliser l'option 'Option Explicit', cela te permettra de typer toutes tes variables. Tu devrais déclarer tes entiers en type Long (plus rapide que l'integer), tes variables de calculs en type Double, tes variables de position à l'écran en type Single.
Le gosub peut être modifié en une fonction.
L'indentation est à revoir, les commentaires aussi.
Toutes les images devraient être regroupées dans une seule, et  l'affichage devrait être effectuée avec une api de windows :
BitBlt Lib "gdi32"
En final, l'utilisation d'une pictureBox avec deux Scrolls permettrait de se déplacer dans le système solaire sans recalcul.

Je pense que l'idée est bonne, et que ce programme n'est qu'un départ (j'espère). Bonne continuation, et merci encore pour le travail effectué.

Bigane

Commentaire de Taramino le 30/03/2003 17:38:54

Magnifique !!!!!!! prodigieux, tu es un dieux !!!

Commentaire de Mauricet le 24/04/2003 10:00:19

Je te félicite pour ton programme, j'ai essayé d'en faire autant et je ne suis pas encore arrivé au bout.
Quelques commentaires seraient bienvenus. Comme deux ou trois lignes d'explication devant un gros paquet de chiffres qui doivent représenter des perturbations ? VSOP87 ?

Commentaire de MadM@tt le 24/01/2005 20:43:51

13 000 lignes en un seul module... comment fait tu pour travailler ??