selectco.frm

金卡（gold card),俗称84卡

VERSION 4.00
Begin VB.Form SelectComport 
   Appearance      =   0  'Flat
   BackColor       =   &H00C0C0C0&
   Caption         =   "SETUP"
   ClientHeight    =   1710
   ClientLeft      =   6090
   ClientTop       =   4845
   ClientWidth     =   1590
   BeginProperty Font 
      name            =   "MS Sans Serif"
      charset         =   1
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Height          =   2115
   Icon            =   "SELECTCO.frx":0000
   Left            =   6030
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1710
   ScaleWidth      =   1590
   Top             =   4500
   Width           =   1710
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "Select Comport"
      ForeColor       =   &H80000008&
      Height          =   1335
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   1575
      Begin VB.OptionButton Option4 
         Caption         =   "Com port 4"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   960
         Width           =   1215
      End
      Begin VB.OptionButton Option3 
         Caption         =   "Com port 3"
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   720
         Width           =   1215
      End
      Begin VB.OptionButton Option2 
         Caption         =   "Com port 2"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   480
         Value           =   -1  'True
         Width           =   1215
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Com port 1"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   240
         Width           =   1215
      End
   End
   Begin Threed.SSCommand Command3D1 
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   1320
      Width           =   1575
      _version        =   65536
      _extentx        =   2778
      _extenty        =   661
      _stockprops     =   78
      caption         =   "OK"
      bevelwidth      =   5
      font3d          =   2
   End
End
Attribute VB_Name = "SelectComport"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub Command3D1_Click()
    Unload SelectComport
End Sub

Private Sub Form_Load()
   If Val(lotnr) <> 1100 Then
      MsgBox "Invalid Reader"
      End
   End If
    
    Left = (Screen.Width - Width) / 2   ' Center form horizontally.
    Top = (Screen.Height - Height) / 2  ' Center form vertically.
    
 
 
 
End Sub

Private Sub Option1_Click()
    comport = 1

End Sub

Private Sub Option2_Click()
    comport = 2
End Sub

Private Sub Option3_Click()
    comport = 3
End Sub

Private Sub Option4_Click()
    comport = 4
End Sub

Private Sub option5_Click()
      comport = 8
End Sub

Private Sub option6_Click()
      comport = 7
End Sub

Private Sub Option7_Click()
      comport = 6
End Sub

Private Sub Option8_Click()
      comport = 5
End Sub