Questo è il mio primo programma: una Calcolatrice che esegue le quattro operazioni principali!!!
#include <guiconstants.au3>
#include <staticconstants.au3>
#include <guiedit.au3>
#include <windowsconstants.au3>
$Form = GUICreate("CALCOLATRICE", 193, 242)
$Input1 = GUICtrlCreateInput ( "",10, 10, 119, 20)
$File = GUICtrlCreateMenu("File")
$Exit = GUICtrlCreateMenuItem ("Esci",$file)
$Modifica = GUICtrlCreateMenu("Modifica")
$Copia = GUICtrlCreateMenuItem ("Copia",$Modifica)
$Incolla = GUICtrlCreateMenuItem ("Incolla",$Modifica)
$Num1 = GUICtrlCreateButton ("1",10, 50, 33, 33)
$Num2 = GUICtrlCreateButton ("2",53, 50, 33, 33)
$Num3 = GUICtrlCreateButton ("3",96, 50, 33, 33)
$Num4 = GUICtrlCreateButton ("4",10, 93, 33, 33)
$Num5 = GUICtrlCreateButton ("5",53, 93, 33, 33)
$Num6 = GUICtrlCreateButton ("6",96, 93, 33, 33)
$Num7 = GUICtrlCreateButton ("7",10, 136, 33, 33)
$Num8 = GUICtrlCreateButton ("8",53, 136, 33, 33)
$Num9 = GUICtrlCreateButton ("9",96, 136, 33, 33)
$Num0 = GUICtrlCreateButton ("0",10, 179, 33, 33)
$Punto = GUICtrlCreateButton (".",53, 179, 33, 33)
$Totale = GUICtrlCreateButton ("=",96, 179, 33, 33)
$Piu = GUICtrlCreateButton ("+",149, 50, 33, 33)
$Meno = GUICtrlCreateButton ("-",149, 93, 33, 33)
$Per = GUICtrlCreateButton ("x",149, 136, 33, 33)
$Diviso = GUICtrlCreateButton ("\",149, 179, 33, 33)
$CE = GUICtrlCreateButton ("CE",149, 10, 33, 33)
GUISetState(@SW_SHOW)
$msg = GUIGetMsg()
While 1
$nMsg = GUIGetMsg()
$ris = GUICtrlRead ($Input1)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Num1
GUICtrlSetData ($Input1, $ris&"1")
Case $Num2
GUICtrlSetData ($Input1, $ris&"2")
Case $Num3
GUICtrlSetData ($Input1, $ris&"3")
Case $Num4
GUICtrlSetData ($Input1, $ris&"4")
Case $Num5
GUICtrlSetData ($Input1, $ris&"5")
Case $Num6
GUICtrlSetData ($Input1, $ris&"6")
Case $Num7
GUICtrlSetData ($Input1, $ris&"7")
Case $Num8
GUICtrlSetData ($Input1, $ris&"8")
Case $Num9
GUICtrlSetData ($Input1, $ris&"9")
Case $Num0
GUICtrlSetData ($Input1, $ris&"0")
Case $Punto
GUICtrlSetData ($Input1, $ris&".")
Case $Totale
$Totale = Execute ($ris)
GUICtrlSetData ($Input1, $Totale)
Case $Piu
If $ris = "" Then
Else
GUICtrlSetData ($Input1, $ris&"+")
EndIF
Case $Meno
If $ris = "" Then
Else
GUICtrlSetData ($Input1, $ris&"-")
EndIF
Case $Per
If $ris = "" Then
Else
GUICtrlSetData ($Input1, $ris&"*")
EndIF
Case $Diviso
If $ris = "" Then
Else
GUICtrlSetData ($Input1, $ris&"/")
EndIF
Case $CE
GUICtrlSetData ($Input1, "")
EndSwitch
WEnd
Dopo il primo calcolo però la calcolatrice si blocca!!! qualcuno gentilmente riuscirebbe a trovarmi il problema??? grazie