'发送数据
    Private Sub senddata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles senddata.Click
        Dim strincoming As String
        Dim xx As String
        Dim yy As String
        Try
            SerialPort1.Write(senddata.Text, 0, 4)
                     Threading.Thread.Sleep(1000)
                   If SerialPort1.BytesToRead > 0 Then
                Threading.Thread.Sleep(100)  '添加延时
                strincoming = SerialPort1.ReadExisting.ToString '读取缓冲区中的数据
                SerialPort1.DiscardInBuffer()
                RXbox.Text = strincoming            End If        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub程序如上  senddata为发送数据,RXbox为接收数据框 ,串口已经打开,用串口助手调试可发射和接收,自己编的程序senddata输入1 接收RXbox里面都是空的 ,请大师指教