📄 后方交会.frm
字号:
Top = 360
Width = 615
End
End
Begin VB.CommandButton Command2
Caption = "求初始值"
Height = 375
Left = 3720
TabIndex = 20
Top = 2640
Width = 855
End
Begin VB.Frame Frame2
Caption = "2、未知数初始值的确定"
Height = 2295
Left = 5160
TabIndex = 3
Top = 120
Width = 2295
Begin VB.TextBox Text8
Height = 270
Left = 1680
TabIndex = 19
Text = "Text8"
Top = 1920
Width = 495
End
Begin VB.TextBox Text7
Height = 270
Left = 1680
TabIndex = 18
Text = "Text7"
Top = 1440
Width = 495
End
Begin VB.TextBox Text6
Height = 270
Left = 1680
TabIndex = 17
Text = "Text6"
Top = 960
Width = 495
End
Begin VB.TextBox Text5
Height = 270
Left = 480
TabIndex = 13
Text = "Text5"
Top = 1680
Width = 735
End
Begin VB.TextBox Text4
Height = 270
Left = 480
TabIndex = 11
Text = "Text4"
Top = 1200
Width = 735
End
Begin VB.TextBox Text3
Height = 270
Left = 1320
TabIndex = 8
Text = "Text3"
Top = 530
Width = 855
End
Begin VB.TextBox Text2
Height = 270
Left = 360
TabIndex = 7
Text = "Text2"
Top = 720
Width = 735
End
Begin VB.TextBox Text1
Height = 270
Left = 360
TabIndex = 4
Text = "Text1"
Top = 360
Width = 735
End
Begin VB.Label Label8
Caption = "γ＝"
Height = 255
Left = 1320
TabIndex = 16
Top = 1920
Width = 615
End
Begin VB.Label Label7
Caption = "β＝"
Height = 255
Left = 1320
TabIndex = 15
Top = 1440
Width = 615
End
Begin VB.Label Label6
Caption = "α="
Height = 255
Left = 1320
TabIndex = 14
Top = 960
Width = 495
End
Begin VB.Label Label5
Caption = "Ys0="
Height = 255
Left = 120
TabIndex = 12
Top = 1680
Width = 495
End
Begin VB.Label Label4
Caption = "Xs0="
Height = 255
Left = 120
TabIndex = 10
Top = 1200
Width = 495
End
Begin VB.Label Label3
Caption = "Zs0:"
Height = 255
Left = 1320
TabIndex = 9
Top = 360
Width = 495
End
Begin VB.Line Line4
X1 = 1200
X2 = 1320
Y1 = 600
Y2 = 600
End
Begin VB.Line Line3
X1 = 1080
X2 = 1200
Y1 = 840
Y2 = 840
End
Begin VB.Line Line2
X1 = 1200
X2 = 1200
Y1 = 840
Y2 = 480
End
Begin VB.Line Line1
X1 = 1080
X2 = 1200
Y1 = 480
Y2 = 480
End
Begin VB.Label Label2
Caption = "f="
Height = 255
Left = 120
TabIndex = 6
Top = 720
Width = 255
End
Begin VB.Label Label1
Caption = "m="
Height = 255
Left = 120
TabIndex = 5
Top = 360
Width = 375
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 9840
Top = 4920
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command1
Caption = "打开文件"
Height = 375
Left = 2520
TabIndex = 2
Top = 2640
Width = 855
End
Begin VB.Frame Frame1
Caption = "1、获取像点及地面摄影坐标"
Height = 2295
Left = 120
TabIndex = 0
Top = 120
Width = 4455
Begin MSComctlLib.ListView ListView1
Height = 1935
Left = 120
TabIndex = 1
Top = 240
Width = 4215
_ExtentX = 7435
_ExtentY = 3413
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
End
Begin VB.Line Line26
BorderColor = &H00FF00FF&
X1 = 3360
X2 = 4920
Y1 = 3360
Y2 = 3000
End
Begin VB.Line Line25
BorderColor = &H00FF00FF&
X1 = 3360
X2 = 3720
Y1 = 3550
Y2 = 3550
End
Begin VB.Line Line24
BorderColor = &H00FF00FF&
X1 = 4560
X2 = 4920
Y1 = 3550
Y2 = 3550
End
Begin VB.Line Line23
BorderColor = &H00FF00FF&
X1 = 5400
X2 = 5400
Y1 = 3000
Y2 = 3360
End
Begin VB.Line Line22
BorderColor = &H00FF00FF&
X1 = 4560
X2 = 4920
Y1 = 2800
Y2 = 2800
End
Begin VB.Line Line21
BorderColor = &H00FF00FF&
X1 = 3360
X2 = 3720
Y1 = 2800
Y2 = 2800
End
Begin VB.Line Line20
BorderColor = &H000000FF&
X1 = 2160
X2 = 2280
Y1 = 5160
Y2 = 5160
End
Begin VB.Line Line19
BorderColor = &H000000FF&
X1 = 6240
X2 = 6240
Y1 = 2520
Y2 = 2400
End
Begin VB.Line Line18
BorderColor = &H000000FF&
X1 = 2280
X2 = 6240
Y1 = 2520
Y2 = 2520
End
Begin VB.Line Line17
BorderColor = &H000000FF&
X1 = 2160
X2 = 2280
Y1 = 3600
Y2 = 3600
End
Begin VB.Line Line16
BorderColor = &H000000FF&
X1 = 2280
X2 = 2280
Y1 = 5160
Y2 = 2520
End
Begin VB.Line Line15
BorderColor = &H000000FF&
X1 = 2160
X2 = 2400
Y1 = 6120
Y2 = 6120
End
Begin VB.Line Line14
BorderColor = &H000000FF&
X1 = 5880
X2 = 6000
Y1 = 5640
Y2 = 5640
End
Begin VB.Line Line13
BorderColor = &H000000FF&
X1 = 6000
X2 = 6000
Y1 = 3840
Y2 = 6600
End
Begin VB.Line Line12
BorderColor = &H000000FF&
X1 = 6000
X2 = 6120
Y1 = 6600
Y2 = 6600
End
Begin VB.Line Line11
BorderColor = &H000000FF&
X1 = 6000
X2 = 6120
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line10
BorderColor = &H000000FF&
X1 = 10440
X2 = 10200
Y1 = 6600
Y2 = 6600
End
Begin VB.Line Line9
BorderColor = &H000000FF&
X1 = 10440
X2 = 10200
Y1 = 3600
Y2 = 3600
End
Begin VB.Line Line8
BorderColor = &H000000FF&
X1 = 10440
X2 = 10440
Y1 = 1320
Y2 = 6600
End
Begin VB.Line Line7
BorderColor = &H000000FF&
X1 = 10200
X2 = 10440
Y1 = 1320
Y2 = 1320
End
Begin VB.Line Line6
BorderColor = &H000000FF&
X1 = 7440
X2 = 7920
Y1 = 1200
Y2 = 1200
End
Begin VB.Line Line5
BorderColor = &H000000FF&
X1 = 4560
X2 = 5160
Y1 = 1200
Y2 = 1200
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ptNo As Integer, m As Single, f As Single
Dim X1() As Single, Y1() As Single, Xtp1() As Single, Ytp1() As Single, Ztp1() As Single
Dim Xs0 As Single, Ys0 As Single, Zs0 As Single
Dim Alf1 As Single, Alf2 As Single, Omg1 As Single, Omg2 As Single, Kp1 As Single, Kp2 As Single
Dim R1(1 To 9) As Single
Dim XX As Single, YY As Single, ZZ As Single
Dim A(1 To 2, 1 To 6) As Single
Dim AA() As Single, LL() As Single
Dim VV() As Single, ATA() As Single, ATL() As Single
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文件|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
ptNo = 1
ListView1.ListItems.Clear
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Data1 = " "
Data = ""
Do While Asc(Data1) = 32
Data1 = Input(1, #1)
Loop
Do While Asc(Data1) <> 32
Data = Data + Data1
u = Asc(Data1)
If Asc(Data1) = 13 Or EOF(1) Then Exit Do
Data1 = Input(1, #1)
Loop
If EOF(1) Then Exit Do
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -