VB在紡機(jī)制造中的應(yīng)用

田衛(wèi)峰

經(jīng)緯紡織機(jī)械股份有限公司(中國)

?

VB在紡機(jī)制造中的應(yīng)用

田衛(wèi)峰

經(jīng)緯紡織機(jī)械股份有限公司(中國)

簡述了利用VISUAL BASIC(VB) 6.0編寫應(yīng)用代碼的基本方法，以及利用數(shù)據(jù)庫對數(shù)據(jù)進(jìn)行的記錄、編輯、查詢、存檔、制作報(bào)表及打印。結(jié)合紡機(jī)廠生產(chǎn)中活動蓋板公差的檢測，對采用微機(jī)檢測替代人工檢測的方法進(jìn)行了初步討論。

VB； ADODC控件；數(shù)據(jù)庫；公差檢測

Visual Basic(VB)是在Basic語言的基礎(chǔ)上發(fā)展而來的，在Windows環(huán)境中應(yīng)用較為廣泛的應(yīng)用程序開發(fā)工具。隨著工業(yè)化生產(chǎn)對效率要求的不斷提高，目前紡機(jī)制造廠對所加工零件精度的檢驗(yàn)工作已無法適應(yīng)高效生產(chǎn)的需求，因此，十分有必要應(yīng)用計(jì)算機(jī)對零件尺寸精度等控制指標(biāo)進(jìn)行監(jiān)測、記錄與存儲，以對其進(jìn)行進(jìn)一步的處理、篩檢及分析等工作。本文以梳棉機(jī)蓋板質(zhì)量的檢測為例，利用VB，結(jié)合ACCESS數(shù)據(jù)庫的應(yīng)用，對活動蓋板加工時的數(shù)據(jù)進(jìn)行收集與整理，以提高紡機(jī)制造廠產(chǎn)品質(zhì)量檢測工作的效率。

1　數(shù)據(jù)產(chǎn)生和收集、處理的模型

本檢測系統(tǒng)主要包括：發(fā)送端、接收端(包括VB應(yīng)用界面、內(nèi)嵌的ACCESS數(shù)據(jù)庫、VB報(bào)表應(yīng)用)和輸出端等三大部分構(gòu)成。

發(fā)送端利用一個電子式千分表測量加工后的活動蓋板平整度，連續(xù)產(chǎn)生的數(shù)據(jù)以ASCII碼(文本格式)發(fā)送。測量數(shù)據(jù)的格式：每一幀數(shù)據(jù)包含10個字節(jié)，起始為正負(fù)號，然后是2個數(shù)字，接一個小數(shù)點(diǎn)，再接5個數(shù)字和一個回車符。通信格式：9 600，1起始位，8數(shù)據(jù)位，1停止，偶校驗(yàn)。

接收端利用由VB編程的數(shù)據(jù)接收顯示界面，通過PC串口與千分表的通信口相連接，然后通過程序代碼，將接收數(shù)據(jù)存入預(yù)先建立的ACCESS數(shù)據(jù)庫中。

輸出端通過鏈接的ADODC控件將數(shù)據(jù)庫顯示在VB應(yīng)用界面上，再利用VB報(bào)表設(shè)計(jì)器生成數(shù)據(jù)庫報(bào)表并輸出到打印機(jī)，形成數(shù)據(jù)報(bào)表文件。

整個流程如圖1所示。

圖1　數(shù)據(jù)處理流程

2　VB應(yīng)用程序的創(chuàng)建

2.1VB應(yīng)用界面的創(chuàng)建

2.1.1窗體的創(chuàng)建

創(chuàng)建窗體模塊form1作為整個可視化程序的基體，此后創(chuàng)建的控件都將在此“容器”中進(jìn)行組態(tài)。通過label、 textbox、 commandbutton等VB通用控件建立友好的用戶操作界面，如圖2所示。

圖2　用戶操作界面

2.1.2串行通信控件MSCOMM

圖3　MSCOMM控件

為了使VB能和千分表通信，采用串行通信控件MSCOMM(圖3)，該控件不是VB控件箱的標(biāo)準(zhǔn)控件，需要手工添加。具體操作為單擊“Project”的子菜單“Add to Project”的“Components and Controls”選項(xiàng)。在彈出的“Components and Controls Gallery”對話框中選擇“Registered ActiveX Controls”文件夾中的“Microsoft Communications Control 6.0”選項(xiàng)。單擊其中的“Insert”按鈕，MSCOMM控件就被添加到工程中了[1]。添加后部件選項(xiàng)卡中就會出現(xiàn)該控件，圖3中的電話圖標(biāo)即為此控件。設(shè)置此控件的基本屬性，按照千分表發(fā)送數(shù)據(jù)的通信格式，設(shè)置“Setting”屬性為“9 600， e， 8， 1”。

2.2數(shù)據(jù)庫的創(chuàng)建

2.2.1ACCESS數(shù)據(jù)庫

創(chuàng)建ACCESS數(shù)據(jù)庫文件，路徑d：Data Base1.mdb。

2.2.2Data Grid控件

在窗體中添加Data Grid控件，以使數(shù)據(jù)庫中的數(shù)據(jù)可在界面中顯示。

2.2.3ADODC控件

ADDOC控件不是VB控件箱的標(biāo)準(zhǔn)控件，是擴(kuò)展的VB控件。添加ADODC控件的方法：在“工程”菜單中執(zhí)行“部件”菜單項(xiàng)[2]，對話框中選擇“Microsoft ADO Data Control 6.0”。通過ADODC控件就可將ACCESS數(shù)據(jù)庫中的數(shù)據(jù)鏈接到數(shù)據(jù)顯示控件Data Grid之中。例如，在本代碼編制中，生成名為Adodc1的ADODC控件，設(shè)定其“Connection-String”屬性，選中“使用鏈接字符串”，單擊“生成”，在其連接項(xiàng)內(nèi)輸入2.2.1節(jié)所建立的數(shù)據(jù)庫d：Data Base1.mdb的完整路徑。

至此，一個完整的數(shù)據(jù)庫及其控件鏈接便創(chuàng)建完成了。

2.3報(bào)表設(shè)計(jì)器的創(chuàng)建

企業(yè)經(jīng)常需要對采集到的數(shù)據(jù)進(jìn)行紙質(zhì)報(bào)表存檔，故程序應(yīng)具有打印功能，利用VB內(nèi)的報(bào)表設(shè)計(jì)器，可設(shè)計(jì)適合使用者閱讀習(xí)慣的報(bào)表。

圖4　數(shù)據(jù)鏈接屬性

2.3.1數(shù)據(jù)環(huán)境Data Evironment模塊

點(diǎn)擊菜單[工程]>[添加Data Evironment],建立Data Evironment1后查看其對象，結(jié)果如圖4所示。右擊Connection1,出現(xiàn)“數(shù)據(jù)鏈接屬性”窗口，設(shè)置其“提供程序”為Microsoft jet4.0 OLE DB Provider，再設(shè)置所鏈接的數(shù)據(jù)庫名稱，例如可以用2.2節(jié)中的方法新建一個名為Data Base2.mdb[3](路徑d：Data Base2)的數(shù)據(jù)庫。

2.3.2DataReport模塊

點(diǎn)擊菜單[工程]>[添加 Data Report], Data Report1，查看其屬性，設(shè)置Datasource=Data Evironment1。可在報(bào)表內(nèi)部通過Data Evironment1鏈接數(shù)據(jù)庫Data Base1內(nèi)的數(shù)據(jù)。

3　數(shù)據(jù)庫的查詢和利用報(bào)表數(shù)據(jù)庫鏈接VB應(yīng)用報(bào)表

3.1數(shù)據(jù)庫的查詢

使用者可按一定條件，對數(shù)據(jù)庫中的存儲數(shù)據(jù)進(jìn)行查詢。本應(yīng)用程序采用ADODC控件的filter方法實(shí)現(xiàn)其查詢功能。

例如，查詢某一天(如2016-02-26)數(shù)據(jù)庫所添加的所有記錄時使用的方法為

Adodc1.Recordset.Filter =“日期=”& dat(其中“日期”是數(shù)據(jù)庫Data Base1.mdb的一個字段名，dat=“2016-02-26”)

查詢條件也可為其他內(nèi)容，這里不再贅述。

3.2報(bào)表數(shù)據(jù)庫

用戶有時需要打印報(bào)表，即將所查結(jié)果導(dǎo)出并打印。為此需要將查詢結(jié)果存入一個報(bào)表數(shù)據(jù)庫，該報(bào)表數(shù)據(jù)庫與2.3.1節(jié)中的Data Evironment1鏈接，也就是和已經(jīng)建立的數(shù)據(jù)庫Data Base2.mdb進(jìn)行鏈接。

當(dāng)數(shù)據(jù)報(bào)表(即2.3.2節(jié)中已建立的Data Report1)和報(bào)表數(shù)據(jù)庫(即2.3.1節(jié)中已建立的Data Base2.mdb)通過數(shù)據(jù)環(huán)境(即2.3.1節(jié)中已建立的Data Evironment1)鏈接后，數(shù)據(jù)報(bào)表中就會顯示報(bào)表數(shù)據(jù)庫中的內(nèi)容，之后便可對其進(jìn)行打印和導(dǎo)出等操作。

4　打包程序和安裝程序

4.1打包程序

為便于程序發(fā)布和用戶使用，需要將已經(jīng)完成的VB代碼打包為安裝程序包。具體方法為點(diǎn)擊windows菜單欄[開始]>[程序]>[Microsoft Visual Basic 6.0中文版]>[Microsoft Visual Basic 6.0中文版工具]>[package&deployment]，出現(xiàn)“打包和展開向?qū)А睂υ捒颍c(diǎn)擊“瀏覽(B)…”按鈕，找到工程所在的文件路徑，然后點(diǎn)擊“打包(P)”，按照提示選用默認(rèn)項(xiàng)，點(diǎn)擊“下一步”，最后點(diǎn)擊“完成”，安裝程序包便制作完畢。

4.2安裝程序

打開4.1節(jié)中已制作好的安裝程序包，找到SETUP.EXE文件，雙擊打開。按照提示項(xiàng)選擇合適的路徑，點(diǎn)擊“下一步”，最后點(diǎn)擊“完成”，即可成功安裝程序包。

5　技術(shù)效果及經(jīng)濟(jì)效益

通過通信控件MSCOMM收集數(shù)據(jù)，然后將數(shù)據(jù)通過ADODC控件添加至由ACCESS生成的數(shù)據(jù)庫中，再將數(shù)據(jù)庫通過數(shù)據(jù)環(huán)境設(shè)計(jì)器(Data Evironment)鏈接到數(shù)據(jù)報(bào)表設(shè)計(jì)器(Data Report)后，用戶便可將數(shù)據(jù)庫中的數(shù)據(jù)按照數(shù)據(jù)報(bào)表設(shè)計(jì)器(Data Report)中設(shè)定的格式進(jìn)行打印。程序代碼制成用于發(fā)布的安裝程序包后，便于用戶安裝。

運(yùn)用VB 6.0制作簡單、實(shí)用的應(yīng)用程序的方法，對梳棉機(jī)活動蓋板加工時的數(shù)據(jù)進(jìn)行收集與整理，取得了一定的經(jīng)濟(jì)效益。

這種蓋板零件檢測系統(tǒng)，采用微機(jī)加智能千分表，替代了原人工記錄檢測蓋板公差的工作流程，大大提高了檢測精度，使公差精度由0.5%以內(nèi)提高至0.3%以內(nèi)，且人工檢測效率由原來200根/h提升至600根/h，為企業(yè)總的生產(chǎn)效率的提升作出了很大的貢獻(xiàn)。

[1] 劉恩博，李江全．C++典型工控應(yīng)用編程實(shí)例[M]．北京：中國電力出版社，2012：289.

[2] 徐進(jìn)華．VB程序設(shè)計(jì)教程[M]．北京：清華大學(xué)出版社，2009：229.

[3] 孫越．Visual Basic數(shù)據(jù)庫開發(fā)自學(xué)教程[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