Attribute VB_Name = "Module1"
'Public Const serial_ports() = {"9600","4800"}
'系統初始化
Global bTest As Boolean '串行口測試標志位
Global bReady As Boolean '讀寫正確結束
Global bRdWt As Boolean     '指示操作是否出錯，true:無，false:有
Global bStop As Boolean     '終止按扭按下
Global iRWMode As Integer '讀卡方式 1:第2磁道，2：第3磁道，3：第2、3磁道
Global iWMode As Integer '寫卡方式
Global sReadData As String

Public Sub Initiate()
    bTest = False
    bReady = False
    bStop = False
    bRdWt = True
    iRWMode = 1
    sReadData = ""
End Sub