WinCC_Vbs中文手冊(cè)

1、1. 實(shí)例： 訪問(wèn)圖形編輯器中的對(duì)象可以使用 VBS WinCC 對(duì)所有圖形編輯器對(duì)象進(jìn)行訪問(wèn)，以使圖形運(yùn)行環(huán)境動(dòng)態(tài)化。 根據(jù)變量或周期性（例如閃爍）情況，可在執(zhí)行操作（例如在按鈕上單擊鼠標(biāo)）時(shí)使圖形對(duì)象動(dòng)態(tài)化。以下示例說(shuō)明如何在鼠標(biāo)單擊后更改圖形對(duì)象。步驟在以下示例中，每次單擊鼠標(biāo)時(shí)運(yùn)行系統(tǒng)中圓的半徑都會(huì)設(shè)置為 20：Dim objCircleSet objCircle= ScreenItems("Circle1")objCircle.Radius = 202. 實(shí)例： 定義對(duì)象的顏圖形對(duì)象的顏色通過(guò) RGB 值（紅/綠/藍(lán)）定義。 可以設(shè)置或讀出圖形對(duì)象的顏色值。 步驟

2、以下示例將“ScreenWindow1”的填充顏色定義為藍(lán)色：Dim objScreenSet objScreen = HMIRuntime.Screens("ScreenWindow1")objScreen.FillStyle = 131075objScreen.FillColor = RGB(0, 0, 255)3. 例：如何組態(tài)語(yǔ)言切換可使用 VBS 切換 WinCC 的運(yùn)行系統(tǒng)語(yǔ)言。 最常用的是包含相應(yīng)語(yǔ)言代碼的按鈕，這些按鈕位于項(xiàng)目的起始頁(yè)上。在 VBS 中通過(guò)使用國(guó)家代碼（例如，1031 表示德語(yǔ) - 默認(rèn)，1033 表示英語(yǔ) - 美國(guó)等）指定運(yùn)行系統(tǒng)語(yǔ)言。有關(guān)

3、所有國(guó)家代碼的匯總，請(qǐng)參見(jiàn)標(biāo)題為“區(qū)域方案 ID (LCID) 圖”的主題下的 VBScript 基本知識(shí)。步驟:使用按鈕上的“Mouse click”事件創(chuàng)建 VBS 動(dòng)作，輸入以下動(dòng)作代碼將運(yùn)行系統(tǒng)語(yǔ)言切換為德語(yǔ)：HMIRuntime.Language = 10314. 實(shí)例： 禁用運(yùn)行系統(tǒng)簡(jiǎn)介可以使用 VBS 終止 WinCC 運(yùn)行系統(tǒng)，例如，通過(guò)鼠標(biāo)單擊，依靠變量值或其它事件（例如，啟動(dòng)運(yùn)行系統(tǒng)時(shí)密碼的多次錯(cuò)誤輸入）。要執(zhí)行的操作以下示例會(huì)終止 WinCC 運(yùn)行系統(tǒng)：HMIRuntime.Stop5. 實(shí)例： 全局組態(tài)畫面更改簡(jiǎn)介VBS 可用于啟動(dòng)全局畫面更改，因而會(huì)在分布式系統(tǒng)的客戶

4、機(jī)上顯示服務(wù)器中的畫面。 為此，服務(wù)器的服務(wù)器前綴必須位于目標(biāo)畫面之前。要執(zhí)行的操作為按鈕組態(tài)以下畫面更改代碼，例如：HMIRuntime.BaseScreenName = "Serverprefix:New screen"6. 實(shí)例： 通過(guò)屬性組態(tài)畫面更改簡(jiǎn)介如果在組態(tài)中使用分區(qū)畫面（例如，在用戶界面的基本畫面標(biāo)題和操作欄中和用于實(shí)際畫面顯示的嵌入畫面窗口中），應(yīng)使用畫面窗口的屬性組態(tài)畫面更改。為了顯示其它畫面，必須更改“ScreenName”畫面窗口的屬性。 必須在同一畫面中對(duì)動(dòng)作和畫面窗口進(jìn)行組態(tài)。要執(zhí)行的操作在以下示例中，執(zhí)行動(dòng)作時(shí)“ScreenWindow”畫面窗

5、口中會(huì)顯示“test.pdl”畫面：Dim objScrWindowSet objScrWindow = ScreenItems("ScreenWindow")objScrWindow.ScreenName = "test"7. 實(shí)例： 通過(guò) Trace 組態(tài)診斷輸出簡(jiǎn)介如果已將 GSC 診斷窗口插入畫面中，則可以使用 Trace 命令在運(yùn)行系統(tǒng)的診斷窗口中顯示診斷輸出。GSC 診斷按調(diào)用的先后順序發(fā)出包含在動(dòng)作中的 Trace 方法。這也適用于在動(dòng)作中調(diào)用的過(guò)程中的 Trace 指令。Trace 指令的有目的執(zhí)行（例如針對(duì)變量值的輸出）可實(shí)現(xiàn)對(duì)動(dòng)作進(jìn)度

6、以及在動(dòng)作中調(diào)用的過(guò)程的跟蹤。Trace 指令以“HMIRuntime.Trace(<Ausgabe>)”形式輸入。GSC 診斷顯示來(lái)自 C 和 VBS 的跟蹤輸出。要執(zhí)行的操作以下示例將文本寫入診斷窗口中：HMIRuntime.Trace "Customized error message"8. 實(shí)例： 寫入變量值可以用 VBS 將變量值寫入 PLC 中，例如通過(guò)在按鈕上單擊鼠標(biāo)來(lái)指定設(shè)定值，或設(shè)置內(nèi)部變量值，以觸發(fā)其它動(dòng)作。 下面涉及和介紹了多種寫入變型。1) 簡(jiǎn)單寫入在以下示例中，將值寫入“Tag1”變量?jī)?nèi)：HMIRuntime.Tags("Ta

7、g1").Write 6這是最簡(jiǎn)單的寫入形式，因?yàn)椴粫?huì)生成任何對(duì)象引用。2) 通過(guò)對(duì)象引用寫入在以下示例中，將創(chuàng)建變量對(duì)象的本地副本并將值寫入“Tag1”內(nèi)：Dim objTagSet objTag = HMIRuntime.Tags("Tag1")objTag.Write 73) 通過(guò)利用引用，可以在寫入之前使用變量對(duì)象。 可以讀取變量值，進(jìn)行計(jì)算，并再次寫入：Dim objTagSet objTag = HMIRuntime.Tags("Tag1")objTag.ReadobjTag.Value = objTag.Value + 1objT

8、ag.Write4) 同時(shí)寫入通常，待寫入的值會(huì)傳送到變量管理，然后重新開始對(duì)動(dòng)作進(jìn)行處理。 但某些情況下，必須確保實(shí)際寫入了值之后才能重新開始對(duì)動(dòng)作進(jìn)行處理。此類寫入通過(guò)將附加的可選參數(shù)指定為值 1 來(lái)實(shí)現(xiàn)：Dim objTagSet objTag = HMIRuntime.Tags("Tag1")objTag.Value = 8objTag.Write ,1說(shuō)明 請(qǐng)注意，這種調(diào)用比標(biāo)準(zhǔn)調(diào)用使用的時(shí)間要長(zhǎng)。 除此之外，持續(xù)時(shí)間還取決于通道和 AS。這類寫入遵從 C 腳本中的 SetTagXXXWait() 調(diào)用5) 通過(guò)狀態(tài)處理寫入為了確保成功寫入值，必須在寫入過(guò)程之后執(zhí)

9、行錯(cuò)誤檢查或確定變量狀態(tài)。為此，執(zhí)行寫入操作后需檢查“LastError”屬性。 測(cè)試成功（即成功放置任務(wù)）后，即檢查變量狀態(tài)。對(duì)于寫入任務(wù)，過(guò)程的當(dāng)前狀態(tài)尚不確定。 要確定該狀態(tài)，必須讀取變量。 讀取過(guò)程之后“質(zhì)量代碼”屬性中指定的值會(huì)提供變量狀態(tài)指示，如有必要，還會(huì)涉及發(fā)生故障的 AS 連接。在以下示例中，將寫入“Tag1”變量。 如果寫入期間出現(xiàn)錯(cuò)誤，全局腳本診斷窗口中會(huì)顯示錯(cuò)誤值和錯(cuò)誤描述。 最后，檢查質(zhì)量代碼。 如果質(zhì)量代碼不是 OK (0x80)，便在診斷窗口中顯示該代碼 Dim objTagSet objTag = HMIRuntime.Tags("Tag1"

10、)objTag.Write 9If 0 <> objTag.LastError ThenHMIRuntime.Trace "Error: " & objTag.LastError & vbCrLf & "ErrorDescription: " & objTag.ErrorDescription & vbCrLfElseobjTag.ReadIf &H80 <> objTag.QualityCode ThenHMIRuntime.Trace "QualityCode: 0x&

11、quot; & Hex(objTag.QualityCode) & vbCrLfEnd IfEnd If說(shuō)明 寫入變量后，由于不知道哪一質(zhì)量代碼在過(guò)程中用于管理變量，因此局部變量對(duì)象的 QualityCode 屬性會(huì)設(shè)置為“BAD 已不能用”。9. 實(shí)例： 如何讀取變量值簡(jiǎn)介可以用 VBS 讀取變量值并對(duì)其執(zhí)行進(jìn)一步的處理。 這樣便可以執(zhí)行諸如通過(guò)在按鈕上單擊鼠標(biāo)來(lái)獲取系統(tǒng)狀態(tài)信息或執(zhí)行計(jì)算的操作。下面涉及和介紹了多種讀取變型。1) 簡(jiǎn)單讀取在以下示例中，將讀取“Tag1”的值并在全局腳本診斷窗口中顯示該值：HMIRuntime.Trace "Value: "

12、; & HMIRuntime.Tags("Tag1").Read & vbCrLf這是最簡(jiǎn)單的讀取形式，因?yàn)椴粫?huì)生成任何對(duì)象引用。2) 通過(guò)對(duì)象引用讀取在以下示例中，將生成變量對(duì)象的本地副本，讀取該變量值并在全局腳本診斷窗口中顯示該值：Dim objTagSet objTag = HMIRuntime.Tags("Tag1")HMIRuntime.Trace "Value: " & objTag.Read & vbCrLf通過(guò)利用引用可以使用變量對(duì)象。 可以讀取變量值，進(jìn)行計(jì)算，并再次寫入：Dim ob

13、jTagSet objTag = HMIRuntime.Tags("Tag1")objTag.ReadobjTag.Value = objTag.Value + 1objTag.Write使用 Read 方法將已讀取的過(guò)程變量添加到圖像，從該刻起這些變量會(huì)通過(guò) AS 周期性請(qǐng)求。 如果該變量已存在于圖像中，則會(huì)返回其中包含的值。對(duì)于關(guān)閉畫面，變量動(dòng)作會(huì)再次結(jié)束。 說(shuō)明 如果全局腳本動(dòng)作中請(qǐng)求變量，則在進(jìn)入 WinCC 運(yùn)行系統(tǒng)的整個(gè)過(guò)程中，該變量保持已注冊(cè)狀態(tài)3) 直接讀取通常，變量值從變量圖像讀取。 但在某些情況下，例如為了同步快速過(guò)程，可能需要直接從 AS 讀取變量值。

14、如果將讀取過(guò)程的可選參數(shù)設(shè)置為 1，則不會(huì)周期性地登錄變量，而是通過(guò) AS 單次請(qǐng)求該值。Dim objTagSet objTag = HMIRuntime.Tags("Tag1")HMIRuntime.Trace "Value: " & objTag.Read(1) & vbCrLf說(shuō)明 請(qǐng)注意，這種調(diào)用比標(biāo)準(zhǔn)調(diào)用使用的時(shí)間要長(zhǎng)。 除此之外，持續(xù)時(shí)間還取決于通道和 AS。在執(zhí)行周期性 C 動(dòng)作的情況下，必須避免該類調(diào)用，因?yàn)檫@是引起性能問(wèn)題的主要原因。該類讀取過(guò)程相當(dāng)于 C 腳本中的 GetTagXXXWait() 調(diào)用。4) 通過(guò)狀態(tài)

15、處理讀取為了確保值有效，應(yīng)在讀取之后進(jìn)行檢查。 這通過(guò)控制質(zhì)量代碼來(lái)執(zhí)行。在以下示例中，將讀取“myWord”變量，然后檢查 QualityCode。 如果質(zhì)量代碼未對(duì)應(yīng) OK (0x80)，則在全局腳本診斷窗口中顯示 LastError、ErrorDescription 和 QualityCode 屬性。Dim objTagSet objTag = HMIRuntime.Tags("Tag1")objTag.ReadIf &H80 <> objTag.QualityCode ThenHMIRuntime.Trace "Error: "

16、; & objTag.LastError & vbCrLf & "ErrorDescription: " & objTag.ErrorDescription & vbCrLf & "QualityCode: 0x" & Hex(objTag.QualityCode) & vbCrLfElseHMIRuntime.Trace "Value: " & objTag.Value & vbCrLfEnd If說(shuō)明 如果讀取期間出現(xiàn)錯(cuò)誤，則 QualityCode

17、會(huì)設(shè)置為 BAD NON-SPECIFIC。 因此，只需在讀取之后檢查 1) 示例： 寫入對(duì)象屬性VBS 可實(shí)現(xiàn)對(duì)所有圖形編輯器畫面對(duì)象的屬性的訪問(wèn)。 運(yùn)行期間可以讀出各個(gè)屬性以便進(jìn)行修改或更改。以下示例說(shuō)明了各種訪問(wèn)形式。1) 屬性的簡(jiǎn)單設(shè)置在以下示例中，畫面中包含的“Rectangle1”對(duì)象的背景顏色被設(shè)置為紅色ScreenItems("Rectangle1").BackColor = RGB(255,0,0)這是最簡(jiǎn)單的寫入形式，因?yàn)椴粫?huì)生成任何對(duì)象引用說(shuō)明 如果不通過(guò)對(duì)象引用完成操作，則智能感知中只提供標(biāo)準(zhǔn)屬性。本示例中使用的表達(dá)式形式僅適用于圖形編輯器。 對(duì)于全

18、局腳本中的模擬動(dòng)作，應(yīng)使用 HMIRuntime 對(duì)象訪問(wèn)相應(yīng)對(duì)象2) 通過(guò)對(duì)象引用設(shè)置屬性在以下示例中，將創(chuàng)建對(duì)畫面中所包含“Rectangle1”對(duì)象的引用，并使用 VBS 標(biāo)準(zhǔn)函數(shù) RGB() 將背景設(shè)置為紅色：Dim objRectangleSet objRectangle = ScreenItems("Rectangle1")objRectangle.BackColor = RGB(255,0,0)必須更改多個(gè)對(duì)象屬性時(shí)，引用非常有用。 使用智能感知時(shí)，該過(guò)程即會(huì)列出所有對(duì)象屬性。說(shuō)明 本示例中使用的表達(dá)式形式僅適用于圖形編輯器。 對(duì)于全局腳本中的模擬動(dòng)作，應(yīng)使用

19、 HMIRuntime 對(duì)象訪問(wèn)相應(yīng)對(duì)象3) 通過(guò)畫面窗口設(shè)置屬性圖形編輯器中的 VBS 提供兩種可行的畫面超越訪問(wèn)方法：· 使用“ScreenItems”通過(guò)畫面窗口的 Screen 對(duì)象· 使用“HMIRuntime.Screens”通過(guò)基本畫面通過(guò)畫面窗口引用以下示例中，在從屬畫面窗口中更改矩形的顏色。 相應(yīng)腳本在畫面窗口“ScreenWindow1”所處的畫面“BaseScreen”中執(zhí)行。 此畫面窗口會(huì)顯示包含名稱為“Rectangle1”的“Rectangle”類型對(duì)象的畫面。Sub OnLButtonUp(ByVal Item, ByVal Flags, By

20、Val x, ByVal y)Dim objRectangleSet objRectangle = ScreenItems("ScreenWindow1").Screen.ScreenItems("Rectangle1")objRectangle.BackColor = RGB(255,0,0)End Sub4) 通過(guò)基本畫面引用可通過(guò) HMIRuntime.Screens 引用具有待修改對(duì)象的畫面。該畫面相對(duì)于基本畫面的規(guī)范通過(guò)以下訪問(wèn)代碼進(jìn)行定義：<Grundbildname>.<Bildfenstername>:<Bi

21、ldname>. .<Bildfenstername>:<Bildname>在以下示例中，將創(chuàng)建對(duì)“Rectangle1”畫面中包含的“Screen2”對(duì)象的引用，并將背景顏色設(shè)置為紅色。這種情況下，畫面“Screen2”位于“Screen1”中。 “Screen1”顯示在基本畫面“BaseScreen”中。Dim objRectangleSet objRectangle = HMIRuntime.Screens("BaseScreen.ScreenWindow1:Screen1.ScreenWindow1:Screen2").ScreenIt

22、ems("Rectangle1")objRectangle.BackColor = RGB(255,0,0)無(wú)需指定畫面名稱。 可以通過(guò)畫面窗口名稱唯一地訪問(wèn)某一畫面。 因此，只需指定畫面窗口的名稱，如下示例所示：Dim objRectangleSet objRectangle = HMIRuntime.Screens("ScreenWindow1.ScreenWindow2").ScreenItems("Rectangle1")objRectangle.BackColor = RGB(255,0,0)這種訪問(wèn)類型可實(shí)現(xiàn)在不同畫面中訪

23、問(wèn)畫面窗口中的對(duì)象。 就畫面模塊技術(shù)而言，這是特別有趣的一點(diǎn)。5) 利用返回值使屬性動(dòng)態(tài)化基于屬性的動(dòng)作不僅能由事件觸發(fā)或周期性觸發(fā)，而且能直接通過(guò)動(dòng)作使屬性動(dòng)態(tài)化。 在以下示例中，通過(guò)返回值使對(duì)象的背景顏色動(dòng)態(tài)化。 例如，傳送的值可能來(lái)自 PLC 中事件的評(píng)估，并用于運(yùn)行狀態(tài)的圖形顯示：Function BackColor_Trigger(ByVal Item)BackColor_Trigger = RGB(125,0,0)End Function說(shuō)明 如果通過(guò)腳本的返回值使具有 VBS 動(dòng)作的對(duì)象屬性動(dòng)態(tài)化，則只有在相對(duì)于上次運(yùn)行的腳本對(duì)象屬性值發(fā)生更改時(shí)才會(huì)寫入該值。 如果該值已在另一位

24、置發(fā)生更改則無(wú)效。因此，通過(guò)從另一位置（例如，其它 C 腳本或 VBS 腳本）的返回值來(lái)更改由 VBS 動(dòng)作生成的動(dòng)態(tài)屬性是非法的。如果不遵守這一點(diǎn)，則結(jié)果可能是錯(cuò)誤的值。2) 實(shí)例： 通過(guò) VBS 組態(tài)數(shù)據(jù)庫(kù)連接簡(jiǎn)介以下示例說(shuō)明如何通過(guò) ODBC 驅(qū)動(dòng)器組態(tài) Access 數(shù)據(jù)庫(kù)鏈接。· 示例 1 將 WinCC 的變量值寫入 Access 數(shù)據(jù)庫(kù)中。· 示例 2 從數(shù)據(jù)庫(kù)讀取值并將其寫入 WinCC 變量中。這些示例不包含任何處理故障。1.通過(guò) WINCC_DATA 表和 ID 在其中作為自動(dòng)值的的列（ID，TagValue）來(lái)創(chuàng)建 Access 數(shù)據(jù)庫(kù)。2.設(shè)置名稱為

25、“SampleDSN”的 ODBC 數(shù)據(jù)源，引用以上 Access 數(shù)據(jù)庫(kù)。3.編程。3) 示例 1Dim objConnectionDim strConnectionStringDim lngValueDim strSQLDim objCommandstrConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;" lngValue = HMIRuntime.Tags("Tag1").ReadstrSQL = "INSERT INTO WINCC_DATA (TagValue)

26、VALUES (" & lngValue & ");" Set objConnection = CreateObject("ADODB.Connection")objConnection.ConnectionString = strConnectionStringobjConnection.OpenSet objCommand = CreateObject("ADODB.Command")With objCommand .ActiveConnection = objConnection .CommandTex

27、t = strSQLEnd WithobjCommand.ExecuteSet objCommand = NothingobjConnection.CloseSet objConnection = Nothing4) 步驟、示例 21.創(chuàng)建名稱為 dbValue 的 WinCC 變量。2.使用 WINCC_DATA 表和 ID，TagValue 列創(chuàng)建 Access 數(shù)據(jù)庫(kù)： ID，創(chuàng)建 TagValue（ID 作用自動(dòng)值）。3.設(shè)置名稱為“SampleDSN”的 ODBC 數(shù)據(jù)源，引用以上 Access 數(shù)據(jù)庫(kù)。4.編程。Dim objConnectionDim objCommandDim

28、objRecordsetDim strConnectionStringDim strSQLDim lngValueDim lngCountstrConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;" strSQL = "select TagValue from WINCC_DATA where ID = 1" Set objConnection = CreateObject("ADODB.Connection")objConnection.ConnectionStr

29、ing = strConnectionStringobjConnection.OpenSet objRecordset = CreateObject("ADODB.Recordset")Set objCommand = CreateObject("ADODB.Command")objCommand.ActiveConnection = objConnectionobjCommand.CommandText = strSQLSet objRecordset = objCommand.ExecutelngCount = objRecordset.Fields

30、.CountIf (lngCount>0) ThenobjRecordset.movefirstlngValue = objRecordset.Fields(0).ValueHMIRuntime.Tags("dbValue").Write lngValueElseHMIRuntime.Trace "Selection returned no fields" & vbNewLineEnd IfSet objCommand = NothingobjConnection.CloseSet objRecordset = NothingSet obj

31、Connection = Nothing根據(jù)使用的提供程序不同，有多種方法可用來(lái)定義連接的連接字符串。ODBC 的 Microsoft OLE DB 提供程序啟用與 ODBC 數(shù)據(jù)源的連接。 相應(yīng)的語(yǔ)法為："Provider=MSDASQL;DSN=name|FileDSN=filename;DATABASE=database;UID=user; PWD=password"其它 Microsoft OLE DB 提供程序（例如 MS Jet、MS SQL Server）可以不使用 DSN 運(yùn)行。 相應(yīng)的語(yǔ)法為："Provider=provider;DRIVER=d

32、river; SERVER=server;DATABASE=database; UID=user; PWD=password"5) 實(shí)例： 使用 MS 自動(dòng)化接口簡(jiǎn)介以下三個(gè)示例說(shuō)明了如何使用 MS 自動(dòng)化接口。1) 示例 1： MS Excel本示例中將輸入域的輸出值寫入 Excel 表中。Dim objExcelAppSet objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = True'ExcelExample.xls is to create before executing this procedure.'Replace <path> with the real path of the file ExcelExample.xls.objExcelApp.Workbooks.Open "<path>ExcelExample.xls"objExcelApp.Cells(4, 3).Value = ScreenItem