-------在全局变更中定义了-----
Public icdev As Long '---用于保存读卡当前状态(工作状态/非工作状态)
Public st As Integer '---保存当前函操作过后的状态,通常:=0 表示功能,<>0表示失败
Public Declare Function rf_init Lib "mwrf32.dll" (ByVal port%, ByRef baud As Long) As Long '--port% 是设备状态端口号=0
Public Declare Function rf_beep Lib "mwrf32.dll" (ByVal icdev As Long, ByVal time%) As Integer
Public Declare Function rf_get_status Lib "mwrf32.dll" (ByVal icdev As Long, ByRef status As String) As Integer
Public Declare Function rf_card Lib "mwrf32.dll" (ByVal icdev As Long, ByVal mode%, ByRef snr As Long) As Integer
Public Declare Function rf_halt Lib "mwrf32.dll" (ByVal icdev As Long) As Integer
Public Declare Function rf_anticoll Lib "mwrf32.dll" (ByVal icdev As Long, ByVal Bcnt%, ByRef bsnr As Byte) As Integer
-----------以下在按钮中定义的---
Dim status As new String(status, 18)
Dim cardtype As Integer
Dim snr As Long
Dim bsnr(5) As Byte
If icdev>0 Then
'st = rf_anticoll(icdev, 0, snr) '--激活读写器防冲突队列,icdev设备状态,读卡片0区0字节位置,snr装的IC卡序号
Dim st1 = rf_anticoll(icdev, 0, bsnr(0))
If st1 = 0 Then
messagebox.show("设备号读状态成功!")
Else
messagebox.show("设备号读状态失败:"+str(st1))
End If
Else
messagebox.show("设备没有连接PC")
End If
st = rf_halt(icdev)
---------结果一至是失败----
[此贴子已经被作者于2017/4/11 21:08:47编辑过]
加好友 
发短信
Post By：2016/1/15 16:18:00 [只看该作者]
