parabole2
grafici di parabole con dati prefissati
calcolo vertice e assi
grafico con derive
esercitazione con visual basic su powerpoint

 

Private Sub CommandButton1_Click()
Rem parabola
y = x ^ 2 - 6 * x + 8
a = 1
b = -6
c = 8

v1 = (-b / (2 * a))
v2 = (4 * a * c - b * b) / (4 * a)
asse = (-b / (2 * a))
ListBox1.AddItem ("parabola : y = x^2 -6x + 8 ")
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = 0 To 6
x = k
y = x ^ 2 - 6 * x + 8
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k
End Sub

Private Sub CommandButton10_Click()
Rem parabola
x = a * y * y - 6 * y + 5
a = 1
b = -6
c = 5

v2 = (-b / (2 * a))
v1 = (4 * a * c - b * b) / (4 * a)
asse = (-b / (2 * a))
ListBox1.AddItem ("parabola : x=y^2 -6y +5 ")
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = 0 To 6
y = k
x = a * y ^ 2 - 6 * y + 5
ListBox1.AddItem ("y = " & y & " x = " & x)
Next k
End Sub

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

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

Private Sub CommandButton13_Click()
ListBox1.Clear
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 parabola
y = -x ^ 2 + 4 * x - 3
a = -1
b = 4
c = -3
v1 = (-b / 2 * a)
v2 = (4 * a * c - b * b) / 4 * a
asse = (-b / (2 * a))
direttrice = (4 * a * c - b * b - 1) / (4 * a)
ListBox1.AddItem ("parabola : y = -x^2 +4x -3 ")
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
ListBox1.AddItem ("direttrice y = " & direttrice)
For k = -2 To 2
x = k
y = -x ^ 2 + 4 * x - 3
ListBox1.AddItem ("x = " & x & " y = " & y)
Next k

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 parabola
x = -2 * y * y + 8 * y - 5
a = -2
b = 8
c = -5

v2 = (-b / (2 * a))
v1 = (4 * a * c - b * b) / (4 * a)
asse = (-b / (2 * a))
ListBox1.AddItem ("parabola : x=-2y^2 +8y -5 ")
ListBox1.AddItem ("vertice = " & v1 & " , " & v2)
ListBox1.AddItem ("asse = " & asse)
For k = -4 To 4
y = k
x = -a * y ^ 2 + 8 * y - 5
ListBox1.AddItem ("y = " & y & " x = " & x)
Next k

End Sub

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

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

vedi parabole2.ppt