CONVERTION UNITE DE VITESSE
Contenu du snippet
Public Enum UniteDistance
mm = 1000000
m = 1000
km = 1
End Enum
Public Enum UniteTemps
s = 3600
min = 60
h = 1
End Enum
Public Shared Function TranslationUniteVitesse(ByVal Valeur As Single, _
ByVal UniteDistanceCourante As UniteDistance, _
ByVal UniteTempsCourante As UniteTemps, _
ByVal NouvelleUniteDistance As UniteDistance, _
ByVal NouvelleUniteTemps As UniteTemps) As Single
Dim distanceConvertie As Single = Valeur * NouvelleUniteDistance / UniteDistanceCourante
Dim tempsConvertie As Single = NouvelleUniteTemps / UniteTempsCourante
If (tempsConvertie = 0) Then
Throw New Exception("ModuleGlobal:TranslationUniteVitesse - Attention : Division par 0")
End If
Return distanceConvertie / tempsConvertie
End Function
Compatibilité : VB 2005, VB 2008
A voir également
- CONVERTION UNITE DE VITESSE
- Calcul vitesse course a pied - Forum Visual Basic 6
- Vitesse dessin - Forum Java
- Pascal unité ✓ - Forum Delphi / Pascal
- Arrondir à l'unité - Forum Visual Basic
- Unité image jpeg ✓ - Forum Delphi / Pascal
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.