3VB软件串行通讯基本指令语句 发送程序 Comm1 Output=“0 ;输出缓存器清0 Comm1. Output=Strs(val(Text2text);发送文本框2中的内容 CommOut Buffercount=0 ;输出缓存器清0 Comm Output= ;发送结束信号“f 接受程序 Do while Comm 1. In Buffercount <5 DoEvents Loop ;等待接受完毕 Si=Comm Input ;取接受的信息 Text1. text=Si ;把接受的信息送文本框1显示 d=Val(si) ;把接受的信息变换为数值3 VB 软件串行通讯基本指令语句 • 发送程序 • Comm1.Output=“0” ；输出缓存器清0 • Comm1.Output=Str$(Val(Text2.text)) ；发送文本框2中的内容 • Comm1.OutBuffercount=0 ；输出缓存器清0 • Comm1.Output=“f” ；发送结束信号“f” • 接受程序 • Do while Comm1.InBuffercount<5 • DoEvents • Loop ；等待接受完毕 • Si=Comm1.Input ；取接受的信息 • Text1.text=Si ；把接受的信息送文本框1显示 • d=Val(Si) ；把接受的信息变换为数值