基于VB的分布式监控的系统通信设计.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
基于VB的分布式监控的系统通信设计

基于VB的分布式监控系统通信设计 郭爱文 (武汉大学动力工程系自动化专业)王 静 (武汉大学电力工程系通讯专业)武汉 430072摘 要 本文介绍了利用VB的多种通信手段实现分布式监控系统的多种通信功能,对每一种通信手段给出其原理和应用实例。关键词 VB 通信 串行口 控件 DDE APIThe Communication Design of Distributed Control System Based on VB Abstract: This article introduces the realization of many communication functions of Distributed Control System with the application on lots of communication methods of VB.Key Words: VB, Communication, Serial Port, Control Box, DDE, API1.概论分布式监控系统已在工业领域得到广泛应用,许多企业对于中小规模的设备,如中小型热电厂和水电站,出于硬件软件投资利润率和性能价格比的考虑,常常是自行开发或参与开发本企业的监控系统。而许多企业在成套引进大型DCS系统后,也常因实际情况而需要自行开发或改进其监控系统。分布式监控系统以微机为基础,用数据通信将微机连在一起实现数据共享,从而对工业过程进行集中监视管理和分散控制。因此,分布式监控系统中通信的设计与实现是至关重要的环节。Visual Basic开发语言具有简洁明了、编程效率高、开发周期短的特点,利用VB中的多种通信手段,可实现分布式监控系统的多种通信功能。2.与下位机的通信分布式监控系统的数据采集站可直接与现场带有标准RS-232C接口的智能仪表、PLC和单片机等链接,并可通过扩展控制卡形成一个数据采集子网,以高速准确地获取数据。VB的MSCOMM通信控件具有完善的串口数据发送和接受功能,利用它可以屏蔽对硬件的操作,简易快捷地进行串行通信编程。本文的实例为上位机与OMRON 200HG系列PLC的1:N链接通信。带有RS-485接口通信板的PLC直接挂在RS-485总线上,上位机通过RS-232C /RS-485转换器与总线相连,这样即构成数据采集子网,甚至可以是一个独立的小型分布式监控系统。其它仪器仪表设备,只要是标准串口都可以类似方式直接或间接与上位机链接。关于VB的MSCOMM控件可参考相关资料。本例通信程序摘要如下:(1)初始化程序Mscomm1.Commport=2 #39; 选择COM2Mscomm1.Settings=“9600,N,8,2” #39; 设置通信参数Mscomm1.Inputlen=0 #39; 读入接收缓冲区全部字符 Mscomm1.OutbufferSize=256 #39; 设置发送缓冲区大小 Mscomm1.InbufferSize=512 #39; 设置接收缓冲区大小Mscomm1.PortOpen=True #39;打开COM2(2)发送命令程序比如读取节点号03的PLC中IR000到IR009的内容,并放到tag1字符串变量中,此时有:Dim Command, node, begin, number as stringDim Answerlen as integernode=“03” #39;节点号Command=“RR” #39;命令为读IR区begin=“0000” #39;从IR000开始number=10 #39;读取长度Answerlen=51 #39;计算接收字符串长度进行命令发送和接收应答处理:Dim FCS, I as integerDim s ,f as strings=“@”+node+Commad+begin+numberFCS=0For i=1 to Len(s) FCS=FCS xor Asc(Mid$(s,i,1) ) #39;帧校验码FCSNext if=Hex$(FCS)If Len(f)=1 Then f=“0”+fCommfrm.MSComm1.Output=s + f + “*” + CHR$(13) #39;命令帧发送DoDummy=DoEvents()Loop Untill Commfrm.MSComm1.InbufferCount gt;= Answerlen #39;等待应答帧Do tag1= Commfrm.MSComm1.InputLoop Untill Commfrm.MSComm1.InbufferCount=0 #39;读完应答帧上述程序具有相当的通用性,对于其它设备不同的只是各自的数据帧格式,因而只需做相应少量修改即可。3.节点自身的”通信

文档评论(0)

ayangjiayu3 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档