C#实现串口通信与数据收发

Imports System
Imports System.IO.Ports
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '获取计算机有效串口
        Dim ports As String() = SerialPort.GetPortNames()
        Dim port As String
        For Each port In ports
            ComboBox1.Items.Add(port)
        Next
        ComboBox1.Text = ComboBox1.Items(0)
        ComboBox2.Items.Add(1200)
        ComboBox2.Items.Add(4800)
        ComboBox2.Items.Add(9600)
        ComboBox2.Text = ComboBox2.Items(2)
        Serial_Port1()
        TextBox2.Text = SerialPort1.IsOpen
        TextBox1.Text = "串口未连接"
        TextBox1.ForeColor = Color.Red
        TextBox3.Text = "123"
        CheckBox1.Text = ""
    End Sub
    Private Sub Serial_Port1()
        SerialPort1.BaudRate = ComboBox2.Text
        SerialPort1.PortName = ComboBox1.Text
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.Parity = IO.Ports.Parity.None
    End Sub