如何用VB编写串口程序

1、准备：

       首先看控件区有无串口控件，如果出现下图第一种情况，表明串口控件并未被启用，选择工程→部件→Micosoft comm Control6.0选项，点击应用，即可添加串口控件。

2、绘制界面：

       绘制两个text控件用于存储串口需要收发的数据。一个button控件用于发送指令，添加串口控件。

3、编写程序：    

Private Sub Command1_Click()

    MSComm1.Output = Text2.Text ‘发送数据

End Sub

Private Sub Form_Load()

    MSComm1.PortOpen = True '打开串口

    MSComm1.InputMode = comInputModeText ' 设置串口接收方式为文本模式

End Sub

Private Sub MSComm1_OnComm()

    Dim str As String

    Select Case MSComm1.CommEvent '监听事件

        Case 2

         str = MSComm1.Input

         Text1.Text = str

    End Select

End Sub

4、查看效果：

       串口数据的收发都正常。