[

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将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。

参考文献

1、夏云 ·Windows环境下串行数据通信程序设计·PC应用，1995；（6）

2、舒继武·Visual Basic 3.0中通信及应用·微型机与应用，1996；（8）

3、陈小欧·Windows环境下串口异步通信程序设计·电子技术应用，1997；（2）

[本文共有 2 页，当前是第 2 页] <<上一页 下一页>>

]

有搞不定的程序，交给机电之家吧！去悬赏竞标