Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 953 fois - Téléchargée 41 fois
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
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.