serialport 简单的串口通信 的例子 求

[兴风作浪的梦]

本人 ，， 刚刚开始学 求教

[良朋]

'触发接收事件 Public Sub Sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Me.Invoke(New EventHandler(AddressOf Sp_Receiving)) '调用 End Sub '接收数据 Private Sub Sp_Receiving(ByVal sender As Object, ByVal e As EventArgs) Dim strIncoming As String Try If SerialPort1.BytesToRead > 0 Then 'strIncoming = SerialPort1.ReadExisting.ToString '读取缓冲区中的数据 strIncoming = SerialPort1.ReadLine.ToString SerialPort1.DiscardInBuffer() End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub

[兴风作浪的梦]

这个例子 我有 最好 有 接受 与发送 比较全 比较 好一点的 O(∩_∩)O谢谢

[PauseCtrl]

我也是急需啊，大神们快来啊^_^