CALCUL DE LA VITESSE D'APPROCHE D'UN ORAGE (RAPP046)
clubpsr
Messages postés
21
Date d'inscription
samedi 15 février 2003
Statut
Membre
Dernière intervention
2 septembre 2008
-
29 sept. 2006 à 10:13
cs_mabrouklepoux Messages postés 84 Date d'inscription lundi 6 novembre 2000 Statut Membre Dernière intervention 25 juillet 2008 - 26 déc. 2006 à 12:27
cs_mabrouklepoux Messages postés 84 Date d'inscription lundi 6 novembre 2000 Statut Membre Dernière intervention 25 juillet 2008 - 26 déc. 2006 à 12:27
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/39731-calcul-de-la-vitesse-d-approche-d-un-orage-rapp046
https://codes-sources.commentcamarche.net/source/39731-calcul-de-la-vitesse-d-approche-d-un-orage-rapp046
26 déc. 2006 à 12:27
La culture c'est comme la confiture ...
à part ca, il est marrant ce code
Mabrouk, Spécialiste Es question dont tout le monde se fout
29 nov. 2006 à 12:30
23 nov. 2006 à 22:10
Je vois que dans ce monde dans lequel les situations sont de plus en plus souvent anarchiques, on trouve encore (au moins...) des choses qui avancent tout droit et au pas cadencé, sans jamais penser à s'arrêter pour souffler ( ou tonner ?).
Je dois être très malchanceux car (notamment au Gabon) j'ai souvent vu un orage faire du surplace malencontreux pendant plus d'une demie-heure...à moins de 400 mètres au-dessus de ma maison. J'en ai même vu un faire un large cercle et revenir après s'être éloigné.
Et le chef d'orchestre (M. Jupiter) ? je ne le vois pas dans ces calculs (et pourtant.... il devrait être bien présent, avec ses caprices....)
2 oct. 2006 à 10:45
1 oct. 2006 à 21:18
C'est un peu comme on évalue la distance d'un orage, de tête ?!
Vous savez comment faire ?
Il suffit de compter à partir de l'éclair, le temps en seconde au coup de tonnerre ; puis de multiplier par 3, puis par 100. Et on obtiens la distance approximative à l'orage à soi, en mètre... Bien sur, on peut faire un peu plus précis : utiliser un chronomètre, et multiplier par 340 m/s et des brouettes (vitesse du son)...
L'idée est originale, et serait très sympas dans un tuto sur VB. Je retiens, et je note 10 ! pour encouragement aussi.
Bon, maintenant tout a été dit sur le typage des données : c'est à reprendre. JE pense qu''il faudrait aussi OPTION EXPLICIT, pour bien faire...
Je pense également que le "DoEvents" est un peu superflu ici.
Amicalement,
Us.
30 sept. 2006 à 12:44
Par exemple, dans "texte6 = Text2.Text - dis2", on attribue la valeur du texte de Text2.text + la valeur de dis2 à text6.
J'ai estimé que Text6 devait être une string (vu son nom), mais en fait, c'est ambigüe :
"texte6 = Text2.Text - dis2
Text6.Text = Abs(texte6)"
Si text6 est une valeur numérique, alors inutile d'utiliser Cstr. Mais si c'est une string, alors on n'affecte généralement pas directement une valeur numérique, bien que VB l'accepte, mais on attribue une string (qui a été obtenue par conversion de la valeur numérique à l'aide de Cstr).
Donc il y a des problèmes lors des déclarations de variables : tout est du Variant, on ne sait pas quelles sont les variables utilisées en String et les variables utilisées en Double.
Je conseille de mettre une minuscule devant le nom de la variable, pour réperer facilement son type.
Ex :
Dim sMaString As String
Dim bChoix As Boolean
Dim iVar As Integer
Dim dCalcul As Double
....
@+
30 sept. 2006 à 12:30
VIOLENT_KEN, à quoi correspond le "Cstr" dans "sTexte=Cstr(Val(Text2.Text)-dis2)" ?
ECONS, oui je sais bien que la précision est très médiocre : en plus de la position de l'éclair dans le nuage il y a aussi l'aspect du trajet du nuage ou du changement de la vitesse ou de la direction du vent qui biaisent le calcul par exemple.
30 sept. 2006 à 00:27
* Salut, "Dim sec1, sec2, dis1, dis2, resultat, texte6" est plutôt mal codé.
* 340.3 est déjà mieux
Voilà, @+
30 sept. 2006 à 00:19
Si un éclair se produit à l'avant du nuage, puis ensuite un autre à l'arrière, tu auras l'impression que le nuage s'éloigne, alors que ce n'est pas forcément le cas.
Cette évaluation ne peut être valable que si les éclairs ont toujours lieu au même endroit dans le nuage.
Sinon, mêmes remarques que Violent_Ken. Heureusement que VB fait n'importe quoi avec les typages, çà permet de faire fonctionner malgré tout ton programme.
29 sept. 2006 à 13:42
Du code du genre
texte6 = Text2.Text - dis2
est très peu propre.
Mieux vaut
Dim sTexte As String
sTexte=Cstr(Val(Text2.Text)-dis2)
Et 340 est une valeur très approximative de la vitesse du son. (340.3 est dékà mieux).
@+
29 sept. 2006 à 10:13
Je n'ai pas pu l'essayer en vraie grandeur mais comme un ordinateur doit (dans la mesure du possible) faire les chose automatiquement pourquoi ne pas automatiser les 2 boutons "Éclair", "Tonnerre" ? Une Webcam qui détecte l'éclair et un micro qui détecte le son, plus un petit graphique des mesures avec une modélisation de l'évolution des distances. Voilà avec tout ça on frisera la perfection.
Encore bravo pour l'idée (pourtant toute bête)