sistema con due disequazioni

esercitazione con visual basic su powerpoint
soluzione grafica di un sistema di due disequazioni a due incognite
individuazione del semipiano contenente le soluzioni
diagrammi creati con derive e poi modificati con paint

Private Sub CommandButton1_Click()
Rem sistema due disequazioni
ListBox1.AddItem ("sistema di due disequazioni")
ListBox1.AddItem ("y >= 3x-6 ")
ListBox1.AddItem ("y >= 3x+4")
ListBox1.AddItem ("sistema di due equazioni associate")
ListBox1.AddItem ("y = 3x-6 ")
ListBox1.AddItem ("y = 3x+4 ")
ListBox1.AddItem ("i grafici risultano due rette parallele (stesso m)")
ListBox1.AddItem ("soluzione data dai punti della striscia illimitata tra le due rette")
ListBox1.AddItem ("controlla se punto x0,y0 soddisfa le due disequazioni")

x0 = 0
y0 = 0
ListBox1.AddItem (y0 & " > " & 3 * x0 - 6)
If y0 > 3 * x0 - 6 Then
ListBox1.AddItem ("esatto:la striscia azzurra contiene le soluzioni")
End If
ListBox1.AddItem (y0 & " < " & 3 * x0 + 4)
If y0 < 3 * x0 + 4 Then
ListBox1.AddItem ("esatto:la striscia azzurra contiene le soluzioni")
End If

End Sub

Private Sub CommandButton10_Click()
Image3.Visible = False
End Sub

Private Sub CommandButton2_Click()
Image1.Visible = True
End Sub

Private Sub CommandButton3_Click()
Image1.Visible = False
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton5_Click()
Rem sistema due disequazioni
ListBox1.AddItem ("sistema di due disequazioni")
ListBox1.AddItem ("x+2y >6 ")
ListBox1.AddItem ("x+2y<=1")
ListBox1.AddItem ("sistema di due equazioni associate")
ListBox1.AddItem ("x+2y=6 ")
ListBox1.AddItem ("x+2y=1 ")
ListBox1.AddItem ("i grafici risultano due rette parallele (stesso m)")
ListBox1.AddItem ("due semipiani senza punti in comune:nessuna soluzione")

End Sub

Private Sub CommandButton6_Click()
Image2.Visible = True
End Sub

Private Sub CommandButton7_Click()
Image2.Visible = False
End Sub

Private Sub CommandButton8_Click()
Rem ricerca campo disequazione
ListBox1.AddItem ("y > 2x-4 ")
ListBox1.AddItem ("y=2x-4")
ListBox1.AddItem ("controlla semipiano che verifica disequazione")
ListBox1.AddItem ("verifica se punto (x0,y0 ..0,0) soddisfa disequazione")

x0 = 0
y0 = 0
ListBox1.AddItem (y0 & " > " & 2 * x0 - 4)
If y0 > 2 * x0 - 4 Then
ListBox1.AddItem ("esatto:il semipiano verde contiene le soluzioni")
End If

End Sub

Private Sub CommandButton9_Click()
Image3.Visible = True
End Sub

vedi sistema1.ppt