将TrackBar值转换为字节并通过串口发送的异常问题排查

现有代码 #

abrirporta()'opens serial port
Dim sq As Integer = TrackBar3.Value

byte2 = CByte(sq Mod 100)

'set byte1 to be the right one
Select Case sq
    Case 0 To 99
        byte1 = 0
    Case 100 To 199
        byte1 = 1
    Case Else
        byte1 = 2
End Select

' Create the byte array with the calculated values
Dim a1() As Byte = {&HFE, &HFE, &H94, &HE0, &H14, &H3, byte1, byte2, &HFD}

Label1.Text = byte1
Label4.Text = byte2
Label5.Text = TrackBar3.Value

' Send the byte array to the SerialPort
SerialPort1.Write(a1, 0, a1.Length)

fecharporta()'closes serial port

核心问题分析 #

1. 频繁开关串口导致数据丢失 #

每次发送数据都调用abrirporta()和fecharporta()，串口的打开/关闭是硬件层面的操作，存在延迟。如果发送后立即关闭串口，缓冲区中的数据可能还未完全发送就被中断，造成接收端收到不完整或缺失的数据。

2. 拆分逻辑需匹配接收端解析规则 #

当前代码是将0-255的数值按十进制拆分（byte1为百位数字，byte2为后两位），但如果接收端是按二进制高低位（即byte1*256 + byte2）解析，逻辑完全不匹配，必然导致数值跳变。

修复方案 #

方案1：修正串口操作逻辑 #

不要每次发送都开关串口，改为程序启动时打开，退出时关闭：

• 在窗体加载事件（如Form_Load）中调用abrirporta()
• 在窗体关闭事件（如Form_Closing）中调用fecharporta()
• 发送数据时直接调用SerialPort1.Write即可

方案2：确保拆分逻辑与接收端一致 #

如果接收端按十进制组合（byte1*100 + byte2）：

当前拆分逻辑是正确的，但需确认TrackBar3的取值范围确实是0-255，避免超出范围导致byte1错误。

如果接收端按二进制高低位组合（byte1*256 + byte2）：

将拆分代码替换为二进制位操作：

byte2 = CByte(sq And &HFF) ' 取低8位
byte1 = CByte((sq >> 8) And &HFF) ' 取高8位（0-255范围内byte1始终为0）

方案3：校验串口配置一致性 #

检查SerialPort1的波特率、奇偶校验、数据位、停止位设置，必须与接收端完全一致，任何不匹配都会导致数据传输异常。

内容的提问来源于stack exchange，提问作者Jos