我做的串口通信,需要用读卡器读取卡上的信息,然后把读卡器读取的信息通过串口传回到PC现在我把数据传到了读卡器,怎么才能够知道,卡上的内容读卡器是否读取了?读卡器一直没有传递回过数据!刚刚接触mscomm,觉得好郁闷ing,高手救命啊?!
解决方案 »
- VB dll中private 对象模块参数问题
- 用vb做了一个聊天程序,当客户端断开连接时,服务气端不知道,应该怎么解决一下呢!!!!
- 在XP中如何用代码设置打印机的自定义纸张啊?(98中没有问题,XP中就不行了)
- 紧急求助:utf-8编码字符串转换到gb2312编码字符串方法,我是vb新手,请大家帮忙!
- VB里面如何把SQL语句的帮助文件碉出来,使用什么快捷键!!!!!!
- 求助
- 关于MshFlexGrid
- zyl910(910:分儿,我来了!) 请进
- 用MSFlexGrid时,如何把第二次查找到的记录加上去?
- 强烈要求CSDN 改回6号以前的版本!新版简直是垃圾!支持者跟贴!
- 请问怎么用VB访问远程SQL Server服务器啊
- 怎么把XML的节点数据读取出来,并赋值到一个结构数据里
Private Sub Form_Load()
Dim byt(14) As Byte '定义一个数组,用来传递16 进制的参数
byt(0) = &HAA
byt(1) = &H2
byt(2) = &HA
byt(3) = &H20
byt(4) = &H1
byt(5) = &H4
byt(6) = &H10
byt(7) = &HFF
byt(8) = &HFF
byt(9) = &HFF
byt(10) = &HFF
byt(11) = &HFF
byt(12) = &HFF
byt(13) = &H3D
byt(14) = &HBBDim bytt() As Byte '用来接收数据
MSComm1.CommPort = 1
MSComm1.Settings = "9600,O,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
MSComm1.Output = byt
MsgBox ("qingshuaka") '提示用户刷卡
bytt = MSComm1.Input ’获得返回数据
Text1.Text = bytt
MSComm1.PortOpen = False
End Sub
默認應該為 Ascii的, 而你這裹, 明顯是 用十六進制然後, 發完, 一般還要用個 sleep 等會,再讀
mscomm 應該還要設置發送的格式, 是ascII, 還是binary, 這個他就沒設
默認應該為 Ascii的, 而你這裹, 明顯是 用十六進制然後, 發完, 一般還要用個 sleep 等會,再讀
----------------------------------------------
是这样的