CODICE
#include <GUIConstants.au3>
MsgBox(0, "Risoluzione equazioni di primo e secondo grado", "permettere di risolvere equazioni di primo e secondo grado in forma canonica")
$gui = GUICreate('VoV eq.',180,150)
GUISetBkColor(0x000000)
GUICtrlCreateLabel('Clicca sui buttoni' & @CRLF & 'per scegliere il tipo di equazione',2,2)
GUICtrlSetColor(-1, 0xFF0000)
$2 = GUICtrlCreateButton('primo grado',50,40,80,20)
GUICtrlSetColor(-1, 0x0033FF)
$avvio = GUICtrlCreateButton('secondo grado',50,70,80,20)
GUICtrlSetColor(-1, 0x0033FF)
$opzioni = GUICtrlCreateButton('Info',50,100,80,20)
GUICtrlSetColor(-1, 0x0033FF)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg ()
Case $opzioni
MsgBox(0,"Info","Autore:VoV"& @CRLF & " " & @CRLF & "tool abbastanza intuitivo da usare"& @CRLF & "permette di risolvere equazioni di secondo grado"& @CRLF &""& @CRLF &"ottimo per i più pigri")
Case $avvio
$a=InputBox("Inserisci il valore di a", "Inserisci il valore di a")
$b=InputBox ("Inserisci il valore di b", "Inserisci il valore di b")
$c=InputBox("Inserisci il valore di c", "Inserisci il valore di c")
$delta=$b*$b-4*$a*$c
if $delta>=0 Then
$x1=(-$b-Sqrt($delta))/(2*$a)
$x2=(-$b+Sqrt($delta))/(2*$a)
MsgBox (0, "Soluzioni", "Le soluzioni sono:"&@CRLF&"x1="&$x1& " x2="&$x2&@CRLF&@CRLF&"")
Else
MsgBox(0, "Impossibile", "Non esistono soluzioni reali"&@CRLF&@CRLF&"")
EndIf
Case $2
$d = InputBox("Primo coefficiente dell'incognita","Inserisci il primo coefficiente della x")
$e = InputBox("Primo termine noto","Inserisci il primo termine noto")
$f = InputBox("Secondo coefficiente dell'incognita","Inserisci il secondo coefficiente della x")
$g = InputBox("Secondo termine noto","Inserisci il secondo termine noto")
$h = InputBox("Terzo coefficiente","Inserisci il terzo coefficiente della x")
$i = InputBox("Terzo termine noto","Inserisci il terzo termine noto")
If ($d + $f + $h) <> 0 Then
$x = ($g + $e + $i) / ($d + $f + $h)
MsgBox(0,"Risultato","X è uguale a: " & $x)
EndIf
If ($g + $e + $i) = 0 Then
MsgBox(0,"Risultato","L'equazione è indeterminata")
EndIf
If ($d + $f + $h) = 0 Then
MsgBox(0,"Risultato","L'equazione è impossibile!")
EndIf
case $GUI_EVENT_CLOSE
exit
EndSwitch
Wend