📄 form1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 8655
ClientLeft = 60
ClientTop = 450
ClientWidth = 6660
LinkTopic = "Form1"
ScaleHeight = 8655
ScaleWidth = 6660
StartUpPosition = 3 '窗口缺省
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5520
Top = 240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command4
Caption = "结束"
Height = 375
Left = 5640
TabIndex = 27
Top = 5400
Width = 615
End
Begin VB.CommandButton Command3
Caption = "输出数据"
Height = 375
Left = 2640
TabIndex = 26
Top = 5400
Width = 975
End
Begin VB.CommandButton Command2
Caption = "计算"
Height = 375
Left = 1440
TabIndex = 25
Top = 5400
Width = 975
End
Begin MSComctlLib.ListView ListView2
Height = 2655
Left = 120
TabIndex = 24
Top = 5880
Width = 6345
_ExtentX = 11192
_ExtentY = 4683
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.CommandButton Command1
Caption = "读入数据"
Height = 375
Left = 240
TabIndex = 23
Top = 5400
Width = 975
End
Begin MSComctlLib.ListView ListView1
Height = 2655
Left = 120
TabIndex = 22
Top = 2640
Width = 6345
_ExtentX = 11192
_ExtentY = 4683
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Frame Frame2
Caption = "摄影基线B:"
Height = 1695
Left = 4560
TabIndex = 15
Top = 840
Width = 1935
Begin VB.TextBox Text9
Enabled = 0 'False
Height = 270
Left = 720
TabIndex = 21
Text = "23*0.65*8000"
Top = 1200
Width = 975
End
Begin VB.TextBox Text8
Enabled = 0 'False
Height = 270
Left = 720
TabIndex = 20
Text = "0"
Top = 720
Width = 975
End
Begin VB.TextBox Text7
Enabled = 0 'False
Height = 270
Left = 720
TabIndex = 19
Text = "0"
Top = 240
Width = 975
End
Begin VB.Label Label11
Caption = "Bz="
Height = 255
Left = 240
TabIndex = 18
Top = 1200
Width = 495
End
Begin VB.Label Label10
Caption = "By="
Height = 255
Left = 240
TabIndex = 17
Top = 720
Width = 495
End
Begin VB.Label Label9
Caption = "Bx="
Height = 255
Left = 240
TabIndex = 16
Top = 240
Width = 495
End
End
Begin VB.Frame Frame1
Caption = "相对定向元素："
Height = 1695
Left = 120
TabIndex = 2
Top = 840
Width = 4095
Begin VB.TextBox Text6
Enabled = 0 'False
Height = 270
Left = 2760
TabIndex = 14
Text = "0.00828076"
Top = 1200
Width = 1095
End
Begin VB.TextBox Text5
Enabled = 0 'False
Height = 270
Left = 2760
TabIndex = 13
Text = "0.00411602"
Top = 720
Width = 1095
End
Begin VB.TextBox Text4
Enabled = 0 'False
Height = 270
Left = 2760
TabIndex = 12
Text = "0.00114292"
Top = 240
Width = 1095
End
Begin VB.TextBox Text3
Enabled = 0 'False
Height = 270
Left = 840
TabIndex = 8
Text = "0.00878284"
Top = 1200
Width = 1095
End
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 270
Left = 840
TabIndex = 7
Text = "0"
Top = 720
Width = 1095
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Left = 840
TabIndex = 6
Text = "0.00139630"
Top = 240
Width = 1095
End
Begin VB.Label Label8
Caption = "kapa2:"
Height = 255
Left = 2040
TabIndex = 11
Top = 1200
Width = 735
End
Begin VB.Label Label7
Caption = "omiga2:"
Height = 255
Left = 2040
TabIndex = 10
Top = 720
Width = 735
End
Begin VB.Label Label6
Caption = "fai2:"
Height = 255
Left = 2040
TabIndex = 9
Top = 240
Width = 735
End
Begin VB.Label Label5
Caption = "kapa1:"
Height = 375
Left = 120
TabIndex = 5
Top = 1200
Width = 615
End
Begin VB.Label Label4
Caption = "omiga1:"
Height = 375
Left = 120
TabIndex = 4
Top = 720
Width = 615
End
Begin VB.Label Label3
Caption = "fai1:"
Height = 375
Left = 120
TabIndex = 3
Top = 240
Width = 615
End
End
Begin VB.Label Label2
Caption = "a2的像空间坐标：（mm ，mm，mm）"
Height = 255
Left = 240
TabIndex = 1
Top = 480
Width = 4935
End
Begin VB.Label Label1
Caption = "a1的像空间坐标：（-0.0082mm ，+0.0251mm，303.883mm）"
Height = 255
Left = 240
TabIndex = 0
Top = 120
Width = 4815
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim XXl() As Single, XXr() As Single, YYl() As Single, YYr() As Single
Dim X1, Y1, X2, Y2, F As Double
Dim Bx, By, Bz As Double
Dim Xs1, Xs2, Ys1, Ys2, Zs1, Zs2 As Double
Dim Fai1, Fai2, Omiga1, Omiga2, Kapa1, Kapa2 As Double
Dim CangF1, CangF2, CangO1, CangO2, CangK1, CangK2, SangF1, SangF2, SangO1, SangO2, SangK1, SangK2 As Double
Dim La1, La2, La3, Lb1, Lb2, Lb3, Lc1, Lc2, Lc3 As Double
Dim Ra1, Ra2, Ra3, Rb1, Rb2, Rb3, Rc1, Rc2, Rc3 As Double
Dim Fx1, Fy1, Fz1, Fx2, Fy2, Fz2 As Double
Dim N1, N2 As Double
Dim Xa, Ya, Za, Qa As Double
Dim AA(3, 2), AAt(2, 3), LLx(3), LLy(3), AAtAA(2, 2), AAtLLx(2), AAtLLy(2), HHl(2), KKl(2), HHr(2), KKr(2) As Double
Dim objItem As MSComctlLib.ListItem
Dim ptNo As Integer, IDNo As Integer, n As Integer
Dim InputData As String
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
'If CommonDialog1.Filter <> ".txt" Then Exit Sub
ptNo = 0
Form1.Height = 6360
Erase XXl
Erase XXr
Erase YYl
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -