VB串口接收数据重复怎么办？？？？

Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
    TextBox2.Text = HScrollBar1.Value
    SerialPort1.Write(TextBox2.Text)
    ' TextBox7.Text = SerialPort1.BytesToRead
    SerialPort1.DiscardInBuffer()

End Sub
        Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    Dim n As Integer
    n = SerialPort1.BytesToRead
    If n > 0 Then
        TextBox6.Text = SerialPort1.ReadExisting()
    ElseIf n <= 0 Then
        MsgBox("缓冲区无数据")
    End If

End Sub
    ![图片说明](https://img-ask.csdn.net/upload/201505/21/1432187109_366700.jpg)

接收数据重复？那就发送成功之后把缓冲区数据清空

会不会数据缓冲区没有清空啊

是不是你的设备会不停把数据发过来？
那么你要开个定时不停地读数据才行。

接收数据重复？那就发送成功之后把缓冲区数据清空

如果一直在向串口发送数据，那你接收的话，数据就会重复，比较我们做的地磅接口读数，数据一直在重复接收，这是对的