VB上位机与51的数据传送

chen13480200

Sub shuchu()
Dim k As Integer
Dim senddata(0 To 4) As String
For k = 0 To 4
senddata(k) = HScroll1(k).Value
MSComm1.Output = Hex(senddata(k))
Form1.Print Hex(senddata(k))
Next k
上面这个VB程序发送数据后接收到的怎么一直是数据对应的ASCII码呢？

 void ser() interrupt 4
    {
  RI=0;
  t=0xSBUF;
}

正点原子

帮顶。

fanguang2003

原因不确定：
有可能是默认的数据转换出了问题，
将hex转出来的16进制数，当成了字符串，比如“FF”，当成了'F'、'F'，然后转换到mscomm的output中了

可以参考一下内容改动：
 Dim senddata(0 To 4) As String
定义为byte数据类型
通信控件mscomm的output赋值，也没必要再用hex转换

fanguang2003

为验证，你可将mscomm控件的output赋值改为一下内容验证
mscomm1.output="&H" & hex(待输出内容)

反映一下：回复时看不到原帖内容，无法照抄。

Tony1573

路过   帮顶

chen13480200

回复【4楼】fanguang2003:
---------------------------------
回复【5楼】Tony1573:
---------------------------------
回复【3楼】fanguang2003:
---------------------------------
谢谢

qq386464533

2楼的是正解，但是你注意你的数组是什么类型，通常都会以文本框输入的，所以记得转化成字节类型哦

呼啦风

回复【7楼】qq386464533:
---------------------------------
回复【6楼】chen13480200:
---------------------------------
楼主遇到过vb读取数据时出现读comm设备错误，错误代码8020这样的问题吗