VB在纺机制造中的应用

田卫峰

经纬纺织机械股份有限公司(中国)



VB在纺机制造中的应用

田卫峰

经纬纺织机械股份有限公司(中国)

简述了利用VISUAL BASIC(VB) 6.0编写应用代码的基本方法，以及利用数据库对数据进行的记录、编辑、查询、存档、制作报表及打印。结合纺机厂生产中活动盖板公差的检测，对采用微机检测替代人工检测的方法进行了初步讨论。

VB； ADODC控件；数据库；公差检测

Visual Basic(VB)是在Basic语言的基础上发展而来的，在Windows环境中应用较为广泛的应用程序开发工具。随着工业化生产对效率要求的不断提高，目前纺机制造厂对所加工零件精度的检验工作已无法适应高效生产的需求，因此，十分有必要应用计算机对零件尺寸精度等控制指标进行监测、记录与存储，以对其进行进一步的处理、筛检及分析等工作。本文以梳棉机盖板质量的检测为例，利用VB，结合ACCESS数据库的应用，对活动盖板加工时的数据进行收集与整理，以提高纺机制造厂产品质量检测工作的效率。

1　数据产生和收集、处理的模型

本检测系统主要包括：发送端、接收端(包括VB应用界面、内嵌的ACCESS数据库、VB报表应用)和输出端等三大部分构成。

发送端利用一个电子式千分表测量加工后的活动盖板平整度，连续产生的数据以ASCII码(文本格式)发送。测量数据的格式：每一帧数据包含10个字节，起始为正负号，然后是2个数字，接一个小数点，再接5个数字和一个回车符。通信格式：9 600，1起始位，8数据位，1停止，偶校验。

接收端利用由VB编程的数据接收显示界面，通过PC串口与千分表的通信口相连接，然后通过程序代码，将接收数据存入预先建立的ACCESS数据库中。

输出端通过链接的ADODC控件将数据库显示在VB应用界面上，再利用VB报表设计器生成数据库报表并输出到打印机，形成数据报表文件。

整个流程如图1所示。

图1　数据处理流程

2　VB应用程序的创建

2.1VB应用界面的创建

2.1.1窗体的创建

创建窗体模块form1作为整个可视化程序的基体，此后创建的控件都将在此“容器”中进行组态。通过label、 textbox、 commandbutton等VB通用控件建立友好的用户操作界面，如图2所示。

图2　用户操作界面

2.1.2串行通信控件MSCOMM

图3　MSCOMM控件

为了使VB能和千分表通信，采用串行通信控件MSCOMM(图3)，该控件不是VB控件箱的标准控件，需要手工添加。具体操作为单击“Project”的子菜单“Add to Project”的“Components and Controls”选项。在弹出的“Components and Controls Gallery”对话框中选择“Registered ActiveX Controls”文件夹中的“Microsoft Communications Control 6.0”选项。单击其中的“Insert”按钮，MSCOMM控件就被添加到工程中了[1]。添加后部件选项卡中就会出现该控件，图3中的电话图标即为此控件。设置此控件的基本属性，按照千分表发送数据的通信格式，设置“Setting”属性为“9 600， e， 8， 1”。

2.2数据库的创建

2.2.1ACCESS数据库

创建ACCESS数据库文件，路径d：Data Base1.mdb。

2.2.2Data Grid控件

在窗体中添加Data Grid控件，以使数据库中的数据可在界面中显示。

2.2.3ADODC控件

ADDOC控件不是VB控件箱的标准控件，是扩展的VB控件。添加ADODC控件的方法：在“工程”菜单中执行“部件”菜单项[2]，对话框中选择“Microsoft ADO Data Control 6.0”。通过ADODC控件就可将ACCESS数据库中的数据链接到数据显示控件Data Grid之中。例如，在本代码编制中，生成名为Adodc1的ADODC控件，设定其“Connection-String”属性，选中“使用链接字符串”，单击“生成”，在其连接项内输入2.2.1节所建立的数据库d：Data Base1.mdb的完整路径。

至此，一个完整的数据库及其控件链接便创建完成了。

2.3报表设计器的创建

企业经常需要对采集到的数据进行纸质报表存档，故程序应具有打印功能，利用VB内的报表设计器，可设计适合使用者阅读习惯的报表。

图4　数据链接属性

2.3.1数据环境Data Evironment模块

点击菜单[工程]>[添加Data Evironment],建立Data Evironment1后查看其对象，结果如图4所示。右击Connection1,出现“数据链接属性”窗口，设置其“提供程序”为Microsoft jet4.0 OLE DB Provider，再设置所链接的数据库名称，例如可以用2.2节中的方法新建一个名为Data Base2.mdb[3](路径d：Data Base2)的数据库。

2.3.2DataReport模块

点击菜单[工程]>[添加 Data Report], Data Report1，查看其属性，设置Datasource=Data Evironment1。可在报表内部通过Data Evironment1链接数据库Data Base1内的数据。

3　数据库的查询和利用报表数据库链接VB应用报表

3.1数据库的查询

使用者可按一定条件，对数据库中的存储数据进行查询。本应用程序采用ADODC控件的filter方法实现其查询功能。

例如，查询某一天(如2016-02-26)数据库所添加的所有记录时使用的方法为

Adodc1.Recordset.Filter =“日期=”& dat(其中“日期”是数据库Data Base1.mdb的一个字段名，dat=“2016-02-26”)

查询条件也可为其他内容，这里不再赘述。

3.2报表数据库

用户有时需要打印报表，即将所查结果导出并打印。为此需要将查询结果存入一个报表数据库，该报表数据库与2.3.1节中的Data Evironment1链接，也就是和已经建立的数据库Data Base2.mdb进行链接。

当数据报表(即2.3.2节中已建立的Data Report1)和报表数据库(即2.3.1节中已建立的Data Base2.mdb)通过数据环境(即2.3.1节中已建立的Data Evironment1)链接后，数据报表中就会显示报表数据库中的内容，之后便可对其进行打印和导出等操作。

4　打包程序和安装程序

4.1打包程序

为便于程序发布和用户使用，需要将已经完成的VB代码打包为安装程序包。具体方法为点击windows菜单栏[开始]>[程序]>[Microsoft Visual Basic 6.0中文版]>[Microsoft Visual Basic 6.0中文版工具]>[package&deployment]，出现“打包和展开向导”对话框，点击“浏览(B)…”按钮，找到工程所在的文件路径，然后点击“打包(P)”，按照提示选用默认项，点击“下一步”，最后点击“完成”，安装程序包便制作完毕。

4.2安装程序

打开4.1节中已制作好的安装程序包，找到SETUP.EXE文件，双击打开。按照提示项选择合适的路径，点击“下一步”，最后点击“完成”，即可成功安装程序包。

5　技术效果及经济效益

通过通信控件MSCOMM收集数据，然后将数据通过ADODC控件添加至由ACCESS生成的数据库中，再将数据库通过数据环境设计器(Data Evironment)链接到数据报表设计器(Data Report)后，用户便可将数据库中的数据按照数据报表设计器(Data Report)中设定的格式进行打印。程序代码制成用于发布的安装程序包后，便于用户安装。

运用VB 6.0制作简单、实用的应用程序的方法，对梳棉机活动盖板加工时的数据进行收集与整理，取得了一定的经济效益。

这种盖板零件检测系统，采用微机加智能千分表，替代了原人工记录检测盖板公差的工作流程，大大提高了检测精度，使公差精度由0.5%以内提高至0.3%以内，且人工检测效率由原来200根/h提升至600根/h，为企业总的生产效率的提升作出了很大的贡献。

[1] 刘恩博，李江全．C++典型工控应用编程实例[M]．北京：中国电力出版社，2012：289.

[2] 徐进华．VB程序设计教程[M]．北京：清华大学出版社，2009：229.

[3] 孙越．Visual Basic数据库开发自学教程[M]．北京：人民邮电出版社，2002：230-231.

Application of VB in textile machinery manufacturing

TianWeifeng

Jingwei Textile Machinery Co.， Ltd., Zhengzhou /China

The basic methods using VISUAL BASIC (VB) 6 to compile a application code , and the methods to record, edit, query, file，make report and print the parameter with database were introduced. Combining the cover-plate tolerance test in textile machinery factory, the computer inspection instead of manual work in production process was preliminarily discussed.

VB； ADODC control； database； detection of tolerance