disequazioni e campi di validità

descrizione disequazioni lineari e individuazione campi di validità
creazione grafici con derive
verifica se punto appartiene a semipiano e rettaa frontiera
sopra, sotto, con o senza frontiera, campo comune a due disequazioni, sistema impossibile
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem y > 2x-4
ListBox1.AddItem ("disequazione : 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 = 0
ky = 0
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 ("------------------------------------------")
hx = 10
hy = 0
ListBox1.AddItem ("hy > 2*hx -4 : " & hy & " > " & 2 * hx - 4)
ListBox1.AddItem (hx & " " & hy)
If hy > 2 * hx - 4 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("------------------------------------------")
qx = 0
qy = -4
ListBox1.AddItem ("qy > 2*qx -4 : " & qy & " > " & 2 * qx - 4)
ListBox1.AddItem (qx & " " & qy)
If qy > 2 * qx - 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 ("soluzione:tutti i punti sopra linea frontiera, esclusa")
End Sub

Private Sub CommandButton10_Click()
Rem y <=3x+4
Rem y >= 3x-6
ListBox1.AddItem ("disequazione : y <= 3x + 4")
ListBox1.AddItem ("equazione associata : y<= 3x +4")
ListBox1.AddItem ("disequazione : y >= 3x -6")
ListBox1.AddItem ("equazione associata : y>= 3x -6")
ListBox1.AddItem ("creazione grafici con derive")
ListBox1.AddItem ("ricerca semipiano delle disequazione y >= 3x-6")
ListBox1.AddItem ("controllo se un punto particolare soddisfa la disequazione")
kx = -2
ky = 2
ListBox1.AddItem ("ky > 3*kx -6 : " & ky & " > " & 3 * kx - 6)
ListBox1.AddItem (kx & " " & ky)
If ky >= 3 * kx - 6 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 ("ricerca semipiano delle disequazione y <= 3x+4")
ListBox1.AddItem ("controllo se un punto particolare soddisfa la disequazione")
hx = 4
hy = 2
ListBox1.AddItem ("hy <= 3*hx +4 : " & hy & " > " & 3 * hx + 4)
ListBox1.AddItem (hx & " " & hy)
If hy <= 3 * hx + 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 ("controllo se un punto particolare soddisfa le disequazion1")
qx = 0
qy = 0
ListBox1.AddItem ("qy <= 3*qx +4 : " & qy & " <= " & 3 * qx + 4)
ListBox1.AddItem (qx & " " & qy)
If qy <= 3 * qx + 4 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("qy >= 3*qx -6 : " & qy & " >= " & 3 * qx - 6)
ListBox1.AddItem (qx & " " & qy)
If qy >= 3 * qx - 6 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
End If
px = 2
py = 0
ListBox1.AddItem ("py <= 3*px +4 : " & py & " <= " & 3 * px + 4)
ListBox1.AddItem (px & " " & py)
If py <= 3 * px + 4 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("------------------------------------------")
ListBox1.AddItem ("soluzione:tutti i punti compresi nella striscia,frontiere comprese")
End Sub



Private Sub CommandButton11_Click()
Image4.Visible = True
End Sub

Private Sub CommandButton12_Click()
Image4.Visible = False
End Sub

Private Sub CommandButton13_Click()

End Sub

Private Sub CommandButton16_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton17_Click()
Rem impossibile
Rem x+2 >6
Rem x+2y <=1
ListBox1.AddItem ("disequazione : x+2y >6")
ListBox1.AddItem ("equazione associata : x+2y = 6")
ListBox1.AddItem ("disequazione : x+2y <=1")
ListBox1.AddItem ("equazione associata : x+2y<=1")
ListBox1.AddItem ("creazione grafici con derive")
ListBox1.AddItem ("ricerca semipiano delle disequazione x+2y=6")
ListBox1.AddItem ("controllo se un punto particolare soddisfa la disequazione")
kx = -2
ky = 2
ListBox1.AddItem ("2*ky >6-kx : " & 2 * ky & " > " & 6 - kx)
ListBox1.AddItem (kx & " " & ky)
If 2 * ky > 6 - kx Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("2*ky <= 1-kx : " & 2 * ky & " <= " & 1 - kx)
ListBox1.AddItem (kx & " " & ky)
If 2 * ky <= 1 - kx Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If

End Sub

Private Sub CommandButton18_Click()
Image5.Visible = True
End Sub

Private Sub CommandButton19_Click()
Image5.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()
Rem y <3x+6
ListBox1.AddItem ("disequazione : y < 3x+6")
ListBox1.AddItem ("equazione associata : y = 3x+6")
ListBox1.AddItem ("creazione grafico con derive")
ListBox1.AddItem ("ricerca semipiano della disequazione")
ListBox1.AddItem ("controllo se un punto particolare soddisfa la disequazione")
kx = 0
ky = 0
ListBox1.AddItem ("ky < 3kx+6 : " & ky & " < " & 3 * kx + 6)
ListBox1.AddItem (kx & " " & ky)
If ky < 3 * kx + 6 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("------------------------------------------")
hx = -4
hy = 0
ListBox1.AddItem ("hy < 3*hx +6 : " & hy & " < " & 3 * hx + 6)
ListBox1.AddItem (hx & " " & hy)
If hy < 3 * hx + 6 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("------------------------------------------")
qx = -2
qy = 0
ListBox1.AddItem ("qy < 3*qx +6 : " & qy & " < " & 3 * qx + 6)
ListBox1.AddItem (qx & " " & qy)
If qy < 3 * qx + 6 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 ("soluzione:tutti i punti sotto linea frontiera, esclusa")
End Sub




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

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

Private Sub CommandButton7_Click()
Rem y >=2x-1
ListBox1.AddItem ("disequazione : y >= 2x - 1")
ListBox1.AddItem ("equazione associata : y = 2x - 1")
ListBox1.AddItem ("creazione grafico con derive")
ListBox1.AddItem ("ricerca semipiano della disequazione y >=2x-1")
ListBox1.AddItem ("controllo se un punto particolare soddisfa la disequazione")
kx = 0
ky = 0
ListBox1.AddItem ("ky >= 2*kx -1 : " & ky & " >= " & 2 * kx - 1)
ListBox1.AddItem (kx & " " & ky)
If ky >= 2 * kx - 1 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("------------------------------------------")
hx = 1
hy = 0
ListBox1.AddItem ("hy >= 2*hx -1 : " & hy & " >= " & 2 * hx - 1)
ListBox1.AddItem (hx & " " & hy)
If hy >= 2 * hx - 1 Then
ListBox1.AddItem ("il punto appartiene al semipiano soluzione")
Else
ListBox1.AddItem ("il punto non appartiene al semipiano soluzione")
End If
ListBox1.AddItem ("------------------------------------------")
qx = 1
qy = 1
ListBox1.AddItem ("qy >= 2*qx -1 : " & qy & " >= " & 2 * qx - 1)
ListBox1.AddItem (qx & " " & qy)
If qy >= 2 * qx - 1 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 ("soluzione:tutti i punti sopra linea frontiera,compresa")
End Sub

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

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

Private Sub ListBox1_Click()

End Sub

vedi semipiano.ppt