Hi
ich habe mal aus langeweile einen spritkostenrechner geschrieben und wollte mal wissen was ihr so davon haltet
[autoit]#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]Opt("GUIOnEventMode",1)
HotKeySet("{Enter}", "_rechnen")
$eingabe = GUICreate ("Spritrechner", 190,320)
GUICtrlCreateLabel ("Bitte anstelle des Kommas" & @CRLF & "einen Punkt benutzen", 30, 30)
GUICtrlCreateLabel ("Getankte Liter", 30,80)
$liter = GUICtrlCreateInput ("", 30,110)
GUICtrlCreateLabel ("Gefahrene Kilometer", 30,140)
$km = GUICtrlCreateInput ("",30,170)
GUICtrlCreateLabel ("Bezahlt pro Liter",30,200)
$geld = GUICtrlCreateInput ("",30,230)
$rechnen = GUICtrlCreateButton("Berechnen", 30, 260)
GUICtrlSetOnEvent($rechnen, "_rechnen")
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
GUIsetstate(@sw_show)
While Sleep(1)
WEnd
Func _rechnen()
$ergebnis1 = Round(GUICtrlRead($liter) / GUICtrlRead($km) ,3)
$ergebnis2 = Round(GUICtrlRead($liter) / GUICtrlRead($km) * 100 ,2)
$ergebnis3 = Round($ergebnis1 * GUICtrlRead($geld) ,3)
$ergebnis4 = Round($ergebnis2 * GUICtrlRead($geld) ,2)
GUIDelete($eingabe)
HotKeySet("{Enter}", "_Exit")
$ausgabe = GUICreate ("Sprit", 270, 180)
GUICtrlCreateLabel ("Verbraucht auf einem Kilometer " & $ergebnis1 & "Liter", 30, 30)
GUICtrlCreateLabel ("Bezahlt für einen Kilometer " & $ergebnis3 & "Euro", 30, 60)
GUICtrlCreateLabel ("Verbraucht auf 100 Kilometer " & $ergebnis2 & "Liter", 30, 90)
GUICtrlCreateLabel ("Bezahlt für 100 Kilmoter " & $ergebnis4 & "Euro", 30, 120)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
GUIsetstate(@sw_show)
EndFunc
Func _Exit()
Exit
EndFunc
Gruß Thooledo