VisualBasic串口通信程序设计 |
|
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信号线状态 产生 变迁时，要求我们 使用相应的事件来跟踪和 解决，该控件是 使用oncomm事件来实现的，它也包含检测和 解决通讯 舛误等方面的问题，commevent值返回近期的通讯事件或 舛误的数字代码 。通讯控件 详尽的 舛误和事件举例有： mscomm-er-break收到1个breaksignal mscomm-er-cdtocd信号超时 …… mscomm-ev-cdcd信号转变 …… 2、 查问 模式 。由程序设计者负责读取commevent的值并 解决所 产生的 舛误或事件 。通常 方便的 利用程序设计可采纳这种 步骤 。 1.2通讯控件的属性 利用通讯控件编制通讯程序， 要害是精确 了解设置通讯控件的属性 。mscomm.vbx提供了27个对于通讯控件方面的属性，例如： commport：设置或返回通讯口编号 。 settings：设置或返回以字符串 模式浮现的数据通讯 格局：波特率、校验、数据位和 停留位 。 portopen：设置或返回通讯口状态(包含 打开和关闭1个通讯口) …… 3、实例 本程序 利用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机(主站)与32个单片机(子站)中间的通 询问题 。主站与子站中间这总线式网络 构造，采纳rs-485通讯 标准，以问答 模式进行数据通讯 。因为32个子站与主站发送通讯命令(下行命令)，主站在 接纳子站发回的相应 答复命令(上行命令)后 接续发送下行命令的通讯 模式 。依据系统 性能的要求，主站需发送2 品种型的命令：(1)同期命令，它由定时器触发引起，每隔ls周期发送1次；(2)非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送 。自动监控系统软件安装在主站上，而通讯程序作为自动监控系统软件的一 部分也安装在主站上 。 本文仅列出调试通讯程序时进行试验用的 根本演示程序清单 。试验时，用1台pc机作为主站，另一台pc机 模仿32个子站的工作，两台pc机中间采纳rs232c串口通讯 。往主站的通讯演示程序窗体(form)中加入1个通讯控件、2个定时器控件和1个命令按钮控件，通讯控件(mscomm1)用于 拜访串口，发送和 接纳数据；periodic定时器控件(periodic)用于操纵每秒由主站向各子站发送周期性命令；命令按钮控件(nonperiodic-command)与nonperiodic定时器控件(nonperiodic)用于发送非周期性命令 。数据 传递采纳事件驱动的通讯 模式，依据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以 接纳数据 。 2.1窗体各控件初始化程序 设置通讯串口工作参数，设置periodic定时器的在断 间隔为ls,nonperiodic定时器的中断 间隔为0.5s 。 subform-load() mscomm1.commport=2'选用com2串行口 mscomm1.settings="9600，n8，1"'波特率9600，无奇偶校验位，8位数据位1位 停留位 mscomm1.inputlen=0'input将读取 接纳缓冲区的所有内容 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=false'命令按钮为未激活状态 during-periodic=false'周期性命令数据传输尚未开始 during-nonperiodic=false'非周期性命令数据传输尚未开始 endsub 2.2非周期性命令发送程序 依据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令 。 subnonperiodic-command-click() command-pressed=true'命令按钮激活 endsub subnonperiodic-timer() ifduring-periodic=trueorcommand-pressed=false thenexitsub'若周期性命令数据传输尚未 完毕或命令按钮处于激活状态，则退 起程送非周期性命令程序 。 command-pressed=false'命令按钮 复原为未激活状态 callsenddata(nonperiodic-command)'发送非周期性命令 mscomm1.rthreshold=r-nonperiodic-byte'发送非周期性命令后，设置rthreshold属性，使主站 接纳所设定的字节数后激发oncomm事件 endsub 2.3periodic定时器程序 在periodic定时器的中断程序中发送周期性命令： subperiodic-timer() ifduring-nonperiodic=truethenexitsub'若非周期性命令数据传输尚未 完毕，则退 起程送非周期性命令程序 。 during-periodic=true'设置周期性命令数据传输状态为正在进行中 callsenddata(periodic-command)'发送周期性命令 mscomm1.rthreshold=r-periodic-byte'发送周期性命令后，主站 接纳r-remot-edata-byte个字节，可激发oncomm事件 endsub 2.4oncomm事件程序 依据rthreshold属性设置值，当 接纳缓存区内 接纳到相应字节的字符时，激发oncomm事件，在中断程序中 接纳数据 。 submscomm1-oncomm() selectcasemscomm1.commevent'在此可插入 解决各种不同 舛误或事件的代码 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将成为最 快捷、易用、强劲的 利用开发工具，是企业级客户/服务器 利用软件开发的首选工具之一 。 |
