国产日韩欧美一区二区三区三州_亚洲少妇熟女av_久久久久亚洲av国产精品_波多野结衣网站一区二区_亚洲欧美色片在线91_国产亚洲精品精品国产优播av_日本一区二区三区波多野结衣 _久久国产av不卡

?

基于Excel VBA開發(fā)的電纜號(hào)牌套管管理系統(tǒng)

2016-05-30 10:48潘有思趙軍偉鐘金金

潘有思 趙軍偉 鐘金金

摘 要:電纜敷設(shè)及接線一直是電廠電氣儀控安裝工作中最為繁瑣、工作量最大的一項(xiàng)工作,該文針對(duì)電纜接線以及電纜號(hào)牌套管制作中存在的問題,利用Excel VBA(Visual Basic Application)語言開發(fā)出了一套電纜套管及號(hào)牌管理系統(tǒng),并利用VB(Visual Basic)語言將其封裝成可安裝于Excel插件欄的軟件,從而進(jìn)行電纜清冊(cè)、電纜接線圖、電纜號(hào)牌以及套管模板的制作,將重復(fù)繁瑣的工作交由程序完成,使技術(shù)準(zhǔn)備工作自動(dòng)化、模塊化的處理,提高了效率,保證了準(zhǔn)確性,達(dá)到節(jié)約成本的目的。

關(guān)鍵詞:電纜接線 號(hào)牌套管 軟件開發(fā) Excel VBA

中圖分類號(hào):TM769 文獻(xiàn)標(biāo)識(shí)碼:A 文章編號(hào):1674-098X(2016)01(c)-0008-02

目前國內(nèi)電力建設(shè)施工周期短,現(xiàn)場(chǎng)施工與設(shè)計(jì)院出圖往往是同步進(jìn)行,這就造成了施工技術(shù)人員前期的技術(shù)工作準(zhǔn)備時(shí)間非常有限。再加上進(jìn)度質(zhì)量上的要求,就需要技術(shù)人員在保證質(zhì)量的前提下快速地完成電纜清冊(cè)的整理、電纜接線圖的繪制、以及電纜號(hào)牌和套管的制作等工作。

目前,電纜清冊(cè)、電纜接線圖、電纜號(hào)牌以及電纜套管的制作都是停留在手動(dòng)階段,并且模板相對(duì)的不統(tǒng)一,每個(gè)工程在這些方面都要花費(fèi)大量的人力和物力進(jìn)行前期準(zhǔn)備工作,為了能夠更好地適應(yīng)電力建設(shè)施工的需要,對(duì)于電纜敷設(shè)及接線的前期技術(shù)準(zhǔn)備工作的自動(dòng)化、模塊化辦公就顯得尤為重要。因此,開發(fā)一款適用于此項(xiàng)技術(shù)工作的系統(tǒng)還是非常有必要的。筆者借助Office辦公軟件用VBA編程語言開發(fā)出統(tǒng)一的電纜號(hào)牌套管管理系統(tǒng),進(jìn)行電纜清冊(cè)、電纜接線圖模板、電纜號(hào)牌模板以及套管模板的制作。將大量的技術(shù)準(zhǔn)備工作自動(dòng)化、模塊化的處理,提高效率,節(jié)約成本。

1 軟件關(guān)鍵技術(shù)及功能介紹

1.1 關(guān)鍵技術(shù)及創(chuàng)新點(diǎn)

基于Office后臺(tái)開發(fā)語言Excel VBA、Word VBA進(jìn)行開發(fā),然后利用Visual Basic 6.0將軟件進(jìn)行加密封裝成可執(zhí)行文件,安裝后直接加載成至Excel插件欄;疏理電纜敷設(shè)和接線技術(shù)準(zhǔn)備工作的流程,將畫接線圖過程中的重復(fù)操作模塊化、自動(dòng)化完成,以及將電纜號(hào)牌和套管批量化生成,減少了工作中大量手動(dòng)的重復(fù)工作。

1.2 功能介紹

1.2.1 將整理的清冊(cè)自動(dòng)生成標(biāo)準(zhǔn)化接線圖模板

此模塊提供了電纜接線圖自動(dòng)生成的功能,將日常工作手動(dòng)逐行插入和填寫編號(hào)的工作進(jìn)行自動(dòng)化生成,避免了手動(dòng)操作過程中的人為失誤,并能夠?qū)⒋瞬糠止ぷ鳂?biāo)準(zhǔn)化處理。

1.2.2 將接線圖自動(dòng)生成電纜套管并按照電纜截面積分類

人工勾選電纜規(guī)格的方式來選擇需要打印的電纜套管費(fèi)事費(fèi)力且易出錯(cuò),此模塊可以輕松按照電纜芯截面積篩選出需要打印的電纜套管,從而避免了漏選、錯(cuò)選等情況的發(fā)生。

1.2.3 將電纜清冊(cè)直接生成起點(diǎn)、終點(diǎn)電纜號(hào)牌

此兩個(gè)模塊可以一鍵完成需要打印的電纜起點(diǎn)或者終點(diǎn)號(hào)牌,避免了以前同時(shí)生成起點(diǎn)終點(diǎn)號(hào)牌的不必要浪費(fèi)。

1.2.4 將DCS測(cè)點(diǎn)清冊(cè)直接生成接線圖

此模塊實(shí)現(xiàn)了設(shè)計(jì)院DCS測(cè)點(diǎn)清冊(cè)到接線圖的完整轉(zhuǎn)化,完全不需要進(jìn)行人工的任何處理,保證了接線圖的準(zhǔn)確性和完整性。

1.3 封裝程序

Excel VBA實(shí)現(xiàn)了軟件要求的所有功能,但為了使用戶能夠同使用其他普通軟件一樣在WINDOWS的開始程序菜單中點(diǎn)擊執(zhí)行,就必須編寫一個(gè)能夠?qū)崿F(xiàn)自動(dòng)加載的程序來達(dá)到這一目的:將所有功能加載至Excel插件。筆者按照用戶一一對(duì)應(yīng)的方式,利用VB語言將程序封裝成可安裝至Excel菜單欄的可執(zhí)行文件,既安全可靠又方便操作。VB相關(guān)封裝程序如下。其中安裝后的操作界面如圖1所示。

Sub BD()'綁定硬盤序列號(hào)封裝

Dim myhard As String

bl = True

If Len(Dir(“C:\電纜號(hào)牌套管管理\MIMI.dll”)) = 0 Then MsgBox “缺少文件C:\電纜號(hào)牌套管管理\MIMI.dll,當(dāng)前程序不能用?!?, vbOKOnly + vbInformation: bl = False: Exit Sub

Dim iRetVal As Long

Dim sID As String, retHardwareID As String

retHardwareID = String(256, vbNullChar)

iRetVal = GetHardwareID_vba(True, False, False, False, “R5LR-S4TQ”, retHardwareID) ‘硬盤

myhard = Left(retHardwareID, InStr(1, retHardwareID, vbNullChar) - 1)

If myhard = “128E-98FF-C394-1415” Then Exit Sub ‘硬盤序列號(hào)

bl = False

End Sub

2 預(yù)計(jì)達(dá)到的技術(shù)經(jīng)濟(jì)指標(biāo)

疏理電纜敷設(shè)和接線技術(shù)準(zhǔn)備工作的流程,將電纜清冊(cè)、電纜接線圖、電纜號(hào)牌以及電纜套管的制作等繁雜的操作模塊化、自動(dòng)化完成,減少工作中幾乎所有的手工工作。軟件投入使用后至少節(jié)省60%的時(shí)間,且大大提高了準(zhǔn)確率。以一臺(tái)機(jī)組為例,至少節(jié)約120個(gè)工日的費(fèi)用,按照10個(gè)項(xiàng)目15臺(tái)機(jī)組同時(shí)施工來計(jì)算,就可以減少1 800個(gè)工日,按400元/工日來計(jì)的話,直接經(jīng)濟(jì)效益就是72萬元。

3 軟件使用情況和存在問題

電纜號(hào)牌套管管理軟件自2012年6月開發(fā)完成調(diào)試運(yùn)行后一直使用至今,能夠準(zhǔn)確的、自動(dòng)的、批量的完成電纜敷設(shè)和電纜接線前的所有繁雜重復(fù)的工作,極大程度地提高了技術(shù)人員的工作效率。事實(shí)證明,該系統(tǒng)已經(jīng)實(shí)現(xiàn)了預(yù)期的所有功能;同時(shí),經(jīng)過十多個(gè)項(xiàng)目的技術(shù)人員的運(yùn)行也充分證明了該系統(tǒng)具有很高的穩(wěn)定性和可靠性。但在運(yùn)行中,也存在一定的問題,由于號(hào)牌生成模塊需要調(diào)用Word文件,因此,當(dāng)數(shù)據(jù)量過大時(shí),號(hào)牌生成速度會(huì)比較慢。這是以后需要加以改進(jìn)之處。

4 結(jié)語

傳統(tǒng)的方法是直接利用Excel手動(dòng)來實(shí)現(xiàn)這一系列工作,其工作量大而繁瑣,而且由于數(shù)據(jù)量大,也極易出錯(cuò)。該文中,該系統(tǒng)是集電纜清冊(cè)制作,電纜接線圖模板生成,電纜號(hào)牌以及電纜套管的制作為一體的電纜管理系統(tǒng),將技術(shù)人員日常繁瑣復(fù)雜的技術(shù)準(zhǔn)備工作標(biāo)準(zhǔn)化、統(tǒng)一化、自動(dòng)化的實(shí)現(xiàn),最終達(dá)到提高生產(chǎn)效率,降低工作成本的目的,具有很高的實(shí)用價(jià)值。

參考文獻(xiàn)

[1] 羅剛君.Excel VBA程序開發(fā)自學(xué)寶典[M].北京:電子工業(yè)出版社,2011:664-684.

[2] 朱培育,朱佳苗,趙俊香,等.Excel VBA數(shù)據(jù)處理軟件開發(fā)[J].地震地磁觀測(cè)與研究,2006(27):108-115.

[3] 陸正榮.用VBA對(duì)Excel中電纜工藝結(jié)構(gòu)計(jì)算的擴(kuò)展[J].光纖與電纜及其應(yīng)用技術(shù),2006(5):18-20.