coefficiente angolare
considerazioni su significato goniometrico di coefficiente angolare di retta
calcolare angolo in funzione della equazione e di coefficiente angolare noto
scrivere equazione retta passante per punto noto e con angolo con asse x noto
calcolare angolo formato dalla intersezione di due rette
dati prefissati o da tastiera; grafici con derive
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem coefficiente angolare retta
ListBox1.AddItem ("il coefficiente angolare m di una retta non parallela a y")
ListBox1.AddItem ("è uguale alla tangente goniometrica dell'angolo che l'asse x")
ListBox1.AddItem ("forma con la retta stessa")
ListBox1.AddItem ("----calcolare angoli formati dalle rette con asse x ---")
ListBox1.AddItem ("equazione di due rette ")
y1 = -Sqr(3) * x - 5
y2 = (x + 7 / 2)
m1 = -Sqr(3)
m2 = 1
ListBox1.AddItem ("m1 e m2 = tangenti angoli ")
tg1 = m1
tg2 = m2
ListBox1.AddItem (tg1)
ListBox1.AddItem (tg2)
ListBox1.AddItem ("a1, a2 arcotangenti in radianti")
a1 = Atn(tg1)
a2 = Atn(tg2)
ListBox1.AddItem (a1)
ListBox1.AddItem (a2)
ListBox1.AddItem ("arcotangenti in gradi")
aa1 = a1 * 180 / 3.14
aa2 = a2 * 180 / 3.14
ListBox1.AddItem (aa1)
ListBox1.AddItem (aa2)
ListBox1.AddItem ("approssimato")
ap1 = Round(aa1)
ap2 = Round(aa2)
ListBox1.AddItem ("angolo = " & ap1)
ListBox1.AddItem ("angolo = " & ap2)
ListBox1.AddItem ("grafica con derive")
angolare1.Visible = True
End Sub

Private Sub CommandButton10_Click()
Rem indice esempi attivabili
legenda.Visible = True
End Sub

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

Private Sub CommandButton2_Click()
angolare1.Visible = False
angolare2.Visible = False
angolare3.Visible = False
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
Rem equazione di retta passante per punto noto con angolo noto
ListBox1.AddItem ("scrivere equazione di retta passante per punto noto")
ListBox1.AddItem ("e formante con asse x angolo noto ")
x1 = 0.5
y1 = 5
ag = -45
ar = ag * 3.14 / 180
m = Round(Tan(ar))
ListBox1.AddItem ("punto(0.5 , 5) ")
ListBox1.AddItem ("angolo in gradi = -45 ")
ListBox1.AddItem ("angolo in radianti = " & ar)
ListBox1.AddItem ("m = " & m)
ListBox1.AddItem (" (y-y1)=m(x-x1)) ")
ListBox1.AddItem (" (y-5)= -1(x -0.5) >>> 2*x +2*y -11 = 0 ")
ListBox1.AddItem ("grafico con derive")
angolare2.Visible = True
ListBox1.AddItem ("visualizza alcuni valori, punto compreso")
For x = -5 To 5 Step 0.5
y = 5.5 - x
ListBox1.AddItem ("x =" & x & " y= " & y)
Next x

End Sub

Private Sub CommandButton5_Click()
Rem coefficiente angolare retta interattivo
ListBox1.AddItem ("il coefficiente angolare m di una retta non parallela a y")
ListBox1.AddItem ("è uguale alla tangente goniometrica dell'angolo che l'asse x")
ListBox1.AddItem ("forma con la retta stessa")
ListBox1.AddItem ("----calcolare angolo formato dalla retta con asse x ---")
ListBox1.AddItem ("equazione retta ")
m = TextBox1
ListBox1.AddItem ("m = tangente angolo ")
tg1 = m
ListBox1.AddItem (tg1)
ListBox1.AddItem ("a1 arcotangente in radianti")
a1 = Atn(tg1)
ListBox1.AddItem (a1)
ListBox1.AddItem ("arcotangente in gradi")
aa1 = a1 * 180 / 3.14
ListBox1.AddItem (aa1)
ListBox1.AddItem ("approssimato")
ap1 = Round(aa1)
ListBox1.AddItem ("angolo = " & ap1)

End Sub

Private Sub CommandButton6_Click()
Rem equazione di retta passante per punto noto con angolo noto interattivo
ListBox1.AddItem ("scrivere equazione di retta passante per punto noto")
ListBox1.AddItem ("e formante con asse x angolo noto ")
x1 = TextBox2
y1 = TextBox3
ag = TextBox4
ar = ag * 3.14 / 180
m = Round(Tan(ar))
ListBox1.AddItem ("punto " & x1 & " , " & y1)
ListBox1.AddItem ("angolo in gradi = " & ag)
ListBox1.AddItem ("angolo in radianti = " & ar)
ListBox1.AddItem ("m = " & m)
ListBox1.AddItem (" (y-y1)=m(x-x1)) ")
ListBox1.AddItem ("(y - " & y1 & ") = " & m & "*" & "x - " & x1)
End Sub

Private Sub CommandButton7_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub

Private Sub CommandButton8_Click()
Rem calcolo angolo tra due rette
ListBox1.AddItem ("y = -3x + 2 m= -3")
ListBox1.AddItem ("y1 = 2x -3 m1= 2")
m1 = 2
m = -3
tg = (m - m1) / (1 + m1 * m)
ListBox1.AddItem (tg)
radianti = Atn(tg)
angolo = Round(radianti * 180 / 3.14)
ListBox1.AddItem ("angolo in gradi = " & angolo)
ListBox1.AddItem ("grafico con derive")
angolare3.Visible = True
End Sub

Private Sub CommandButton9_Click()
Rem calcolo angolo tra due rette interattivo
m1 = TextBox2
m = TextBox3
tg = (m - m1) / (1 + m1 * m)
ListBox1.AddItem (tg)
radianti = Atn(tg)
angolo = Round(radianti * 180 / 3.14)
ListBox1.AddItem ("angolo in gradi = " & angolo)
End Sub

vedi angolare.ppt