Taschenrechner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;HotKeySet("{ESC}", "_schliessen") ; <=========================
Opt('GUICloseOnESC',1) ; <=========================
#Region ### START Koda GUI section ### Form=
$Ausgabe = ""
$Title = GUICreate("Taschenrechner", 210, 228, 200, 100)
$menu1 = GUICtrlCreateMenu("Main")
$menu11 = GUICtrlCreateMenuItem("About", $menu1)
$menu12 = GUICtrlCreateMenuItem("Exit", $menu1)
$Label1 = GUICtrlCreateLabel($Ausgabe, 8, 10, 193, 21)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKHEIGHT)
$zahl1 = GUICtrlCreateButton("1", 8, 120, 33, 33, $WS_GROUP)
$zahl2 = GUICtrlCreateButton("2", 48, 120, 33, 33, $WS_GROUP)
$zahl3 = GUICtrlCreateButton("3", 88, 120, 33, 33, $WS_GROUP)
$zahl4 = GUICtrlCreateButton("4", 8, 80, 33, 33, $WS_GROUP)
$zahl5 = GUICtrlCreateButton("5", 48, 80, 33, 33, $WS_GROUP)
$zahl6 = GUICtrlCreateButton("6", 88, 80, 33, 33, $WS_GROUP)
$zahl7 = GUICtrlCreateButton("7", 8, 40, 33, 33, $WS_GROUP)
$zahl8 = GUICtrlCreateButton("8", 48, 40, 33, 33, $WS_GROUP)
$zahl9 = GUICtrlCreateButton("9", 88, 40, 33, 33, $WS_GROUP)
$Zahl0 = GUICtrlCreateButton("0", 8, 160, 73, 33, $WS_GROUP)
$komma = GUICtrlCreateButton(",", 88, 160, 33, 33, $WS_GROUP)
$plus = GUICtrlCreateButton("+", 128, 160, 33, 33, $WS_GROUP)
$minus = GUICtrlCreateButton("-", 128, 120, 33, 33, $WS_GROUP)
$mal = GUICtrlCreateButton("*", 128, 80, 33, 33, $WS_GROUP)
$durch = GUICtrlCreateButton("/", 128, 40, 33, 33, $WS_GROUP)
$gleich = GUICtrlCreateButton("=", 168, 120, 33, 73, $WS_GROUP)
$Pi = GUICtrlCreateButton("Pi", 168, 80, 33, 33, $WS_GROUP)
$clear = GUICtrlCreateButton("Clear", 168, 40, 33, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg() ; <================
Switch $nMsg ; <================

Case $menu11
MsgBox(1, "About", "")

Case $menu12, $GUI_EVENT_CLOSE ; <================
MsgBox(1, "Exit", "Danke, dass sie den Taschenrechner benutzt haben.")
Exit

Case $clear
$Ausgabe = "0"

Case $Zahl0
$Ausgabe = "0"

Case $zahl1
$Ausgabe = "1"

Case $zahl2
$Ausgabe = "2"

Case $zahl3
$Ausgabe = "3"

Case $zahl4
$Ausgabe = "4"

Case $zahl5
$Ausgabe = "5"

Case $zahl6
$Ausgabe = "6"

Case $zahl7
$Ausgabe = "7"

Case $zahl8
$Ausgabe = "8"

Case $zahl9
$Ausgabe = "9"

Case $durch
$Ausgabe = "/"

Case $mal
$Ausgabe = "*"

Case $Pi
$Ausgabe = "3,1415926535897932384626433832795"
EndSwitch
if GuiCtrlRead($Label1) <> $Ausgabe Then GUICtrlSetData($Label1, $Ausgabe) ; < ===============
WEnd

;Func _schliessen()
; Exit
;EndFunc ;==>_schliessen

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('GUICloseOnESC',1)
#Region ### START Koda GUI section ### Form=
$Zwischenspeicher = ""
$Zwischenspeicher2 = ""
$operator = ""
$Title = GUICreate("Taschenrechner", 210, 228, 200, 100)
$menu1 = GUICtrlCreateMenu("Main")
$menu11 = GUICtrlCreateMenuitem("About", $menu1)
$menu12 = GUICtrlCreateMenuitem("Exit", $menu1)
$1 = GUICtrlCreateInput("", 8, 10, 193, 21)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT+$GUI_DOCKHEIGHT)
$zahl1 = GUICtrlCreateButton("1", 8, 120, 33, 33, $WS_GROUP)
$zahl2 = GUICtrlCreateButton("2", 48, 120, 33, 33, $WS_GROUP)
$zahl3 = GUICtrlCreateButton("3", 88, 120, 33, 33, $WS_GROUP)
$zahl4 = GUICtrlCreateButton("4", 8, 80, 33, 33, $WS_GROUP)
$zahl5 = GUICtrlCreateButton("5", 48, 80, 33, 33, $WS_GROUP)
$zahl6 = GUICtrlCreateButton("6", 88, 80, 33, 33, $WS_GROUP)
$zahl7 = GUICtrlCreateButton("7", 8, 40, 33, 33, $WS_GROUP)
$zahl8 = GUICtrlCreateButton("8", 48, 40, 33, 33, $WS_GROUP)
$zahl9 = GUICtrlCreateButton("9", 88, 40, 33, 33, $WS_GROUP)
$Zahl0 = GUICtrlCreateButton("0", 8, 160, 73, 33, $WS_GROUP)
$komma = GUICtrlCreateButton(",", 88, 160, 33, 33, $WS_GROUP)
$plus = GUICtrlCreateButton("+", 128, 160, 33, 33, $WS_GROUP)
$minus = GUICtrlCreateButton("-", 128, 120, 33, 33, $WS_GROUP)
$mal = GUICtrlCreateButton("*", 128, 80, 33, 33, $WS_GROUP)
$durch = GUICtrlCreateButton("/", 128, 40, 33, 33, $WS_GROUP)
$gleich = GUICtrlCreateButton("=", 168, 120, 33, 73, $WS_GROUP)
$Pi = GUICtrlCreateButton("Pi", 168, 80, 33, 33, $WS_GROUP)
$clear = GUICtrlCreateButton("Clear", 168, 40, 33, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()
Switch $nMsg

Case $menu11
MSGBox(1, "About", "Scripter: Tim 'Schrubber' Lübbe")

Case $menu12, $GUI_EVENT_CLOSE
MSGBox(1, "Exit", "Danke, dass sie den Taschenrechner benutzt haben.")
Exit

Case $clear
GUICtrlSetData ($1, "")

Case $zahl0
if(GUICtrlRead($1) <> "") then
GUICtrlSetData ($1, GUICtrlRead ($1) & "0")
Else
MSGBox(1, "Error", "Du kannst eine 0 nicht als erste Stelle setzen!")
EndIf

Case $zahl1
GUICtrlSetData ($1, GUICtrlRead ($1) & "1")

Case $zahl2
GUICtrlSetData ($1, GUICtrlRead ($1) & "2")

Case $zahl3
GUICtrlSetData ($1, GUICtrlRead ($1) & "3")

Case $zahl4
GUICtrlSetData ($1, GUICtrlRead ($1) & "4")

Case $zahl5
GUICtrlSetData ($1, GUICtrlRead ($1) & "5")

Case $zahl6
GUICtrlSetData ($1, GUICtrlRead ($1) & "6")

Case $zahl7
GUICtrlSetData ($1, GUICtrlRead ($1) & "7")

Case $zahl8
GUICtrlSetData ($1, GUICtrlRead ($1) & "8")

Case $zahl9
GUICtrlSetData ($1, GUICtrlRead ($1) & "9")

Case $plus
$operator = "+"
$Zwischenspeicher = GUICtrlRead($1)
GUICtrlSetData ($1, "")

Case $minus
$operator = "-"

Case $durch
$operator = "/"

Case $mal
$operator = "*"

Case $komma
MSGBox(1, "Fehler", "Diese Funktion gibt es noch nicht :)")

Case $pi
$1 = "3,141592"

Case $gleich
$Zwischenspeicher2 = GUICtrlRead($1)
if($operator = "+") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher + $Zwischenspeicher2)

ElseIf($operator = "-") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher - $Zwischenspeicher2)

ElseIf($operator = "*") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher * $Zwischenspeicher2)

ElseIf($operator = "/") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher / $Zwischenspeicher2)

Else
MSGBox(1, "Error", "Es ist ein Fehler aufgetreten. Bitte wenden sie sich an den Scripter!")

EndIf

EndSwitch
WEND