coefficiente angolare con vba

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

http://digilander.libero.it/francescovise/chimica/indice.htm
http://digilander.libero.it/francescovise/chimica/angolare.htm
http://digilander.libero.it/francescovise/chimica/angolare.ppt

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

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...