我与单片机的通讯是下面这段,你可以简化下。不对的就得请大虾指教了
程序代码:
= "3" ' 设定端口 MSComm.Settings = "9600,n,8,1" ' 设置波特率,无校验,8位数据位,1位停止位 MSComm.InBufferSize = 1024 ' 设置接收缓冲区为1024字节 MSComm.OutBufferSize = 4096 ' 设置发送缓冲区为4096字节 MSComm.InputMode = comInputModeBinary '采用二进制传输 MSComm.InBufferCount = 0 ' 清空输入缓冲区 MSComm.OutBufferCount = 0 ' 清空输出缓冲区 MSComm.SThreshold = 1 ' 发送缓冲区空触发发送事件 MSComm.RThreshold = 1 ' 每X个字符到接收缓冲区引起触发接收事件 MSComm.OutBufferCount = 0 ' 清空发送缓冲区 MSComm.InBufferCount = 0 ' 滑空接收缓冲 MSComm.SThreshold = 0 '一旦发送数据就触发OnComm()事件来检测是否返回数据 MSComm.RThreshold = 1 '接收到1个字节数据就立即触发OnComm()事件 MSComm.PortOpen = True