資源描述：
《基于vba實(shí)現(xiàn)excel預(yù)制接觸網(wǎng)軟橫跨》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫(kù)。
1、基于VBA實(shí)現(xiàn)EXCEL預(yù)制接觸網(wǎng)軟橫跨中鐵十二局集團(tuán)電氣化工程有限公司天津300308摘要通過(guò)將軟橫跨的手工計(jì)算過(guò)程轉(zhuǎn)換為Excel能夠識(shí)別處理的Excel函數(shù)、VBA程序模塊，用VBA設(shè)計(jì)良好的數(shù)據(jù)輸入輸出交互窗U,再將分散的程序、窗口、模塊整體組合聯(lián)系起來(lái)，成為一個(gè)計(jì)算系統(tǒng)，實(shí)現(xiàn)Excel預(yù)制接觸網(wǎng)軟橫跨0前言在目前的接觸網(wǎng)施工中，接觸網(wǎng)軟橫跨的預(yù)制計(jì)算主要有兩種。一種是手工預(yù)制接觸網(wǎng)軟橫跨，這是一項(xiàng)繁瑣、重復(fù)的計(jì)算過(guò)程，計(jì)算量很大，手工計(jì)算費(fèi)時(shí)費(fèi)力而且容易出錯(cuò)。一種是由專業(yè)的軟件制作團(tuán)隊(duì)制作的接觸M軟橫跨預(yù)制軟件。目前接觸網(wǎng)軟橫跨預(yù)制主要有au
2、tolisp、Of?等開發(fā)，但是此類程序的編寫需要程序制作的專業(yè)人士完成。而利用Excel中自帶的函數(shù)及VBA編程工具編制一些相對(duì)簡(jiǎn)單的程序就能完成復(fù)雜的軟橫跨預(yù)制計(jì)算。其中部分計(jì)算過(guò)程可以由Excel自帶的函數(shù)計(jì)算，而一些較為復(fù)雜的計(jì)算過(guò)程，則可以通過(guò)Excel中自帶的VBA編程工具通過(guò)編寫程序代碼實(shí)現(xiàn)。該方法綜合了手工計(jì)算與專業(yè)軟件的優(yōu)勢(shì)，既彌補(bǔ)了手工計(jì)算繁瑣易錯(cuò)的缺陷，乂無(wú)需技術(shù)人員?備專業(yè)的軟件知識(shí)便可掌握，填補(bǔ)了接觸網(wǎng)軟橫跨預(yù)制領(lǐng)域的空白。過(guò)VBA實(shí)現(xiàn)Excel預(yù)制接觸網(wǎng)軟橫跨可以分為參數(shù)搜集測(cè)量、建立計(jì)算模塊、設(shè)計(jì)建立窗口、程序整體設(shè)計(jì)和程
3、序的調(diào)試修改等幾個(gè)步驟。預(yù)制的過(guò)程是一個(gè)循序漸進(jìn)的過(guò)程，前面參數(shù)的搜集測(cè)量和計(jì)算出的結(jié)果為最終的計(jì)算做鋪墊。接觸網(wǎng)軟橫跨的預(yù)制過(guò)程是環(huán)環(huán)相扣的，因此在整個(gè)開發(fā)過(guò)程中需要仔細(xì)嚴(yán)謹(jǐn)?shù)膶?duì)待。1參數(shù)搜集測(cè)量對(duì)接觸網(wǎng)軟橫跨預(yù)制計(jì)算進(jìn)行VBA編程開發(fā)，首先要獲取計(jì)算所需的相關(guān)參數(shù)。奮些是圖紙或規(guī)程直接可以得到的參數(shù)，如：支柱的尺、？、線材的線密度、各種金具絕緣子的質(zhì)量尺T等。還奮就是需要通過(guò)現(xiàn)場(chǎng)測(cè)量得到的參數(shù)，如：側(cè)面限界、股道間距、股道高差、支柱斜率、支柱地面到正線軌平面的距離。2將計(jì)算公式轉(zhuǎn)換為Excel函數(shù)或者VBA語(yǔ)言，建立計(jì)算模塊一般簡(jiǎn)單的計(jì)算通過(guò)Ex
4、cel自帶的函數(shù)就能解決，但是如果碰到反復(fù)的計(jì)算、有循環(huán)的計(jì)算、需要條件判斷的計(jì)算，就需要通過(guò)編寫VBA程序模塊來(lái)解決。接觸網(wǎng)軟橫跨預(yù)制計(jì)算可以根據(jù)所求的過(guò)程建立模塊，軟橫跨的手工計(jì)算的流程是：①橫向承力索馳度Fl、F2的計(jì)算；②偏移距離al、a2、a3、bl、b2、b3的計(jì)算；③各節(jié)點(diǎn)負(fù)載Ql、Q2、Q3…的計(jì)算；④確定橫向承力索最低點(diǎn)，最低點(diǎn)到左側(cè)橫向承力索懸掛點(diǎn)L1,最低點(diǎn)到橫向承力索右側(cè)懸掛點(diǎn)L2;⑤子力矩Ml、M2的計(jì)算；⑥橫向承力索水平分力T的計(jì)算；⑦橫向承力索各股道懸掛點(diǎn)至支柱懸掛點(diǎn)的高差ml、m2、m3…的計(jì)算。如圖1所示。圖1軟橫跨預(yù)
5、制示意圖2.1各節(jié)點(diǎn)負(fù)載的計(jì)算每個(gè)節(jié)點(diǎn)的負(fù)載由縱向懸掛負(fù)載G，節(jié)點(diǎn)零件負(fù)載h橫向承力索與上、下部定位繩總重P，絕緣子總重Z組成。由于需要事先對(duì)節(jié)點(diǎn)類型等進(jìn)行判斷,所以用VBA的條件語(yǔ)句判斷之后再套用公式比直接在Excel中計(jì)算要簡(jiǎn)便。負(fù)載計(jì)算程序如下：Functionjd_fz(alza2,aO,m,gc,gj,I,gFJL,ggd,pi,p2,pO,gjyz,cpl,cp2,cpO,nFJL)AsDouble&lsqU0;聲明模塊名稱及所需輸入的數(shù)據(jù)名稱類型Dimcl,c2,c3,nAsInteger‘聲明計(jì)算過(guò)程中需要的變量Ifm=6O
6、rm=7Orm=10Thenn=2ElseIfm=0Thenn=0Elsen=1&lsqU0;通過(guò)節(jié)點(diǎn)類型判斷懸掛承導(dǎo)線的根數(shù)，6、7、10型節(jié)點(diǎn)為2,0型節(jié)點(diǎn)為0，其他類型為1Ifpi=8Orpi=1Orpi=2Orpi=3Orpi=4Thencl=3ElseIfpi=9Thencl=4Elsecl=0&lsqU0;通過(guò)節(jié)點(diǎn)類型判斷懸掛絕緣子的數(shù)量，8、1、2、3、4型節(jié)點(diǎn)為3個(gè)，9型節(jié)點(diǎn)為4個(gè)，其他類型0個(gè)jd_fz=n*(gc+gj)*I+cl*cpl*gjyz*0.5+5*n+(al+a2)*(nFJL*gFJL+2*ggd)*0.5+c2*c
7、p2*gjyz*0.5‘計(jì)算節(jié)點(diǎn)負(fù)載公式EndFunction‘程序結(jié)束，返回計(jì)算結(jié)果然后再在Excel單元格中對(duì)模塊程序調(diào)用，調(diào)用方法為在單元格中輸入=jd_fz(引用各數(shù)據(jù)所在單元格)。如=
8、<6以1,82,〔3,04/"),這樣就能得到節(jié)點(diǎn)的負(fù)載值。2.2最低點(diǎn)判斷FunctionP一Low(al,a2,a3,a4,a5,aO,gl,g2,g3,g4,g5)AsDouble&lsqU0;聲明模塊名稱及所需輸入的數(shù)據(jù)名稱類型，該程序以5股道為例，可以根據(jù)實(shí)際股道數(shù)對(duì)程序進(jìn)行修改DimnAsIntegerDimcl,c2,c3
9、,c4,c5,c,FN1,FP,gt,FN2AsDouble‘聲明計(jì)算過(guò)程中需要的
