VB与西门子OPC通信注解

1、VB与西门子S7300的OPC通信一、通过STEP7软件建立一个新项目OPC,在项目中添加SIMATIC 300站和一个PC 站，其中PLC站中第四个槽安装的CP343模块。PC站的第一个槽 为OPC SERVER ,第三个槽为 IE GENERAL，然后在NETPRO下配置PLC和PC站的网络连接：（注意：是在PC站上新建的网络连接，连接类型选的S7连接）二、通过station configurator软件 配置本机的PC站（要和STEP7中配置的相同），然后把PLC和PC站都下载下去（注意：下载PC站的时候要把S7ONLINE （STEP7）-；PC internal(local)）。三、

2、打开OPC Scout,（Start；SIMATIC；SIMATICNet；OPC Scout）， 双击&ldquo；OPCSimaticNet&rdquo；在随之弹出的&ldquo；ADD Group&rdquo；对话框中输入组名，本例命名为&ldquo；OPC&rdquo；。点击OK 确认 ；双击已添加的连接组（OPC），即弹出&ldquo；OPC Navigator&rdquo；对话框，此窗口中显示所有的连接协议。双击&ldquo；S7&rdquo；，在PC Station 组态NetPro 中所建的连接名会被显示（S7connection_1）。双击此连接，即可出现有可能被访问的对象树

3、（objects tree），在PLCCPU 中已存在的DB 块也会出现以上完成的OPC SERVER部分的配置。四、用VB编写了OPC客户端应用程序。主要程序代码如下:在VB中引在VB中还要引用 siemens opc daautomation 2.0(1) 连接OPC服务器Dim WithEvents MyOPCServer As OPCServer 定义服务器对象变量MyOPCServerDim WithEvents MyOPCGroupAs OPCGroup 定义OPC组对象变量MyOPCGroupSet MyOPCServer = New OPCServerMyOPCServer.C

4、onnect OPC.SimaticNET 连接SIMATICNET 的OPC服务器(2) 添加OPC组对象Set MyOPCGroup=MyOPCServer.OPCGroups.Add(Group1)添加OPC组对象MyOPCGroup.IsSubscribed= True设置该组数据为后台刷新MyOPCGroup.IsActive = True设置该组为激活状态MyOPCGroup.UpdateRate=1000设置数据刷新时间为1000(3) 添加数据项Dim abItemIDs() As String项标识符Dim abClientHandles() As Long客户端句柄Dim

5、abServerHandles() As Long服务器端句柄Dim abErrors() As LongDim i As LongItemCount=3abItemIDs(1) = S7:S7 connection_1IB1abItemIDs(2) = S7:S7 connection_1MB1abItemIDs(3) = S7:S7 connection_1QB1for i=1 t0 3abClientHandles(i) = i给客户端句柄赋值NextMyOPCGroup.OPCItems.AddItems ItemCount, abItemIDs, abClientHandles, a

6、bServerHandles, abErrors添加数据项操作(4) 同步数据读写OPC数据存取有同步方式和异步方式两种。异步读写数据复杂，需要与事件结合使用，与同步相比速度慢但准确性高。同步读写数据简单，直接使用OPCItem的方法即可。Dim One As OPCItemDim Index As LongIndex为标签顺序号Dim OneRead As StringDim Xie As StringSet One = MyOPCGroup.OPCItems(Index)One.Read OPCCacheOneRead = One.Value读数据MyOPCGroup.SyncWrite

7、ItemCount, ServerHandles, valuess, Errors同步写数据MyOPCGroup.SyncRead OPCCache, ItemCount, ServerHandles, ReadValue, Errors同步读数据One.Write (Xie)写数据若只读取数据，可以使用DataChange事件，当控制器中所要访问的数据一旦发生改变时将会触发该事件，并将该数据自动读到TxtValue文本框。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 i As LongFor i = 1 To NumItemstxtValue(ClientHandles(i) = ItemValues(i)获取项的值txtTime(ClientHandles(i) = TimeStamps(i)获取项的时间戳txtQuantity(ClientHandles(i)=GetQualityString(Qualities(i)获取项的品