Calcul de la vitesse d'approche d'un orage (rapp046)

Soyez le premier à donner votre avis sur cette source.

Vue 11 760 fois - Téléchargée 462 fois

Description

Ce programme sert à calculer le temps que mettra un orage à passer au dessus de votre PC.
Le code est un peu incompréhensible parce qu'il n'était pas destiné à être publié... en tout cas il fonctionne très bien, et les calculs sont très précis.

Source / Exemple :


Private Sub Command2_Click()
Dim sec1, sec2, dis1, dis2, resultat, texte6
    If Text1.Text = "" Then
        sec1 = (Time - time1) * 100000
        Text1.Text = sec1
        dis1 = 340 * (Time - time1) * 100000
        Text2.Text = dis1
        Command1.Enabled = True
        Command2.Enabled = False
    Else
        sec2 = (Time - time2) * 100000
        Text3.Text = sec2
        dis2 = 340 * (Time - time2) * 100000
        Text4.Text = dis2
        Text5.Text = (Time - time1) * 100000
        DoEvents
        texte6 = Text2.Text - dis2
        Text6.Text = Abs(texte6)
        resultat = Text4.Text / (texte6 / Text5.Text)
        If resultat < 0 Then
            Label3.Caption = "Temps après que l'orage se soit situé au dessus de votre maison. "
        Else
            Label3.Caption = "Temps avant que l'orage se situe au dessus de votre maison. "
        End If
        Timer1.Enabled = False
        Command1.Enabled = False
        Command2.Enabled = False
        Text7.Text = Round(Abs(resultat), 0)
    End If
End Sub

Conclusion :


Ce calcul ne fonctionne qu'à condition bien sûr que votre PC ne bouge pas, mais aussi et surtout que vous soyez juste en dessous de la trajectoire de l'orage, cette dernière devant être une ligne droite !
Bref, c'était plus pour tester les opérations de calcul sous VB que pour essayer d'avoir un résultat correct au final.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
84
Date d'inscription
lundi 6 novembre 2000
Statut
Membre
Dernière intervention
25 juillet 2008
1
juste une remarque pour ken (340.3 c'est dans l'air, or là on à un mélange air/eau, donc à priori plus rapide, Vs dans eau = 1400 et des patates). quoi qu'il en soit, c'est un peu "je savais pas quoi dire alors je dis ca", que d'arranger à meme pas un %... bon, ok, moi aussi j'ai pas gd chose à apporter ! la vitesse du son sous la pluie est inapproximable. on peut juste conjecturer qu'elle sera > 340, et que plus il pleuvra, plus elle le sera.
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
Messages postés
26
Date d'inscription
jeudi 21 août 2003
Statut
Membre
Dernière intervention
27 septembre 2014

Oui, je sais bien : au Burkina non plus les orages ne sont pas plus rectilignes... mais si tu lis l'ensemble des commentaires qui ont été déposés, tu te rendras compte que Jupiter, à défaut d'être pris en compte dans les calculs, a au moins fait l'objet d'une prise de conscience de leur biaisement. Cf. mon comment à ECONS : "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."
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
Ouais ...
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....)
Messages postés
18
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
4 octobre 2007

pensez à mettre un onduleur ou une prise anti-foudre avant de vous amuser avec vos ordis les jours d'orage...
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Bonsoir à tous,

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.
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.