Hallo,
dies ist mein Skript:
Spoiler anzeigen
#include <GUIConstants.au3>
#Region ### START Koda GUI section ###
$Form = GUICreate("Kontostand", 625, 315, 330, 184)
$Headline = GUICtrlCreateLabel("Automatisches Konto für Zuhause", 144, 40, 320, 25)
GUICtrlSetFont(-1, 14, 800, 0, "AgentMedDB")
$In = GUICtrlCreateButton("Einzahlung", 40, 96, 217, 41, 0)
$Out = GUICtrlCreateButton("Auszahlung", 368, 96, 219, 41, 0)
$CurrentLine = GUICtrlCreateLabel("Aktueller Stand:", 216, 192, 153, 25)
GUICtrlSetFont(-1, 14, 800, 0, "AgentMedDB")
$Current = GUICtrlCreateInput("Current", 256, 224, 81, 21)
$MenuItem1 = GUICtrlCreateMenu("Optionen")
$MenuItem2 = GUICtrlCreateMenuItem("Verwaltung", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
$PasswortAbfrage = InputBox ("Passwort", "Bitte geben Sie Ihr Passwort ein!")
If Not $PasswortAbfrage = "--" Then
MsgBox (0, "Falsch", "Leider ist das Passwort falsch!")
Exit
EndIf
$File = FileOpen (@TempDir&"\Konto.txt", 1)
$Betrag = FileRead ($File)
FileClose ($File)
GUICtrlSetData ($Current, $Betrag)
GUISetState (@SW_SHOW, $Form)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem3
Exit
Case $In
$PasswortIn = InputBox ("Passwort", "Bitte geben Sie Ihr Passwort ein!")
If $PasswortIn = "--" Then
$Einzahlung = InputBox ("Einzahlung", "Wie viel willst du auf Dein Konto einzahlen?")
$File = FileOpen (@TempDir&"\Konto.txt", 1)
$Betrag1 = FileRead ($File)
$Einzahlung = $Betrag1+$Einzahlung
FileDelete (@TempDir&"\Konto.txt")
FileWrite (@TempDir&"\Konto.txt", $Einzahlung)
FileClose ($File)
GUICtrlSetData ($Current, $Einzahlung)
EndIf
Case $Out
$PasswortOut = InputBox ("Passwort", "Bitte geben Sie Ihr Passwort ein!")
If $PasswortOut = "--" Then
$Auszahlung = InputBox ("Auszahlung", "Wie viel möchtest Du auszahlen lassen?")
$File = FileOpen (@TempDir&"\Konto.txt",1)
$Betrag2 = FileRead ($File)
$Auszahlung = $Betrag2-$Auszahlung
FileWrite ($File, $Auszahlung)
FileClose ($File)
GUICtrlSetData ($Current, $Auszahlung)
EndIf
EndSwitch
WEnd
Wenn ich bei der "Einzahlung" einen Betrag angebe, wird dieser nicht in die Datei geschrieben, sodass sie beim nächsten Start eingetragen wird..
Und bei der Auszahlung passiert folgendes:
Ich habe einen Betrag von 1000 und nehme eine Auszahlung in Höhe von 508 Euro ab.
Dann steht im Input des Gesamtwertes -508.
Kann mir jemand helfen?
Danke schonmal,