module1.bas

用vb6开发的为计算道路等线状,圆和直线计算坐标的程式

Attribute VB_Name = "Module1"
Public Const pi = 3.14159265358979

'计算两点的方位角
Public Function fangwei(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
Dim dltx As Double     'X增量
Dim dlty As Double     'Y增量
Dim a As Double        '角度的弧度值

'以下为判断在那个象限
dltx = x2 - x1
dlty = y2 - y1
If dltx > 0 And dlty > 0 Then a = Atn(Abs(dlty / dltx))
If dltx < 0 And dlty > 0 Then a = pi - Atn(Abs(dlty / dltx))
If dltx < 0 And dlty < 0 Then a = pi + Atn(Abs(dlty / dltx))
If dltx > 0 And dlty < 0 Then a = 2 * pi - Atn(Abs(dlty / dltx))
If dltx > 0 And dlty = 0 Then a = 0
If dltx = 0 And dlty > 0 Then a = pi / 2
If dltx < 0 And dlty = 0 Then a = pi
If dltx = 0 And dlty < 0 Then a = pi + pi / 2
fangwei = a

End Function

'计算两点的距离
Public Function Ldjuli(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
Ldjuli = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
End Function
'度分秒到弧的计算
Public Function dfm_to_hu(sss As Double)

Dim du As Double
du = Int(sss) + Int((sss - Int(sss)) * 100) / 60 + (sss * 100 - Int(sss * 100)) * 100 / 3600
dfm_to_hu = du * pi / 180

End Function
'反余弦
Public Function arccos(x As Double)
arccos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Function
'反正弦
Public Function arcsin(x As Double)
arcsin = Atn(x / Sqr(-x * x + 1))
End Function