我的机子上没有串口,所以我用两个USB转232串口,但我发现我在调试vb

来源:百度知道 编辑:UC知道 时间:2024/06/01 12:59:22
“我的机子上没有串口,所以我用两个USB转232串口,但我发现我在调试vb,MSCOmm接发送程序时(十六进制),串口精灵接到的是乱码,很奇怪,
接收程序:inbyte = MSComm1.Input
For i = 0 To UBound(inbyte)
If Len(Hex(inbyte(i))) = 1 Then
buf = buf + "0" + Hex(str(inbyte(i)))
Else
buf = buf + Hex(str(inbyte(i)))
End If
Next
Information = Information + buf ‘information是全局变量

发送程序:
Dim buf(0) As Byte
Dim buf1(0) As Byte
buf(0) = &H0
buf1(0) = &H3A
MSComm1.Output = buf
MSComm1.Output = buf1
有高手能解答一下吗?急!!!!!!!!

你应设置为2进制接收,你的那段接收代码应改写为
MSComm1.InputMode = comInputModeBinary
inbyte = MSComm1.Input
For i = 0 To UBound(inbyte)
If Len(Hex(inbyte(i))) = 1 Then
buf = buf + "0" + Hex(inbyte(i))
Else
buf = buf + Hex(inbyte(i))
End If
Next
Information = Information + buf 'information是全局变量
可参阅:
http://zhidao.baidu.com/question/48863770.html
http://zhidao.baidu.com/question/49318149.html
本人的答复.

换台电脑

我不懂编串口
http://www.cndzz.com/down/soft/46322.htm
也许这个网站能帮助你

注意看下。你的是不是十六进制接收。
进制转换一下看看。应该是进制的问题