Sub GetSerialPortNames() '计算机串口读取 For Each sp As String In My.Computer.Ports.SerialPortNames CompList.Items.Add(sp) ‘CompList是一个下列框控件,这里修改为你的下列框名称 Next CompList.Text = CompList.Items(0) End Sub
3、串口打开
Sub PortOpen()
Try SerialPort1.Open() Call PortStart() Catch ex As UnauthorizedAccessException MsgBox("串口被占用或串口错误!", MsgBoxStyle.Information, "提示!") End Try
End Sub
4、串口关闭
Sub PortOpen()
Try SerialPort1.Close() Catch ex As Exception MsgBox("串口未打开或串口异常!", MsgBoxStyle.Information, "提示!") End Try End Sub
5、串口读取数据
Sub ComRec() Dim Rxstr As String
Try Rxstr = SerialPort1.ReadLine ’读取一个新行 Application.DoEvents() ComTxT.AppendText(Rxstr) ‘读取到的数据添加到文本框中显示 Catch e As TimeoutException ’当超时以后,读取串口所有的数据