disequazione e ricerca interattiva soluzione

data una disequazione si inseriscono coordinate da tastiera per individuare se i punti
appartengono al piano soluzione della disequazione
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem y > 2x-4
ListBox1.AddItem ("disequazione della quale si cerca semipiano soluzione")
ListBox1.AddItem ("y > 2x-4 ")
ListBox1.AddItem ("equazione associata : y = 2x - 4")
ListBox1.AddItem ("creazione grafico con derive")
ListBox1.AddItem ("ricerca semipiano della disequazione")
ListBox1.AddItem ("controllo se un punto particolare soddisfa la disequazione")
kx = Val(TextBox1.Text)
ky = Val(TextBox2.Text)
ListBox1.AddItem ("ky > 2*kx -4 : " & ky & " > " & 2 * kx - 4)
ListBox1.AddItem (kx & " " & ky)
If ky > 2 * kx - 4 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("------------------------------------------")
ListBox1.AddItem ("con ciclo for-next verifico per quali valori di x")
ListBox1.AddItem ("la disequazione viene soddisfatta ")
For k = -5 To 5
ListBox1.AddItem (k & " " & ky & " > " & 2 * (kx + k) - 4)
Next k
ListBox1.AddItem ("riprovo inserendo es. 5,0 risulta non soddisfatta")
ListBox1.AddItem ("riprovo inserendo es. 0,2 soddisfatta")


End Sub


Private Sub CommandButton16_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton17_Click()
TextBox1 = ""
TextBox2 = ""
End Sub

Private Sub CommandButton18_Click()
Rem y < 2x-4
ListBox1.AddItem ("disequazione della quale si cerca semipiano soluzione")
ListBox1.AddItem ("y < 2x-4 ")
ListBox1.AddItem ("equazione associata : y = 2x - 4")
ListBox1.AddItem ("creazione grafico con derive")
ListBox1.AddItem ("ricerca semipiano della disequazione")
ListBox1.AddItem ("controllo se un punto particolare soddisfa la disequazione")
kx = Val(TextBox1.Text)
ky = Val(TextBox2.Text)
ListBox1.AddItem ("ky < 2*kx -4 : " & ky & " < " & 2 * kx - 4)
ListBox1.AddItem (kx & " " & ky)
If ky < 2 * kx - 4 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("------------------------------------------")
End Sub

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

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

vedi semipiano2.ppt