#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Taschenrechner create by volle", 154, 254, 303, 187)
$Button1 = GUICtrlCreateButton("7", 16, 96, 25, 25, 0)
$Button4 = GUICtrlCreateButton("3", 80, 160, 25, 25, 0)
$Button5 = GUICtrlCreateButton("5", 48, 128, 25, 25, 0)
$Button6 = GUICtrlCreateButton("*", 112, 96, 25, 25, 0)
$Button7 = GUICtrlCreateButton("=", 80, 192, 25, 25, 0)
$Button9 = GUICtrlCreateButton("+", 112, 192, 25, 25, 0)
$Button11 = GUICtrlCreateButton("AC", 16, 56, 25, 25, 0)
$Button12 = GUICtrlCreateButton("2", 48, 160, 25, 25, 0)
$Button13 = GUICtrlCreateButton("6", 80, 128, 25, 25, 0)
$Button15 = GUICtrlCreateButton("4", 16, 128, 25, 25, 0)
$Button17 = GUICtrlCreateButton("1", 16, 160, 25, 25, 0)
$Button18 = GUICtrlCreateButton("-", 112, 160, 25, 25, 0)
$Button19 = GUICtrlCreateButton("/", 112, 128, 25, 25, 0)
$Button20 = GUICtrlCreateButton("8", 48, 96, 25, 25, 0)
$Button21 = GUICtrlCreateButton("9", 80, 96, 25, 25, 0)
$Button22 = GUICtrlCreateButton(".", 48, 192, 25, 25, 0)
$Button24 = GUICtrlCreateButton("0", 16, 192, 25, 25, 0)
$Input1 = GUICtrlCreateInput("", 8, 16, 137, 21)
GUISetState(@SW_SHOW)
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "7")
  Case $Button4
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "3")
  Case $Button5
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "5")
  Case $Button6
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "*")
  Case $Button7
   GUICtrlSetData($Input1, Execute(GUICtrlRead($Input1)));;;
  Case $Button9
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "+")
  Case $Button11;;;
   GUICtrlSetData($Input1, "")
  Case $Button12
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "2")
  Case $Button13
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "6")
  Case $Button15
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "4")
  Case $Button17
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "1")
  Case $Button18
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "-")
  Case $Button19
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "/")
  Case $Button20
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "8")
  Case $Button21
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "9")
  Case $Button22
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & ".")
  Case $Button24
   GUICtrlSetData($Input1, GUICtrlRead($Input1) & "0")
 EndSwitch
WEnd