form2.frm

该程序基于RS232串口通讯的激光检测钻头钻孔内径及外径等相关参数从而判断该产品是否为OK/NG

               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1440
            TabIndex        =   19
            Text            =   "Text5"
            Top             =   2760
            Width           =   1095
         End
         Begin VB.TextBox tfat 
            DataField       =   "fat"
            DataSource      =   "adosyscontrol"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   4200
            TabIndex        =   18
            Text            =   "Text5"
            Top             =   2160
            Width           =   1095
         End
         Begin VB.TextBox tout5 
            DataField       =   "out5"
            DataSource      =   "adosyscontrol"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            TabIndex        =   16
            Top             =   1440
            Width           =   1095
         End
         Begin VB.TextBox tout4 
            DataField       =   "out4"
            DataSource      =   "adosyscontrol"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   4080
            TabIndex        =   15
            Text            =   "Text5"
            Top             =   960
            Width           =   1095
         End
         Begin VB.TextBox tout1 
            DataField       =   "out1"
            DataSource      =   "adosyscontrol"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            TabIndex        =   12
            Top             =   480
            Width           =   1095
         End
         Begin VB.TextBox rout1 
            DataField       =   "rade"
            DataSource      =   "adosyscontrol"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1440
            TabIndex        =   17
            Top             =   2160
            Width           =   1095
         End
         Begin VB.TextBox tout2 
            DataField       =   "out2"
            DataSource      =   "adosyscontrol"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   4080
            TabIndex        =   13
            Top             =   480
            Width           =   1095
         End
         Begin VB.TextBox tout3 
            DataField       =   "out3"
            DataSource      =   "adosyscontrol"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            TabIndex        =   14
            Text            =   "Text7"
            Top             =   960
            Width           =   1095
         End
         Begin VB.Label Label28 
            AutoSize        =   -1  'True
            Caption         =   "返回加减时间："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   2760
            TabIndex        =   72
            Top             =   2760
            Width           =   1260
         End
         Begin VB.Label Label27 
            AutoSize        =   -1  'True
            Caption         =   "返回速度："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   240
            TabIndex        =   71
            Top             =   2760
            Width           =   900
         End
         Begin VB.Label Label26 
            AutoSize        =   -1  'True
            Caption         =   "移动加减时间："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   2760
            TabIndex        =   70
            Top             =   2160
            Width           =   1260
         End
         Begin VB.Label Label6 
            Caption         =   "收料点五："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   66
            Top             =   1440
            Width           =   975
         End
         Begin VB.Label Label3 
            Caption         =   "收料点四："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   3120
            TabIndex        =   65
            Top             =   960
            Width           =   975
         End
         Begin VB.Label Label1 
            Caption         =   "移动速度："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   240
            TabIndex        =   64
            Top             =   2160
            Width           =   1095
         End
         Begin VB.Label Label7 
            Caption         =   "收料点一："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   240
            TabIndex        =   63
            Top             =   480
            Width           =   975
         End
         Begin VB.Label Label8 
            Caption         =   "收料点二："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   3120
            TabIndex        =   62
            Top             =   480
            Width           =   975
         End
         Begin VB.Label Label9 
            Caption         =   "收料点三："
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   61
            Top             =   960
            Width           =   975
         End
      End
      Begin VB.Frame fraStatistics 
         Caption         =   " ◆ 检测分析"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   1935
         Left            =   -74760
         TabIndex        =   31
         Top             =   360
         Width           =   4020
         Begin VB.Label Label21 
            AutoSize        =   -1  'True
            Caption         =   "总不良数据："
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   210
            Left            =   1950
            TabIndex        =   47
            Top             =   450
            Width           =   1260
         End
         Begin VB.Label lblBadPins 
            Alignment       =   1  'Right Justify
            AutoSize        =   -1  'True
            Height          =   195
            Left            =   3240
            TabIndex        =   46
            Top             =   480
            Width           =   555
         End
         Begin VB.Label lblVoutMin