Bonne soirée à vous tous Je m'excuse de ne pas avoir montré ce que je voulais plus tôt Pouvez-vous m'aider dans cette affaire
Aux États-Unis, au Canada, au Royaume-Uni et dans de nombreux autres endroits, les gens mesurent la consommation de carburant d'un véhicule en miles par gallon. Comme on peut s'y attendre, les pays qui utilisent le système métrique peuvent mesurer la consommation de carburant en kilomètres par litre, mais beaucoup mesurent également la consommation de carburant d'un véhicule en litres par 100 kilomètres. Pour rendre les choses encore plus confuses, le Royaume-Uni, le Canada et d'autres pays utilisent le gallon impérial, qui est différent du gallon américain, vous ne pouvez donc pas facilement comparer les valeurs en miles par gallon entre différents pays.
Cet exemple calcule le rendement énergétique des trois systèmes : miles américains par gallon, miles britanniques par gallon et litres aux 100 km. Le programme utilise le code suivant pour effectuer ses calculs.
.
Le logiciel obtient ensuite les informations de l'utilisateur et les convertit en miles et gallons américains. Une astuce utile pour travailler avec plusieurs unités consiste à convertir d’abord l’entrée en une unité connue. Dans cet exemple, j'ai choisi les miles et les gallons américains, mais vous pouvez utiliser n'importe quelle unité de votre choix.
Le code calcule ensuite les miles par gallon et les gallons américains par 100 miles et affiche le résultat. Ensuite, le code convertit simplement cette valeur en d'autres unités de mesure et affiche les résultats.
Aux États-Unis, au Canada, au Royaume-Uni et dans de nombreux autres endroits, les gens mesurent la consommation de carburant d'un véhicule en miles par gallon. Comme on peut s'y attendre, les pays qui utilisent le système métrique peuvent mesurer la consommation de carburant en kilomètres par litre, mais beaucoup mesurent également la consommation de carburant d'un véhicule en litres par 100 kilomètres. Pour rendre les choses encore plus confuses, le Royaume-Uni, le Canada et d'autres pays utilisent le gallon impérial, qui est différent du gallon américain, vous ne pouvez donc pas facilement comparer les valeurs en miles par gallon entre différents pays.
Cet exemple calcule le rendement énergétique des trois systèmes : miles américains par gallon, miles britanniques par gallon et litres aux 100 km. Le programme utilise le code suivant pour effectuer ses calculs.
.
Le logiciel obtient ensuite les informations de l'utilisateur et les convertit en miles et gallons américains. Une astuce utile pour travailler avec plusieurs unités consiste à convertir d’abord l’entrée en une unité connue. Dans cet exemple, j'ai choisi les miles et les gallons américains, mais vous pouvez utiliser n'importe quelle unité de votre choix.
Le code calcule ensuite les miles par gallon et les gallons américains par 100 miles et affiche le résultat. Ensuite, le code convertit simplement cette valeur en d'autres unités de mesure et affiche les résultats.
VB:
' Conversion factors.
Private Const miles_per_km As Single = 0.621371192
Private Const us_gallons_per_liter As Single = _
0.264172052637296
Private Const uk_gallons_per_liter As Single = 0.2199692483
' Calculate the mileage statistics.
Private Sub cmdCalculate_Click()
Dim miles As Single
Dim gallons As Single
Dim us_mpg As Single
Dim us_gal_per_100_miles As Single
Dim uk_gals As Single
Dim uk_mpg As Single
Dim uk_gal_per_100_miles
Dim liters As Single
Dim kilometers As Single
Dim km_per_liter As Single
Dim l_per_100_km As Single
' Get the inputs.
miles = Val(txtDistance.Text)
gallons = Val(txtFuel.Text)
' Convert to miles and US gallons.
If (optKilometers.Value) Then miles = miles * _
miles_per_km
If (optUkGallons.Value) Then
gallons = gallons * us_gallons_per_liter / _
uk_gallons_per_liter
ElseIf (optKilometers.Value) Then
gallons = gallons * us_gallons_per_liter
End If
' Calculate performance values.
us_mpg = miles / gallons
us_gal_per_100_miles = 100 / us_mpg
' US values.
txtUsMpg.Text = Format$(us_mpg, "0.00")
txtUsGalPer100Miles.Text = Format$(us_gal_per_100_miles, _
"0.00")
' UK values.
uk_gals = gallons * uk_gallons_per_liter / _
us_gallons_per_liter
uk_mpg = miles / uk_gals
uk_gal_per_100_miles = 100 / uk_mpg
txtUkMpg.Text = Format$(uk_mpg, "0.00")
txtUkGalPer100Miles.Text = Format$(uk_gal_per_100_miles, _
"0.00")
' Metric values.
liters = gallons / us_gallons_per_liter
kilometers = miles / miles_per_km
km_per_liter = kilometers / liters
l_per_100_km = 100 / km_per_liter
txtKpl.Text = Format$(km_per_liter, "0.00")
txtLitersPer100km.Text = Format$(l_per_100_km, "0.00")
End Sub
Dernière modification par un modérateur: