-
-
根据A、B两点X,Y坐标算出角度的VB写法
-
发表于: 2015-11-1 14:11
-
我想根据A、B两点X,Y坐标算出角度1-360度的VB写法
以下写法获得的结果是
12点方向是90度、
3点方向是0、
6点方向是-90、
9点方向是0.
如何修改成我想要的效果？
Text1.Text = PointToDegree(ax - bx, ay - by)
Function PointToDegree(ByVal x As Double, ByVal y As Double) As Double
Const PI As Double = 3.14159265359
Dim Hyp As Double
Hyp = Sqr(x * x + y * y)
PointToDegree = Asin(y / Hyp) * 180 / PI
End Function
Function Asin(ByVal Number As Double) As Double
Asin = Atn(Number / Sqr(-Number * Number + 1))
End Function
以下写法获得的结果是
12点方向是90度、
3点方向是0、
6点方向是-90、
9点方向是0.
如何修改成我想要的效果？
Text1.Text = PointToDegree(ax - bx, ay - by)
Function PointToDegree(ByVal x As Double, ByVal y As Double) As Double
Const PI As Double = 3.14159265359
Dim Hyp As Double
Hyp = Sqr(x * x + y * y)
PointToDegree = Asin(y / Hyp) * 180 / PI
End Function
Function Asin(ByVal Number As Double) As Double
Asin = Atn(Number / Sqr(-Number * Number + 1))
End Function
[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课
|
|
|---|---|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
