如何用VB.NET向NCR 7878扫描秤发送指令读取重量数据

前提确认 #

先确认串口参数和设备匹配，NCR 7878出厂默认配置：

• 波特率：9600
• 数据位：8
• 停止位：1
• 校验位：无
• 流控：无

可用重量查询指令 #

你可以逐一测试以下两种通用兼容指令：

1. 单字符ENQ指令：发送十六进制值为0x05的ASCII控制字符，绝大多数固件版本的7878收到后会返回当前稳定重量
2. W+回车指令：发送字符串W拼接回车符（ASCII 0x0D），部分定制版本设备支持该指令

如果以上两种无响应，可测试IBM兼容模式指令：发送字节序列 {&H16, &H53, &H0D}

代码修正 #

你现有接收代码混合了ReadByte、ReadChar、ReadExisting方法，会导致字节流被截断，无法读取完整的重量帧，修正后的示例代码如下：

发送查询指令示例 #

Private Sub BtnQueryWeight_Click(sender As Object, e As EventArgs) Handles BtnQueryWeight.Click
    If Not SerialPort1.IsOpen Then Exit Sub
    ' 测试ENQ指令
    SerialPort1.Write({&H5}, 0, 1)
    ' 测试W+回车指令可替换为：SerialPort1.Write("W" & vbCr)
    ' 测试IBM模式指令可替换为：SerialPort1.Write({&H16, &H53, &H0D}, 0, 3)
End Sub

接收数据示例 #

Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    Try
        Dim sp As SerialPort = sender
        Dim byteCount As Integer = sp.BytesToRead
        Dim buffer(byteCount - 1) As Byte
        sp.Read(buffer, 0, byteCount)
        
        ' 转换为ASCII字符串处理，正常返回值会带kg/lb单位标识
        Dim receiveContent As String = System.Text.Encoding.ASCII.GetString(buffer)
        
        ' 跨线程更新UI
        Me.Invoke(Sub()
            TxtReceiveLog.AppendText(receiveContent & vbCrLf)
        End Sub)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

注意事项 #

• 设备仅在称重状态稳定时返回有效重量值，空载或重量晃动时可能返回状态码而非重量数据
• 若所有指令都无响应，可重置秤的串口配置为出厂默认后再测试

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