基于VB及台达触摸屏的监控系统在纺机中的应用

来源: 作者:admin 阅读
一、引言 该系统用于对各生产线的纺机进行实时监控和查询,并对各班次产量数据进行存储,用户可通过日期时间段、车号、班次等对产量进行综合查询,并进行统计,可在查询出满足条件的数据后,进行报表输出和打印。以下是对系统设计方面的一些讨论。 二、系统结构与功能 精梳机是近年来在纺织行业使用较为普遍的一种设备,其主要作用是排出梳棉生条中一定长度以下的短纤维,提高纤维整齐度,进一步清除纤维中残留的棉结、杂质,提高纤维光洁度。条并卷联合机是精梳工序的准备设备,通常情况下,一套精梳设备由一台条并卷联合机和五台精梳机组成。该产量监控查询系统应用于精梳设备的结构示意图如下所示:   该系统实现了以下功能: 1)实时监控所选机器各班次的当日产量和累计产量以及该机器的运行情况。 2)可定时保存各机器各班次的当日产量及累计产量,且有多种定时方式可选择。 3)能分别根据时间,班次,产量,车号进行查询操作,也可综合考虑数据保存方式进行查询,提高查询准确率。 4)查询结果可显示为报表格式,并可将结果打印输出,方便用户使用。 5)具有系统维护功能,可方便用户进行数据维护。 三、系统设计 1)硬件配置 2) 数据采集部分的设计 触摸屏选用台达系列AE10THTD型,由于其具有强大的通讯功能,灵活的系统构成,生动逼真且丰富的图库,简单易用等特点,在纺织业中得到了广泛的应用,因此通过触摸屏来采集所需数据。所以要对纺机进行实时监控,首先要解决触摸屏与PC的通信问题。所用的台达触摸屏支持标准的MODBUS协议,通过串口与 PC相连。 <1>MODBUS通信协议 modbus功能码 01:读取线圈状态  取得一组逻辑线圈的当前状态(ON/OFF) 02:读取输入状态  取得一组开关输入的当前状态(ON/OFF) 03:读取保持寄存器  在一个或多个保持寄存器中取得当前的二进制值 04:读取输入寄存器  在一个或多个输入寄存器中取得当前的二进制值 05:强置单线圈  强置一个逻辑线圈的通断状态 06:预置单线圈  把具体二进制值装入一个保持寄存器 根据modbus协议,通信中mscomm1.output中包含的字符串应包括以下几部分: 起始位  站号  功能码  数据位  校验位  停止位 在此通信中,站号表示人机站号 数据位包括寄存器地址和数据 <2> HMI内部地址与MODBUS地址映射表 <3>mscomm控件 CommPort 设置并返回通讯端口号。 Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。 PortOpen 设置并返回通讯端口的状态。也可以打开和关闭端口。 Input 从接收缓冲区返回和删除字符。 Output 向传输缓冲区写一个字符串。 <4>HMI与PC的通信及数据采集的设计 LRC算法函数: Public Function LRC(str)     c = 0     l = Len(str) 求出str的长度赋值给l         For c = c + 1 To l     c_data = Mid$(str, c, 2) 在str串中,从c的值开始取2个字符。     d_lrc = d_lrc + Val("&H" + c_data)     c = c + 1     Next c     If d_lrc > &HFF Then        d_lrc = d_lrc Mod &H100     End If     h_lrc = Hex(&HFF - d_lrc + 1)     If Len(h_lrc) > 2 Then        h_lrc = Mid(h_lrc, Len(h_lrc) - 1, 2)     End If     LRC = h_lrc End Function 下面对数据进行实时采集,数据采集程序界面如下图所示: Private Sub Timer1_Timer()     连接数据库     Dim CONN As New ADODB.Connection     Dim DBStr As String     Dim rs As New ADODB.Recordset
查看所有评论

别人评论内容

我来评论

    评论内容:不能超过250字,需审核,请自觉遵守互联网相关政策法规。
    用户名: 密码: 匿名? 注册

投诉建议QQ:26874722 责任编辑 QQ:914456782 13414832830 机械软件教程网 版权所有

Copyright © 2007 - 2008 www.jixie163.com Corporation, All Rights Reserved 粤ICP备07007759号备案编号 4452013000505