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.
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.