frmld.frm

摄影测量后方交会

         AutoSize        =   -1  'True
         Caption         =   "控制点数："
         Height          =   180
         Left            =   120
         TabIndex        =   10
         Top             =   840
         Width           =   900
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "线元素限差："
         Height          =   180
         Left            =   5760
         TabIndex        =   8
         Top             =   360
         Width           =   1080
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "右片号："
         Height          =   180
         Left            =   2760
         TabIndex        =   5
         Top             =   360
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "左片号："
         Height          =   180
         Left            =   480
         TabIndex        =   4
         Top             =   360
         Width           =   720
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "控制点及检查点物方坐标"
      Height          =   3255
      Left            =   240
      TabIndex        =   0
      Top             =   3000
      Width           =   4935
      Begin MSFlexGridLib.MSFlexGrid Grid1 
         Height          =   2415
         Left            =   0
         TabIndex        =   2
         Top             =   240
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   4260
         _Version        =   393216
         Rows            =   4
         Cols            =   4
      End
      Begin VB.CommandButton CmdKD 
         Caption         =   "导入"
         Height          =   495
         Left            =   120
         TabIndex        =   1
         Top             =   2640
         Width           =   975
      End
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "φ:"
      Height          =   180
      Index           =   11
      Left            =   480
      TabIndex        =   48
      Top             =   7440
      Width           =   270
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "κ:"
      Height          =   180
      Index           =   10
      Left            =   4440
      TabIndex        =   47
      Top             =   7440
      Width           =   270
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Ω:"
      Height          =   180
      Index           =   9
      Left            =   2520
      TabIndex        =   46
      Top             =   7440
      Width           =   270
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "ZS:"
      Height          =   180
      Index           =   8
      Left            =   4560
      TabIndex        =   45
      Top             =   6720
      Width           =   270
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "YS:"
      Height          =   180
      Index           =   2
      Left            =   2400
      TabIndex        =   44
      Top             =   6720
      Width           =   270
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "XS:"
      Height          =   180
      Index           =   1
      Left            =   480
      TabIndex        =   43
      Top             =   6720
      Width           =   270
   End
End
Attribute VB_Name = "FrmLD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim i As Integer
Dim j As Integer
Dim a As Double
Dim k As Integer, df As String
Private Sub CmdAdjust_Click()
  k = 0
11:  Call calc
  XS = XS + g_XX(1)
  YS = YS + g_XX(2)
  ZS = ZS + g_XX(3)
  g_A1 = g_A1 + g_XX(4)
  g_A2 = g_A2 + g_XX(5)
  g_A3 = g_A3 + g_XX(6)
  
  
  For i = 1 To 3
     If Abs(g_XX(i)) > g_LineL Then j = j + 1
     If Abs(g_XX(i + 3)) > g_AngleL Then j = j + 1
  Next i
   If j > 0 Then k = k + 1
   If k > 1 Then
   GoTo 11
   End If
'   For i = 1 To 6
'    Print g_XX(i)
'   Next i
   Txtxs.Text = Format(XS, ".####")
   Txtys.Text = Format(YS, ".####")
   Txtzs.Text = Format(ZS, ".####")
   Txtg_A1.Text = Format(g_A1, ".####")
   Txtg_A2.Text = Format(g_A2, ".####")
   Txtg_A3.Text = Format(g_A3, ".####")
End Sub

Private Sub CmdDD_Click()

Me.CommonDialog1.Filter = "*.txt|*.txt"
Me.CommonDialog1.ShowOpen

df = Me.CommonDialog1.FileName
 Me.CommonDialog1.FileName = ""

Open df For Input As #11
 k = 1
Do While Not EOF(11)
     Input #11, g_Potname(k), a, a, a, a, g_Lx(k), g_Ly(k), a, a
     k = k + 1
Loop
Close #11
g_DPotNum = k - 1
TxtDPotnum.Text = g_DPotNum
With Grid2
    .ColWidth(0) = 600
    .ColWidth(1) = 900
    .ColWidth(2) = 900

    .ColAlignment(0) = 4
    .ColAlignment(1) = 4
    .ColAlignment(2) = 4
  
    
  
    .TextMatrix(0, 0) = "点号"
    .TextMatrix(0, 1) = "Lx"
    .TextMatrix(0, 2) = "Ly"
 
     
    .Rows = g_DPotNum + 1
    .Col = 1: .ColSel = 2
    .Row = 1: .RowSel = g_DPotNum
    For i = 1 To g_DPotNum
        .TextMatrix(i, 0) = g_Potname(i)
        .TextMatrix(i, 1) = Format(g_Lx(i), ".####")
        .TextMatrix(i, 2) = Format(g_Ly(i), ".####")

      Next i
   End With
 
 End Sub

Private Sub Cmdexit_Click()
   End
End Sub


Private Sub CmdKD_Click()
   Me.CommonDialog1.Filter = "*.txt|*.txt"
   Me.CommonDialog1.ShowOpen
   df = Me.CommonDialog1.FileName
   Me.CommonDialog1.FileName = ""
   Open df For Input As #22

       Do While Not EOF(22)
       k = k + 1
       Input #22, g_Potname(k), g_X(k), g_Y(k), g_Z(k)
         
       Loop
   Close #22
   g_KPotNum = k
   
TxtKPotNum.Text = g_KPotNum

With Grid1
    .ColWidth(0) = 600
    .ColWidth(1) = 1000
    .ColWidth(2) = 1000
    .ColWidth(3) = 1000
    .ColAlignment(0) = 4
    .ColAlignment(1) = 4
    .ColAlignment(2) = 4
    .ColAlignment(3) = 4

    
    .TextMatrix(0, 0) = "点号"
    .TextMatrix(0, 1) = "X"
    .TextMatrix(0, 2) = "Y"
    .TextMatrix(0, 3) = "Z"

    .Rows = g_KPotNum + 1
    .Col = 1: .ColSel = 3
    .Row = 1: .RowSel = g_KPotNum
    
    For i = 1 To g_KPotNum
        .TextMatrix(i, 0) = g_Potname(i)
        .TextMatrix(i, 1) = Format(g_X(i), ".####")
        .TextMatrix(i, 2) = Format(g_Y(i), ".####")
        .TextMatrix(i, 3) = Format(g_Z(i), ".####")
    Next i
End With
   
    For i = 1 To g_KPotNum
      XS = XS + g_X(i)
      YS = YS + g_Y(i)
       ZS = ZS + g_Z(i)
    Next i
    
    XS = XS / g_KPotNum
    YS = YS / g_KPotNum
    ZS = 15000 * g_F + ZS
    TxtXS10.Text = XS
    TxtYS10.Text = YS
    TxtZS10.Text = ZS
    
    g_H = 15000 * g_F
    
End Sub



Private Sub Form_Load()
 g_F = Val(TxtF.Text) / 1000
 g_AngleL = Val(TxtAngleL.Text)
 g_LineL = Val(TxtLineL.Text)
g_A1 = Val(TxtA1.Text)
g_A2 = Val(TxtA2.Text)
g_A3 = Val(TxtA3.Text)
End Sub

Private Sub TxtA1_Change()
 g_A1 = TxtA1.Text
End Sub
Private Sub TxtA2_Change()
 g_A2 = TxtA2.Text
End Sub
Private Sub TxtA3_Change()
 g_A3 = TxtA3.Text
End Sub
Private Sub TxtAngleL_Change()
  g_AngleL = TxtAngleL.Text
End Sub

Private Sub TxtF_Change()
  g_F = TxtF.Text
End Sub

Private Sub TxtLineL_Change()
  g_LineL = TxtLineL.Text
End Sub

Private Sub TxtLN_Change()
  g_LN = TxtLN.Text
End Sub
Private Sub TxtRN_Change()
  g_RN = TxtRN.Text
End Sub