VB與西門子OPC通信注解

1、VB與西門子 S7300 的 OPC通信一、通過 STEP7軟件建立一個新項(xiàng)目 OPC,在項(xiàng)目中添加 SIMATIC 300 站和一個 PC 站，其中 PLC站中第四個槽安裝的 CP343模塊。 PC站的第一個槽 為 OPC SERVER 第,三個槽為 IE GENERAL，然后在 NETPRO下配置 PLC和 PC站的網(wǎng)絡(luò)連接：（注意：是在 PC站上新建的網(wǎng)絡(luò)連接，連接類型選的 S7 連接）二、通過 station configurator軟件 配置本機(jī)的 PC站（要和 STEP7中配置的相同），然后把 PLC和 PC站都下載下去 （注意：下載 PC站的時候要把 S7ONLINE（ STEP

2、7） -> ；PC internal(local)）。三、打開 OPC Scout,（ Start> ；SIMATIC>；SIMATICNet>；OPC Scout）， 雙擊 &ldquo ； OPCSimaticNet&rdquo ；在隨之彈出的 &ldquo ；ADD Group&rdquo；對話框中輸入組名，本例命名為 &ldquo； OPC&rdquo；。點(diǎn)擊 OK 確認(rèn) ；雙擊已添加的連接組（ OPC），即彈出 &ldquo ；OPC Navigator&rdquo ；對話框，此窗口中顯示 所有的

3、連接協(xié)議。雙擊 &ldquo ；S7&rdquo；，在 PC Station 組態(tài) NetPro 中所建的連接名會被顯示（ S7 connection_1 ）。雙擊此連接， 即可出現(xiàn)有可能被訪問的對象樹 （objects tree ），在 PLCCPU 中已存在的 DB 塊也會出現(xiàn)以上完成的OPC SERVER部分的配置。四、用 VB編寫了 OPC客戶端應(yīng)用程序。主要程序代碼如下:在 VB中引在 VB中還要引用 siemens opc daautomation 2.0(1) 連接 OPC服務(wù)器Dim WithEvents MyOPCServerAs OPCServer 定義服務(wù)

4、器對象變量 MyOPCServer Dim WithEvents MyOPCGroup As OPCGroup定義 OPC組對象變量 MyOPCGroup Set MyOPCServer = New OPCServerMyOPCServer.Connect " OPC.SimaticNET"連接 SIMATICNET的 OPC服務(wù)器(2) 添加 OPC組對象添加 OPC組對象MyOPCGroup.IsSubscribed= True設(shè)置該組數(shù)據(jù)為后臺刷新MyOPCGroup.IsActive = True設(shè)置該組為激活狀態(tài)精選文庫MyOPCGroup.UpdateRate=

5、1000設(shè)置數(shù)據(jù)刷新時間為1000(3)添加數(shù)據(jù)項(xiàng)Dim abItemIDs() As String項(xiàng)標(biāo)識符Dim abClientHandles() As Long客戶端句柄Dim abServerHandles() As Long服務(wù)器端句柄Dim abErrors() As LongDim i As LongItemCount=3abItemIDs(1) = " S7:S7 connection_1IB1"abItemIDs(2) = " S7:S7 connection_1MB1"abItemIDs(3) = " S7:S7 conne

6、ction_1QB1"for i=1 t0 3abClientHandles(i) = i給客戶端句柄賦值NextabServerHandles, abErrors添加數(shù)據(jù)項(xiàng)操作(4) 同步數(shù)據(jù)讀寫OPC數(shù)據(jù)存取有同步方式和異步方式兩種。異步讀寫數(shù)據(jù)復(fù)雜，需要與事件結(jié)合使用，與同步相比速度慢但準(zhǔn)確性高。同步讀寫數(shù)據(jù)簡單，直接使用 OPCItem 的方法即可。Dim One As OPCItemDim Index As Long Index 為標(biāo)簽順序號Dim OneRead As StringDim Xie As StringSet One = MyOPCGroup.OPCItems

7、(Index)One.Read OPCCacheOneRead = One.Value讀數(shù)據(jù)MyOPCGroup.SyncWrite ItemCount, ServerHandles, valuess, Errors同步寫數(shù)據(jù)MyOPCGroup.SyncRead OPCCache, ItemCount, ServerHandles, ReadValue, Errors 同步讀數(shù)據(jù)One.Write (Xie)寫數(shù)據(jù)-2精選文庫若只讀取數(shù)據(jù)，可以使用DataChange事件，當(dāng)控制器中所要訪問的數(shù)據(jù)一旦發(fā)生改變時將會觸發(fā)該事件，并將該數(shù)據(jù)自動讀到TxtValue 文本框。Private Sub

8、 MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant,Qualities() As Long, TimeStamps() As Date)自動刷新數(shù)據(jù)Dim i As LongFor i = 1 To NumItemstxtValue(ClientHandles(i) = ItemValues(i)獲取項(xiàng)的值txtTime(ClientHandles(i) = TimeStamps(i)獲取項(xiàng)的時間戳txtQuantity(ClientHandles(i)=GetQ