module1.bas

RFID 工作频率开发工具包包括READER API

Attribute VB_Name = "Module1"
'打开串口 参数：port  0代表串口1，1代表串口2
'返回：成功返回串口句柄，错误返回负值
Declare Function ID_InitComm Lib "dcid32.dll" (ByVal Port%) As Long
'成功找到卡返回0，没有卡返回1，没有设备信息返回负值
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的设备的地址改为新的地址newaddr成功返回0，不成功返回负值
Declare Function ID_ChangeAddr Lib "dcid32.dll" (ByVal IcDev As Long, ByVal addrPort%, ByVal NewAddrPort%) As Long
'设备蜂呜1-3次 成功返回0，不成功返回负值
Declare Function ID_Beep Lib "dcid32.dll" (ByVal IcDev As Long, ByVal addrPort%, ByVal times%) As Long
'关闭设备成功返回0，不成功返回负值
Declare Function ID_ExitComm Lib "dcid32.dll" (ByVal IcDev As Long) As Long

Public IcDev As Long
Public St As Long