📄 空间坐标转换.ebf
字号:
Left = 240
TabIndex = 35
Top = 240
Width = 1335
_cx = 2355
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "(D.MMSSSSS)B="
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label Label17
Height = 375
Left = 240
TabIndex = 34
Top = 720
Width = 1335
_cx = 2355
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "(D.MMSSSSS)L="
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label Label16
Height = 375
Left = 960
TabIndex = 33
Top = 1200
Width = 615
_cx = 1085
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "(m)H="
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label Label15
Height = 375
Left = 1320
TabIndex = 32
Top = 1680
Width = 255
_cx = 450
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "X="
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label Label14
Height = 375
Left = 1320
TabIndex = 31
Top = 2160
Width = 255
_cx = 450
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "Y="
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label Label13
Height = 375
Left = 1320
TabIndex = 30
Top = 2640
Width = 255
_cx = 450
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "H="
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
End
Begin VBCE.CommandButton Command2
Height = 375
Left = 1320
TabIndex = 12
Top = 3360
Width = 975
_cx = 1720
_cy = 661
BackColor = 12632256
Caption = "返 回"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
End
Attribute VB_Name = "Form9"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
DX = -60.955021 '余姚市WGS84转北京54空间坐标参数
DY = 123.068774
DZ = 61.418283
RX = -0.0000021342
RY = 0.000003394
RZ = 0.0000153074
K = -0.000011669551
M = 1 + K
If IsNumeric(Text1) = False Then Text1.Text = "": Text1.SetFocus: Exit Sub
If IsNumeric(Text2) = False Then Text2.Text = "": Text2.SetFocus: Exit Sub
If IsNumeric(Text3) = False Then Text3.Text = "": Text3.SetFocus: Exit Sub
If CDbl(Text1.Text) >= 180 Then MsgBox "纬度不能大于180度", vbExclamation, "坐标正算": Text1.Text = "": Text1.SetFocus: Exit Sub
If CDbl(Text2.Text) >= 180 Then MsgBox "经度不能大于180度", vbExclamation, "坐标正算": Text2.Text = "": Text2.SetFocus: Exit Sub
B0 = CDbl(Text1)
deg (B0)
B0 = aw
L0 = CDbl(Text2)
deg (L0)
L0 = aw
H0 = CDbl(Text3)
WGS84XYH
XS = X0
YS = Y0
ZS = Z0
XT = M * (XS + RZ * YS - RY * ZS) + DX
YT = M * (-RZ * XS + YS + RX * ZS) + DY
ZT = M * (RY * XS - RX * YS + ZS) + DZ
X = XT
Y = YT
Z = ZT
BLTOXY
b = b * p
l = l * p + 180
lo = 123
zuobiaozhengsuan
Text4.Text = CStr(xx2)
Text5.Text = CStr(yy2)
Text6.Text = CStr(FormatNumber(H0, 3))
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
Private Sub Command3_Click()
If IsNumeric(Text7) = False Then Text7.Text = "": Text7.SetFocus: Exit Sub
If IsNumeric(Text8) = False Then Text8.Text = "": Text8.SetFocus: Exit Sub
If IsNumeric(Text9) = False Then Text9.Text = "": Text9.SetFocus: Exit Sub
X = CDbl(Text7)
Y = CDbl(Text8)
H0 = CDbl(Text9)
xa = X
ya = Y
nbtobj
x2 = xx2
y2 = yy2
a = 120
d = 123
huandai
x1 = xx2
y1 = yy2
lo = 123#
zuobiaotojingwei
B0 = bbb
L0 = lll
BJ54XYH
XS = X0
YS = Y0
ZS = Z0
DX = 60.955021 '余姚市WGS84转北京54空间坐标参数
DY = -123.068774
DZ = -61.418283
RX = 0.0000021342
RY = -0.000003394
RZ = -0.0000153074
K = 0.000011669551
M = 1 + K
XT = M * (XS + RZ * YS - RY * ZS) + DX
YT = M * (-RZ * XS + YS + RX * ZS) + DY
ZT = M * (RY * XS - RX * YS + ZS) + DZ
X = XT
Y = YT
Z = ZT
WGS84BLH
dms (b * p)
Text10.Text = bstr
dms (l * p + 180)
Text11.Text = bstr
Text12.Text = H0
End Sub
Private Sub Command4_Click()
DX = -60.955021 '余姚市WGS84转北京54空间坐标参数
DY = 123.068774
DZ = 61.418283
RX = -0.0000021342
RY = 0.000003394
RZ = 0.0000153074
K = -0.000011669551
M = 1 + K
If IsNumeric(Text18) = False Then Text18.Text = "": Text18.SetFocus: Exit Sub
If IsNumeric(Text17) = False Then Text17.Text = "": Text17.SetFocus: Exit Sub
If IsNumeric(Text16) = False Then Text16.Text = "": Text16.SetFocus: Exit Sub
If CDbl(Text18.Text) >= 180 Then MsgBox "纬度不能大于180度", vbExclamation, "坐标正算": Text18.Text = "": Text18.SetFocus: Exit Sub
If CDbl(Text17.Text) >= 180 Then MsgBox "经度不能大于180度", vbExclamation, "坐标正算": Text17.Text = "": Text17.SetFocus: Exit Sub
B0 = CDbl(Text18)
deg (B0)
B0 = aw
L0 = CDbl(Text17)
deg (L0)
L0 = aw
H0 = CDbl(Text16)
WGS84XYH
XS = X0
YS = Y0
ZS = Z0
XT = M * (XS + RZ * YS - RY * ZS) + DX
YT = M * (-RZ * XS + YS + RX * ZS) + DY
ZT = M * (RY * XS - RX * YS + ZS) + DZ
X = XT
Y = YT
Z = ZT
BLTOXY
b = b * p
l = l * p + 180
lo = 123
zuobiaozhengsuan
x2 = xx2
y2 = yy2
a = 123
d = 120
huandai
x2 = xx2
y2 = yy2
bjtoxa
Text15.Text = CStr(xx2)
Text14.Text = CStr(yy2)
Text13.Text = CStr(FormatNumber(H0, 3))
End Sub
Private Sub Form_Load()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -