xequazione2

soluzione equazione di secondo grado:creazione oggetti,modifica nomi,
copia-incolla codice

equazione2

esercitazione didattica per ottenere un
programma in visual basic che utilizza
codice fornito da altri e indicazione grafica
per la creazione degli oggetti necessari;

si vede dalla immagine che sono utilizzati :
2 pulsanti
3 caselle di testo
11 etichette(6,7,8,9 per caption)
dal codice si riconosce che solo alcuni oggetti
vengono (con proprietà) rinominati:
caselle di testo :  ax1, bx1, cx1
etichette :label6,label7,label8,label9 >>>
discriminante, soluziox, soluzioy, verifica
negli altri oggetti viene solo inserito testo informativo
(in pulsanti,label varie:NON interferisce con codice,NON compare
nel codice,facoltativo)
completata la creazione degli oggetti (formattazione,colore
sono facoltativi),aprire Visualizza-Codice e copiare il
listato del codice fornito; attivare con Esegui-Esegui User Form
inserire i numeri richiesti,cliccare su pulsante per avere
la soluzione, cliccare su altro pulsante per passare ad
altra equazione.
Il programma richiede tre numeri, calcola il discriminante,
verifica se esistono soluzioni reali o immaginarie,
visualizza risultato;con pulsante secondo si cancellano
le caselle e risposte e si prepara per altra equazione,
riportando il cursore a inizio con ax1.SetFocus

codice da copiare e incollare

rem soluzione equazione secondo grado con discussione
Private Sub CommandButton1_Click()
Dim a, b, c, d As Double
Dim x1, x2 As Double
a = ax1.Text
b = bx1.Text
c = cx1.Text
d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
End If

If d = 0 Then
discriminante.Caption = d
verifica.Caption = "due soluzioni reali coicidenti"
soluziox.Caption = "x1=" & x1
soluzioy.Caption = "x2=" & x2
End If
If d > 0 Then
discriminante.Caption = d
verifica.Caption = "due soluzioni reali distinte"
soluziox.Caption = "x1=" & x1
soluzioy.Caption = "x2=" & x2
End If
If d < 0 Then
discriminante.Caption = d
verifica.Caption = "soluzione nel campo complesso"
d = -(b ^ 2 - 4 * a * c)
x1 = (-b + Sqr(d)) / 2 * a
x2 = (-b - Sqr(d)) / 2 * a
soluziox.Caption = "x1=" & x1 & "i"
soluzioy.Caption = "x2=" & x2 & "i"
End If
End Sub

Private Sub CommandButton2_Click()
ax1 = ""

bx1 = ""

cx1 = ""

soluziox.Caption = ""
soluzioy.Caption = ""
verifica.Caption = ""
discriminante.Caption = ""
ax1.SetFocus
End Sub