vb.net单片机发送与接收

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '载入窗体初始化 GetSerialPortNames() '将搜到的串口在下拉菜单中显示出来 AxMSComm1.InBufferSize = 1024 '接收缓冲区大小，此项无法在串口打开时进行设置 AxMSComm1.OutBufferSize = 1024 '发送缓冲区大小 ComboBox2.Text = "4800" ComboBox3.Text = "无校验" ComboBox4.Text = "8" ComboBox5.Text = "1" ChangePortProperty() '设置接收数据的格式为二进制 AxMSComm1.InputMode = MSCommLib.InputModeConstants.comInputModeBinary AxMSComm1.InputLen = 0 '设置从缓冲区读取全部数据 AxMSComm1.RThreshold = 1 '设置接收串口OnCommon事件，收到一个字符就触发 AxMSComm1.PortOpen = True '打开串口 If AxMSComm1.PortOpen = True Then OvalShape1.FillColor = Color.Green 'OvalShape颜色设为绿色 Button1.Text = "关闭端口" '按钮上的文字显示为关闭端口 Else OvalShape1.FillColor = Color.Red 'OvalShape颜色设为红色 Button1.Text = "打开端口" '按钮上的文字显示为打开端口 End If End Sub