WinCC是西門子公司在自動化領域采用最先進的技術與微軟公司在共同開發的居于世界領先地位的工控軟件。WinCC即WINDOWS CONTROL CENTER（視窗控制中心）。WinCC是一個功能強大的全面開放的監控系統，既可以用來完成小規模的簡單的過程監控應用，也可以用來完成復雜的應用。在任何情況下WinCC都可以生成漂亮而便捷的人機對話接口，使操作員能夠清晰地管理和優化生產過程。它集成的OPC(OLE for process control)服務器使得過程數據可由其它應用程序(OPC客戶機)訪問。WinCC在安裝時提供了OPC的客戶端控件: Siemens OPC DAAutomation 2.0( SOPCDAAuto.dll), 在WINCC的幫助中，有Siemens OPC DAAutomation 2.0使用的簡略幫助，但說得不很詳細，我在使用VB6.0開發WinCC的OPC客戶機中碰到不少問題，現一并寫出來，與大家共享。希望起到拋磚引玉，舉一反三的作用。 一、開發實例背景：我廠包裝機BE電氣改造后，由原來了單片機、直流調試板、溫度控制板等控制改為帶有通訊端口PLC、變頻器、溫控儀等控制，上位機監控軟件為WinCC。在控制系統中，變頻器、溫控儀的控制信號通過串口、OPC客戶機接入上位機WinCC，報警信號接入PLC。其硬件組態結構如圖一OPC開發要求：通過WinCC建立內部變量Tag(1)，Tag(2)，Tag(3),Tag(4)；在視圖窗口建立相應了I/O輸入輸出域。通過更改WinCC中I/O域的值，來設定或更改變頻器、溫控儀等的參數。通過VB開發了串口驅動程序，讀取變頻器、溫控儀等的參數，通過OPC控件把值傳遞給WinCC中的I/O域。二、VB6開發WinCC的OPC客戶機具體步驟： 1、打開VB6，建立如圖二窗體：其中，文本框組Text4.text為寫入WinCC內部變量名稱；文本框組Text5.text為顯示相應了WinCC內部變量值；文本框組Text8.text為寫入期望了WinCC內部變量值。單選框為OPC連接成功標志。3個命令按鈕分別為“連接”，“斷開”，“退出”。2、OPC的連接 先在工具欄中“工程引用”將近 Siemens OPC DAAutomation 2.0加入，然后開始定義全局變量。在本程序中，我使用了一個OPC組進行OPC訪問，所以定義了全局變量。我們要首先定義OPC服務類型與計算機結點名。定義OPC組與OPC標簽組。并定義OPC的標簽數組與值數，注意，值數組一定要設為Variant。Option ExplicitOption Base 1 這數組必須由1開始，不能由0開始Const ServerName = OPCServer.WinCC OPC的類型Dim NodeName As String 結點名，即計算機名Dim WithEvents MyOPCServer As OPCServer OPC服務Dim WithEvents MyOPCGroup As OPCGroup OPC組Dim MyOPCGroupColl As OPCGroupsDim MyOPCItemColl As OPCItems OPC標簽組Dim MyOPCItems As OPCItemsDim MyOPCItem As OPCItemDim ClientHandles(1) As Long 句柄Dim ServerHandles() As LongDim Errors() As Long Dim ItemIDs(4) As String 記錄OPC的標簽Dim ItemIDsValue(4) As Variant 存放OPC的值Dim GroupName As Variant在定義所有變量后，我們就要進行OPC連接了，要進行OPC連接之前,先要配置要訪問的OPC標簽名（即WinCC內部變量名），我們ItemIDs中加入相應的標簽名，注意：這數組必須由1開始，不能由0開始。 配置好標簽后就要進行OPC連接了。如下面子程序： ClientHandles1先配置名柄索引，這將在讀取OPC標簽的值時可要用到。生成OPC對象， 進行OPC標簽連接此,OPC連接就成功了，我們可以對OPC進行讀與寫的操作了。Private Sub Command1_Click()Dim ii As IntegerDim ClientHandles1(4) As LongFor ii = 1 To 4ClientHandles1(ii) = iiItemIDs(ii) = Text4(ii).Text 指明WinCC內部變量名稱Next iiOn Error GoTo ErrorHandler GroupName = MyGroup NodeName = Text1.Text 結點名，即計算機名Set MyOPCServer = New OPCServerMyOPCServer.Connect ServerName, NodeNameSet MyOPCGroupColl = MyOPCServer.OPCGroupsMyOPCGroupColl.DefaultGroupIsActive = TrueSet MyOPCGroup = MyOPCGroupColl.Add(GroupName)Set MyOPCItemColl = MyOPCGroup.OPCItemsFor ii = 1 To 4ClientHandles1(ii) = iiItemIDs(ii) = Text4(ii).TextMyOPCItemColl.AddItems 4, ItemIDs, ClientHandles1, ServerHandles, Errors 初始化OCP連接Next ii MyOPCGroup.IsSubscribed = TrueOption1.Value = True 連接成功標志Exit SubErrorHandler:MsgBox Error: & Err.Description, vbCritical, ERROR 連接發生錯誤End Sub3、OPC的標簽讀寫對OPC標簽的讀可以通過ItemIDsValue(4)組的DataChange事件來讀取。該事件有多個參數：其中NumItems是指標簽改變值的個數，ClientHandles是改變值的標簽索引，ItemValues為改變值的數據，具體的意思是ClientHandles（ii）的值是其對應的標簽數組的索引，其所指的OPC標簽的值在ItemValues(ii)中。一般來說，剛連接上時，該事件會把全部所要求訪問的OPC標簽值全部讀取過來（順序不一，要通過ClientHandles索引），此后只有數據發生變化時才會觸發該事件。也只會傳輸發生了變化的數據，沒有變化的數據不會出現在本事件的ItemValues中。讀取Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)Dim ii As LongFor ii = 1 To 4ItemIDsValue(ClientHandles(ii) = ItemValues(ii) 對改變的值讀入本數組Text5(ClientHandles(ii).Text = ItemIDsValue(ClientHandles(ii)Next iiEnd Sub寫入Private Sub Text8_Change(Index As Integer)Dim valuess(4) As VariantDim ii As LongFor ii = 1 To 4valuess(ii) = Text8(ii).TextMyOPCGroup.SyncWrite 4, ServerHandles, valuess, ErrorsNextEnd Sub對OPC的寫可以有同步與異步之分，對于大量的數據傳輸，異步是更佳的選擇，但對少量的數據傳輸，同步表現得更好。4、OPC連接斷開。OPC客戶端連接后要占用服務器資源，所以如果不需要使用OPC時，必須進行OPC連接斷開。斷開的程序相當簡單，釋放資源即可。如下：Private Sub Command2_Click()On Error Resume NextMyOPCGroupColl.RemoveAll - 釋放組和服務器對象 MyOPCServer.Disconnect - 與服務器斷開連接并且清除 Set MyOPCItemColl = NothingSet MyOPCGroup = NothingSet MyOPCGroupColl = NothingSet MyOPCServer = NothingOption1.Value = False 連接成功標志End Sub至此,用VB 6.0開發WinCC的OPC客戶機開發完畢。三、測試運行在使用中，通過串口讀取過來了值（例如溫控器的實際溫度）可以賦給VB的變量（例如Text8(0).text）。通過Private Sub Text8_Change(Index As Integer)函數，當串口讀取了值有變化時，在WinCC組態界面中實際值I/O域中，就可以看到其實際值了（Tag(1)）。也可通過WinCC的組態界面對設定值I/O域中進行參數設定，通過上述程序的Private Sub MyOPCGroup_DataChange (ByVal TransactionID As Long, ByVal NumItems As Lon