funzioni trigonometriche
confronto tra semplice foglio excel e uso di vba
vedi doppio1.xls
Private Sub CommandButton1_Click()
For angolo = 10 To 90 Step
10
radiante = Left((angolo * 3.14 / 180), 5)
seno = Left((Sin(radiante)), 5)
coseno = Left((Cos(radiante)), 5)
tangente = Left((Tan(radiante)), 5)
arcotangente = Left((Atn(tangente)), 5)
ListBox1.AddItem (angolo & " radiante " &
radiante & " seno= " & seno & "
coseno= " & coseno & " tangente= " &
tangente & " arcotangente= " & arcotangente)
Next angolo
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub
scrivere valoiri degli angoli in
gradi nella colonna A1-A9 e legenda in riga 9
inserire le formule come indicato:visualizzare formule con strumenti-Opzioni-Formule
Private Sub
CommandButton1_Click()
r = 1
For angolo = 10 To 90 Step 10
radiante = (angolo * 3.14 / 180)
seno = Sin(radiante)
coseno = Cos(radiante)
tangente = Tan(radiante)
arcotangente = Atn(tangente)
Cells(r, 1) = angolo
Cells(r, 2) = radiante
Cells(r, 3) = seno
Cells(r, 4) = coseno
Cells(r, 5) = tangente
Cells(r, 6) = arcotangente
r = r + 1
Next angolo
End Sub
Private Sub
CommandButton2_Click()
For r = 1 To 10
For c = 1 To 6
Cells(r, c) = ""
Next c
Next r
End Sub
variante con stampa dati i celle del foglio e non in listbox1