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