《VisualBasic串口通信程序设计.pdf》由会员分享，可在线阅读，更多相关《VisualBasic串口通信程序设计.pdf（4页珍藏版）》请在金锄头文库上搜索。
1、1mscomm.vbx通信控件描述 mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其 进行通信。若toolbox中无此控件，则用tools的customcontrols将 mscomm.vbx从windows的system子目录中加入vb的toolbox中。 1.1通信方式 mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计 问题 1、事件驱动。它与c/c 写windows软件时的窗口回调函数类似，是 1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信 中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发 生变
2、化时，要求我们使用相应的事件来跟踪和处理，该控件是使用 oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题， commevent值返回最近的通信事件或错误的数字代码。通信控件详细的 错误和事件举例有： mscomm-er-break收到1个breaksignal mscomm-er-cdtocd信号超时 mscomm-ev-cdcd信号改变 2、查询方式。由程序设计者负责读取commevent的值并处理所发生 的错误或事件。通常简单的应用程序设计可采用这种办法。 1.2通信控件的属性 利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。 mscomm.vbx提供了27个关
3、于通信控件方面的属性，例如： commport：设置或返回通信口编号。 settings：设置或返回以字符串形式出现的数据通信格式：波特率、校 验、数据位和停止位。 portopen：设置或返回通信口状态（包括打开和关闭1个通信口） 3、实例 本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工 控机（主站）与32个单片机（子站）之间的通信问题。主站与子站之间 这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。 由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回 的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系 统功能的要求，主站
4、需发送2种类型的命令：（1）同期命令，它由定时 器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按 动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站 上，而通信程序作为自动监控系统软件的一部分也安装在主站上。 本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时， 用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间 采用rs232c串口通信。往主站的通信演示程序窗体（form）中加入1个 通信控件、2个定时器控件和1个命令按钮控件，通信控件（mscomm1） 用于访问串口，发送和接收数据；periodic定时器控件（periodic）用
5、于控制每秒由主站向各子站发送周期性命令；命令按钮控件 (nonperiodic-command)与nonperiodic定时器控件（nonperiodic）用 于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的 发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。 2.1窗体各控件初始化程序 设置通信串口工作参数，设置periodic定时器的在断间隔为 ls,nonperiodic定时器的中断间隔为0.5s。 subform-load() mport=2选用com2串行口 mscomm1.settings=9600，n8，1波特率9600，无奇偶校验位，8位数
6、据位1位停止位 mscomm1.inputlen=0input将读取接收缓冲区的全部内容 mscomm1.inbuffersize=1024设置接收缓冲区的字节长度 mscomm1.portopen=true打开通信口 mscomm1.inbuffercount=0清除发送缓冲区数据 mscomm1.outbuffercount=0清除接收缓冲区数据 periodic.inteval=100设置ls定时间隔，使遥测命令每隔ls发送1次 nonperiodic.inteval=500设置0.5s定时间隔，查询命令按钮是否处于 激活状态以确定是否发送周期性命令 command-pressed=fa
7、lse命令按钮为未激活状态 during-periodic=false周期性命令数据传输尚未开始 during-nonperiodic=false非周期性命令数据传输尚未开始 endsub 2.2非周期性命令发送程序 根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器 的中断程序中发送非周期性命令。 subnonperiodic-command-click() command-pressed=true命令按钮激活 endsub subnonperiodic-timer() ifduring-periodic=trueorcommand-pressed=false then
8、exitsub若周期性命令数据传输尚未结束或命令按钮处于激活状 态，则退出发送非周期性命令程序。 command-pressed=false命令按钮恢复为未激活状态 callsenddata(nonperiodic-command)发送非周期性命令 mscomm1.rthreshold=r-nonperiodic-byte发送非周期性命令后，设置 rthreshold属性，使主站接收所设定的字节数后引发oncomm事件 endsub 2.3periodic定时器程序 在periodic定时器的中断程序中发送周期性命令： subperiodic-timer() ifduring-nonperio
9、dic=truethenexitsub若非周期性命令数据传输尚 未结束，则退出发送非周期性命令程序。 during-periodic=true设置周期性命令数据传输状态为正在进行中 callsenddata(periodic-command)发送周期性命令 mscomm1.rthreshold=r-periodic-byte发送周期性命令后，主站接收 r-remot-edata-byte个字节，可引发oncomm事件 endsub 2.4oncomm事件程序 根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符 时，引发oncomm事件，在中断程序中接收数据。 submsco
10、mm1-oncomm() mevent在此可插入处理各种不同错误或事件的 代码 casemscomm-ev-receive receivestring$=mscomm1.input selectcasemscomm1.rthreshold caser-periodic-byte周期性命令的应答数据 calldisposedata(periodic-command)处理接收数据 duringperiodic=false设置周期性命令数据传输状态为结束 caser-nonperiodic-byte非周期性命令的应答数据 calldisposedata(nonperiodic-command)处理接收数据 during-nonperiodic=false设置非周期性命令数据传输状态为结束 endselect endselect endsub 随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工 具，是企业级客户/服务器应用软件开发的首选工具之一。
