主题：关于232串口

关于232串口，怎么处理呢？

 

 协议说明

此主题相关图片如下：阿里旺旺图片20180426111123.jpg

 

输出字节

此主题相关图片如下：qq截图20180426120213.jpg

10进制转16进制，参考 http://www.foxtable.com/webhelp/scr/1622.htm

 

255是数据的开始，其余的各个是数值。根据得到的值，做你对应的操作

怎么找到循环呀，在读取串口里面，字节是连续的

要自己判断吗

每次发生6帧，串口读取一次吗，转换为字节后怎么对应呀

 

自己判断，比如

 

Dim cnt As Integer = Ports("COM2").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    Ports("COM2").Read(val,0,cnt)
    For i As Integer = 0 To cnt
        If val(i) = 255 Then
            msgbox(123)
            msgbox(val(i+1))
            i += 5
        End If
    Next
End If

但是我要在直接读取的，不是后面读取缓存的，这样会出错的

那就写到事件去

 

http://www.foxtable.com/webhelp/scr/1967.htm

 

就是写到事件里面去出错了

 

If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    Ports("COM22").Read(val,0,cnt)
    For i As Integer = 0 To cnt-1
        If val(i) = 255 Then
            'Forms("生产窗口").Controls("数量").text=DecToHex(val(i+1))
Dim s As String =DecToHex(val(i+3)) & "." & DecToHex(val(i+2))
'Forms("生产窗口").Controls("数量").text=DecToHex(val(i+3)) & "." & DecToHex(val(i+2))
            i += 5
        End If
    Next
End If

 

贴出你写的代码。贴出所报的错误。