arcoseno e arcocoseno per vba su powerpoint

funzioni arcoseno e arcocoseno

descrizione formule per ottenere arcoseno e arcocoseno utilizzando la funzione

arcotangente ATN fornita da visual basic  su powerpoint ,conoscendo il valore del seno o coseno di un angolo

Rem cerchio trigonometrico

Rem richiamo a funzione per arcoseno e arcocoseno Rem oppure formula immediata

esercitazione con visualbasic su powerpoint
http://digilander.libero.it/francescovise/chimica/indice.htm
http://digilander.libero.it/francescovise/chimica/trigono.htm
http://digilander.libero.it/francescovise/chimica/trigono.ppt



codice
Private Sub CommandButton1_Click()
Rem calcolo di arcoseno e arcocoseno con
richiamo a funzione
Rem creata per supplire a mancanza in VBA
Rem escluso seno=1 o -1 e coseno 0

ListBox1.AddItem ("usare valori in radianti")
ListBox1.AddItem ("trovo arcotangente : atn(tangente)")
ListBox1.AddItem ("trovo arcoseno :
atn(seno/sqr(1-seno^seno)) ")
ListBox1.AddItem ("trovo arcocoseno :
atn(sqr(1-coseno^2)/coseno) ")
ListBox1.AddItem ("trasformo in gradi : radianti*180/3.14
")
ListBox1.AddItem
("————————————–")
Dim seno As Double
Dim coseno As Double
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim a1 As Double
Dim b1 As Double
Dim c1 As Double
Dim d1 As Double
a = 0.5
b = -0.5
c = 0.868
d = 0
a1 = 0.5
b1 = -0.5
c1 = 0.868
d1 = 1
ListBox1.AddItem ("ricavando il valore della tangente si
ricorre alla funzione")
ListBox1.AddItem ("che fornisce l’arcotangente che risulta
lo stesso anche per")
ListBox1.AddItem ("i valori del seno e coseno dello stesso
arco")
ListBox1.AddItem ("seno^2 + coseno^2 =1 ")
ListBox1.AddItem ("seno^2 = 1 – coseno^2")
ListBox1.AddItem ("coseno^2 = 1 – seno^2 ")
ListBox1.AddItem ("tangente = seno/coseno =
seno/(sqr(1-seno^2))")
ListBox1.AddItem ("tangente = seno/coseno =
sqr(1-coseno^2)/coseno ")
ListBox1.AddItem ("arcotangente(tangente) >>>
atn(tangente) >>> arco in radianti")
ListBox1.AddItem ("noto seno ,cerco coseno e tangente:poi
atn(tangente)")
ListBox1.AddItem ("arcoseno= atn(seno/(sqr(1-seno^2))")
ListBox1.AddItem ("noto coseno ,cerco seno e tangente:poi
atn(tangente)")
ListBox1.AddItem ("arcocoseno =
atn(sqr(1-coseno^2)/coseno")
ListBox1.AddItem ("usando funzione o formula immediata
")
ListBox1.AddItem
("————————————–")
ListBox1.AddItem ("si visualizza
:valore del seno,angolo in radianti,in gradi")
ListBox1.AddItem ("————————-")
ListBox1.AddItem ("seno = " & a)
ListBox1.AddItem (arcoseno(a))
ListBox1.AddItem (arcoseno(a) * 180 / 3.14)
ListBox1.AddItem ("————————-")
ListBox1.AddItem ("seno = " & b)
ListBox1.AddItem (arcoseno(b))
ListBox1.AddItem (arcoseno(b) * 180 / 3.14)
ListBox1.AddItem ("————————-")
ListBox1.AddItem ("seno = " & c)
ListBox1.AddItem (arcoseno(c))
ListBox1.AddItem (arcoseno(c) * 180 / 3.14)
ListBox1.AddItem ("————————-")
ListBox1.AddItem ("seno = " & d)
ListBox1.AddItem (arcoseno(d))
ListBox1.AddItem (arcoseno(d) * 180 / 3.14)
ListBox1.AddItem ("————————-")
ListBox1.AddItem ("si visualizza
:valore del coseno,angolo in radianti,in gradi")

ListBox1.AddItem ("————————-")
ListBox1.AddItem ("coseno = " & a1)
ListBox1.AddItem (arcocoseno(a1))
ListBox1.AddItem (arcocoseno(a1) * 180 / 3.14)
ListBox1.AddItem ("————————-")
ListBox1.AddItem ("coseno = " & b1)
ListBox1.AddItem (arcocoseno(b1))
ListBox1.AddItem (arcocoseno(b1) * 180 / 3.14)
ListBox1.AddItem ("————————-")
ListBox1.AddItem ("coseno = " & c1)
ListBox1.AddItem (arcocoseno(c1))
ListBox1.AddItem (arcocoseno(c1) * 180 / 3.14)
ListBox1.AddItem ("————————-")
ListBox1.AddItem ("coseno = " & d1)
ListBox1.AddItem (arcocoseno(d1))
ListBox1.AddItem (arcocoseno(d1) * 180 / 3.14)
ListBox1.AddItem ("————————-")
End Sub

Private Function arcoseno(seno As Double)
As Double

radiantiseno = Atn(seno / (Sqr(1 – seno ^ 2)))
arcoseno = radiantiseno
End Function

Private Function arcocoseno(coseno As
Double) As Double

radianticoseno = Atn(Sqr(1 – coseno ^ 2) / coseno)
arcocoseno = radianticoseno
End Function

Private Sub CommandButton2_Click()
Rem cerchio trigonometrico
Rem richiamo a funzione per arcoseno e arcocoseno
Rem oppure formula immediata

Dim seno As Double
Dim coseno As Double
angologradi = 30
angoloradianti = angologradi * 3.14 / 180
seno = Sin(angoloradianti)
coseno = Cos(angoloradianti)
tangente = Tan(angoloradianti)
ListBox1.AddItem ("angolo in gradi = " &
angologradi)
ListBox1.AddItem ("angolo in radianti = " &
angoloradianti)
ListBox1.AddItem ("seno = " & seno)
ListBox1.AddItem ("coseno = " & coseno)
ListBox1.AddItem ("tangente = " & tangente)
ListBox1.AddItem ("——funzioni inverse —-")
arcotangente = Atn(tangente)
graditangente = arcotangente * 180 / 3.14
ListBox1.AddItem ("tangente = " & tangente)
ListBox1.AddItem ("arcotangente = " & arcotangente)
ListBox1.AddItem ("arcotangente in gradi = " &
graditangente)
ListBox1.AddItem ("—–richiamo a funzione -")
ListBox1.AddItem ("seno = " & seno)
ListBox1.AddItem ("arcoseno in radianti = " &
arcoseno(seno))
ListBox1.AddItem ("arcoseno in gradi = " &
arcoseno(seno) * 180 / 3.14)
ListBox1.AddItem ("——————————")
ListBox1.AddItem ("coseno = " & coseno)
ListBox1.AddItem ("arcocoseno in radianti = " &
arcocoseno(coseno))
ListBox1.AddItem ("arcocoseno in gradi = " &
arcocoseno(coseno) * 180 / 3.14)
ListBox1.AddItem ("——————————")
archi.Visible = True
ListBox1.AddItem ("—formula immediata —")
ListBox1.AddItem ("valori in radianti ")
arccoseno = Atn(Sqr(1 – coseno ^ 2) / coseno)
arcseno = Atn(seno / Sqr(1 – seno ^ 2))
arctangente = Atn(tangente)
ListBox1.AddItem ("valori in gradi")
tangenteg = arctangente * 180 / 3.14
senog = arcseno * 180 / 3.14
cosenog = arccoseno * 180 / 3.14
ListBox1.AddItem ("arcotangente = " & arctangente
& " in gradi = " & tangenteg)
ListBox1.AddItem ("arcoseno = " & arcseno &
" in gradi = " & senog)
ListBox1.AddItem ("arcocoseno = " & arccoseno &
" in gradi =" & cosenog)
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
archi.Visible = False
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...