1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Divers
  5. Calcul de la vitesse d'approche d'un orage (rapp046)

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

5/5 (11 avis)

Vue 11 970 fois - Téléchargée 472 fois

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_mabrouklepoux Messages postés 84 Date d'inscription lundi 6 novembre 2000 Statut Membre Dernière intervention 25 juillet 2008 1
26 déc. 2006 à 12:27
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
vbromanoff Messages postés 26 Date d'inscription jeudi 21 août 2003 Statut Membre Dernière intervention 27 septembre 2014
29 nov. 2006 à 12:30
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."
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
23 nov. 2006 à 22:10
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....)
cs_RENAUD34 Messages postés 18 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 4 octobre 2007
2 oct. 2006 à 10:45
pensez à mettre un onduleur ou une prise anti-foudre avant de vous amuser avec vos ordis les jours d'orage...
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
1 oct. 2006 à 21:18
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.
S'inscrire maintenant

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.

Du même auteur (vbromanoff)