#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>
#Include <guibutton.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Calcolatrice", 375, 312, 467, 168)
$file = GUICtrlCreateMenu("File")
$esci = GUICtrlCreateMenuItem("Esci", $file)
$crediti = GUICtrlCreateMenu("credits")
$about = GUICtrlCreateMenuItem("About", $crediti)
$sviluppatori = GUICtrlCreateMenuItem("Sviluppatori", $crediti)
$num7 = GUICtrlCreateButton("7", 24, 64, 49, 49, $WS_GROUP)
$num8 = GUICtrlCreateButton("8", 80, 64, 49, 49, $WS_GROUP)
$num9 = GUICtrlCreateButton("9", 136, 64, 49, 49, $WS_GROUP)
$num4 = GUICtrlCreateButton("4", 24, 120, 49, 49, $WS_GROUP)
$num5 = GUICtrlCreateButton("5", 80, 120, 49, 49, $WS_GROUP)
$num6 = GUICtrlCreateButton("6", 136, 120, 49, 49, $WS_GROUP)
$num1 = GUICtrlCreateButton("1", 24, 176, 49, 49, $WS_GROUP)
$num2 = GUICtrlCreateButton("2", 80, 176, 49, 49, $WS_GROUP)
$num3 = GUICtrlCreateButton("3", 136, 176, 49, 49, $WS_GROUP)
$meno = GUICtrlCreateButton("-", 192, 64, 49, 73, $WS_GROUP)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$piu = GUICtrlCreateButton("+", 192, 144, 49, 81, $WS_GROUP)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$diviso = GUICtrlCreateButton("÷", 248, 64, 49, 49, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$per = GUICtrlCreateButton("×", 248, 120, 49, 49, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$radice = GUICtrlCreateButton("Radice", 248, 176, 49, 49, $WS_GROUP)
$num0 = GUICtrlCreateButton("0", 24, 232, 49, 49, $WS_GROUP)
$punto = GUICtrlCreateButton(".", 80, 232, 49, 49, $WS_GROUP)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$uguale = GUICtrlCreateButton("=", 304, 232, 49, 49, $WS_GROUP)
$resetta = GUICtrlCreateButton("C", 304, 176, 49, 49, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 24, 8, 273, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$Input2 = GUICtrlCreateInput("", 24, 32, 273, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$equazione = GUICtrlCreateLabel("Equazione", 312, 8, 54, 17)
$risultato = GUICtrlCreateLabel("Risultato", 312, 32, 45, 17)
$chiusa = GUICtrlCreateButton(")", 304, 120, 49, 49, $WS_GROUP)
$aperta = GUICtrlCreateButton("(", 304, 64, 49, 49, $WS_GROUP)
$elevaz2 = GUICtrlCreateButton("x^2", 192, 232, 49, 49, $WS_GROUP)
$elevazione = GUICtrlCreateButton("^", 136, 232, 49, 49, $WS_GROUP)
$elevaz3 = GUICtrlCreateButton("x^3", 248, 232, 49, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $num7
_GUICtrlEdit_InsertText($input1, "7", 100)
Case $num8
_GUICtrlEdit_InsertText($input1, "8", 100)
Case $num9
_GUICtrlEdit_InsertText($input1, "9", 100)
Case $num4
_GUICtrlEdit_InsertText($input1, "4", 100)
Case $num5
_GUICtrlEdit_InsertText($input1, "5", 100)
Case $num6
_GUICtrlEdit_InsertText($input1, "6", 100)
Case $num1
_GUICtrlEdit_InsertText($input1, "1", 100)
Case $num2
_GUICtrlEdit_InsertText($input1, "2", 100)
Case $num3
_GUICtrlEdit_InsertText($input1, "3", 100)
Case $meno
_GUICtrlEdit_InsertText($input1, "-", 100)
Case $piu
_GUICtrlEdit_InsertText($input1, "+", 100)
Case $diviso
_GUICtrlEdit_InsertText($input1, "/", 100)
Case $per
_GUICtrlEdit_InsertText($input1, "*", 100)
Case $radice
$radqtext = GUICtrlRead($input1)
$radq = sqrt($radqtext)
_GUICtrlEdit_InsertText($input2, $radq, 100)
_GUICtrlButton_Enable($num0, False)
_GUICtrlButton_Enable($num1, False)
_GUICtrlButton_Enable($num2, False)
_GUICtrlButton_Enable($num3, False)
_GUICtrlButton_Enable($num4, False)
_GUICtrlButton_Enable($num5, False)
_GUICtrlButton_Enable($num6, False)
_GUICtrlButton_Enable($num7, False)
_GUICtrlButton_Enable($num8, False)
_GUICtrlButton_Enable($num9, False)
_GUICtrlButton_Enable($piu, False)
_GUICtrlButton_Enable($meno, False)
_GUICtrlButton_Enable($per, False)
_GUICtrlButton_Enable($diviso, False)
_GUICtrlButton_Enable($uguale, False)
_GUICtrlButton_Enable($punto, False)
_GUICtrlButton_Enable($radice, False)
_GUICtrlButton_Enable($elevazione, False)
_GUICtrlButton_Enable($elevaz2, False)
_GUICtrlButton_Enable($elevaz3, False)
_GUICtrlButton_Enable($aperta, False)
_GUICtrlButton_Enable($chiusa, False)
Case $num0
_GUICtrlEdit_InsertText($input1, "0", 100)
Case $punto
_GUICtrlEdit_InsertText($input1, ".", 100)
Case $uguale
$espressione = GUICtrlread($input1)
$risultato = execute($espressione)
_GUICtrlEdit_InsertText($input2, $risultato, 100)
_GUICtrlButton_Enable($num0, False)
_GUICtrlButton_Enable($num1, False)
_GUICtrlButton_Enable($num2, False)
_GUICtrlButton_Enable($num3, False)
_GUICtrlButton_Enable($num4, False)
_GUICtrlButton_Enable($num5, False)
_GUICtrlButton_Enable($num6, False)
_GUICtrlButton_Enable($num7, False)
_GUICtrlButton_Enable($num8, False)
_GUICtrlButton_Enable($num9, False)
_GUICtrlButton_Enable($piu, False)
_GUICtrlButton_Enable($meno, False)
_GUICtrlButton_Enable($per, False)
_GUICtrlButton_Enable($diviso, False)
_GUICtrlButton_Enable($uguale, False)
_GUICtrlButton_Enable($punto, False)
_GUICtrlButton_Enable($radice, False)
_GUICtrlButton_Enable($elevazione, False)
_GUICtrlButton_Enable($elevaz2, False)
_GUICtrlButton_Enable($elevaz3, False)
_GUICtrlButton_Enable($aperta, False)
_GUICtrlButton_Enable($chiusa, False)
Case $resetta
GUICtrlSetData($Input1, "")
GUICtrlSetData($input2, "")
_GUICtrlButton_Enable($num0, True)
_GUICtrlButton_Enable($num1, True)
_GUICtrlButton_Enable($num2, True)
_GUICtrlButton_Enable($num3, True)
_GUICtrlButton_Enable($num4, True)
_GUICtrlButton_Enable($num5, True)
_GUICtrlButton_Enable($num6, True)
_GUICtrlButton_Enable($num7, True)
_GUICtrlButton_Enable($num8, True)
_GUICtrlButton_Enable($num9, True)
_GUICtrlButton_Enable($piu, True)
_GUICtrlButton_Enable($meno, True)
_GUICtrlButton_Enable($per, True)
_GUICtrlButton_Enable($diviso, True)
_GUICtrlButton_Enable($uguale, True)
_GUICtrlButton_Enable($punto, True)
_GUICtrlButton_Enable($radice, True)
_GUICtrlButton_Enable($elevazione, True)
_GUICtrlButton_Enable($elevaz2, True)
_GUICtrlButton_Enable($elevaz3, True)
_GUICtrlButton_Enable($aperta, True)
_GUICtrlButton_Enable($chiusa, True)
Case $chiusa
_GUICtrlEdit_InsertText($input1, ")", 100)
Case $aperta
_GUICtrlEdit_InsertText($input1, "(", 100)
Case $elevaz2
_GUICtrlEdit_InsertText($input1, "^2", 100)
Case $elevazione
_GUICtrlEdit_InsertText($input1, "^", 100)
Case $elevaz3
_GUICtrlEdit_InsertText($input1, "^3", 100)
Case $esci
Exit
Case $about
MsgBox(0, "About", "sviluppatore : alfio1994" & @crlf & "e-mail :
[email protected]" & @crlf & "Data : 19/05/2010")
Case $sviluppatori
MsgBox(0, "Sviluppatori", "se sono presenti bug o altro contattatemi")
EndSwitch
WEnd