soluzione algebrica sistemi lineari due equazioni

inserimento coefficienti da tastiera
ricerca soluzione con ciclo for-next
ricerca soluzione con metodo determinanti
soluzione equazione tipo a1x+b1y+c1 = 0 ...a2x +b2y + c2 =0
soluzione equazione tipo a1x+b1y = c1...a2x +b2y = c2
soluzione equazione tipo y1=m1x +q1 ...y2=m2x +q2
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem ricerca soluzione con ciclo for-next
ListBox2.AddItem ("se determinato:unica soluzione , indicata")
ListBox2.AddItem ("se indeterminato:infinite soluzioni, indicate ")
ListBox2.AddItem ("se impossibile:nessuna soluzione tra quelle visualizzate")
ListBox2.AddItem ("--------------------------------------------------------")
a1 = TextBox1
b1 = TextBox2
c1 = TextBox3
a2 = TextBox4
b2 = TextBox5
c2 = TextBox6
For x = -5 To 5
y1 = -(a1 * x + c1) / b1
y2 = -(a2 * x + c2) / b2
ListBox2.AddItem (x & " " & y1 & " " & y2)
If y1 = y2 Then
ListBox2.AddItem ("soluzione : " & x & " , " & y1 & " , " & y2)
End If
Next x
ListBox1.AddItem ("---------------------------------")
End Sub

Private Sub CommandButton2_Click()
Rem ricerca soluzione con ciclo for-next
m1 = TextBox1
q1 = TextBox2
m2 = TextBox3
q2 = TextBox4
For x = -5 To 5
y1 = m1 * x + q1
y2 = m2 * x + q2
ListBox2.AddItem (x & " , " & y1 & " , " & y2)
If y1 = y2 Then
ListBox2.AddItem ("soluzione : " & x & " , " & y1 & " , " & y2)
End If
Next x
End Sub

Private Sub CommandButton3_Click()
Rem soluzione con cramer
a1 = TextBox1
b1 = TextBox2
c1 = TextBox3
a2 = TextBox4
b2 = TextBox5
c2 = TextBox6
ds = a1 * b2 - a2 * b1
dx = c1 * b2 - c2 * b1
dy = a1 * c2 - a2 * c1
ListBox2.AddItem ("determinanti : " & ds & " , " & dx & " , " & dy)
If ds <> 0 Then
x1 = dx / ds
x2 = dy / ds
ListBox2.AddItem ("soluzione = " & x1 & " , " & x2)
End If
ListBox2.AddItem ("------------------------------")
If ds = 0 And dx = 0 And dy = 0 Then
ListBox2.AddItem ("sistema indeterminato " & ds & " , " & dx & " , " & dy)
End If
ListBox2.AddItem ("------------------------------")
If ds = 0 And dx <> 0 And dy <> 0 Or dx = 0 And dy <> 0 Or dx <> 0 And dy = 0 Then
ListBox2.AddItem ("sistema impossibile :" & ds & " , " & dx & " , " & " , " & dy)
End If
ListBox2.AddItem ("------------------------------")
End Sub

Private Sub CommandButton7_Click()
ListBox2.Clear
End Sub

Private Sub CommandButton8_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

Private Sub CommandButton9_Click()
Rem mostra esempi per provare
ListBox1.AddItem ("------per provare equazione canonica--------")
ListBox1.AddItem ("3x-2y-6 = 0.....x + y - 2 = 0 per determinato ")
ListBox1.AddItem ("inserire in ordine : 3 -2 -6 1 1 -2 ")
ListBox1.AddItem ("---------------------------")
ListBox1.AddItem ("2x-3y-4 = 0.....4x -6y - 8 = 0 per indeterminato ")
ListBox1.AddItem ("inserire in ordine : 2 -3 -4 4 -6 -8 ")
ListBox1.AddItem ("---------------------------")
ListBox1.AddItem ("2x-3y-4 = 0.....4x -6y - 5 = 0 per impossibile ")
ListBox1.AddItem ("inserire in ordine : 2 -3 -4 4 -6 -5 ")
ListBox1.AddItem ("---------equazione esplicita-----------------")
ListBox1.AddItem ("y1=2x-3 y2=-0,5x + 2 per determinato ")
ListBox1.AddItem ("inserire in ordine : 2 -3 -0,5 2 ")
ListBox1.AddItem ("---------------------------")
ListBox1.AddItem ("y1=2x-3 y2=2x -3 per indeterminato ")
ListBox1.AddItem ("inserire in ordine : 2 -3 2 -3 ")
ListBox1.AddItem ("---------------------------")
ListBox1.AddItem ("y1=2x-3 y2=2x-5 per impossibile ")
ListBox1.AddItem ("inserire in ordine : 2 -3 2 -5 ")
ListBox1.AddItem ("********************************************")
ListBox1.AddItem ("---------con cramer -----------------------")
ListBox1.AddItem ("2x+y=1 x-2y=8 per determinato ")
ListBox1.AddItem ("inserire in ordine : 2 1 1 1 -2 8 ")
ListBox1.AddItem ("---------------------------")
ListBox1.AddItem ("2x+3y=4 4x+6y=8 per indeterminato ")
ListBox1.AddItem ("inserire in ordine : 2 3 4 4 6 8 ")
ListBox1.AddItem ("---------------------------")
ListBox1.AddItem ("2x+3y=4 4x+6y=5 = 0 per impossibile ")
ListBox1.AddItem ("inserire in ordine : 2 3 4 4 6 5 ")
ListBox1.AddItem ("--------------------------------")
End Sub

vedi testlineare.ppt