工业以太网通讯简介剖析.pptVIP

* 开发OPC应用程序的步骤 建立一个VB工程； 在工程中注册OPC的DLL 选择菜单Project/References； 得到References窗口； 在Available References列表中选中OPC Automation 2.0； 单击OK按钮。 * 开发OPC应用程序的步骤 Option Base 1 Option Explicit 建立OPC对象-声明变量 Dim WithEvents objServer As OPCServer Dim objGroups As OPCGroups Dim WithEvents objTestGrp As OPCGroup Dim objItems As OPCItems Dim lServerHandles() As Long * 开发OPC应用程序的步骤 定义变量 Dim lTransID_Rd As Long Dim lCancelID_Rd As Long Dim lTransID_Wt As Long Dim lCancelID_Wt As Long * 开发OPC应用程序的步骤 连接OPC服务器： Sub Connect(strProgID As String, Optional strNode As String) If objServer Is Nothing Then 建立一个OPC服务器对象 Set objServer = New OPCServer End If If objServer.ServerState = OPCDisconnected Then 连接OPC服务器 objServer.Connect strProgID, strNode End If * 开发OPC应用程序的步骤 If objGroups Is Nothing Then 建立一个OPC组集合 Set objGroups = objServer.OPCGroups End If If objTestGrp Is Nothing Then 添加一个OPC组 Set objTestGrp = objGroups.Add(TestGrp) End If End Sub * 开发OPC应用程序的步骤 添加OPC标签： Sub AddItem() Dim strItemIDs(8) As String Dim lClientHandles(8) As Long Dim lErrors() As Long Dim I As Integer If objTestGrp Is Nothing Then Exit Sub End If * 开发OPC应用程序的步骤 If Not objItems Is Nothing Then If objItems.Count 0 Then Exit Sub End If End If 设置组活动状态 If DataChgChk.Value = vbChecked Then objTestGrp.IsActive = True Else objTestGrp.IsActive = False End If * 开发OPC应用程序的步骤 启动组非同期通知 objTestGrp.IsSubscribed = True 建立OPC项集合 Set objItems = objTestGrp.OPCItems ‘ 生成从TAG1到TAG8的项标识符 For I = 1 To 8 strItemIDs(I) = USTB_AUTO.Simulation0000 I lClientHandles(I) = I Next 添加OPC项 Call objItems.AddItems(8, strItemIDs, _ lClientHandles, lServerHandles, lErrors) End Sub * 开发OPC应用程序的步骤 断开OPC服务器： Sub Disconnect() Dim lErrors() As Long If Not objItems Is Nothing Then If objItems.Count 0 Then