锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net余弦函数 vb取余运算

IT技术EndFunctionF

用vb编程的计算器怎么样编写正弦和余弦函数一般都是用角度值求三角函数，需要把角度值换算成弧度值 。代码如下：
Dim a
Dim pin As Double
Private Sub Form_Load()
pin = 3.14159265358979
End Sub
Private Sub Command1_Click()'求sin按键
a = Sin((Tex_in) * 2 * pin / 360)
Tex_out = a
End Sub
Private Sub Command2_Click()'求cos按键
a = Cos((Tex_in) * 2 * pin / 360)
Tex_out = a
End Sub
在vb中 。如何进行三角函数的程序代码编写有几个地方要注意：
1、VB中的三角函数的角度全部是用弧度制表示的 ， 如果是度数的话，应先乘以180再除以π转成弧度，再用函数计算结果 。
2、VB中直接支持的三角函数有：Sin()、Cos()、Tan()，如果涉及到其它三角函数，可以从下面列出的代码中自己选择相应的函数：
Function
Sec(X)
As
Double
'正割
Sec
=
1
/
Cos(Angle)
End
Function
Function
Csc(X)
As
Double
'余割
Csc
=
1
/
Sin(Angle)
End
Function
Function
Cot(X)
As
Double
'余切
Cot
=
1
/
Tan(Angle)
End
Function
Function
ArcSin(X)
As
Double
'反正弦
ArcSin
=
Atn(X
/
Sqr(-X
*
X
1))
End
Function
Function
ArcCos(X)
As
Double
'反余弦
ArcCos
=
Atn(-X
/
Sqr(-X
*
X
1))
2
*
Atn(1)
End
Function
Function
ArcSec(X)
As
Double
'反正割
ArcSec
=
Atn(X
/
Sqr(X
*
X
-
1))
Sgn((X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCsc(X)
As
Double
'反余割
ArcCsc
=
Atn(X
/
Sqr(X
*
X
-
1))
(Sgn(X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCot(X)
As
Double
'反余切
ArcCot
=
Atn(X)
2
*
Atn(1)
End
【vb.net余弦函数 vb取余运算】Function
Function
HSin(X)
As
Double
'双曲正弦
HSin
=
(Exp(X)
-
Exp(-X))
/
2
End
Function
Function
HCos(X)
As
Double
'双曲余弦
HCos
=
(Exp(X)
Exp(-X))
/
2
End
Function
Function
HTan(X)
As
Double
'双曲正切
HTan
=
(Exp(X)
-
Exp(-X))
/
(Exp(X)
Exp(-X))
End
Function
Function
HSec(X)
As
Double
'双曲正割
HSec
=
2
/
(Exp(X)
Exp(-X))
End
Function
Function
HCsc(X)
As
Double
'双曲余割
HCsc
=
2
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HCot(X)
As
Double
'双曲余切
HCot
=
(Exp(X)
Exp(-X))
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HArcsin(X)
As
Double
'反双曲正弦
HArcsin
=
Log(X
Sqr(X
*
X
1))
End
Function
Function
HArccos(X)
As
Double
'反双曲余弦
HArccos
=
Log(X
Sqr(X
*
X
-
1))
End
Function
Function
HArctan(X)
As
Double
'反双曲正切
HArctan
=
Log((1
X)
/
(1
-
X))
/
2
End
Function
Function
HArcsec(X)
As
Double
'反双曲正割
HArcsec
=
Log((Sqr(-X
*
X
1)
1)
/
X)
End
Function
Function
HArccsc(X)
As
Double
'反双曲余割
HArccsc
=
Log((Sgn(X)
*
Sqr(X
*
X
1)
1)
/
X)
End
Function
Function
HArccot(X)
As
Double
'反双曲余切
HArccot
=
Log((X
1)
/
(X
-
1))
/
2
End
Function
有谁知道VB编程中运算sin、cos、tan、cot的程序怎么写？sin(角度值）同理cos,tan
Atn()是VB反正切函数，VB不提供其他反三角函数，不过可以用下列公式导出：
Inverse Sine （反正弦）：
Arcsin(X) = Atn(X / Sqr(-X * X1))
Inverse Cosine （反余弦）：
Arccos(X) = Atn(-X / Sqr(-X * X1))2 * Atn(1)
Inverse Secant （反正割）：
Arcsec(X) = Atn(X / Sqr(X * X - 1))Sgn((X) - 1) * (2 * Atn(1))
Inverse Cosecant （反余割）：
Arccosec(X) = Atn(X / Sqr(X * X - 1))(Sgn(X) - 1) * (2 * Atn(1))
以上这些公式，其实就是应用了数学中的各类三角函数和正切函数之间的关系导出的 。其中需要注意的是其中的 X 不能等于正负1 。（引用-_-）
x都是弧度制
怎样用vb求余弦？怎样编写 ， 谢谢Option Explicit
Const Pi As Double = 3.1415626
Sub 测试()
Dim X As Double, JD As Double,HD As Double
JD = 30'角度，度
HD = JD * Pi / 180'弧度
'取指定角度的余弦
X = Cos(HD)
'根据余弦求度数
X = ArcCos(X, 4)
MsgBox "根据余弦求度数: ArcCos(X)===="X
End Sub
Public Function ArcCos(ByVal X As Double, ByVal Dic As Integer) As Double
'根据余弦求度数
'参数：余弦（单位弧度）,小数位数
'返回：角度，度数（十进制）
ArcCos = Atn(-X / Sqr(-X * X1))2 * Atn(1)
ArcCos = Round(ArcCos / Pi * 180, Dic)
End Function
不知对你有否帮助？
关于vb.net余弦函数和vb取余运算的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：sqlserver2012产品更新，sqlserver更新语句怎么写

    下一篇：在电脑看直播怎么录音呢，如何把电脑上的直播录下来