📄 贝塞尔大地主题解算.frm
字号:
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 5040
TabIndex = 63
Top = 960
Width = 285
End
Begin VB.Label Label35
Caption = "秒"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 5160
TabIndex = 62
Top = 1680
Width = 285
End
Begin VB.Label Label34
Caption = "秒"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 5040
TabIndex = 61
Top = 2160
Width = 285
End
Begin VB.Label Label33
Caption = "分"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3120
TabIndex = 59
Top = 960
Width = 285
End
Begin VB.Label Label32
Caption = "分"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3120
TabIndex = 58
Top = 1680
Width = 285
End
Begin VB.Label Label31
Caption = "分"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3120
TabIndex = 57
Top = 2160
Width = 285
End
Begin VB.Label Label30
Caption = "度"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2160
TabIndex = 55
Top = 960
Width = 285
End
Begin VB.Label Label29
Caption = "度"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2160
TabIndex = 54
Top = 1680
Width = 285
End
Begin VB.Label Label28
Caption = "度"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2160
TabIndex = 53
Top = 2160
Width = 285
End
Begin VB.Label Label27
Caption = "秒"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 5040
TabIndex = 52
Top = 480
Width = 285
End
Begin VB.Label Label26
Caption = "分"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3120
TabIndex = 50
Top = 480
Width = 285
End
Begin VB.Label Label25
Caption = "度"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2160
TabIndex = 48
Top = 480
Width = 285
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "P2："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 8
Top = 2040
Width = 480
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "经度L2＝"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 600
TabIndex = 7
Top = 2280
Width = 960
End
Begin VB.Label Label11
Caption = "纬度B2＝"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 6
Top = 1800
Width = 1095
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "P1："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 5
Top = 840
Width = 480
End
Begin VB.Label Label9
Caption = "纬度B1＝"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 4
Top = 600
Width = 1095
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "经度L1＝"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 600
TabIndex = 3
Top = 1080
Width = 960
End
End
Begin VB.Label Label53
AutoSize = -1 'True
Caption = "大地主题解算"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 4680
TabIndex = 90
Top = 360
Width = 1980
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Function arcsin(X As Double) As Double
arcsin = Atn(X / Sqr(-X * X + 1))
End Function
Public Function arccos(X As Double) As Double
arccos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim e As Double
Dim e1 As Double
Dim A1 As Double
Dim A2 As Double
Dim i As Integer
Dim L1 As Double
Dim L2 As Double
Dim B1 As Double
Dim B2 As Double
Dim l As Double
Dim x1 As Double, x2 As Double, x3 As Double, x4 As Double, x5 As Double
Dim CA1 As Double, SA1 As Double, CA2 As Double, SA2 As Double
Dim f As Double
Dim u As Double
Dim v As Double
Dim A21 As Double
Dim B21 As Double
Dim Bm As Double
Dim Am As Double
Dim tm As Double
Dim Nm As Double
Dim Vm As Double
Dim cm As Double
Dim L21 As Double
Dim tgA2 As Double
Dim k1 As Double
Dim k11 As Double
Dim q1 As Double, q2 As Double, q3 As Double, q4 As Double
Dim dtc(0 To 5) As Double, sdd As Double, u1 As Double, c1 As Double
Dim un As Double, t As Double, k2 As Double, k3 As Double, tgw1 As Double
Dim w1 As Double, dtw1 As Double
Const pi = 3.1415926535897
a = 6378245
b = 6356863.01877305
e = 0.08181333401693
e1 = 0.08208852182055
B1 = (Val(Text1.Text) + Val(Text15.Text) / 60 + Val(Text16.Text) / 3600) / 180 * pi
L1 = (Val(Text2.Text) + Val(Text17.Text) / 60 + Val(Text18.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -