tangente

esci con testvba.htm

tangente.ppt

studio di tangente e cotangente

Private Sub CommandButton10_Click()
Rem derivata arcotangente
deriarcotangente.Visible = True
For x = -10 To 10
y1 = Left((1 / (1 + x ^ 2)), 5)
ListBox1.AddItem ("x = " & x & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton11_Click()
Rem arcotangente e sua derivata
gonio5.Visible = True
For x = -10 To 10
y = Left(Atn(x), 6)
y1 = Left((1 / (1 + x ^ 2)), 5)
ListBox1.AddItem ("x = " & x & " y = " & y & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton12_Click()
Rem formule e grafi
tangentex.Visible = True
ListBox1.AddItem (" funzione tangente = tan(x)")
ListBox1.AddItem (" funzione arcotangente = atan(x) ")
ListBox1.AddItem (" derivata tangente = 1 + tan(x)^2 ")
ListBox1.AddItem (" derivata arcotangente = 1 / (1 + x^2) ")
End Sub

Private Sub CommandButton3_Click()
Rem gonio3 tangente
tangente.Visible = True
ListBox1.AddItem (" funzione : y = tan(x)) ")
For x = 0 To 6.28 Step 0.1
y = Left(Tan(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 = Left(Tan(x), 5)
ListBox1.AddItem ("a = " & a & " y= " & y)
Next a
End Sub

Private Sub CommandButton5_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton6_Click()
gonio3.Visible = False
tangente.Visible = False
deritangente.Visible = False
gonio5.Visible = False
arcotangente.Visible = False
deriarcotangente.Visible = False
tangentex.Visible = False
End Sub

Private Sub CommandButton7_Click()
Rem derivata tangente
deritangente.Visible = True
ListBox1.AddItem ("derivata prima : y' = 1 + tan(x)^2 ")
For x = 0 To 6.28 Step 0.1
y1 = 1 + Tan(x) ^ 2
gradi = x * 180 / 3.14
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 = 1 + Tan(x) ^ 2
ListBox1.AddItem ("a = " & a & " y'= " & y1)
Next a

End Sub

Private Sub CommandButton8_Click()
Rem tangente e derivata
gonio3.Visible = True
ListBox1.AddItem (" funzione : y = tan(x)) ")
ListBox1.AddItem ("derivata prima : y' = 1 + tan(x)^2 ")
ListBox1.AddItem ("---funzione e derivata --")
For x = 0 To 6.28 Step 0.1
y = Left(Tan(x), 5)
y1 = Left((1 + Tan(x) ^ 2), 5)
gradi = Left((x * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " gradi= " & gradi & " y= " & y & " y' = " & y1)
Next x
ListBox1.AddItem ("---------------------------")
For a = 0 To 360 Step 10
x = a * 3.14 / 180
y = Left(Tan(x), 5)
y1 = Left((1 + Tan(x) ^ 2), 5)
ListBox1.AddItem ("a = " & a & " y= " & y & " y' = " & y1)
Next a
End Sub

Private Sub CommandButton9_Click()
Rem arcotangente
arcotangente.Visible = True
ListBox1.AddItem ("funzione y = atn(x) ")
For x = -20 To 30
y = Left(Atn(x), 6)
gradi = Left((y * 180 / 3.14), 2)
ListBox1.AddItem ("x = " & x & " gradi = " & gradi & " y = " & y)
Next x
End Sub



Private Sub deriarcotangente_Click()

End Sub

Private Sub tangentex_Click()

End Sub

Private Sub UserForm_Click()

End Sub