VB6.0中的串口通讯

对编程不是很熟,不知道问题是不是很幼稚
VB6.0中有了MSComm控件了,现在要接受串口发来的数据,现在按照协议接收到的数据应该是10个byte数据,所以我在MSComm控件的OnComm事件中让Temp变量等于MSComm.input属性了,所以Temp变量应该包含了10个byte数据,现在应该怎么做才能得到第五位的byte数据?还有Temp应该申明为什么类型的变量?如果有更好的办法得到第N个字节的数据请举例谢谢!

Dim Buffer As Variant 
Dim Arr() As Byte 

' 设定并开启连接埠
MSComm1.CommPort = 1 
' 连线速度 9600 baud、无同位检查、资料位元 8、停止位元 1 
MSComm1.Settings = "9600,N,8,1" 
告诉控制项当使用 Input 时,读取整个暂存区 
MSComm1.InputLen = 0 
MSComm1.PortOpen = True 
' 设定 InputMode 以读取二进制模式
MSComm1.InputMode = comInputModeBinary 
' 等待直到输入缓冲区有 10 个字节
Do Until MSComm1.InBufferCount < 10 
    DoEvents 
Loop 
' 将二进制数据放入Buffer中
Buffer = MSComm1.Input 
' 把数据给指定的数组
Arr = Buffer 
MSComm1.PortOpen = False
' 通过Arr(5) 就可以得到第N个元素了

温馨提示:答案为网友推荐,仅供参考
第1个回答  2015-08-06
dim temp() as byte
temp = mscomm.input
msgbox hex(temp(4))