烟气连续排放远程监控系统服务器端软件设计

《烟气连续排放远程监控系统服务器端软件设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、[键入文字]烟气连续排放远程监控系统服务器端软件设计自动化与电气工程学院测控0802陆志峰刘方明余楠摘要：烟气排放连续监测系统（CEMS）是监测烟气污染物排放的现代化手段。本文首先对CEMS系统及远程监控进行了介绍，然后详述了PC机与PLC连接的通讯方式，最后针对CEMS系统的远程监控要求，设计了通讯命令桢以及VB程序，利用modem和公共电话网实现了实时数据及历史数据的远程传输。关键词：CEMS系统服务器Mscomm自由口通信协议1绪论1.1烟气排放监控系统的产生和应用随着全球工业化和城市化的迅速发展，人类在开发自然资

2、源得到巨大财富的同时也付出了极大的代价，生存环境遭到严重破坏，并越来越成为制约经济和社会可持续发展的重要因素。我国正处于国民经济高速发展的阶段，治理环境污染、改善生存环境已经作为一个刻不容缓的问题摆在我们的面前。各类传感器采样样本PLCS7-200服务器数据库MODEMMODEM客户端电话网图1.2CEMS系统结构图烟气排放连续监测系统(ContinuousEmissionsMonitoringSystem,简称CEMS)，是监测烟气污染物排放的现代化手段，可连续监测污染物(SO2，NO，烟尘等)的排放浓度和排放总量，该

3、系统具有连续监测、定期统计、远程通讯等特点。适用于在线连续自动分析监测各种工业锅炉、窑炉及加热炉中烟道气的SO2及NO、CO、O2、烟尘、流量、温湿度、压力等，根据分析结果调整最佳的空气燃料比，提高燃烧效率，达到节约能源及减少环境污染的双重效果[1]。因此，本系统广泛应用于火电厂、冶金、石化、建材等各行业。1.2烟气排放监测系统结构及运行流程系统主要由多个采样阀、吹扫阀、抽气泵和气体分析仪器、PLC及其扩展模块以及PC机组成。PLC定时打开采样阀，控制抽气泵将烟道气抽入气体分析仪中，气体分析仪测出烟气中SO2、O2、NO

4、和烟尘等组分的体积百分含量并变换成4～20mA的电流信号送入PLC，PLC采样后将数字信号传送给PC机，在PC机上通过VB程序接收PLC发送过来的信号，进行量程变换、动态显示、9[键入文字]数据存储和打印报表。PLC每连续采样8小时后，关闭采样阀，打开吹扫阀，对烟道吹扫两分钟。在采样、反吹时，蠕动泵也在一直工作着，蠕动泵工作45分钟，停15分钟，反复循环运行。本系统中，采用的是西门子S7-200系列PLC芯片。该芯片可提供4种不同的基本单元和6种型号的扩展单元。其系统构成除基本单元，扩展单元外，还有编程器，存储器卡，写入

5、器，文本显示器等。1.3PLC梯形图如图：当按钮处于自动状态，T60计时，蠕动泵工作；当T61断开，T60计时，计时15分钟，然后T60断开，T61计时，计时45分钟。总的来说就是蠕动泵开15分钟，再关45分钟，T60与T61相互触发，不能同时都接通。2.CEMS程序结构传感器测量待测气体的各种参数，将该数据传输到S7-200中，之后经过西门子公司提供的“S7-200OPCSampleforVisualBasic6”软件，把所需数据采集到数据库中，此过程由VB6.0编程完成。此外，程序中还应该包括，对数据库的管理：读取，

6、写入，实时监控。以及与客户端的数据共享：一旦客户端提出数据请求，本程序会自动按要求提供给客户端相应的数据包。CallMyGroup.SyncRead(OPCDevice,ItemCount,MyItemServerHandles,values,Errors,Qualities,TimeStamps)Fori=1ToItemCountIfErrors(i)=0ThenIfQualities(i)=192ThenSelectCaseCtlType(i)Case"varbox"varbox.Item(ItemClientHan

7、dles(i)).value=value(values(i),9[键入文字]RangeDwn(i),rangeup(i))Case"boolean"BOOLEAN1.Item(ItemClientHandles(i)).value=values(i)Case"puf"puf.Item(ItemClientHandles(i)).value=values(i)Case"valve"valve.Item(ItemClientHandles(i)).value=values(i)Case"ball_valve"ball_val

8、ve.Item(ItemClientHandles(i)).value=values(i)Case"pump"pump.Item(ItemClientHandles(i)).value=values(i)EndSelectElseSelectCasers("controltype")Case"varbox"varbo