VirtualCash

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
Opt("MustDeclareVars")
Global $summegesamt, $gegeben, $anzahlkarotte, $anzahlbanane, $anzahlbirne, $anzahlerdbeere, $anzahlorange, $anzahlapfelsine
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Virtual Cash - Waren kaufen", 431, 340, 192, 124)
$ListView1 = GUICtrlCreateListView("Waren|Preis/ stk", 8, 8, 257, 297)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 190)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 63)
$Karotte = GUICtrlCreateListViewItem("Karotte|0,15€", $ListView1)
$Banane = GUICtrlCreateListViewItem("Banane|0,30€", $ListView1)
$Birne = GUICtrlCreateListViewItem("Birne|0,45€", $ListView1)
$Orange = GUICtrlCreateListViewItem("Orange|1,20€", $ListView1)
$Apfelsine = GUICtrlCreateListViewItem("Apfelsine|2,00€", $ListView1)
$Erdbeere = GUICtrlCreateListViewItem("Erdbeere|1,50€", $ListView1)
$Label1 = GUICtrlCreateLabel("Hinweis: Du kannst im 1.Level nur Früchte kaufen!", 8, 312, 243, 17)
$ListView2 = GUICtrlCreateListView("Einkaufwagen", 272, 8, 153, 297)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 149)
$kaufen = GUICtrlCreateButton("Kaufen", 352, 312, 75, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("", 620, 198, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Pic1 = GUICtrlCreatePic(@ScriptDir&"\display_oben.jpg", 0, 0, 617, 41, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic(@ScriptDir&"\display_links.jpg", 0, 40, 41, 121, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic(@ScriptDir&"\display_rechts.jpg", 584, 40, 33, 121, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic(@ScriptDir&"\display_unten.jpg", 0, 160, 617, 33, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$gegebenl = GUICtrlCreateLabel("Geben:", 288, 128, 51, 17)
$gegeben = GUICtrlCreateInput("", 344, 128, 153, 21)
$bezahlen = GUICtrlCreateButton("Bezahlen!", 504, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$JA_NEIN = MsgBox(36,"Beenden?","Beenden?")
If $JA_NEIN = 6 Then
Exit
EndIf
Case $Karotte
$anzahlkarotte = InputBox("Anzahl der Karotten","Gebe eine Anzahl an Karotten ein!")
GUICtrlCreateListViewItem($anzahlkarotte&"x Karotte", $ListView2)
Case $Banane
$anzahlbanane = InputBox("Anzahl der Bananen","Gebe eine Anzahl an Bananen ein!")
GUICtrlCreateListViewItem($anzahlbanane&"x Banane", $ListView2)
Case $Birne
$anzahlbirne = InputBox("Anzahl der Birnen","Gebe eine Anzahl an Birnen ein!")
GUICtrlCreateListViewItem($anzahlbirne&"x Birne", $ListView2)
Case $Orange
$anzahlorange = InputBox("Anzahl der Orangen","Gebe eine Anzahl an Orangen ein!")
GUICtrlCreateListViewItem($anzahlorange&"x Orange", $ListView2)
Case $Apfelsine
$anzahlapfelsine = InputBox("Anzahl der Apfelsinen","Gebe eine Anzahl an Apfelsinen ein!")
GUICtrlCreateListViewItem($anzahlapfelsine&"x Apfelsine", $ListView2)
Case $Erdbeere
$anzahlerdbeere = InputBox("Anzahl der Erdbeeren","Gebe eine Anzahl an Erbeeren ein!")
GUICtrlCreateListViewItem($anzahlerdbeere&"x Erdbeere",$ListView2)
Case $kaufen
;Summe ausrechnen
$karottegesamt = $anzahlkarotte*0.15
ConsoleWrite("Geld-Gesamt-Karotte: "&StringFormat("%.2f", $karottegesamt)&"€"&@CRLF)
$bananegesamt = $anzahlbanane*0.30
ConsoleWrite("Geld-Gesamt-Banane: "&StringFormat("%.2f", $bananegesamt)&"€"&@CRLF)
$birnegesamt = $anzahlbirne*0.45
ConsoleWrite("Geld-Gesamt-Birne: "&StringFormat("%.2f", $birnegesamt)&"€"&@CRLF)
$orangegesamt = $anzahlorange*1.20
ConsoleWrite("Geld-Gesamt-Orange: "&StringFormat("%.2f", $orangegesamt)&"€"&@CRLF)
$apfelsinegesamt = $anzahlapfelsine*2.00
ConsoleWrite("Geld-Gesamt-Apfelsine: "&StringFormat("%.2f", $apfelsinegesamt)&"€"&@CRLF)
$erdbeeregesamt = $anzahlerdbeere*1.50
ConsoleWrite("Geld-Gesamt-Erdbeere: "&StringFormat("%.2f", $erdbeeregesamt)&"€"&@CRLF)
$summegesamt = $karottegesamt+$bananegesamt+$birnegesamt+$orangegesamt+$apfelsinegesamt+$erdbeeregesamt
ConsoleWrite("+>------------------"&@CRLF)
ConsoleWrite(StringFormat("%.2f", $summegesamt)&"€ Gesamt."&@CRLF)
$display = GUICtrlCreateLabel("SUM: "&StringFormat("%.2f",$summegesamt)&" EURO", 64, 40, 494, 83)
GUICtrlSetFont(-1, 72, 800, 0, "LCD")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW, $Form2)
Case $bezahlen
GUICtrlDelete($display)
$display = GUICtrlCreateLabel(" GGB: "&GUICtrlRead($gegeben)&" EURO", 64, 40, 494, 83)
GUICtrlSetFont(-1, 72, 800, 0, "LCD")
GUICtrlSetColor(-1, 0x00FF00)
Sleep(2000)
$zurueck = GUICtrlRead($gegeben)-$summegesamt
If $zurueck < 0 Then
$summegesamt= $zurueck * -1
GUICtrlSetData($display,"SUM: "&StringFormat("%.2f",$summegesamt)&" EURO")
Else
ConsoleWrite("Sie kriegen "&StringFormat("%.2f",$zurueck)&" € zurück.")
GUICtrlDelete($display)
$display = GUICtrlCreateLabel(" ZUR: "&StringFormat("%.2f",$zurueck)&" EURO", 64, 40, 494, 83)
GUICtrlSetFont(-1, 72, 800, 0, "LCD")
GUICtrlSetColor(-1, 0x00FF00)
Sleep(2000)
MsgBox(64,"VirtualCash","Sie haben erfolgreich eingekauft!")
GUISetState(@SW_HIDE, $Form2)
EndIf
EndSwitch
WEnd