Solita calcolatrice

#include <guiconstants.au3>
#include <guiedit.au3>



$form=GUICreate("CALCOLATRICE")
$num1=GUICtrlCreateButton("1",10,80,50,50)
$num2=GUICtrlCreateButton("2",80,80,50,50)
$num3=GUICtrlCreateButton("3",150,80,50,50)
$num4=GUICtrlCreateButton("4",10,160,50,50)
$num5=GUICtrlCreateButton("5",80,160,50,50)
$num6=GUICtrlCreateButton("6",150,160,50,50)
$num7=GUICtrlCreateButton("7",10,240,50,50)
$num8=GUICtrlCreateButton("8",80,240,50,50)
$num9=GUICtrlCreateButton("9",150,240,50,50)
$num0=GUICtrlCreateButton("0",10,320,50,50)
$add=GUICtrlCreateButton("+",260,80,50,50)
GUICtrlSetFont(-1,18)
$sot=GUICtrlCreateButton("-",260,160,50,50)
GUICtrlSetFont(-1,18)
$molt=GUICtrlCreateButton("*",260,240,50,50)
GUICtrlSetFont(-1,18)
$div=GUICtrlCreateButton("/",260,320,50,50)
GUICtrlSetFont(-1,18)
$uguale=GUICtrlCreateButton("=",155,320,80,50)
GUICtrlSetFont(-1,18)
$ris=GUICtrlCreateLabel("risultato",310,10,50,50)
GUICtrlSetFont(-1,10)
$input=GUICtrlCreateInput("",5,5,300,30, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$canc=GUICtrlCreateButton("C",330,80,50,50)
$virg=GUICtrlCreateButton(".",80,320,50,50)
GUICtrlSetFont(-1,22)
GUISetState(@SW_SHOW)

While 1
$msg=GUIGetMsg()
Switch $msg
Case $GUI_EVENT_close
Exit
Case $num1
_GUICtrlEdit_InsertText($input,"1",100)
case $num2
_GUICtrlEdit_InsertText($input,"2",100)
case $num3
_GUICtrlEdit_InsertText($input,"3",100)
case $num4
_GUICtrlEdit_InsertText($input,"4",100)
case $num5
_GUICtrlEdit_InsertText($input,"5",100)
case $num6
_GUICtrlEdit_InsertText($input,"6",100)
case $num7
_GUICtrlEdit_InsertText($input,"7",100)
case $num8
_GUICtrlEdit_InsertText($input,"8",100)
case $num9
_GUICtrlEdit_InsertText($input,"9",100)
case $num0
_GUICtrlEdit_InsertText($input,"0",100)
case $add
_GUICtrlEdit_InsertText($input,"+",100)
case $sot
_GUICtrlEdit_InsertText($input,"-",100)
case $molt
_GUICtrlEdit_InsertText($input,"*",100)
case $div
_GUICtrlEdit_InsertText($input,"/",100)

case $virg
_GUICtrlEdit_InsertText($input,".",100)

Case $uguale
$espressione=GUICtrlRead($input)
$risultato=Execute($espressione)
GUICtrlSetData($input,$risultato)
Case $canc
GUICtrlSetData($input,"")

EndSwitch
WEnd