end sub
sub nonperiodic-timer ()
if during- periodic=true or command-pressed=false
then exit sub
’若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。
command-pressed=false ’命令按钮恢复为未激活状态
call senddata (nonperiodic-command) ’发送非周期性命令
mscomm1.rthreshold=r-nonperiodic-byte
’发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件
end sub
2.3 periodic定时器程序
在periodic定时器的中断程序中发送周期性命令：
sub periodic-timer ()
if during- nonperiodic=true then exit sub
’若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。
during-periodic=true ’设置周期性命令数据传输状态为正在进行中
call senddata (periodic-command) ’发送周期性命令
mscomm1.rthreshold=r-periodic-byte
’发送周期性命令后，主站接收r-remot- edata-byte个字节，可引发oncomm 事件
end sub
2.4 oncomm事件程序
根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。
sub mscomm1-oncomm ()
select case mscomm1.commevent
’在此可插入处理各种不同错误或事件的代码
case mscomm-ev-receive
receivestring$=mscomm1.input
select case mscomm1.rthreshold
case r-periodic-byte ’周期性命令的应答数据
call disposedata(periodic-command) ’处理接收数据
during periodic=false ’设置周期性命令数据传输状态为结束
case r-nonperiodic-byte ’非周期性命令的应答数据
call disposedata(nonperiodic-command) ’处理接收数据
during-nonperiodic=false
’设置非周期性命令数据传输状态为结束
end select
end select
end sub
随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。
156
