qtrigo1

esci con testvbax.htm

ptrigo1.ppt

tabella valori del seno, coseno, tangente, arcotangente
di angolo fornito in gradi e convertito in radianti
con inserimento di gradi iniziali e modulo per incremento e numero calcoli

Private Sub CommandButton1_Click()
Dim k, s, gradi, modulo, fine As Integer
Dim radianti As Currency
Dim seno As Currency
Dim coseno As Currency
Dim tangente As Currency
Dim arcotan As Currency
s = Val(textbo1)
modulo = Val(TextBox2)
fine = Val(TextBox3)

For k = 2 To fine
ListBox1.AddItem (s)
radianti = s * 3.14 / 180
seno = Sin(radianti)
coseno = Cos(radianti)
tangente = Tan(radianti)
arcotan = Atn(tangente)
ListBox2.AddItem (radianti)
ListBox3.AddItem (seno)
ListBox4.AddItem (coseno)
ListBox5.AddItem (tangente)
ListBox6.AddItem (arcotan)
s = s + modulo
Next k
ListBox1.AddItem ("....")
ListBox2.AddItem ("....")
ListBox3.AddItem ("....")
ListBox4.AddItem ("....")
ListBox5.AddItem ("....")
ListBox6.AddItem ("....")
End Sub

Private Sub CommandButton2_Click()

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
ListBox6.Clear
End Sub

Private Sub UserForm_Click()

End Sub