beginform.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form beginform 
   BorderStyle     =   0  'None
   Caption         =   "登陆"
   ClientHeight    =   3960
   ClientLeft      =   4080
   ClientTop       =   3660
   ClientWidth     =   5265
   Icon            =   "beginform.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "beginform.frx":0442
   ScaleHeight     =   3960
   ScaleWidth      =   5265
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   480
      Top             =   1680
   End
   Begin MSComctlLib.ProgressBar Pb 
      Height          =   255
      Left            =   360
      TabIndex        =   0
      Top             =   3240
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   450
      _Version        =   393216
      BorderStyle     =   1
      Appearance      =   1
      Max             =   10
   End
End
Attribute VB_Name = "beginform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Timer1_Timer()
On Error Resume Next
  Static a As Integer
    If a = 1 Then Load frmmain
    If a <= 10 Then
         Pb.Value = a
         a = a + 1
    ElseIf a > 11 Then
         Load frmmain
         frmmain.Show
         Unload Me
    Else
        a = a + 1
    End If
End Sub