发布网友 发布时间:2022-04-23 13:11
共2个回答
热心网友 时间:2023-06-27 05:16
确实是你的类型不匹配,把
Text1=Text1+Hex(InputData)
改为:
Text1=Text1+Hex(Val(InputData))
不知你这通信用的是二进制方式还是文本方式?所以我只能讲到这,如果还不行,请告诉我你的通信方式。
热心网友 时间:2023-06-27 05:16
InputData从MSComm1.Input返回的是一个字节类型的数组,而Hex()的参数要求是数值,所以会出现“类型不匹配”,请用以下方法试下:
InputData=MSComm1.Input
For
i
=
0
To
UBound(inputdata)
Text1
=
Text1
+
Hex(inputdata(i))
Next