1、准备: 首咸犴孜稍先看控件区有无串口控件,如果出现下图第一种情况,表明串口控件并未被启用,选择工程→部件→Micosoft comm Control6.0选项,点击应用,即可添加串口控件。
2、绘制界面: 绘制两个text控件用于存储串口需要收发的数据。一个button控件用于发送指令,添加串口控件。
3、编写程序: Private Sub Command1_Click() MSComm1.Output = Text2.Text 催嗟祢汊‘发送数据End SubPrivate Sub Form_Load() MSComm1.PortOpen = True '打开串口 MSComm1.InputMode = comInputModeText ' 设置串口接收方式为文本模式End SubPrivate Sub MSComm1_OnComm() Dim str As String Select Case MSComm1.CommEvent '监听事件 Case 2 str = MSComm1.Input Text1.Text = str End SelectEnd Sub
4、查看效果: 串口数据的收发都正常。