王 濤, 李孝明

(新疆八一鋼鐵股份有限公司軋鋼廠)

前言

八鋼熱軋生產(chǎn)過(guò)程中，軋制工藝參數(shù)計(jì)算所需的區(qū)域跟蹤、數(shù)據(jù)采集、自學(xué)習(xí)、工藝參數(shù)計(jì)算及下發(fā)均通過(guò)模型系統(tǒng)完成。模型系統(tǒng)是八鋼1750熱軋生產(chǎn)運(yùn)行的核心，模型系統(tǒng)的順行，需要工藝人員在生產(chǎn)過(guò)程、設(shè)備精度變化時(shí)及時(shí)跟蹤、分析、調(diào)優(yōu)。投產(chǎn)以來(lái)，模型系統(tǒng)經(jīng)過(guò)升級(jí)擴(kuò)充，目前能夠處理125個(gè)出鋼記號(hào)，每個(gè)出鋼記號(hào)下又劃分寬度層別6個(gè)、厚度層別7個(gè)、溫度層別5個(gè)，累計(jì)疊加工藝參數(shù)的量超過(guò)1萬(wàn)個(gè)，這些參數(shù)存儲(chǔ)在系統(tǒng)的Oracle數(shù)據(jù)庫(kù)中。Oracle數(shù)據(jù)庫(kù)操作比較專業(yè)，一般現(xiàn)場(chǎng)生產(chǎn)工藝人員還不熟悉?；谏a(chǎn)工藝人員最熟悉的處理數(shù)據(jù)的工具，如Office Excel，WPS的表格工具，讓工藝人員用最熟悉的方式操作數(shù)據(jù)、處理問(wèn)題，需要在專業(yè)數(shù)據(jù)庫(kù)數(shù)據(jù)與辦公表格之間建立連接，實(shí)現(xiàn)自如操作。

經(jīng)過(guò)分析實(shí)踐，八鋼1750熱軋廠工藝人員決定采用VBA技術(shù)解決模型數(shù)據(jù)信息化的方案。VBA(Visual Basic for Applications)是一種宏語(yǔ)言，是微軟公司開發(fā)的在其桌面應(yīng)用程序中執(zhí)行通用的自動(dòng)化(OLE)任務(wù)的編程語(yǔ)言，主要能用來(lái)擴(kuò)展Windows的應(yīng)用程序功能。目前OFFICE Excel和WPS表格都支持VBA，可以通過(guò)ADO方式連接到Oracle并操作Oracle，結(jié)合Excel的數(shù)據(jù)處理與圖表制作，就能讓生產(chǎn)工藝人員輕松便捷的處理數(shù)據(jù)。

1 建立工作目標(biāo)

基于VBA技術(shù)要求，八鋼1750熱軋廠工藝人員利用模型系統(tǒng)主要考慮三個(gè)方面：(1)模型自學(xué)習(xí)系數(shù)跟蹤分析；(2)與質(zhì)量密切相關(guān)的數(shù)據(jù)跟蹤分析；(3)生產(chǎn)過(guò)程跟蹤分析。

任何方面的工作內(nèi)容都涉及到很多數(shù)據(jù)，以成品寬度為例，決定熱軋成品寬度質(zhì)量的要素包括板坯寬度、立輥各道次設(shè)定及實(shí)際測(cè)壓量、粗軋道次、模型粗軋目標(biāo)寬度、寬度自學(xué)習(xí)、精軋后機(jī)架軋制力偏差、活套設(shè)定、張力、操作工寬度干預(yù)量等，這些數(shù)據(jù)共同決定一塊帶鋼的寬度質(zhì)量，而寬度質(zhì)量在實(shí)際工作中又需要研究頭部、尾部及均值等。梳理出的熱軋工藝控制要點(diǎn)與需要?dú)w集的工藝參數(shù)如表1所示。

表1 熱軋工藝控制要點(diǎn)與需要?dú)w集的工藝參數(shù)

在確定了工藝控制要點(diǎn)與需要?dú)w集的工藝參數(shù)后，需要做的工作是如何按照卷號(hào)或者鋼種規(guī)格進(jìn)行數(shù)據(jù)匹配歸集，如何通過(guò)VBA技術(shù)將存儲(chǔ)在不同數(shù)據(jù)庫(kù)中的關(guān)鍵相關(guān)數(shù)據(jù)自動(dòng)采集，按鋼卷號(hào)分鋼種規(guī)格呈現(xiàn)在EXCEL表中。

2 用VBA技術(shù)處理Oracle數(shù)據(jù)庫(kù)

2.1 使用VBA鏈接Oracle數(shù)據(jù)庫(kù)，取得數(shù)據(jù)

使用VBA技術(shù)處理Oracle數(shù)據(jù)庫(kù)中數(shù)據(jù)的流程：

(1)安裝Oracle客戶端軟件，連接Oracle服務(wù)器。

(2)在EXCEL 或者WPS表格啟用VBA功能；VBA不是EXCEL或者WPS的必備功能，需要安裝時(shí)選擇安裝。

(3)在VBA中啟動(dòng)數(shù)據(jù)庫(kù)連接支持。

VBA功能啟用后在VBA菜單欄選擇“工具”-“引用”，在彈出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"，把前面的框勾選上，點(diǎn)擊確定即可。 (如果不是這兩個(gè)版本，則選擇一個(gè)版本號(hào)最高的勾選即可)

圖1 EXCEL WPS表格啟用數(shù)據(jù)庫(kù)連接

(4)連接Oracle數(shù)據(jù)庫(kù)，打開數(shù)據(jù)表，提取數(shù)據(jù)到EXCEL表格中。

在按照上述步驟配置了環(huán)境支持后，就可以在VBA中就可以使用代碼連接Oracle了。

①首先需定義連接對(duì)象：

Dim conn as ADODB.Connection

Set conn=new ADODB.Connection

②連接數(shù)據(jù)庫(kù)

strConn = "Driver={Oracle in OraClient11g_home1};Dbq=TNS服務(wù)名;Uid=數(shù)據(jù)庫(kù)登錄賬戶;Pwd=數(shù)據(jù)庫(kù)登錄密碼;"

conn.Open strConn' 打開數(shù)據(jù)庫(kù)

③提起數(shù)據(jù)到EXCEL表中。

2.2 啟用VBA的Application.ontime函數(shù)跟蹤數(shù)據(jù)

生產(chǎn)單位一直在生產(chǎn)，為了及時(shí)跟蹤數(shù)據(jù)，VBA程序需要自動(dòng)運(yùn)行，VBA中Application.ontime函數(shù)定時(shí)能夠自動(dòng)運(yùn)行。

Sub 自動(dòng)運(yùn)行()

MyTime = Now + TimeValue("00:00:05" )

獲取工藝數(shù)據(jù)

Application.OnTime MyTime, "自動(dòng)運(yùn)行"

[a1]= Now ‘單線程運(yùn)行通過(guò)時(shí)間顯示運(yùn)行狀態(tài)

End Sub

2.3 使用VBA ChartObjects對(duì)象繪制圖表

數(shù)據(jù)圖形化更能使過(guò)程一目了然，使用VBA 包含的Chartobjects可以方便的繪制圖形。通過(guò)規(guī)劃，可以通過(guò)Chartobjects設(shè)置圖表的位置，圖表類型，標(biāo)題，X軸Y軸刻度，數(shù)據(jù)源，作圖的每一個(gè)細(xì)節(jié)都在控制范圍內(nèi)。

圖2 通過(guò)VBAChartObject用圖表跟蹤顯示工藝參數(shù)

3 應(yīng)用數(shù)據(jù)解決問(wèn)題

結(jié)合經(jīng)驗(yàn)邏輯，通過(guò)現(xiàn)場(chǎng)實(shí)際數(shù)據(jù)對(duì)數(shù)據(jù)進(jìn)行自動(dòng)判斷，對(duì)可能造成缺陷的過(guò)程進(jìn)行抓取，工藝人員根據(jù)提示進(jìn)行驗(yàn)證，發(fā)現(xiàn)問(wèn)題，快速解決。工藝控制過(guò)程判斷系統(tǒng)提示如表2所示。

表2 熱軋工藝控制過(guò)程缺陷判斷邏輯表

4 結(jié)語(yǔ)

基于規(guī)律的認(rèn)識(shí)是解決問(wèn)題的方法之一。隨著信息技術(shù)的發(fā)展，信息化越來(lái)越多應(yīng)用到產(chǎn)品制造中，將對(duì)規(guī)律的認(rèn)識(shí)轉(zhuǎn)換成信息完成數(shù)據(jù)分析。很多編程語(yǔ)言都支持對(duì)EXCEL的二次開發(fā)，八鋼1750熱軋廠工藝人員選用EXCEL 、WPS內(nèi)嵌的VBA語(yǔ)言進(jìn)行工藝數(shù)據(jù)處理，易于學(xué)習(xí)掌握，使用便捷，提高了工作效率。