CODICE
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 633, 430, 193, 125)
$Group1 = GUICtrlCreateGroup("+360(4 quadrante)", 16, 8, 185, 129)
$Input1 = GUICtrlCreateInput("Xb", 32, 32, 73, 21)
$Input2 = GUICtrlCreateInput("Xa", 120, 32, 65, 21)
$Input3 = GUICtrlCreateInput("Yb", 32, 80, 73, 21)
$Input4 = GUICtrlCreateInput("Ya", 120, 80, 65, 21)
$Button = GUICtrlCreateButton("Calcola1",70, 110, 65, 21)
$Group2 = GUICtrlCreateGroup("+180(2 e 3 quadrante)", 224, 8, 177, 129)
$Input5 = GUICtrlCreateInput("Xb", 240, 32, 65, 21)
$Input6 = GUICtrlCreateInput("Xa", 320, 32, 65, 21)
$Input7 = GUICtrlCreateInput("Yb", 240, 80, 65, 21)
$Input8 = GUICtrlCreateInput("Ya", 320, 80, 65, 21)
$Button1 =GUICtrlCreateButton("Calcola2", 270,110,65,21)
$Group3 = GUICtrlCreateGroup("1 quadrante ", 424, 8, 185, 129)
$Input9 = GUICtrlCreateInput("Xb", 440, 32, 57, 21)
$Input10 = GUICtrlCreateInput("Xa", 440, 80, 57, 21)
$Input12 = GUICtrlCreateInput("Yb", 512, 80, 73, 21)
$Input11 = GUICtrlCreateInput("Ya", 512, 32, 73, 21)
$Button2 = GUICtrlCreateButton("Calcola3", 480,110,73,21)
$Group4 = GUICtrlCreateGroup("Spiegazione", 8, 144, 625, 177)
$Label1 = GUICtrlCreateLabel("1:Allora questo programma serve per calcolare le tangenti", 16, 168, 274, 17)
$Label2 = GUICtrlCreateLabel("2:In base al segno del numero devi vedere che quadrante è (corrisponde) poi inserisi i numeri in uno dei tre riquadri", 16, 192, 541, 17)
$Label3 = GUICtrlCreateLabel("3:Segni: +/+(1 quadrante),+/-(2 quadrante),-/-(3 quadrante),-/+(4 quadrante) ", 16, 216, 366, 17)
$Label4 = GUICtrlCreateLabel("4:Naturalmente per capire bene il funzionamento dovete saperlo fare ", 16, 240, 329, 17)
$Label5 = GUICtrlCreateLabel("5:La forumula è :Xb-Xa/Yb-Ya", 16, 264, 146, 17)
$Label6 = GUICtrlCreateLabel("Creato by:Kuja", 560, 296, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
Case $Button
$rcalcola1 = GUICtrlRead($Input1) - GUICtrlRead($Input2) / GUICtrlRead($Input3) - GUICtrlRead($Input4) + 360
Msgbox(64,"Risultato","Il risultato è " & $rcalcola1)
Case $Button1
$rcalcola2 = GUICtrlRead($Input5) - GUICtrlRead($Input6) / GUICtrlRead($Input7) - GUICtrlRead($Input8) + 180
MsgBox(64,"Risultato","Il risultato è " & $rcalcola2)
Case $Button2
$rcalcola3 = GUICtrlRead($Input9) - GUICtrlRead($Input10) / GUICtrlRead($Input11) - GUICtrlRead($Input12)
MsgBox(64,"Risultato","Il risultato è " & $rcalcola3)
EndSwitch
WEnd
