coseno

aprire excel, editor vba, userform ,pulsante
scrivere o incollare codice:vengono calcolati i valori di seno e coseno
vengono registrati nel foglio
1 colonna angoli
2 colonna seno
3 colonna coseno
grafico di sinusoide e cosinuoside
salvare

codice da incollare in pulsante

Private Sub CommandButton1_Click()
Rem seno e coseno
k = 0
For a = 0 To 360 Step 10
k = k + 1
x = a * 3.14 / 180
seno = Sin(x)
coseno = Cos(x)
Cells(k, 1) = a
Cells(k, 2) = seno
Cells(k, 3) = coseno
Next a
End Sub

excelvba.htm

vedi coseno.xls