已知两点坐标，在vb中怎样计算两点连线与水平线的角度？求公式代码

Posted 2023-05-17

我需要在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

参考技术A 根据坐标用反正弦函数求出来吧！追问

大神，能帮忙写下VB程序代码么？

JAVA实现求一点到另两点连线的距离,计算两点之间的距离

   直接上代码

/**
 *计算两点之间距离
 */
public static double getDistance(Point start,Point end){
 double lat1=start.getX().doubleValue();
 double lat2=end.getX().doubleValue();
 double lon1=start.getY().doubleValue();
 double lon2=end.getY().doubleValue();
 return Math.sqrt(Math.pow(lat1-lat2,2)+Math.pow(lon1-lon2,2));
}

/**

*根据海伦公式获得面积
*/
public static double getArea(double ab,double ac,double bc){
 double p=(ab+bc+ac)/2;
 return Math.sqrt(p*(p-ab)*(p-ac)*(p-bc));
}

 下面就是求一点到两点连线之间的距离

public　static double getDistance(Point start,Point end){
 double lat1=start.getX().doubleValue();
 double lat2=end.getX().doubleValue();
 double lon1=start.getY().doubleValue();
 double lon2.end.getY().doubleValue();
 return Math.sqrt(Math.pow(lat1-lat2,2)+Math.pow(lon1-lon2,2));
}