module2.bas

测绘仪器的模拟器

Attribute VB_Name = "Module2"
Public Function PointSurvey(ByVal x As Single, ByVal y As Single, ByVal z As Single, ByVal h As Single, ByVal i As Single, ByVal m As Integer)
If m Mod 4 = 0 Then
                     n = 3610.93
                     E = 76.474
                     z = 56.208
ElseIf m Mod 4 = 1 Then
                     n = 3223.019
                     E = 3955.484
                     z = 78.266
ElseIf m Mod 4 = 2 Then
                     n = 33.818
                     E = 3669.35
                     z = 48.736
ElseIf m Mod 4 = 3 Then
                     n = 19.366
                     E = 45.016
                     z = 12.368
End If
End Function