MSCOMM中的一个简单有关问题,在CSDN问了三天.真的无法解决吗?CSDN高手都去哪里了啊来个VB高手行不行
MSCOMM中的一个简单问题,在****问了三天.真的无法解决吗?****高手都去哪里了啊.来个VB高手行不行
这是我提出的问题.三天我问了好多次
http://community.****.net/Expert/topic/5397/5397147.xml?temp=.891247
其实我的问题很简单.我只连了一台机器.我发一条数据给机器.机器返回一个值给我确定收到是否正确数据.可是我发一条数据返回都是3F. 不知道怎么回事.
比如我有一组数据:08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80(一个Bytge数据)
第一次发送将MSComm.settings= "19200,M,8,2 "发送08
以后的数据都以MSComm.settings= "19200,S,8,S "发送
接收我以MSComm.settings= "19200,M,8,2 "，发送的时间没问题，接收的数据都是3F
500分求这道题的源码。解决了不给分是小狗。
------解决方案--------------------
我只能友情支持一下了,没做过这样的项目,帮顶了
------解决方案--------------------
Dim varBuff As Variant
Dim bytRecv() As Byte
Dim i As Integer
varBuff = MSComm1.Input
bytRecv = varBuff
For i = 0 To Ubound(bytRecv)
Debug.Print Right( "0 " & Hex(bytRecv(i)), 2)
Next i
------解决方案--------------------
改变校验方式的时候要重开一次串口,可惜我来迟了~~
这是我提出的问题.三天我问了好多次
http://community.****.net/Expert/topic/5397/5397147.xml?temp=.891247
其实我的问题很简单.我只连了一台机器.我发一条数据给机器.机器返回一个值给我确定收到是否正确数据.可是我发一条数据返回都是3F. 不知道怎么回事.
比如我有一组数据:08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80(一个Bytge数据)
第一次发送将MSComm.settings= "19200,M,8,2 "发送08
以后的数据都以MSComm.settings= "19200,S,8,S "发送
接收我以MSComm.settings= "19200,M,8,2 "，发送的时间没问题，接收的数据都是3F
500分求这道题的源码。解决了不给分是小狗。
------解决方案--------------------
我只能友情支持一下了,没做过这样的项目,帮顶了
------解决方案--------------------
Dim varBuff As Variant
Dim bytRecv() As Byte
Dim i As Integer
varBuff = MSComm1.Input
bytRecv = varBuff
For i = 0 To Ubound(bytRecv)
Debug.Print Right( "0 " & Hex(bytRecv(i)), 2)
Next i
------解决方案--------------------
改变校验方式的时候要重开一次串口,可惜我来迟了~~