Hi Leute!
Schaut mal, mein erstes laufendes Skript:
VirtualCash - Ein kleines Kassenprogramm.
Man kann damit kaufen, er rechnet aus was du zurückkriegst usw...
Steckt ganzschön viel Mathe dahinter
Egal. Freue mich auf Kommentare!
MfG button421
Hi Leute!
Schaut mal, mein erstes laufendes Skript:
VirtualCash - Ein kleines Kassenprogramm.
Man kann damit kaufen, er rechnet aus was du zurückkriegst usw...
Steckt ganzschön viel Mathe dahinter
Egal. Freue mich auf Kommentare!
MfG button421
Viel Mathe? Naja...
Aber du könntest ja noch die Mehrwertsteuer mit einbeziehen
2 Tipps noch:
- Wenn in der Input Box ein Komma steht, lasse es durch StringReplace() mit einem Punkt ersetzen
- Teste mit Number, ob der Wert wirklich eine Zahl ist
Naja, soviel muss das jetzt ja auch nicht sein, wie findest du es denn gesamt?
Es funktioniert, aber wer brauch sowas?
@Ineluk: Jetzt sei mal nicht so hart. Ich denke, dass man keines meiner GDI+ Skripte wirklich braucht.
Sieht erstmal gut aus. Nur wenn ich was kaufe und danach bezahle, und dann schießen will, kommt immer die Meldung >>Sie haben erfogreich Eingekauft<<.
@Sprenger: Wenn du schließen willst, kommt <<Beenden?>>. Ich kenne so einen Bug nicht.
Viel Mathe? Naja...
Aber du könntest ja noch die Mehrwertsteuer mit einbeziehen
er ist ein 4. Klässler... (steht in seinem Profil) dafür top
wegen der Mehrwertssteuer kannst du die Summe einfach m4l 1.19 rechnen... zur erklärung:
1 = 100% wenn du 5 Euro mal e1ns rechnest hast du nachher 100% von den Fünf Euro
1.19 = 119% Also das die uhrsprüngliche Summe hat + 19% Mehrwertssteuer
Ich hoffe du hast das so verstanden Wenn ja Viel Spaß im Matheunterricht der weiterführenden Schulen
sieht gut aus, aber 4 klasse???
wie alt bist du??
also dafür ist es echt super, ich hätt sowas bestimmt net in der 4. hinbekommen
Super Sache, vorallem wenn das mit der 4. Klasse stimmt. Ein kleiner Fehler: Wenn man bspw. 10 € bezahlen muss und 8 € gibt, kriegt man "-2 €" Rückgeld
Mögliche Erweiterung später: Strichcodeunterstützung mit Webcam
Hier wär noch eine If-Abfrage angebracht!
Hab das Skript mal entsprechend überarbeitet:
#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
Danke! Ich werde in der UPDATED Version noch mal die Punkte von Ineluki nehmen.
@noir: Ich bin 10/einhalb.
Ich bin 10/einhalb.
Hey, dann ist er glaub ich unser jüngstes Community Mitglied
Also in seinem Alter, wär mir das bestimmt alles viel zu kompliziert gewesen
glaub als ich 10 war hab ichs ma mit autoit versucht, bin aber gescheitert^^
jetzt bekomm ichs einigermaßejn in
nachma: respeckt für dein alter
Ich bewerte auch mal ...
Skala von 0 - 10 Punkten
Die Idee finde ich toll, da gebe ich 10 Punkte.
Die Umsetzung finde ich gut, deshalb 7 Punkte.
Aber es hat noch einige Bugs, die den "Spiel"spaß vermiesen.
Aber für einen 4rt Klässler ist das T.O.P.
MfG EM
@EM: Danke. Hatte ich hier noch nie gehört