#include <GUIConstants.au3>

GUICreate ("Calcolatrice by certaindeath",300,235)

$output = ""
$out  =  GUICtrlCreateInput ( "", 5, 5 , 270 , 20 )
$but1 =  GUICtrlCreateButton ("1",25,35,30,30)
$but2 =  GUICtrlCreateButton ("2",65,35,30,30)
$but3 =  GUICtrlCreateButton ("3",105,35,30,30)
$but4 =  GUICtrlCreateButton ("4",25,75,30,30)
$but5 =  GUICtrlCreateButton ("5",65,75,30,30)
$but6 =  GUICtrlCreateButton ("6",105,75,30,30)
$but7 =  GUICtrlCreateButton ("7",25,115,30,30)
$but8 =  GUICtrlCreateButton ("8",65,115,30,30)
$but9 =  GUICtrlCreateButton ("9",105,115,30,30)
$but0=GUICtrlCreateButton("0",65,155,30,30)
$uguale = GUICtrlCreateButton ("=",25,195,112,30)
$butpiu = GUICtrlCreateButton ("+",145,35,30,30)
$butmeno = GUICtrlCreateButton ("-",145,75,30,30)
$butper = GUICtrlCreateButton ("x",145,115,30,30)
$butdiviso = GUICtrlCreateButton (":",145,155,30,30)
$clear = GUICtrlCreateButton("CE",185,35,30,30)
$butpun=GUICtrlCreateButton(".",25,155,30,30)
$operator1 = 0
$operator2 = 0
$result = 0
$piu = 0
$meno = 0
$per = 0
$diviso = 0


GUISetState( )

$msg = GUIGetMsg()

While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
   Select
      case $msg = $but1
         $output = $output & "1"
         GUICtrlSetData( $out, $output )
      case $msg = $but2
         $output = $output & "2"
         GUICtrlSetData( $out, $output )
      case $msg = $but3
         $output = $output & "3"
         GUICtrlSetData( $out, $output )
      case $msg = $but4
         $output = $output & "4"
         GUICtrlSetData( $out, $output )
      case $msg = $but5
          $output = $output & "5"
         GUICtrlSetData( $out, $output )
      case $msg = $but6
         $output = $output & "6"
         GUICtrlSetData( $out, $output )
      case $msg = $but7
         $output = $output & "7"
         GUICtrlSetData( $out, $output )
      case $msg = $but8
         $output = $output & "8"
         GUICtrlSetData( $out, $output )
      case $msg = $but9
         $output = $output & "9"
         GUICtrlSetData( $out, $output )
      Case $msg=$but0
         If $output <> "" Then
            $output = $output & "0"
            GUICtrlSetData( $out, $output )
         EndIf
      Case $msg = $butpun
         $output = $output & "."
         GUICtrlSetData( $out, $output )
      case $msg = $butpiu
         $piu = 1
         read()
         GUICtrlSetData( $out, "" )
         $output = ""
      case $msg = $butmeno
         $meno = 1
         read()
         GUICtrlSetData( $out, "" )
         $output = ""
      case $msg = $butper
         $per = 1
         read()
         GUICtrlSetData( $out, "" )
         $output = ""
         case $msg = $butdiviso
         $diviso = 1
         read()
         GUICtrlSetData( $out, "" )
         $output = ""
         case $msg = $uguale
         read()
         If $piu = 1 Then
            $result = $operator1 + $operator2
            GUICtrlSetData( $out, $result )
            $piu = 0
            $operator1 = 0
            $operator2 = 0
            $result = 0
         ElseIf $meno = 1 Then
            $result = $operator1 - $operator2
            GUICtrlSetData( $out, $result )
            $meno = 0
            $operator1 = 0
            $operator2 = 0
            $result = 0
         ElseIf $per = 1 Then
            $result = $operator1 * $operator2
            GUICtrlSetData( $out, $result )
            $per = 0
            $operator1 = 0
            $operator2 = 0
            $result = 0
         ElseIf $diviso = 1 Then
            $result = $operator1 / $operator2
            GUICtrlSetData( $out, $result )
            $diviso = 0
            $operator1 = 0
            $operator2 = 0
            $result = 0
         EndIf
      case $msg = $clear
            clear()
   EndSelect
Wend
   
Func read()
   If $operator1 = 0 Then
      $operator1 = Number(GUICtrlRead($out))
   Else
      $operator2 = Number(GUICtrlRead($out)) 
   EndIf
EndFunc

Func clear()
   $piu = 0
   $meno = 0
   $per = 0
   $diviso = 0
   $operator1 = 0
   $operator2 = 0
   $result = 0
   $output = ""
   GUICtrlSetData( $out, "" )
EndFunc