funzioni trigonometriche cob vba

funzioni
trigonometriche
descrizione funzioni seno,
coseno,tangente,arcoseno,arcocoseno,arcotangente
conversione gradi e radianti
calcoli per ricavare arcoseno e arcocoseno usando arcotangente
ATN
tabella valori per seno e arcoseno
inserimento da tastiera di angolo per calcolare
seno,coseno,tangente e funzioni inverse
inserimento da tastiera di angolo iniziale, incremento, numero
prove per calcolo applicato a seno
inserimento da tastiera di valore per seno, coseno,tangente e
calcolo archi corrispondenti
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem arcoseno e arcocoseno da arcotangente
atn

ListBox1.Visible = True
Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
angolo = 0
Dim seno As Double
ListBox1.AddItem ("angolo in gradi,angolo in radianti,
seno,arcoseno in radianti, arcoseno in gradi ")
ListBox1.AddItem
("—————————————————————————-")
For k = 1 To 360
angolo = angolo + 1
radiante = angolo * pigreco / 180
seno = Sin(radiante)
arcseno = Atn(seno / Sqr(1 – seno ^ 2))
arcsenogradi = arcseno * 180 / pigreco
ListBox1.AddItem ("angolo = " & angolo & "
radianti = " & radiante & " seno = " &
seno & " asin = " & arcseno & " asin =
" & arcsenogradi)
Next k
End Sub

Private Sub CommandButton10_Click()
ListBox4.Visible = False
End Sub

Private Sub CommandButton11_Click()
ListBox4.Clear
End Sub

Private Sub CommandButton12_Click()
Rem calcolo con funzione tangente
ListBox5.Visible = True
Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
angolo = TextBox3
Dim tangente As Double
radiante = angolo * pigreco / 180
tangente = Tan(radiante)
arctangente = Atn(tangente)
arctangentegradi = arctangente * 180 / pigreco
ListBox5.AddItem ("angolo in gradi = " & angolo)
ListBox5.AddItem ("angolo in radianti = " &
radiante)
ListBox5.AddItem ("tangente = " & tangente)
ListBox5.AddItem ("arcotangente in radianti= " &
arctangente)
ListBox5.AddItem ("arcotangente in gradi = " &
arctangentegradi)

End Sub

Private Sub CommandButton13_Click()
ListBox5.Visible = False
End Sub

Private Sub CommandButton14_Click()
ListBox5.Clear
End Sub

Private Sub CommandButton15_Click()
Rem arcoseno da atn con ciclo interattivo
inserendo angolo,incremento,numero prove

ListBox6.Visible = True
Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
Dim passo As Double
Dim numero As Integer
angolo = TextBox4
passo = TextBox5
numero = TextBox6
Dim seno As Double
ListBox6.AddItem ("angolo in gradi,angolo in radianti,
seno,arcoseno in radianti, arcoseno in gradi ")
ListBox6.AddItem
("—————————————————————————-")
For k = 1 To numero
angolo = angolo + passo
radiante = angolo * pigreco / 180
seno = Sin(radiante)
arcseno = Atn(seno / Sqr(1 – seno ^ 2))
arcsenogradi = arcseno * 180 / pigreco
ListBox6.AddItem ("angolo = " & angolo & "
radianti = " & radiante & " seno = " &
seno & " asin = " & arcseno & " asin =
" & arcsenogradi)
Next k
End Sub

Private Sub CommandButton16_Click()
ListBox6.Visible = False
End Sub

Private Sub CommandButton17_Click()
ListBox6.Clear
End Sub

Private Sub CommandButton18_Click()
ListBox1.Visible = False
ListBox2.Visible = False
ListBox3.Visible = False
ListBox4.Visible = False
ListBox5.Visible = False
ListBox6.Visible = False
End Sub

Private Sub CommandButton2_Click()
ListBox2.Visible = True
Rem arcoseno e arcocoseno da arcotangente
atn
Rem generalità su cerchio trigonometrico

ListBox2.AddItem ("relazioni da usare per calcoli su
funzioni trigonometriche")
ListBox2.AddItem ("seno^2(x) + coseno^2(x) = 1 ")
ListBox2.AddItem ("seno^2(x) = 1 – coseno^2(x) ")
ListBox2.AddItem ("coseno^2(x) = 1 – seno^2(x)")
ListBox2.AddItem ("tangente(x) = seno(x) / coseno(x) ")
ListBox2.AddItem ("tangente(x) = seno/sqr(1 –
seno^2(x)")
ListBox2.AddItem ("tangente(x) = sqr(1 –
coseno^2(x)/coseno(x)")
ListBox2.AddItem ("arcotangente = atn(tangente) ")
ListBox2.AddItem
("————————————-")
ListBox2.AddItem ("calcolare la tangente in funzione di seno
o coseno noti ")
ListBox2.AddItem ("calcolo di arcoseno, arcocoseno in
funzione di arcotangente")
ListBox2.AddItem ("calcolare arcotangente con funzione nota
ATN ")
ListBox2.AddItem ("arcoseno = atn(seno/sqr(1-seno^2))
")
ListBox2.AddItem ("arcocoseno = atn(sqr(1-coseno^2)/coseno)
")
ListBox2.AddItem ("trasformazione di radianti in gradi e
viceversa")
ListBox2.AddItem ("radianti = gradi*pigreco/180")
ListBox2.AddItem ("gradi = radianti*180/pigreco")
ListBox2.AddItem ("———— esempio
——————————-")

Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
Dim seno As Double
Dim coseno As Double
Dim tangente As Double
Dim arcotangente As Double
Dim arcoseno As Double
Dim arcocoseno As Double
angolo = 30
radiante = angolo * pigreco / 180
seno = Sin(radiante)
coseno = Cos(radiante)
tangente = Tan(radiante)
arcotangente = Atn(tangente)
arcoseno = Atn(seno / Sqr(1 – seno ^ 2))
arcocoseno = Atn(Sqr(1 – coseno ^ 2) / coseno)
arcotangentegradi = arcotangente * 180 / pigreco
arcosenogradi = arcoseno * 180 / pigreco
arcocosenogradi = arcocoseno * 180 / pigreco
ListBox2.AddItem ("——————————–")
ListBox2.AddItem ("angolo in gradi = " & angolo)
ListBox2.AddItem ("angolo in radianti = " &
radiante)
ListBox2.AddItem ("seno = " & seno)
ListBox2.AddItem ("coseno = " & coseno)
ListBox2.AddItem ("tangente = " & tangente)
ListBox2.AddItem ("arcotangente = " & arcotangente)
ListBox2.AddItem ("arcoseno = " & arcoseno)
ListBox2.AddItem ("arcocoseno = " & arcocoseno)
ListBox2.AddItem ("arcotangentegradi = " &
arcotangentegradi)
ListBox2.AddItem ("arcosenogradi = " &
arcosenogradi)
ListBox2.AddItem ("arcocosenogradi = " &
arcocosenogradi)
ListBox2.AddItem
("————————————–")

End Sub

Private Sub CommandButton3_Click()
ListBox2.Visible = False
End Sub

Private Sub CommandButton4_Click()
ListBox1.Visible = False
End Sub

Private Sub CommandButton5_Click()
Rem calcolo con funzione seno
ListBox3.Visible = True
Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
angolo = TextBox1
Dim seno As Double
radiante = angolo * pigreco / 180
seno = Sin(radiante)
arcseno = Atn(seno / Sqr(1 – seno ^ 2))
arcsenogradi = arcseno * 180 / pigreco
ListBox3.AddItem ("angolo in gradi = " & angolo)
ListBox3.AddItem ("angolo in radianti = " &
radiante)
ListBox3.AddItem ("seno = " & seno)
ListBox3.AddItem ("arcoseno in radianti= " &
arcseno)
ListBox3.AddItem ("arcoseno in gradi = " &
arcsenogradi)

End Sub

Private Sub CommandButton6_Click()
ListBox3.Visible = False
End Sub

Private Sub CommandButton7_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton8_Click()
ListBox3.Clear
End Sub

Private Sub CommandButton9_Click()
Rem calcolo con funzione coseno
ListBox4.Visible = True
Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
angolo = TextBox2
Dim coseno As Double
radiante = angolo * pigreco / 180
coseno = Cos(radiante)
arccoseno = Atn(Sqr(1 – coseno ^ 2) / coseno)
arccosenogradi = arccoseno * 180 / pigreco
ListBox4.AddItem ("angolo in gradi = " & angolo)
ListBox4.AddItem ("angolo in radianti = " &
radiante)
ListBox4.AddItem ("coseno = " & coseno)
ListBox4.AddItem ("arccooseno in radianti= " &
arccoseno)
ListBox4.AddItem ("arcocoseno in gradi = " &
arccosenogradi)
End Sub

Private Sub CommandButton19_Click()
Rem inserire valore del seno
ListBox7.Visible = True
ListBox7.AddItem ("inserire il valore del seno: diverso da 1
o -1")
ListBox7.AddItem ("si calcola il valore del coseno
sqr(1-seno^2) ")
ListBox7.AddItem ("si calcola il valore della tangente =
seno/coseno ")
ListBox7.AddItem ("si calcola , in radianti, arcotangente
della tangente atn(tangente)")
ListBox7.AddItem ("si converte in gradi il valore dell’arco
(angolo)")
ListBox7.AddItem (" tale valore corrisponde all’angolo con
il seno inserito ")
ListBox7.AddItem
("——————————————————-")
Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
Dim seno As Double
Dim coseno As Double
Dim tangente As Double
Dim arcotangente As Double
Dim arcoseno As Double
Dim arcocoseno As Double
seno = TextBox7
If Abs(TextBox7) = 1 Then
seno = 0
End If
coseno = Sqr(1 – seno ^ 2)
tangente = seno / coseno
arcotangente = Atn(tangente)
arcotangentegradi = arcotangente * 180 / pigreco
ListBox7.AddItem ("valore del seno =" & seno)
ListBox7.AddItem ("valore del coseno = " & coseno)
ListBox7.AddItem ("valore della tangente = " &
tangente)
ListBox7.AddItem ("valore arcotangente in radianti = "
& arcotangente)
ListBox7.AddItem ("valore arcotangente in gradi = "
& arcotangentegradi)
ListBox2.AddItem ("——————————–")

End Sub

Private Sub CommandButton20_Click()
Rem inserire valore del coseno
ListBox7.Visible = True
ListBox7.AddItem ("inserire il valore del coseno: diverso da
1 o -1")
ListBox7.AddItem ("si calcola il valore del seno
sqr(1-coseno^2) ")
ListBox7.AddItem ("si calcola il valore della tangente =
seno/coseno ")
ListBox7.AddItem ("si calcola , in radianti, arcotangente
della tangente atn(tangente)")
ListBox7.AddItem ("si converte in gradi il valore dell’arco
(angolo)")
ListBox7.AddItem (" tale valore corrisponde all’angolo con
il coseno inserito ")
ListBox7.AddItem
("——————————————————-")
Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
Dim seno As Double
Dim coseno As Double
Dim tangente As Double
Dim arcotangente As Double
Dim arcoseno As Double
Dim arcocoseno As Double
coseno = TextBox8
If Abs(TextBox8) = 1 Then
coseno = 0
End If
seno = Sqr(1 – coseno ^ 2)
tangente = seno / coseno
arcotangente = Atn(tangente)
arcotangentegradi = arcotangente * 180 / pigreco
ListBox7.AddItem ("valore del coseno =" & coseno)
ListBox7.AddItem ("valore del seno = " & seno)
ListBox7.AddItem ("valore della tangente = " &
tangente)
ListBox7.AddItem ("valore arcotangente in radianti = "
& arcotangente)
ListBox7.AddItem ("valore arcotangente in gradi = "
& arcotangentegradi)
ListBox2.AddItem ("——————————–")

End Sub

Private Sub CommandButton21_Click()
Rem inserire valore tangente
ListBox7.Visible = True
ListBox7.AddItem ("inserire il valore della tangente:
diverso da 1 o -1")
ListBox7.AddItem ("si calcola , in radianti, arcotangente
della tangente atn(tangente)")
ListBox7.AddItem ("si converte in gradi il valore dell’arco
(angolo)")
ListBox7.AddItem (" tale valore corrisponde all’angolo con
il coseno inserito ")
ListBox7.AddItem ("si calcola il seno e coseno dell’angolo
in radianti")
ListBox7.AddItem
("——————————————————-")
Const pigreco = 3.14
Dim angolo As Double
Dim radiante As Double
Dim seno As Double
Dim coseno As Double
Dim tangente As Double
Dim arcotangente As Double
Dim arcoseno As Double
Dim arcocoseno As Double
tangente = TextBox9
arcotangente = Atn(tangente)
seno = Sin(arcotangente)
coseno = Cos(arcotangente)
arcotangentegradi = arcotangente * 180 / pigreco
ListBox7.AddItem ("valore della tangente =" &
tangente)
ListBox7.AddItem ("valore arcotangente in radianti = "
& arcotangente)
ListBox7.AddItem ("valore arcotangente in gradi = "
& arcotangentegradi)
ListBox7.AddItem ("valore del seno = " & seno)
ListBox7.AddItem ("valore del coseno = " & coseno)
ListBox2.AddItem ("——————————–")
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...