基于delphi开发平台的分布式数据采集系统

基于delphi开发平台的分布式数据采集系统

ID:9711419

大小:59.50 KB

页数:7页

时间:2018-05-05

基于delphi开发平台的分布式数据采集系统 _第1页
基于delphi开发平台的分布式数据采集系统 _第2页
基于delphi开发平台的分布式数据采集系统 _第3页
基于delphi开发平台的分布式数据采集系统 _第4页
基于delphi开发平台的分布式数据采集系统 _第5页
资源描述:

《基于delphi开发平台的分布式数据采集系统 》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、基于Delphi开发平台的分布式数据采集系统  【摘要】用RS485串行通讯构成的总线型的分布式数据采集系统,数据采集模块可以进行单独采集测量,但采集结果需由上位机进行数据显示,保存,分析处理等操作,系统上层软件基于delphi开发平台,采用简单的非重叠I/O模式,通过合理的设置,有效地解决了I/O读写阻塞问题,增强了系统运行可靠性;由于采用分布式I/O采集模块,整个系统具备良好的扩展性。  【关键词】串行通讯DelphiRS485分布式数据采集    串行通讯因其线路简单,开发相对比较容易,所以经常应用于各种监控、测试和自动化设备中。而R

2、S485串行总线接口采用平衡发送和差分接收的方式进行数据通讯,较RS232提高了抗共模干扰能力和传输距离,其在适当的波特率下通讯距离可以达到1千米以上。RS485总线可用于多个带有RS485接口设备的互连,以实现数据高速远距离传送,其连线十分方便,鉴于以上优点,RS485总线在工业控制现场得到了广泛的应用。    一、系统设计    本系统采用一台PC作为上位机,采集系统通过若干块研华Adam4000系列I/O模块完成,系统原理图如图1所示。    上位机的RS232串行口通过ADAM4520RS232/RS485转换器转换为RS485总线

3、,ADAM4000系列通过ADAM4520跟上位机(PC)进行通讯。各个采集模块设有自己惟一的地址,且各个模块之间不进行信息交换,一切通讯受上位机控制。开始时,所有下位机都处于监听状态,等待上位机发出指令。当上位机发出指令时,所有的采集模块都接收并且将其中的地址帧与自己的地址比较,如果相同则继续接收后面的指令或数据,若不同则不予理睬。  系统通过从模块中采集到的数据,显示在软件中,通过软件的开发,可以对数据进行保存,分析等自动化操作。    二、通讯协议    本系统采用半双工异步通讯,下位机以串行中断方式接收。  ADAM4520模块已经

4、帮我们把RS232的字符串信号转换成RS485的信号后,此信号就可以在RS485网络上传送了。而一个串行通讯进行之前必须先就传输的状态条件进行设置,ADAM4000系列的分布式模块所使用的校验位检查方式是None,数据位长度是8,停止位长度是1,模块的速度可以有多种选择,最高可以达到115200bps。分布式模块的命令格式被分成送出与响应两个部分,其中送出部分由计算机下达命令给分布式模块,由5个片段组成,如图2。    在分布式模块中,上位机会根据实际需求向模块发出指令,上位机在发送指令后如接收到下位机的应答则认为指令发送成功,可以发送下一

5、个指令,否则重新发送此指令。模块在接收到正确的指令后送回执行结果,这个被传送回来的字符串由以下5个部分组成,如图3。   三、软件设计    采集软件的设计是完成整个系统的关键,我们使用msm控件作为串口的操作控件,通过下面4个简单步骤完成系统功能的设计。  1.通讯端口的打开  Begin  MSm1.mPort=1//确定串口号  MSm1.Settings=“9600,N,8,1”//波特率的设定,校验方式,数据位,停止位  MSm1.PortOpen=True//打开串口  End  2.指令送出  Begin  MSm1.Outp

6、ut:=’$01’+chr(13)//读取地址为01的模块数据  End  3.数据接收  Begin  Edit1.txt:=MSm1.input//把接收的数据显示在Edit1控件上  End  4.结束系统  Begin  Close;  End  以上是单个功能的设计,实际设计中要复杂得多,下面是本人在设计使用的一个过程函数  procedureTFormADAMm.MSmAm(Sender:TObject);  var  sss:ansistring;//串口数据  ci:byte;//DI,DO模块判断  qii:integer

7、;//串口故障对比  begin  ifnotMSmA.PortOpenthenexit;  ifintADAMCly<1thenexit;  qii:=MSmA.mEvent;//读串口故障号(1004-帧错误)  ifqii=1008thenMSmA.InBufferCount:=0;//接收溢出  ifqii=1010thenMSmA.OutBufferCount:=0;//发送溢出  //ifqii<>2thenexit;//=2接收到预定数的字,中断时用此句  //读串口数据  sss:=MSmA.Input; 

8、 MSmA.InBufferCount:=0;//清接收缓冲区  //数据和接收显示  ci:=intADAMCly;//模块号  EditData.Text:=sss;  AD

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。