VERSION 5.00
Begin VB.Form FrmDemo 
   Caption         =   "RD485終端演示"
   ClientHeight    =   6000
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7725
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   6000
   ScaleWidth      =   7725
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CmdStop 
      Caption         =   "停止"
      Enabled         =   0   'False
      Height          =   345
      Left            =   1425
      TabIndex        =   16
      Top             =   1950
      Width           =   570
   End
   Begin VB.ListBox Lis_Info 
      Height          =   5325
      Left            =   2175
      MultiSelect     =   2  'Extended
      TabIndex        =   15
      Top             =   60
      Width           =   3870
   End
   Begin VB.CommandButton CmdOpen 
      Caption         =   "打開端口"
      Height          =   315
      Left            =   300
      TabIndex        =   14
      Top             =   480
      Width           =   960
   End
   Begin VB.TextBox TxtPort 
      Height          =   285
      Left            =   1395
      TabIndex        =   13
      Text            =   "0"
      Top             =   60
      Width           =   435
   End
   Begin VB.CommandButton CmdExit 
      Caption         =   "退出Demo"
      Enabled         =   0   'False
      Height          =   330
      Left            =   6150
      TabIndex        =   11
      Top             =   810
      Width           =   1470
   End
   Begin VB.CommandButton CmdClear 
      Caption         =   "清空顯示"
      Height          =   330
      Left            =   6180
      TabIndex        =   10
      Top             =   255
      Width           =   1470
   End
   Begin VB.CommandButton CmdReSet 
      Caption         =   "更改機號"
      Enabled         =   0   'False
      Height          =   330
      Left            =   375
      TabIndex        =   9
      Top             =   3255
      Width           =   1470
   End
   Begin VB.CommandButton CmdRead 
      Caption         =   "卡號采集"
      Enabled         =   0   'False
      Height          =   330
      Left            =   285
      TabIndex        =   8
      Top             =   1965
      Width           =   1005
   End
   Begin VB.TextBox Old_Addr 
      Height          =   285
      Left            =   1395
      TabIndex        =   7
      Text            =   "1"
      Top             =   2415
      Width           =   435
   End
   Begin VB.TextBox NewAddr 
      Height          =   285
      Left            =   1395
      TabIndex        =   5
      Text            =   "1"
      Top             =   2790
      Width           =   435
   End
   Begin VB.TextBox EndAdd 
      Height          =   285
      Left            =   1410
      TabIndex        =   3
      Text            =   "5"
      Top             =   1500
      Width           =   435
   End
   Begin VB.TextBox StarAdd 
      Height          =   285
      Left            =   1410
      TabIndex        =   1
      Text            =   "1"
      Top             =   1020
      Width           =   435
   End
   Begin VB.Label Label5 
      Caption         =   "端口號："
      Height          =   225
      Left            =   315
      TabIndex        =   12
      Top             =   135
      Width           =   795
   End
   Begin VB.Label Label4 
      Caption         =   "原機號值："
      Height          =   240
      Left            =   315
      TabIndex        =   6
      Top             =   2475
      Width           =   900
   End
   Begin VB.Label Label3 
      Caption         =   "新機號值："
      Height          =   240
      Left            =   315
      TabIndex        =   4
      Top             =   2820
      Width           =   900
   End
   Begin VB.Label Label2 
      Caption         =   "結(jié)束機號："
      Height          =   210
      Left            =   330
      TabIndex        =   2
      Top             =   1560
      Width           =   915
   End
   Begin VB.Label Label1 
      Caption         =   "起始機號："
      Height          =   210
      Left            =   330
      TabIndex        =   0
      Top             =   1065
      Width           =   915
   End
End
Attribute VB_Name = "FrmDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim StopRead As Boolean
Private Sub CmdClear_Click()
  Lis_Info.Clear
End Sub

Private Sub CmdExit_Click()
Unload Me

End Sub

Private Sub CmdOpen_Click()
   IcDev = ID_InitComm(TxtPort)
   If IcDev < 0 Then
     Lis_Info.AddItem "串口初始化失敗!"
     Else
        Lis_Info.AddItem "串口初始化成功!"
        CmdOpen.Enabled = False
        CmdRead.Enabled = True
        CmdReSet.Enabled = True
        
   End If
End Sub

Private Sub CmdRead_Click()
 Dim StarPort As Integer
 Dim EndPort As Integer
 Dim PortNu As Integer
 Dim StrCard As String * 10
 StarPort = CInt(StarAdd)
 EndPort = CInt(EndAdd)
 Dim StrC As String
CmdStop.Enabled = True
CmdRead.Enabled = False
StopRead = False

Do Until StopRead
 For PortNu = StarPort To EndPort
    St = ID_ReadCard(IcDev, PortNu, StrCard)
    If St > 1 Then
      Lis_Info.AddItem PortNu & "#   正機刷卡,卡號：" & StrCard
      MsgBox StrCard
    End If
'    Select Case St
'     Case 0
'       Lis_Info.AddItem PortNu & "#           數(shù)據(jù)采集成功!"
'     Case 1
'     '  Lis_Info.AddItem PortNu & "#          無數(shù)數(shù)據(jù)!"
'     Case Is < 0
'     ' Lis_Info.AddItem PortNu & "#  沒有設(shè)備信息!"
'    Case Else
'      Lis_Info.AddItem PortNu & "#   正機刷卡,卡號：" & StrCard
'     ' Lis_Info.AddItem StrCard
'    End Select
    DoEvents
 Next
Loop
End Sub

Private Sub CmdStop_Click()
    StopRead = True
    CmdRead.Enabled = True
    CmdStop.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
  St = ID_ExitComm(IcDev)
End Sub