1clcx4.txt

利用VB开发测量限差自动计算程序

VERSION 5.00
Begin VB.Form FrmCH 
   Caption         =   "水平角计算"
   ClientHeight    =   5250
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8490
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   5250
   ScaleWidth      =   8490
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "返回"
      Height          =   375
      Left            =   5880
      TabIndex        =   6
      Top             =   4320
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Caption         =   "清零"
      Height          =   375
      Left            =   3120
      TabIndex        =   5
      Top             =   4320
      Width           =   1935
   End
   Begin VB.CommandButton Command1 
      Caption         =   "计算"
      Height          =   375
      Left            =   360
      TabIndex        =   4
      Top             =   4320
      Width           =   1815
   End
   Begin VB.Frame Frame4 
      Caption         =   "一测回值"
      Height          =   3735
      Left            =   5880
      TabIndex        =   3
      Top             =   360
      Width           =   2055
      Begin VB.TextBox Text27 
         Height          =   270
         Left            =   1560
         TabIndex        =   49
         Top             =   1200
         Width           =   255
      End
      Begin VB.TextBox Text26 
         Height          =   270
         Left            =   720
         TabIndex        =   48
         Top             =   1200
         Width           =   255
      End
      Begin VB.TextBox Text25 
         Height          =   270
         Left            =   120
         TabIndex        =   47
         Top             =   1200
         Width           =   255
      End
      Begin VB.Label Label33 
         AutoSize        =   -1  'True
         Caption         =   "秒"
         Height          =   180
         Left            =   1800
         TabIndex        =   52
         Top             =   1200
         Width           =   180
      End
      Begin VB.Label Label32 
         AutoSize        =   -1  'True
         Caption         =   "分"
         Height          =   180
         Left            =   1080
         TabIndex        =   51
         Top             =   1200
         Width           =   180
      End
      Begin VB.Label Label31 
         AutoSize        =   -1  'True
         Caption         =   "度"
         Height          =   180
         Left            =   360
         TabIndex        =   50
         Top             =   1200
         Width           =   180
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "半测回值"
      Height          =   3735
      Left            =   3000
      TabIndex        =   2
      Top             =   240
      Width           =   2655
      Begin VB.TextBox Text24 
         Height          =   270
         Left            =   1680
         TabIndex        =   43
         Top             =   2280
         Width           =   615
      End
      Begin VB.TextBox Text23 
         Height          =   270
         Left            =   840
         TabIndex        =   42
         Top             =   2280
         Width           =   495
      End
      Begin VB.TextBox Text22 
         Height          =   270
         Left            =   0
         TabIndex        =   41
         Top             =   2280
         Width           =   495
      End
      Begin VB.TextBox Text21 
         Height          =   270
         Left            =   1680
         TabIndex        =   37
         Top             =   840
         Width           =   495
      End
      Begin VB.TextBox Text20 
         Height          =   270
         Left            =   720
         TabIndex        =   36
         Top             =   840
         Width           =   615
      End
      Begin VB.TextBox Text19 
         Height          =   270
         Left            =   0
         TabIndex        =   35
         Top             =   840
         Width           =   495
      End
      Begin VB.Label Label30 
         Caption         =   "秒"
         Height          =   255
         Left            =   2280
         TabIndex        =   46
         Top             =   2280
         Width           =   255
      End
      Begin VB.Label Label29 
         AutoSize        =   -1  'True
         Caption         =   "分"
         Height          =   180
         Left            =   1440
         TabIndex        =   45
         Top             =   2280
         Width           =   180
      End
      Begin VB.Label Label28 
         AutoSize        =   -1  'True
         Caption         =   "度"
         Height          =   180
         Left            =   600
         TabIndex        =   44
         Top             =   2280
         Width           =   180
      End
      Begin VB.Label Label27 
         Caption         =   "秒"
         Height          =   255
         Left            =   2280
         TabIndex        =   40
         Top             =   840
         Width           =   255
      End
      Begin VB.Label Label26 
         AutoSize        =   -1  'True
         Caption         =   "分"
         Height          =   180
         Left            =   1440
         TabIndex        =   39
         Top             =   840
         Width           =   180
      End
      Begin VB.Label Label25 
         AutoSize        =   -1  'True
         Caption         =   "度"
         Height          =   180
         Left            =   480
         TabIndex        =   38
         Top             =   840
         Width           =   180
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "盘右"
      Height          =   1695
      Left            =   240
      TabIndex        =   1
      Top             =   2280
      Width           =   2535
      Begin VB.TextBox Text15 
         Height          =   270
         Left            =   1680
         TabIndex        =   34
         Text            =   "15"
         Top             =   600
         Width           =   375
      End
      Begin VB.TextBox Text14 
         Height          =   270
         Left            =   960
         TabIndex        =   33
         Text            =   "50"
         Top             =   600
         Width           =   375
      End
      Begin VB.TextBox Text13 
         Height          =   270
         Left            =   240
         TabIndex        =   32
         Text            =   "229"
         Top             =   600
         Width           =   345
      End
      Begin VB.TextBox Text12 
         Height          =   270
         Left            =   1680
         TabIndex        =   27
         Text            =   "50"
         Top             =   240
         Width           =   375
      End
      Begin VB.TextBox Text11 
         Height          =   270
         Left            =   960
         TabIndex        =   26
         Text            =   "1"
         Top             =   240
         Width           =   375
      End
      Begin VB.TextBox Text10 
         Height          =   270
         Left            =   240
         TabIndex        =   25
         Text            =   "180"
         Top             =   240
         Width           =   375
      End
      Begin VB.Label Label20 
         Caption         =   "秒"
         Height          =   255
         Left            =   2160
         TabIndex        =   31
         Top             =   600
         Width           =   255
      End
      Begin VB.Label Label19 
         Caption         =   "分"
         Height          =   255