已知两点坐标,在vb中怎样计算两点连线与水平线的角度?求公式代码
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/23 15:30:51
已知两点坐标,在vb中怎样计算两点连线与水平线的角度?求公式代码
我需要在VB中的代码啊
我需要在VB中的代码啊
Private Sub Command1_Click()
Dim l As Integer
l = Sqr((Line1.x1 - Line1.X2) ^ 2 + (Line1.Y1 - Line1.Y2) ^ 2)
Print ArcCos((Line1.X2 - Line1.x1) / l)
End Sub
Public Function ArcCos(x As Single) As Single
Dim x0 As Single, x1 As Single, z As Single
Dim i As Integer
x0 = 1
Do
x1 = x0 + (Cos(x0) - x) / Sin(x0)
z = Abs(x1 - x0)
x0 = x1
i = 1 + 1
If i > 50 Then Exit Do
Loop Until z < 0.000001
ArcCos = x0 * 180 / 3.1415927
End Function
Dim l As Integer
l = Sqr((Line1.x1 - Line1.X2) ^ 2 + (Line1.Y1 - Line1.Y2) ^ 2)
Print ArcCos((Line1.X2 - Line1.x1) / l)
End Sub
Public Function ArcCos(x As Single) As Single
Dim x0 As Single, x1 As Single, z As Single
Dim i As Integer
x0 = 1
Do
x1 = x0 + (Cos(x0) - x) / Sin(x0)
z = Abs(x1 - x0)
x0 = x1
i = 1 + 1
If i > 50 Then Exit Do
Loop Until z < 0.000001
ArcCos = x0 * 180 / 3.1415927
End Function
已知三点坐标,在vb中怎样计算角度值?求公式代码
空间直角坐标系中两点连线的中点坐标公式
已知两点坐标,求两点距离公式
求VB 基础操作 已知平面坐标系内两点的坐标,求两点间的距离
建筑测量中:已知两点坐标,及第三点坐标与两点之间的关系,如何求第三点坐标?
已知三角形三个边长,三个角的角度,AB两点的坐标,怎样求C点坐标?
已知两点坐标,第三点到两点的距离,求第三点的坐标公式
已知两点坐标,连接这两点,求线段的中点坐标.有没有什么公式啊?
两点间距离计算公式在平面直角坐标系中,两点之间的距离怎么求?
已知两点坐标求直线距离公式
已知两点坐标和第三点与两点的距离,怎么计算第三点坐标
已知两点坐标,两点间距离是多少 ,求那个公式