唯倚社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 479|回复: 5

VisualBasic串口通信程序设计

[复制链接]

59

主题

169

帖子

754

积分

版主

Rank: 7Rank: 7Rank: 7

积分
754
发表于 2017-9-14 15:24:51 | 显示全部楼层 |阅读模式

轻松玩转社区

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
核心提示:1mscomm.vbx通信控件描述 mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form,即可用其进行通信。若toolbox中无此控件
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将成为最快速、易用、强劲的应用开发工具,是企业级客户/服务器应用软件开发的首选工具之一。

31

主题

151

帖子

812

积分

版主

Rank: 7Rank: 7Rank: 7

积分
812
发表于 2017-9-23 00:15:34 | 显示全部楼层
楼主快去捡肥皂吧
回复

使用道具 举报

86

主题

201

帖子

3444

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3444

最佳新人

发表于 2017-9-23 01:59:27 | 显示全部楼层
神马都是浮云
回复

使用道具 举报

1

主题

100

帖子

79

积分

版主

Rank: 7Rank: 7Rank: 7

积分
79
发表于 2017-9-23 05:21:44 | 显示全部楼层
我为自己袋盐
回复

使用道具 举报

21

主题

148

帖子

1170

积分

超级版主

Rank: 8Rank: 8

积分
1170

最佳新人

发表于 2017-9-23 13:26:58 | 显示全部楼层
负分拿好,不送,滚粗
回复

使用道具 举报

3

主题

113

帖子

184

积分

版主

Rank: 7Rank: 7Rank: 7

积分
184
发表于 2017-9-23 19:56:59 | 显示全部楼层
我只是来水经验的
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|weiecn ( 湘ICP备14002058号 )

GMT+8, 2018-12-17 18:02 , Processed in 0.060074 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表