Heure décimale (transposeur de vitesse)

Commenter

Contenu du snippet

pour faire passer une vitesse en heure nomale en heure décimale (voir la source dans la section heure)

d'un form
2boutons
2 text box
3 options boutons

Source / Exemple : 


Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim a As Long
a = MsgBox("Les unités de vitesse demeure les mêmes, exemple: 1 KM/H=0.416KM/Hm, 1KM/M=0.694KM/Mm, 1KM/S=1.157KM/Sm . C'est la vitesse de la lumière (300 000KM/S) qui est utilisé comme exemple dans le programme. CE PROGRAMME À ÉTÉ CRÉER PAR WEADO weado@hotmail.com", vbOK, "À propos?")
If (a = 6) Then
End
Else
End If
End Sub

Private Sub Option1_Click()
Text2.Text = Text1.Text / 2.4
End Sub

Private Sub Option2_Click()
Text2.Text = Text1.Text / 1.44
End Sub

Private Sub Option3_Click()
Text2.Text = Text1.Text / (100000 / 86400)
End Sub

Private Sub Text1_Change()
If Text1.Text = "" Then
Text2.Text = ""
GoTo 2
End If
If Option3.Value = True Then
Text2.Text = Text1.Text / (100000 / 86400)
End If
If Option2.Value = True Then
Text2.Text = Text1.Text / 1.44
End If
If Option1.Value = True Then
Text2.Text = Text1.Text / 2.4
2
End If
End Sub

A voir également

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 (Weado)