主题：[求助]串口读取数据问题

不能直接用 parity.none 这些值，要对应改成 0、1、2、3 这样

0-None
1-Odd
2-Even
3-Mark
4-Space

--------------------StopBits 也是

0-None
1-One
2-Two
3-OnePointFive

 你在DataReceived事件，把接收到的信息都打印出来，看是否正确

Dim cnt As Integer = e.Port.BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    e.Port.Read(val,0,cnt)
    For Each s As object In val
        output.show(s & " " & DecToHex(s))
    Next
End If

1、不一样的，字符串你不能直接当代码用的；

2、不应该，认真对比测试一下，肯定能正常读取到值的

For Each p As String In Ports.PortNames
    forms("主窗口").Controls("ck").items.add(p)
Next

这两个的设置基本不影响，这两个是缓冲的大小值，基本都不会超出的。

1、缓冲区的内容会一直存在，直到满或者被清空。

你可以用下面代码获取全部内容。

Dim cnt As Integer = Ports("COM2").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    Ports("COM2").Read(val,0,cnt)
End If

其中一个属性 ReceivedBytesThreshold 整数型，获取或设置触发DataReceived事件前内部输入缓冲区中至少应该有的字节数。

2、

Dim cnt As Integer = Ports("COM2").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    Ports("COM2").Read(val,0,cnt)

    For Each s As object In val
        output.show(s & " " & DecToHex(s))
    Next