seno

esci con testvba.htm

seno.ppt

descrizione studiodi funzioni trigonometriche e loro derivate
(i grafici sono creati a parte con derive , excel, pascal; i dati numerici calcolati con vba)

Private Sub CommandButton1_Click()
Rem seno
seno.Visible = True
ListBox1.AddItem (" funzione : y = sin(x) ")
For x = 0 To 6.28 Step 0.1
y = Left(Sin(x), 5)
gradi = Left((x * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " gradi = " & gradi & " y= " & y)
Next x
ListBox1.AddItem ("---------------------")
For a = 0 To 360 Step 10
x = a * 3.14 / 180
y = Sin(x)
ListBox1.AddItem ("a = " & a & " y= " & y)
Next a
End Sub

Private Sub CommandButton10_Click()
Rem derivata arcoseno
deriarcoseno.Visible = True
ListBox1.AddItem ("---derivata --")
ListBox1.AddItem ("derivata prima y' = 1/sqr(1-x^2) ")
For x = -0.9 To 0.9 Step 0.1
y1 = 1 / Sqr(1 - x ^ 2)
ListBox1.AddItem ("x = " & x & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton11_Click()
Rem arcoseno e sua derivata
Dim seno As Double
deriarcoseno6.Visible = True
For x = -0.9 To 0.9 Step 0.1
seno = Sin(x)
y = Atn(seno / Sqr(1 - seno ^ 2))
y1 = 1 / Sqr(1 - x ^ 2)
ListBox1.AddItem ("x = " & x & " y = " & y & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton12_Click()
Rem formule e grafi
tuttoseno.Visible = True
ListBox1.AddItem ("funzione seno = sin(x) ")
ListBox1.AddItem ("funzione arcoseno = in funzione di atn(x) cfr.codice")
ListBox1.AddItem ("asin(x) = atn(seno/sqr(1-seno^2))")
ListBox1.AddItem ("derivata di seno = cos(x) ")
ListBox1.AddItem ("derivata di arcoseno = 1/(sqr(1-x^2))")
End Sub

Private Sub CommandButton5_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton6_Click()
gonio1.Visible = False
seno.Visible = False
deriseno.Visible = False
gonio6.Visible = False
deriarcoseno.Visible = False
deriarcoseno6.Visible = False
tuttoseno.Visible = False
End Sub

Private Sub CommandButton7_Click()
Rem derivata seno
deriseno.Visible = True
For x = 0 To 6.28 Step 0.1
y1 = Cos(x)
gradi = Left((x * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " gradi= " & gradi & " y'= " & y1)
Next x
ListBox1.AddItem ("-------------")
For a = 0 To 360 Step 10
x = a * 3.14 / 180
y1 = Cos(x)
ListBox1.AddItem ("a = " & a & " y'= " & y1)
Next a

End Sub

Private Sub CommandButton8_Click()
Rem seno e sua derivata
gonio1.Visible = True
ListBox1.AddItem ("---funzione e derivata --")
For x = 0 To 6.28 Step 0.1
y = Sin(x)
y1 = Cos(x)
gradi = Left((x * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " gradi = " & gradi & " y= " & y & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton9_Click()
Rem arcoseno
Rem gonio6
Dim seno As Double
gonio6.Visible = True
ListBox1.AddItem ("funzione arcoseno y = asin(x) ")
For x = -0.9 To 0.9 Step 0.1
seno = Sin(x)
y = Atn(seno / Sqr(1 - seno ^ 2))
gradi = Left((y * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " y = " & y & " gradi= " & gradi)
Next x
ListBox1.AddItem ("---------------------")

End Sub

Private Sub deriarcoseno6_Click()

End Sub

Private Sub deriseno_Click()

End Sub

Private Sub tuttoseno_Click()

End Sub

Private Sub UserForm_Click()

End Sub