基于VB的串口通信界面设计（单片机与PC通信）

'MSComm1.Setting = "9600,n,8,1" '设置波特率、校验位(1)、数据位、停止位 MSComm1.OutBufferCount = 0 '清除发送缓冲区 OutB = OutBb ' Do DoEvents '转交控制权 Loop Until MSComm1.OutBufferCount = 0 ' MSComm1.InBufferCount = 0 '清除接收缓冲区 MSComm1.RThreshold = 8 '所要接收的数据长度 MSComm1.RTSEnable = True '转为接收状态 Timer1.Enabled = True '启动定时器 MSComm1.InputLen = 0 '读取接收缓冲区的所有字符 MSComm1.OutBufferCount = 0 '清除发送缓冲区 MSComm1.InBufferCount = 0 '清除接收缓冲区 MSComm1.InputMode = comInputModeBinary '数据传输设置为二进制格式 MSComm1.RThreshold = Receive_Byte '设置为主站每次接收Receive_Byte '可触发 'COM1Timer1.Inteval = 2000 '设置2秒发送定时时间间隔 Timer1.Enabled = False '在发送下行命令后启动Timer2超时定时'数据发送尚未开始 MSComm1_send = False '下行命令传输尚未开始 MSComm1_Receive = False '接收数据尚未开始 MSComm1.RTSEnable = False '置为发送状态