Attribute VB_Name = "Module1"
'打開串口 參數(shù)：port  0代表串口1，1代表串口2
'返回：成功返回串口句柄，錯誤返回負值
Declare Function ID_InitComm Lib "dcid32.dll" (ByVal Port%) As Long
'成功找到卡返回0，沒有卡返回1，沒有設(shè)備信息返回負值
Declare Function ID_ReadCard Lib "dcid32.dll" (ByVal IcDev As Long, ByVal addrPort%, ByVal Databuffer$) As Long
Declare Function ID_ReadCard_Hex Lib "dcid32.dll" (ByVal IcDev As Long, ByVal addrPort%, ByVal Databuffer$) As Long
'把地址號為addr的設(shè)備的地址改為新的地址newaddr成功返回0，不成功返回負值
Declare Function ID_ChangeAddr Lib "dcid32.dll" (ByVal IcDev As Long, ByVal addrPort%, ByVal NewAddrPort%) As Long
'設(shè)備蜂嗚1-3次 成功返回0，不成功返回負值
Declare Function ID_Beep Lib "dcid32.dll" (ByVal IcDev As Long, ByVal addrPort%, ByVal times%) As Long
'關(guān)閉設(shè)備成功返回0，不成功返回負值
Declare Function ID_ExitComm Lib "dcid32.dll" (ByVal IcDev As Long) As Long

Public IcDev As Long
Public St As Long