WinCC是西門子公司在自動(dòng)化領(lǐng)域采用最先進(jìn)的技術(shù)與微軟公司在共同開發(fā).doc

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