Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

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

5/5 (11 avis)

Vue 11 184 fois - Téléchargée 403 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

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.