第7章PC端接口技术.ppt

接收数据 要实现上述功能，首先要双击MSComm控件创建OnComm()，并输入代码： 接收数据 Private Sub MSComm_OnComm() Select Case MSComm.CommEvent 检验串口事件 错误处理 Case comEventOverrun 数据丢失 Text_SEND.Text = 清空发送缓冲区 Text_RECV.Text = 清空接收缓冲区 Text_SEND.SetFocus Exit Sub Case ComEventRxOver ‘接收缓冲区溢出 Text_SEND.Text = 清空发送缓冲区 Text_RECV.Text = 清空接收缓冲区 Text_SEND.SetFocus Exit Sub 接收数据 Case ComEventTxFull 发送缓冲区已满 Text_SEND.Text = 清空发送缓冲区 Text_RECV.Text