Come Programmare Equazioni Quadratiche in Visual Basic

Un'equazione quadratica è un polinomio di secondo grado nella forma "ax² + bx + c = 0". "a", "b" e "c" sono le costanti, "x" la variabile. Risolvendola, servono i valori delle costanti e si risolvono per x, che restituisce sempre due valori, chiamati "radici". In Visual Basic, puoi scrivere un programma o funzione che chiede all'utente i valori a, b, c, trova le radici e le visualizza sul form.

Passo 1

Apri un nuovo programma Visual Basic. Doppio clic su "Button" per aggiungere Button1 al form. Doppio clic su "Label" due volte per aggiungere Label1 e Label2.

Passo 2

Doppio clic su "Button1" per aprire la finestra codice. Digita:

Dim a As Decimal = InputBox("Inserisci A: ")
Dim b As Decimal = InputBox("Inserisci B: ")
Dim c As Decimal = InputBox("Inserisci C: ")
Quadratic(a, b, c)

Le prime tre righe chiedono i valori delle costanti. Poi chiama una Sub "Quadratic" passando le costanti come argomenti.

Passo 3

Posiziona il cursore fuori dalla Sub Button1. Digita:

Private Sub Quadratic(ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal)
Dim roots(1) As String
Dim x1, x2, disc As Decimal
disc = b ^ 2 - 4 * a * c

La prima riga crea la Sub Quadratic accettando tre argomenti. Definisce un array con due elementi per le due radici. Crea tre variabili decimali e assegna il valore del discriminante, che determina il numero di radici.

Passo 4

Digita:

If disc >= 0 Then
    x1 = (-b + Math.Sqrt(disc)) / (2 * a)
    x2 = (-b - Math.Sqrt(disc)) / (2 * a)
    roots(0) = x1.ToString
    roots(1) = x2.ToString
Else
    roots(0) = "(-" & b.ToString & "+Sqrt(" & disc.ToString & "))/(2_" & a.ToString & ")"
    roots(1) = "(-" & b.ToString & "-Sqrt(" & disc.ToString & "))/(2_" & a.ToString & ")"
End If

L'"If" controlla se il discriminante è >= 0 (equazione ha 1 o 2 radici reali). Risolve per x. Se < 0, nessuna radice reale e l'"Else" esegue, mostrando le equazioni radici complesse.

Passo 5

Digita:

Label1.Text = roots(0)
Label2.Text = roots(1)
End Sub

Queste righe visualizzano le radici sulle label e chiudono il blocco codice della Sub Quadratic.

Passo 6

Salva il programma Visual Basic. Premi "F5" per eseguirlo.