apipulic.bas

载入SDK的动态链接库文件

Attribute VB_Name = "Sense18kAPI"

Option Explicit

'*************状态常量定义　BEGIN*************
Public Const ERR_NONE = &H0                     ' No errors faults encountered
Public Const ERR_UNDEFIND = &HFF                  '没有定义的错误
Public Const ERR_CMD_UNDEF = &HFE                 '命令未定义
Public Const ERR_CMD_SUB_UNDEF = &HFD             '子命令未定义
Public Const ERR_CMD_PARAM_INVAL = &HFC           '输入无效的参数或参数越界
Public Const ERR_CMD_CRC_ERR = &HFB               '读写器接收到的命令帧CRC错误
Public Const ERR_CMD_RES_CRC_ERR = &HFA           '主机接收到读写器的应答帧CRC错误
Public Const ERR_S_BUF_EMPTY = &H40               '系统缓存区没有数据
Public Const ERR_R_ANT_FAIL = &HEF                '天线故障或天线未连接
Public Const ERR_R_PLL_FAIL = &HEE                'PLL失锁
Public Const ERR_R_UART_FAIL = &HED               '串口连接错误或连接超时
Public Const ERR_R_SET_PARAM_FAIL = &HEC          '设置读写器参数失败
Public Const ERR_R_GET_PARAM_FAIL = &HEB          '读取读写器参数失败
Public Const ERR_R_WR_FLASH_FAIL = &HEA           '写或编程读写器FLASH失败
Public Const ERR_R_MOD_FAIL = &HE9                '设置调制度失败
Public Const ERR_R_RFPWR_FAIL = &HE8              '设置RF功率失败
Public Const ERR_R_ENCRYPT_FAIL = &HE0            '读写器加密密码失败
Public Const ERR_TAG_NO_LABEL = &H8F              '没有找到标签
Public Const ERR_TAG_WP = &H8E                    '标签已经写保护
Public Const ERR_TAG_CRC_ERR = &H8D               '标签数据CRC错
Public Const ERR_TAG_PROG_ID_FAIL = &H8C          '编程标签ID失败
Public Const ERR_TAG_READ_FAIL = &H8B             '读标签失败
Public Const ERR_TAG_ERASE_ID_FAIL = &H8A         '擦除标签失败
Public Const ERR_TAG_LOCK_ID_FAIL = &H89          '锁定标签失败
Public Const ERR_TAG_KILL_ID_FAIL = &H88          '销毁标签失败
Public Const ERR_RS232_ERROR = &H7F               ' Failed to port initialize
Public Const ERR_RS232_READ = &H7E                ' Failed to port receive
Public Const ERR_RS232_WRITE = &H7D               ' Failed to port send
Public Const ERR_CRC_ERROR = &H7C                 ' CRC Check is error!
'************状态常量定义END************

'************变更定义 BEGIN************
Public g_hCom  As Long
Public g_RAddr As Byte
Public status As Integer
'************变更定义 END************
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
'************API申明 BEGIN************

Public Declare Sub Sense18K_GetDLLRevision Lib "Sense18KAPI.dll" (ByRef MainVision As Byte, ByRef MinnorVision As Byte)
Public Declare Function Sense18K_Open Lib "Sense18KAPI.dll" (ByRef hCom As Long, ByVal com_port As String) As Integer
Public Declare Function Sense18K_Close Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte) As Integer
Public Declare Function Sense18K_SysGetFirmwareRevision Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByRef MainVersion As Byte, ByRef MinorVersion As Byte) As Integer
Public Declare Function Sense18K_SysSetBaudRate Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByVal BaudRateIndex As Byte) As Integer

Public Declare Function Sense18K_ISOMTR Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByVal dataAddr As Byte, ByRef tagCount As Byte) As Integer
Public Declare Function Sense18K_BufGetOneAndClear Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByRef tagData As Byte) As Integer
Public Declare Function Sense18K_ISOWrite Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByVal ucLength As Byte, ByVal dataAddr As Byte, ByRef tagData As Byte) As Integer
Public Declare Function Sense18K_ISOListOne Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte) As Integer
Public Declare Function Sense18K_ISOEndRead Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte) As Integer


Public Declare Function Sense18K_SysRFSet Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByVal RF As Byte) As Integer
Public Declare Function Sense18K_SysRFQuery Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByRef RF As Byte) As Integer
Public Declare Function Sense18K_SysRFCurrentAntennaSet Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByVal AntennaID As Byte) As Integer
Public Declare Function Sense18K_SysRFCurrentAntennaQuery Lib "Sense18KAPI.dll" (ByVal hCom As Long, ByVal RAddr As Byte, ByRef outAntennaID As Byte) As Integer
 

'************API申明 END************