Fuel consumption/range

[Aceguy]

was bored one day and came up with this.

expandcollapse popup

#include<EditConstants.au3>
Global $d1,$ppl
Opt("GUIOnEventMode", 1)

$MPG_gui = GUICreate("MPG", 239, 119, 493, 284)

$MPG = GUICtrlCreateInput("MPG", 8, 16, 81, 21)
GUICtrlSetOnEvent(-1, "mpg")
$PPL = GUICtrlCreateInput("Pence per Liter", 8, 40, 81, 21)
GUICtrlSetOnEvent(-1,"pence")
$dist = GUICtrlCreateInput("Distance", 8, 64, 81, 21)
GUICtrlSetOnEvent(-1, "dist")
$money = GUICtrlCreateInput("money", 18, 88, 71, 21)
GUICtrlSetOnEvent(-1,"mon")
$Label1 = GUICtrlCreateLabel("", 96, 16, 126, 17)
$Label2 = GUICtrlCreateLabel("", 96, 40, 126, 17)
$Label3 = GUICtrlCreateLabel("", 96, 64, 126, 17)
$Label4 = GUICtrlCreateLabel("", 96, 88, 126, 17)
$pnd=GUICtrlCreateLabel("£",8,91,10,15)
GUISetState(@SW_SHOW)


While 1
    Sleep(50)
WEnd

Func mpg()
    $mpl = GUICtrlRead($MPG)
    $d1 = round($mpl / 4.545, 2)
    GUICtrlSetData($Label1, $d1 & " Miles per litre")
    if GUICtrlRead($dist)<>"Distance" Then
        dist()
    elseif guictrlread($money)<>"money" Then
        mon()
    elseif guictrlread($ppl)<>"Pence per Liter" Then
    $q=$d1/GUICtrlRead($ppl)
    GUICtrlSetData($Label2,"£"&round($q,2)& " p for 1 mile")   
        EndIf
EndFunc   ;==>mpg

Func dist()
    $res1 = GUICtrlRead($dist) / $d1 * GUICtrlRead($PPL)
    $res2 = Round($res1 / 100, 2)
    GUICtrlSetData($Label3, "£" & $res2)
EndFunc   ;==>dist

Func mon()
    $ct=GUICtrlRead($money)
    
    $d=(($ct*100)/GUICtrlRead($ppl))*$d1
    
    ConsoleWrite($d&@lf)
    
    GUICtrlSetData($Label4,Round($d,2)&" Miles")
EndFunc

Func pence()
    $q=$d1/GUICtrlRead($ppl)
    GUICtrlSetData($Label2,"£"&round($q,2)& " p for 1 mile")
    mpg()
    dist()
    mon()
EndFunc

[A. Percy]

Interesting, but I prefer Km/l

My beetle, 1300cc, is making 15,5 Km/l

[trancexx]

Interesting, but I prefer Km/l

My beetle, 1300cc, is making 15,5 Km/l

I've had that car few years ago, or more. At the end consumption was almost other way arround of yours, lol

Nice memories though