Beiträge von L3viathan

Zitat von qixx

Die Deutsche Rechtschreibung ist Freeware, sprich, du kannst sie kostenlos nutzen. Allerdings ist sie nicht Open Source, d.h. du darfst sie nicht verandern oder in veranderter Form veroffentlichen.

Sorry, das ich da mal einhaken muss, es ist zwar Mega-Offtopic und eigentlich total egal, aber da ich nicht extra Spam-threads mit Kommentaren zu einigen Signatursprüchen hier aufmachen möchte, kommentiere ich das mal hier.

Die deutsche Rechtschreibung ist selbstverständlich Open Source: Die Quellen (Herkunft) sind relativ gut geklärt. Auch wenn Open Source und die Erlaubnis zur Veröffentlichung von Modifikationen keineswegs dasselbe ist (vgl. z.B. CC-by-nd Selbstverständlich darfst du die deutsche Rechtschreibung auch in veränderter Form veröffentlichen, denn an einer Norm wie der dt. Rechtschreibung hält niemand die Rechte.
Was du meinst, ist dass du als Schüler dich an die deutsche Rechtschreibung zu halten hast. Andernfalls (außer du arbeitest als Lehrer, Schulbuchautor oder in einer Bundesverwaltung) ist sie keinesfalls verbindlich, und umso weniger ist deren Nichteinhaltung beziehungsweise deren bewusste Missachtung oder gar die Veröffentlichung einer alternativen Rechtschreibnorm strafbar.

#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