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