else
comm1.output=chr(echoch%)
endif
dummy=doevents()
loop
else‘在通讯过程中，按下cmdcomm按钮则停止通信，发出停止测试
cmdcomm.caption=“通信”‘命令，关闭串行口，使退出按钮有效。
comm1.output=chr(&h5f)
comm1.portopen=false
cmdexit.enabled=true
endif
endsub
subcmdexit_click()
ifcomm1.portopenthen‘确认关闭串行口
comm1.portopen=false
endif
end‘终止整个程序
endsub
subtimer1_timer()‘更新显示时间
iflabtime.caption＜＞time&then
labtime.caption=time$
endif
endsub
3.程序说明:
a.上述程序的通信协议为:波特率9600，偶校验，8个数据位，1个停止位。由上位机发送开始测试命令，下位机接收到命令后每隔500ms向上位机发送检测到的数据。每次发送5个字节，第一个字节为下位机接受到的命令，第二三字节为16byte的值，第四五字节为16byte的值。上位机循环接受并处理和显示数据;
b.由于在控制软件中，串行通讯发送和接受的数据多为十六进制，故在命令输入时为十六进制数，在程序中通过echoch%=val(“&h”+echo.text)将输入的echo.text转换为十六进制数，并赋给变量echoch%。而在通过串行口发送时comm1.output要求接受字符型变量，故通过语句comm1.output=chr(echoch%)实现;
c.接受数据时，每次要判断第一个字节是否为发出的命令，只有是后面4个字节才为正确的数据，否则查看下一字节。通过设置comm1.inputlen=1来实现每次从接受缓冲区内读取一个字节;
d.当退出程序时，一定要关闭串行口，通过comm1.portopen=false完成;
e.如果需要上位机定时查询下位机，可以将串行通讯在定时器timer1-timer事件中进行;
f.要实现完善的功能，必须进一步改善程序，甚至要用到windowsapi、ole等，上述程序只是一个简单的例子;
