parabole

grafici e studio di parabole semplici
creazione grafico con derive, ritagliato e modificato con paint
creazione tabelle valoori con ciclo for-next
esercitazione con visual basic con powerpoint

Private Sub CommandButton1_Click()
Rem parabola y = x^2
For k = -5 To 5
x = k
y = x ^ 2
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k
End Sub

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

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

Private Sub CommandButton12_Click()
Rem parabola x= -y^2
For k = -5 To 5
y = k
x = -y ^ 2
ListBox1.AddItem ("y = " & y & " x = " & x)
Next k
End Sub

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

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

Private Sub CommandButton15_Click()
Rem parabola y = 0.5 x^2
For k = -5 To 5
x = k
y = 0.5 * x ^ 2
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k
End Sub

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

Private Sub CommandButton17_Click()
Image5.Visible = False
End Sub

Private Sub CommandButton18_Click()
Rem parabola y = -2x^2
For k = -5 To 5
x = k
y = -2 * x ^ 2
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k

End Sub

Private Sub CommandButton19_Click()
Image6.Visible = True
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton20_Click()
Image6.Visible = False
End Sub

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

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

Private Sub CommandButton6_Click()
Rem parabola y = -x^2
For k = -5 To 5
x = k
y = -x ^ 2
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k
End Sub

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

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

Private Sub CommandButton9_Click()
Rem parabola x= y^2
For k = -5 To 5
y = k
x = y ^ 2
ListBox1.AddItem ("y = " & y & " x = " & x)
Next k

End Sub

vedi parabole.ppt