Wincc-自定義對象簡化實現(xiàn)閥門復(fù)雜控制要求

1、使用Wincc-自定義對象實現(xiàn)閥門復(fù)雜控制要求一、需求:閥門一般有5種狀態(tài):全開全關(guān)故障開關(guān)?？刂?以wincc元件庫的閥門為基礎(chǔ),全開的時候顯示綠色,全關(guān)的時候顯示紅色,開過程顯示閃爍綠色,關(guān)過程顯示閃爍紅色,故障顯示閃爍黃色。二、實現(xiàn):思路一直接在元件的屬性寫腳本,但是這個方法在不同的控制對象,需要修改變量時,必須進入腳本修改,萬一不小心,可能會修改其他代碼,而且修改不是很方便思路二建立wincc的自定義對象,可以解決上面問題。步驟1、在內(nèi)部變量建立五個變量命名為bool1 bool2 bool3 bool4 bool5bool1對應(yīng)全開bool2全關(guān)bool3開bool4關(guān)bool5故障

2、2、在畫面編輯器中,從庫中拖出一個閥門元件和5個靜態(tài)文本,把閥門元件的符號外觀屬性修改為Shaded-1 如下圖: 文本一對象名改為FullOpen文本二對象名改為FullClose文本三對象名改為Open文本四對象名改為Close文本五對象名改為Fault閥門元件對象名稱為Control13、把文本對象疊在一起,并所有文本的顯示屬性改為否,放到閥門后面,使其看不見。4全選對象(注意閥門元件是否被選中,可能需要shift+單擊來選中,右擊>自定義對象>創(chuàng)建把UserDefined2名稱修改為Script 用來放置需要修改腳本的屬性,并將control1的前景色閃爍顏色閃爍樣式加入到

3、Script屬性組的下面。如下圖: 5、回到選擇的屬性框,右擊選擇-主題選擇并把userDefined3添加到已選主題框中(右移確定后,修改userDefined3為userDefined(這個屬性組中存儲的是在工程中我們要添加的變量名,分別把FullOpen FullClose Open Close Fault 5個文本變量的文本屬性添加到userDefined下面,并右擊修改屬性的名稱,確定完成修改。修改后如下。 6、添加腳本在Script下的ForeColor屬性添加vbs腳本:Dim fullopen,fullclose,open,close,faultIf Item.FullOpen

4、<>"" Then '防止輸入空字符fullopen=HMIRuntime.Tags (Item.FullOpen.Read( '獲取閥門全開變量值End IfIf Item.FullClose<>"" Then '防止輸入空字符fullclose=HMIRuntime.Tags (Item.FullClose.Read('獲取閥門全關(guān)變量值End IfIf Item.Open<>"" Then '防止輸入空字符open=HMIRuntime.Tags (It

5、em.Open.Read('獲取閥門開變量值End IfIf Item.Close<>"" Then '防止輸入空字符close=HMIRuntime.Tags (Item.Close.Read('獲取閥門關(guān)變量值End IfIf Item.fault<>"" Then '防止輸入空字符fault=HMIRuntime.Tags (Item.fault.Read('獲取閥門故障變量值End IfIf fault=1 Then'當故障ForeColor_Trigger=RGB(255,

6、255,0'前景色黃色Item.BlinkColor=RGB(180,180,0'閃爍色淡黃色Item.BlinkMode=2 '閃爍模式選擇(詳見winccElseif fullopen =1 Then '當全開ForeColor_Trigger=RGB(0,255,0'前景色綠色Item.BlinkMode=0'閃爍模式選擇(0為取消閃爍Elseif fullclose =1 Then '當全關(guān)ForeColor_Trigger=RGB(255,0,0'前景色紅色Item.BlinkMode=0'閃爍模式選擇(0為取消

7、閃爍ElseForeColor_Trigger=RGB(128,128,128'其他狀態(tài)為灰色End If在BlinkColor屬性中添加如下腳本:Dim fullopen,fullclose,open,close,faultIf Item.FullOpen<>"" Then '防止輸入空字符fullopen=HMIRuntime.Tags (Item.FullOpen.Read( '獲取閥門全開變量值End IfIf Item.FullClose<>"" Then '防止輸入空字符fullclos

8、e=HMIRuntime.Tags (Item.FullClose.Read('獲取閥門全關(guān)變量值End IfIf Item.Open<>"" Then '防止輸入空字符open=HMIRuntime.Tags (Item.Open.Read('獲取閥門開變量值End IfIf Item.Close<>"" Then '防止輸入空字符close=HMIRuntime.Tags (Item.Close.Read('獲取閥門關(guān)變量值End IfIf Item.fault<>"

9、;" Then '防止輸入空字符fault=HMIRuntime.Tags (Item.fault.Read('獲取閥門故障變量值End IfIf fullopen=0 And fullclose=0 And fault=0 ThenIf open=1 Then '閥門打開過程'實現(xiàn)灰色與綠色的交替閃爍Item.ForeColor=RGB(128,128,128BlinkColor_Trigger=RGB(0,255,0Item.BlinkMode=2Elseif close=1 Then '閥門關(guān)閉過程'實現(xiàn)灰色與紅色的交替閃爍Item.ForeColor=RGB(128,128,128BlinkColor_Trigger=RGB(255,0,0Item.BlinkMode=2End IfEnd IfIf open=0 And close=0 And fault=0 ThenItem.BlinkMode=0'除了開關(guān)故障其余取消閃爍End If到這里我們需要實現(xiàn)的功能就已經(jīng)實現(xiàn)