基于VB的采煤机试验台监控系统设计与实现.pdf

《基于VB的采煤机试验台监控系统设计与实现.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2011年第1期煤矿机电·39·基于VB的采煤机试验台监控系统设计与实现朱承才，张海芝(天地科技股份有限公司上海分公司，上海201400)摘要：针对采煤机试验台控制系统的不足，以VisualBasic6．0和Excel为工具开发监控系统。介绍监控界面的设计，包括显示界面设计、通讯程序设计和存储程序设计，以及历史数据存储程序的操作方法。关键词：采煤机试验台；控制系统；串行通讯中图分类号：TD421．6+l文献标识码：A文章编号：1001—0874(2011)01—0039—03DesignandRealizationofShearerTesterMonitoringSys

2、temBasedonVisuaIBasicZHUCheng—cai，ZHANGHai-zhi(ShanghaiBranchofTiandiScience&TechnologyCo．，Ⅲ．，Shanghai200030，China)Abstract：TakingVisualBasic6．0andExcelasthedevelopmenttool，amonitoringsystemisdevelopedtomakeupforthedefectsofthetestercontrolsystem．Introducesthedesignofmonitoringinterface，

3、includingthedesignsofdisplayinterface，communicationprogramanddatasavingprogramandtheoperatingmethodofhistoricaldatasavingprogam．Keywords：shearertester；controlsystem；serialcommunication1概述3程序设计随着天地上海分公司的发展，采煤机试验台承接的试验量也随之增加。在做摇臂或牵引箱加载试验时，时常会出现轴向窜动造成轴承间隙不合适，温度突然快速上升，导致轴承等零部件过热受损。目前采煤机试验控制台

4、采用LED显示，并无数据存储功能，故而试验人员无法及时发现温度上升状况，借助数据来查找原因。试验台的监控系统要能很好记录温度变化状况，为查找问题提供帮助；当温度上升到一定值时，发出警告，引起试验员注意。2系统组成本系统通过热敏电阻Ptl00，把采集到的被试件温度信息显示在CIM01万能输出模块、并输出在温控仪上，同时经RS-485通讯传给控制台上的万能输出模块传给温控仪和PC机，PC机端采用RS-485与RS-232通讯转换，将温度显示并存储于PC机。(1)显示界面VisualBasic(以下简称VB)，是微软公司推出的强有力的系列开发软件之一。不但提供了良好的界面设计

5、能力，而且在微机串口通讯方面也有很强的功能，它提供的串行通讯控件MSComm32．OCX，全面提供了使用RS-232进行数据通讯的所有协议‘¨。以VB6．0为软件平台开发的试验台监控测试系统的主界面如图1所示。通过该主界面可以完成对系统主要设备运行状态的实时监控，用文本框显示系统温度等主要运行参数。(2)通讯程序通过VB自带的MSComm控件可用VB语言编写串行通讯程序嵋1：1)在窗体上安排一个MSComm控件，作为串行通讯的通道。·40·煤矿机电2011年第1期图1试验台监控系统主界面2)设计MSComm控件属性。在窗体onload事件中加入以下代码设置控件属性：MS

6、Comml，CommPort=1‘设置端口号，端口号不能和计算机上的端口发生冲突；MSComml．Settings=“9600，N，8，l”‘设置波特率，必须和通讯设备的波特率相同，9600为连接速度；MSComml．InputLen=0‘指定串口读入字符串的长度。默认值为0，一次读取所有输入缓冲区的数据；MSComml．InputMode=comlnputModeBinary‘传输模式为二进制形式；MSComml．PortOpen=True‘在使用串口前必须先打开通讯端口；MSComml．RThreshold=16‘设置接收16个字节产生OnComm事件。3)添加On

7、Comm事件。接收部分需要准确采集现场上传的适时参数，如温度等，是通讯程序设计的重点，通过VB中MSComm控件的OnComm事件来完成。其工I发送请求发送指令剑Y工图2通讯工作流程PrivateSubMSComml—OnComm()Dimbuff()AsByteSelectCaseMSComml．CommEventCasecomEvCDCasecomEvCTSCasecomEvDSRCasecomEvRingCasecomEvReceive‘接收到信息则触发程序buff=MSComml．Input‘接收信息EndSelectEndSub