intersezione retta e iperbole equilatera
sistema con due equazioni:retta e iperbole equilatera
si assegnano valori alle equazioni con ciclo for-next
si individuano (se esistono) valori che soddisfano insieme le due equazioni
si crea grafico equazioni con derive
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem intersezione retta e iperbole equilatera:secante
Image1.Visible = True
ListBox1.AddItem ("sistema a due equazioni")
ListBox1.AddItem ("x + y = 6 ")
ListBox1.AddItem ("xy = 8 ")
ListBox1.AddItem ("punti della retta ")
For x = 1 To 8
y = -x + 6
ListBox1.AddItem (x & ", " & y)
Next x
ListBox1.AddItem ("punti della iperbole k>0")
For x = 1 To 8
y = 8 / x
ListBox1.AddItem (x & " , " & y)
Next x
ListBox1.AddItem ("------soluzioni -------------")
For x = 1 To 8
y1 = -x + 6
y2 = 8 / x
If y1 = y2 Then
ListBox1.AddItem (x & ", " & y1)
ListBox1.AddItem (x & " , " & y2)
End If
Next x
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

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

Private Sub CommandButton4_Click()
Rem intersezione retta e iperbole equilatera:tangente
Image2.Visible = True
ListBox1.AddItem ("sistema a due equazioni")
ListBox1.AddItem ("x + y = 6 ")
ListBox1.AddItem ("xy = 9 ")
ListBox1.AddItem ("punti della retta ")
For x = 1 To 9
y = -x + 6
ListBox1.AddItem (x & ", " & y)
Next x
ListBox1.AddItem ("punti della iperbole k>0")
For x = 1 To 9
y = 9 / x
ListBox1.AddItem (x & " , " & y)
Next x
ListBox1.AddItem ("------soluzioni -------------")
For x = 1 To 9
y1 = -x + 6
y2 = 9 / x
If y1 = y2 Then
ListBox1.AddItem (x & ", " & y1)
ListBox1.AddItem (x & " , " & y2)
End If
Next x
End Sub

Private Sub CommandButton5_Click()
Rem intersezione retta e iperbole equilatera:nulla
Image3.Visible = True
ListBox1.AddItem ("sistema a due equazioni")
ListBox1.AddItem ("x -y = 2 ")
ListBox1.AddItem ("xy = -12")
ListBox1.AddItem ("punti della retta ")
For x = 1 To 12
y = x - 2
ListBox1.AddItem (x & ", " & y)
Next x
ListBox1.AddItem ("punti della iperbole k<0")
For x = 1 To 12
y = -12 / x
ListBox1.AddItem (x & " , " & y)
Next x
ListBox1.AddItem ("------soluzioni -------------")
For x = 1 To 12
y1 = x - 2
y2 = -12 / x
If y1 = y2 Then
ListBox1.AddItem (x & ", " & y1)
ListBox1.AddItem (x & " , " & y2)
End If
Next x
End Sub

vedi iperretta.ppt