用組態(tài)王報表

1、用組態(tài)王報表實現(xiàn)顯示設備啟動、停止時間和運行時長的方法在對設備的狀態(tài)進行監(jiān)控中，往往要取得一些參數(shù)來記錄和分析設備的運行狀況。這其中就包括設備的啟動時間、停止時間和運行的時長。當然，組態(tài)軟件不會有這樣的功能，讓我們 輕易實現(xiàn)。不過，通過組態(tài)軟件的報表功能，再通過二次開發(fā)，寫一些腳本語言。實現(xiàn)起來 倒也不難。以下，以組態(tài)王為例，是對操作過程的描述，希望能夠對需要的人有一些幫助?？傮w思路：以一個項目為例。在這個工程中，有21臺設備的運行狀態(tài)需要記錄，他們的運行狀態(tài)依次記錄在報表中。報表中的每一行都表示，此設備的一個運行周期。由于設備狀態(tài) 在報表中依次排列，因此需要相應的變量來保存該設備狀態(tài)所在的行

2、數(shù)。這樣，當停止該設備時，才能將“停止時間”和“運行時長”填充到正確的位置。這樣，就需要建立21個內(nèi)存整形變量。由于報表中的記錄依次排列，因此還需要一個變量來保存報表中最后一條記錄 的行數(shù)，這樣才能順序填充記錄。1、新建報表，并命名為“報表 1 ”。_A_X序號設備甯稱啟動時間.1停止時間運行時長bfog,sina,2、創(chuàng)建內(nèi)存整形變量。21個內(nèi)存變量分別保存 21個設備狀態(tài)所在的行數(shù)。1個內(nèi)存變量保存報表中最后一條記錄的行數(shù)。円3藍塹旳%;號機毎橋斯蒞行內(nèi)薦隹塑2M:召冷一號杭斷花行冉曲型石冰的15甄泵僚芷廳曲存建塑閃壽爭臺347負審*誦喬不嘶ip可丙苻莊51矗京也誦尸慕洞在叮內(nèi)訐住星唏匚二

3、瞬啷曙詬疋廳內(nèi)療整趙2T1uh如胴碩顧正了內(nèi)睜理亀m£4*悅 J1CtWF-T WE 廳旳再BI昱m爲凈!2二邑機關芷疔內(nèi)注塑174'命降FU二尋機酬芷訝肉薦蠱室2T5覽略肌如謁松斷itb旳存參型那疝吟卻陪儁在舒內(nèi)存罄型2T1金饑磷珂左奇內(nèi)存整墨m也存斥譽279舟店準牆才進誦至倆在行內(nèi)存茸顯%帛舌睛孫備訐歪P所左訂內(nèi)仔基型m%沖電懈貓環(huán)網(wǎng)m斷在疔內(nèi)再常璋1&串互當卅行3、編寫自定義函數(shù)，好處是減少代碼量，修改方便。腳本內(nèi)容具體如下"var"是變量的名稱，"name"是要顯示在報表中的字符串，"varRow"是

4、保存記錄的行數(shù)/用年月日，時分秒，系統(tǒng)變量來組合形成日期。/不用日期變量，因為其格式長度不確定，在后來的分解中會很麻煩。string strY=StrFromlnt（ 本站點 $年,10 ）;string strM=StrFromInt （ 本站點 $月，10 ）;string strD=StrFromlnt（本站點$日,10 ）;string strH=StrFromInt（本站點$時,10 ）;string strMi=StrFromInt（本站點$分,10）;string strS=StrFromI nt（本站點$秒,10 ）;/確定日期的格式，并使長度和位置固定if （本站點$月10

5、）strM="0"+strM;if（本站點$日10）strD="0"+strD;if（本站點$時10）strH="0"+strH;if（本站點$分10）strMi="0"+strMi;if（本站點$秒10）strS="0"+strS;/組合，定義格式string str=strY+"-"+strM+"-"+strD+" "+strH+":"+strMi+":"+strS;/啟動設備時，將“序號”、

6、“名稱”、“啟動時間”填充到報表中if （ var=1 ）long num= 報表當前行-1;string id=StrFromlnt(num, 10);ReportSetCellStri ng（"報表1",報表當前行,1, id ） ;/序號ReportSetCellStri ng（"報表1",報表當前行,2, name ） ;/名稱ReportSetCellStri ng（"報表1",報表當前行,3, str）;/開始時間varRow=報表當前行;/所在行=報表當前行報表當前行=報表當前行+1;/停止設備時elsestring s

7、tartStr=ReportGetCellString（"報表1", varRow, 3 ）;/從報表中取得開始時間/開始時間轉換秒2011-05-06 12:23:34string midY=StrMid(startStr, 1,4）;string midM=StrMid(startStr, 6, 2）;string midD=StrMid(startStr, 9, 2）;string midH=StrMid(startStr, 12, 2）;string midMi=StrMid(startStr, 15, 2);string midS=StrMid(startStr,

8、 18, 2);long IY=StrTolntmidY );long IM=StrToIntmidMlong ID=StrToIntmidDlong IH=StrToIntmidHlong lMi=StrToInt(midMi );long IS=StrTolnt(midS );long startTime= HTC on vertTimelong en dTime= HTC on vertTime（本站點$年 本站點$月 本站點$日 本站點$時 本站點$分 本站點$秒）；/結束時間轉換秒單位秒/計算時間差long timeLe ngth=e ndTime-startTime;/秒轉換為小時

9、/timeLe ngth=timeLe ngth/3600;string endStr=StrFromlnt(timeLength, 10) +"秒"/將“停止時間”和“運行時長”填充到報表中ReportSetCellString("報表 1", varRow, 4, str ) ;/ 結束時間ReportSetCellString("報表 1", varRow, 5, endStr ) ;/ 時間長度4、建立設備啟動或停止的運行事件命令。只需調用自定義函數(shù)，并將填寫相應的變量即可。女口： SetReport （本站點冰水循環(huán)泵 2運

10、行,"冰水循環(huán)泵本站點冰水循環(huán)泵2所在行）” _） Iff畫五 u *4iX破軽幕舖會語暫 乜婁瀝刃史錄專語&Ini - - i err ri-i in ri-i nar I- rWi- ri f _購件楠爭語育 u苦囉冊d語言 u 口忑泡帀滬陸鉗頁盲*勁3期址決-珈廉Q.2l> C0M1，G COM2U COM3；E C'_ilV!4:匸 COMSU ODE豊點訝水也乘F上斷 口汁卒乍沖禱h哺日荒三戸廳 竺站查傢水魂玨基3譜軒韶'輕站直妣閡耶 刨讓擋站點憶二齡外*泵璉予 詡濡+畑"HT戶時可時疔 冋*站藍地化凍加稱ii薛旳運質 ® g站卓懵機站刖測一teiis訂 y i佯”帝計因訥誠二號機運行 自笑姑重廉機加呵詢 TVti俞 竺如花崩巧語刑? ±沖J二昌機運行 id 2詁咸謚杞刃I刖輸；，一 E 4J?衛(wèi)13 切、滋站總VMD艙也I二號機話廿 4沁；,-卻豁址比 3梓站嫖治罷疇睚的 討山豐站.戌詢創(chuàng)料一迂訂詔'仃嚴社當g sc咄注訐帝1JS廳 茁h1第點儁抑水術即葫誕合bliricLGff