sistema disequazioni

esercitazione con visual basic su powerpoint
soluzione sistema con tre disequazioni
verifica appartenenenza punto a triangolo contenente soluzioni comuni

Private Sub CommandButton1_Click()
Rem soluzione sistema con tre disequazioni
ListBox1.AddItem ("y > 2-x")
ListBox1.AddItem ("y < 4 - 2-x")
ListBox1.AddItem ("x > 0")
ListBox1.AddItem ("equazioni associate")
ListBox1.AddItem ("y = 2-x")
ListBox1.AddItem ("y = 4- 2-x")
ListBox1.AddItem ("x=0")
ListBox1.AddItem ("soluzioni interne a triangolo verde")
ListBox1.AddItem ("parziale verifica per x0.5,y2 prima disequazione")
x0 = 0.5
y0 = 2
If y0 > 2 - x0 Then
ListBox1.AddItem ("esatto:appartiene a triangolo")
End If
ListBox1.AddItem ("parziale verifica per x0.5,y2 seconda disequazione")
x0 = 0.5
y0 = 2
If y0 < 4 - 2 * x0 Then
ListBox1.AddItem ("esatto:appartiene a triangolo")
End If
ListBox1.AddItem ("parziale verifica per x0.5,y2 terza disequazione")
x0 = 0.5
y0 = 2
If x0 = 0 Then
ListBox1.AddItem ("esatto:appartiene a triangolo")
End If

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

vedi sistema2.ppt