因为我没有硬件测试,所以问一下。但我发给客户测试过以下代码,很不稳定,有时候会弹出端口已经打开不能设置的错误提示。奇怪明明关闭了端口呀!!
Dim por As SerialPort = New SerialPort
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If por.IsOpen = True Then
por.Close()
End If
por.BaudRate = 9600
por.ReceivedBytesThreshold = 1
por.StopBits = StopBits.One
por.Parity = Parity.None
por.DataBits = 8
por.PortName = Me.ComboBox1.SelectedItem.ToString
Try
If por.IsOpen = False Then
por.Open()
End If
por.WriteLine(Me.TextBox1.Text)
Dim strT As String
strT = por.ReadExisting()
MessageBox.Show(strT)
Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
por.Close()
End Try