[Autoit] Equations Maker

#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=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)
      If $a=0 Then
     GUICreate("Errore",200,150)
      GUISetBkColor(0xFFFFFF)
GUISetState(@sw_show)
              $label=GUICtrlCreateLabel("Errore:",20,10)
      GUICtrlSetState(-1,$GUI_FOCUS)
GUICtrlSetColor(-1, 0xFF0000)
      $label=GUICtrlCreateLabel(" inserire il valore di a > 0",50,10)
      GUICtrlSetState(-1,$GUI_FOCUS)
GUICtrlSetColor(-1, 0x000000)
               $indietro=GUICtrlCreateButton("Chiudi",80,50)
                     GUICtrlSetColor(-1, 0x0033FF)
                     While 1
                             $nMsg=GUIGetMsg()
                             if $nMsg=-3 or $nMsg=$indietro then ExitLoop
                     Wend
                     GUIDelete()
                     GUISwitch($gui)
GUICtrlSetColor(-1, 0xFF0000)
Exit
EndIf
     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