串口通信实践.pptVIP

双击[发送数据]部分，添加Button_Send_Click() 函数，其代码如下： 发送数据 Private Sub Button_SEND_Click() Dim x As String If Text_SEND.Text = Then 发送数据不能为空 x = MsgBox(发送数据不能为空， 16) Exit Sub End If If Not MSComm.PortOpen Then 保证串口打开 MSComm.PortOpen = True End If MSComm.Output = Text_SEND.Text + Chr$(13) 发送数据 For i = 1 To延时 Next End Sub * 接收数据部分使用了事件响应方式。当串口收到数据使得数据缓冲区的内容超过1字节时就会引发comEvReceive事件。OnComm()函数负责捕捉这一事件，并负责将发送缓冲区的内容送入输出文本框显示。OnComm()函数还对错误信息进行捕捉，当程序发生缓冲区溢出之类的错误时，由程序员负责将缓冲区清空。 * 要实现上述功能，首先要双击MSComm控件创建OnComm()，并输入代码： 接收数据 P