Rem scrivere la equazione 2° grado conoscendo due radici x1,x2
Rem solo radici intere
h = "+"
Rem x1 + x2 = -b / a
Rem x1*x2=c/a
xs12 = x1 + x2
xp12 = x1 * x2
b = -xs12
c = xp12
If c > 0 Then
q = h
End If
If b > 0 Then
p = h
End If
equa = ("x^2 " & " " & p & b & "x " & " " & q & c & " = 0")
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("x1+x2 = " & x1 + x2)
ListBox1.AddItem ("x1*x2 = " & x1 * x2)
ListBox1.AddItem ("b = " & b)
ListBox1.AddItem ("c = " & c)
ListBox1.AddItem (equa)
ListBox1.AddItem ("--------------")
End Sub
Private Sub CommandButton1_Click()
Rem solo radici intere
Call calcola(1, 2)
Call calcola(1, 7)
Call calcola(-3, -2)
Call calcola(2, 10)
Call calcola(-3, -1)
Call calcola(-7, 9)
Call calcola(3, 4)
End Sub
Private Sub CommandButton2_Click()
Rem inserire radici intere
x1 = Val(TextBox1.Text)
x2 = Val(TextBox2.Text)
Call calcola(x1, x2)
End Sub
Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub
Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub
Private Sub CommandButton5_Click()
Rem radici prefissate sotto forma di frazione 1/2...2/3..
Call frazione(1, 2, 2, 3)
Call frazione(2, 3, 4, 1)
Call frazione(-1, 4, -1, 2)
Call frazione(-1, 2, 2, 3)
End Sub
Private Sub frazione(nx1, dx1, nx2, dx2)
h = "+"
a = dx1 * dx2
b1 = nx1 * dx2 'parte di b
b2 = nx2 * dx1 'parte di b
b = (b1 + b2) * (-1)
c = nx1 * nx2
If c > 0 Then
q = h
End If
If b > 0 Then
p = h
End If
equa = (a & "x^2 " & " " & p & b & "x " & q & c & " = 0")
ListBox1.AddItem (equa)
ListBox1.AddItem ("x1 = " & nx1 & " / " & dx1)
ListBox1.AddItem ("x2 = " & nx2 & " / " & dx2)
ListBox1.AddItem ("a = " & dx1 & " * " & dx2)
ListBox1.AddItem (a)
ListBox1.AddItem (b)
ListBox1.AddItem (c)
ListBox1.AddItem ("----------------")
End Sub
Private Sub CommandButton6_Click()
Rem inserimento radici frazionarie
nx1 = TextBox1.Text
nx2 = TextBox2.Text
dx1 = TextBox3.Text
dx2 = TextBox4.Text
Call frazione(nx1, dx1, nx2, dx2)
End Sub
