iperbole equilatera
creazione grafica con derive di iperbole equilatera con K>0 e K<0
assegnazione valori con ciclo for-next (escluso x=0)
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem iperbole equilatera
Image1.Visible = True
ListBox1.AddItem ("asintoti :asse x, asse y")
ListBox1.AddItem ("x*y = k .....y = k/x ...y = 12/x ")
k = 12
For x = 1 To k
y = k / x
ListBox1.AddItem ("x = " & x & " y = " & y)
Next x
End Sub

Private Sub CommandButton2_Click()
Image2.Visible = True
ListBox1.AddItem ("asintoti :asse x, asse y")
ListBox1.AddItem ("primo + + e terzo quadrante - -")
ListBox1.AddItem ("x*y = k .....y = k/x ...y = 12/x ")
k = 12
For x = -12 To -1
y = k / x
ListBox1.AddItem ("x = " & x & " y = " & y)
Next x
ListBox1.AddItem ("escluso x=0 ")
For x = 1 To 12
y = k / x
ListBox1.AddItem ("x = " & x & " y = " & y)
Next x
End Sub

Private Sub CommandButton3_Click()
Image3.Visible = True
ListBox1.AddItem ("asintoti :asse x, asse y")
ListBox1.AddItem ("secondo + - e quarto - + ")
ListBox1.AddItem ("x*y = k .....y = k/x ...y = 12/x ")
k = -12
For x = -12 To -1
y = k / x
ListBox1.AddItem ("x = " & x & " y = " & y)
Next x
ListBox1.AddItem ("escluso x=0 ")
For x = 1 To 12
y = k / x
ListBox1.AddItem ("x = " & x & " y = " & y)
Next x
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub

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

Private Sub CommandButton6_Click()
Rem iperbole equilatera
ListBox1.AddItem ("simmetrie varie nella iperbole equilatera")
Image4.Visible = True
End Sub

vedi iperbole.ppt