16,549
社区成员
发帖
与我相关
我的任务
分享
'读取单程票数据
Public Function ReadTkt() As Boolean
Dim st As Integer '读取结果
ReadTkt = False
frmCardReader.Log("开始读单程票数据...")
'单程票共占用48字节
Try
'读发行区,8字节
st = dc_read(icdev, ChrW(4), dataBuf)
If (st <> 0) Then ' 读卡失败
frmCardReader.Log("读取单程票(发行区)信息失败")
Exit Function
End If
'读发行区信息成功,截取dataBuf,转换为需要的数据
frmCardReader.Log("读取单程票(发行区)信息成功:" & dataBuf)
Catch ex As Exception
ReadTkt = False
frmCardReader.Log(ex.Message)
MsgBox("读单程票失败,错误代码:[" & st & "]")
End Try
End Function