#comments-start
Autore : Red Skull 92
Web : Www.RedSkull92.Wordpress.Com
Mail : RedSkull92@gmail.com
#comments-end
;includo la libreria
#include <GUIConstantsEx.au3>

;Crei una gui
Global $calcolatrice = GUICreate("Calcolatrice", 369, 285, -1, -1)
GUISetBkColor(0x000000)
Global $risultato = GUICtrlCreateInput("", 0, 40, 201, 21)
Global $Button1 = GUICtrlCreateButton("1", 8, 165, 57, 33, 0)
GUICtrlSetTip(-1, "il numero 1")
Global $Button2 = GUICtrlCreateButton("2", 72, 165, 57, 33, 0)
GUICtrlSetTip(-1, "il numero 2")
Global $Button3 = GUICtrlCreateButton("3", 136, 165, 57, 33, 0)
GUICtrlSetTip(-1, "numero3")
Global $Button4 = GUICtrlCreateButton("4", 8, 123, 57, 33, 0)
GUICtrlSetTip(-1, "numero 4")
Global $Button5 = GUICtrlCreateButton("5", 72, 123, 57, 33, 0)
GUICtrlSetTip(-1, "numero 5")
Global $Button6 = GUICtrlCreateButton("6", 136, 123, 57, 33, 0)
GUICtrlSetTip(-1, "numero 6")
Global $Button7 = GUICtrlCreateButton("7", 8, 80, 57, 33, 0)
GUICtrlSetTip(-1, "numero 7")
Global $Button8 = GUICtrlCreateButton("8", 72, 80, 57, 33, 0)
GUICtrlSetTip(-1, "numero 8")
Global $Button9 = GUICtrlCreateButton("9", 136, 80, 57, 33, 0)
GUICtrlSetTip(-1, "numero 9")
Global $Button0 = GUICtrlCreateButton("0", 72, 208, 57, 33, 0)
GUICtrlSetTip(-1, "n")
Global $Buttonpnt = GUICtrlCreateButton(".", 8, 208, 57, 33, 0)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "punto")
Global $canc = GUICtrlCreateButton("CE", 136, 208, 57, 33, 0)
GUICtrlSetTip(-1, "cancella")
Global $Graphic1 = GUICtrlCreateGraphic(208, 16, 1, 257)
GUICtrlSetColor(-1, 0xFF0000)
Global $piu = GUICtrlCreateButton("+", 304, 48, 57, 33, 0)
GUICtrlSetTip(-1, "più")
Global $meno = GUICtrlCreateButton("-", 304, 88, 57, 33, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "meno")
Global $per = GUICtrlCreateButton("x", 304, 128, 57, 33, 0)
GUICtrlSetTip(-1, "per")
Global $uguale = GUICtrlCreateButton("=", 256, 248, 57, 33, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "risolvi solo per +,-,/,*,^")
Global $abs = GUICtrlCreateButton("Abs", 216, 48, 57, 33, 0)
GUICtrlSetTip(-1, "calcola il valore assoluto di un numero")
Global $arcoseno = GUICtrlCreateButton("Cos", 216, 88, 57, 33, 0)
GUICtrlSetTip(-1, "Calcola il coseno di un numero")
Global $log = GUICtrlCreateButton("Log", 216, 168, 57, 33, 0)
GUICtrlSetTip(-1, "Calcola il logaritmo")
Global $seno = GUICtrlCreateButton("Sin", 216, 128, 57, 33, 0)
GUICtrlSetTip(-1, "Calcola il seno di un numero")
Global $tan = GUICtrlCreateButton("Tan", 216, 208, 57, 33, 0)
GUICtrlSetTip(-1, "Calcola la tangente di un numero")
Global $diviso = GUICtrlCreateButton("/", 304, 168, 57, 33, 0)
GUICtrlSetTip(-1, "Diviso")
Global $Label1 = GUICtrlCreateLabel("Calcolatrice By Red Skull 92", 48, 0, 265, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $potenza = GUICtrlCreateButton("^", 304, 208, 57, 33, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "calcola la potenza di un numero")
GUISetState(@SW_SHOW)
;Inizio Funzioni



While 1
	;Legge espressioni
	$leggi=GUICtrlRead($risultato)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
	$modifica_1=GUICtrlSetData($risultato,$leggi&"1")
case $Button2
	$modifica_2=GUICtrlSetData($risultato,$leggi&"2")
Case $Button3
     $modifica_3=GUICtrlSetData($risultato,$leggi&"3")
 Case $Button4
$modifica_4=GUICtrlSetData($risultato,$leggi&"4")
Case $Button5
	$modifica_5=GUICtrlSetData($risultato,$leggi&"5")
case $Button6
$modifica_6=GUICtrlSetData($risultato,$leggi&"6")
Case $Button7
	$modifica_7=GUICtrlSetData($risultato,$leggi&"7")
Case $Button8
$modifica_8=GUICtrlSetData($risultato,$leggi&"8")
Case $Button9
	$modifica_9=GUICtrlSetData($risultato,$leggi&"9")
Case $Button0
$modifica_0=GUICtrlSetData($risultato,$leggi&"0")
;addizione
Case $piu
	GUICtrlSetData($risultato,$leggi&"+")
	If $leggi = "" Then
		MsgBox(48,"ATTENZIONE","immetti il primo esponente prima dell'operatore logco")
	GUICtrlSetData($risultato,"")
EndIf	
;Sottrazione
Case $meno 
	GUICtrlSetData($risultato,$leggi&"-")
	If $leggi = "" Then
		MsgBox(48,"ATTENZIONE","immetti il primo esponente prima dell'operatore logco")
	GUICtrlSetData($risultato,"")
EndIf	
;Moltiplicazione
Case $per
	GUICtrlSetData($risultato,$leggi&"*")
	If $leggi = "" Then
		MsgBox(48,"ATTENZIONE","immetti il primo esponente prima dell'operatore logco")
	GUICtrlSetData($risultato,"")
EndIf	
;Risultato
Case $uguale
	$esegui=Execute($leggi)
	GUICtrlSetData($risultato,$esegui)
	If $leggi = "" Then
		MsgBox(48,"ATTENZIONE","immetti il primo efficiente,l'operatore logico ed il secondo coefficente")
	EndIf
	;Divisione
	Case $diviso 
GUICtrlSetData($risultato,$leggi&"/")
If $leggi = "" Then
		MsgBox(48,"ATTENZIONE","immetti il primo esponente prima dell'operatore logco")
	EndIf
	;Calcolo della potenza
Case $potenza
		GUICtrlSetData($risultato,$leggi&"^")
		If $leggi = "" Then
		MsgBox(48,"ATTENZIONE","immetti il primo efficiente,l'operatore logico ed il secondo coefficente")
	EndIf
	;immissione punto
Case $Buttonpnt
		GUICtrlSetData($risultato,$leggi&".")
		;Cancella
Case $canc 
		GUICtrlSetData($risultato,"")
		;Calcolo valore assoluto di un numero
	Case $abs 
$esegui_abs=Abs($leggi)
GUICtrlSetData($risultato,$esegui_abs)
;Calcolo arcoseno
Case $arcoseno
	$esegui_ACos=ACos($leggi)
	GUICtrlSetData($risultato,$esegui_ACos)
	;Calcolo logaritmo
Case $log
$esegui_log=Log($leggi)
GUICtrlSetData($risultato,$esegui_log)
;Calcolo seno
Case $seno 
	$esegui_sin=Sin($leggi)
	GUICtrlSetData($risultato,$esegui_sin)
	;calcolo tangente
Case $tan
$esegui_tan=Tan($leggi)
GUICtrlSetData($risultato,$tan)

EndSwitch
WEnd