parabole3
descrizione di parabole semplici
grafico con derive e paint
assegnazione valori con ciclo for-next
calcolo del vertice, asse della parabola
simmetria di valori rispetto ad asse
dati prefissati o inseribili da tastiera (coefficienti)

Private Sub CommandButton1_Click()
Rem parabola
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
v1 = (-b / (2 * a))
v2 = (4 * a * c - b * b) / (4 * a)
asse = (-b / (2 * a))

ListBox1.AddItem ("parabola : y = ax^2 +bx + c ")
ListBox1.AddItem (a & "x^2 (+)" & b & "x (+)" & c)
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = 0 To 6
x = k
y = a * x ^ 2 + b * x + c
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k
ListBox1.AddItem ("notare simmetria valori rispetto all'asse")
End Sub


Private Sub CommandButton13_Click()
ListBox1.Clear
End Sub

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


Private Sub CommandButton14_Click()
Rem parabola
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
v2 = (-b / (2 * a))
v1 = (4 * a * c - b * b) / (4 * a)
asse = (-b / (2 * a))
ListBox1.AddItem ("parabola : x=ay^2 +by +c ")
ListBox1.AddItem (a & "y^2 (+)" & b & "y (+)" & c)
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = 0 To 6
y = k
x = a * y ^ 2 + b * y + c
ListBox1.AddItem ("y = " & y & " x = " & x)
Next k
ListBox1.AddItem ("notare simmetria valori rispetto all'asse")

End Sub

Private Sub CommandButton15_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

Private Sub CommandButton16_Click()
Rem parabola
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
v1 = (-b / (2 * a))
v2 = (4 * a * c - b * b) / (4 * a)
asse = (-b / (2 * a))

ListBox1.AddItem ("parabola : y = ax^2 +bx + c ")
ListBox1.AddItem (a & "x^2 (+)" & b & "x (+)" & c)
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = -10 To 10
x = k
y = a * x ^ 2 + b * x + c
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k
ListBox1.AddItem ("notare simmetria valori rispetto all'asse")
End Sub

Private Sub CommandButton17_Click()
Rem parabola
a = 1
b = 0
c = 0
v1 = (-b / (2 * a))
v2 = (4 * a * c - b * b) / (4 * a)
asse = (-b / (2 * a))

ListBox1.AddItem ("parabola : y = ax^2 ")
ListBox1.AddItem (a & "x^2 ")
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = -6 To 6
x = k
y = a * x ^ 2
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k
ListBox1.AddItem ("notare simmetria valori rispetto all'asse")

End Sub

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

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

Private Sub CommandButton20_Click()
Rem parabola
a = 1
b = 0
c = 0
v1 = (-b / (2 * a))
v2 = (4 * a * c - b * b) / (4 * a)
asse = (-b / (2 * a))

ListBox1.AddItem ("parabola : x = ay^2 ")
ListBox1.AddItem (a & "y^2 ")
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = -3 To 3
y = k
x = a * y ^ 2
ListBox1.AddItem ("y = " & y & " x = " & x)
Next k
ListBox1.AddItem ("notare simmetria valori rispetto all'asse")

End Sub

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

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

vedi parabole3.ppt