vb安装并添加OPC_ActiveX_dll的引用_vb例子

vb安装并添加OPC_ActiveX_dll的引用_vb例子 vb安装并添加安装并添加安装并添加安装并添加 OPC ActiveX dll的引用的引用的引用的引用,vb例例例例子子子子一般情况下，厂商在提供 OPC Server 支持的同时，也提供了 OPC Client 的测试软件，安装客户端软件后，就会安装好 OPC 客户端运行所需要的文件并注册 OPC 组件，如果没有客户端软件，可以按照 OPC 规范中方法自己手工安装并注册 OPC 组件。为了能够在 VB 中使用已经封装好的 ActiveX Dll，首先要在 VB 工程中添加对 Act iv...

vb安装并添加安装并添加安装并添加安装并添加 OPC ActiveX dll的引用的引用的引用的引用,vb例例例例子子子子一般情况下，厂商在提供 OPC Server 支持的同时，也提供了 OPC Client 的测试软件，安装客户端软件后，就会安装好 OPC 客户端运行所需要的文件并注册 OPC 组件，如果没有客户端软件，可以按照 OPC 规范中方法自己手工安装并注册 OPC 组件。为了能够在 VB 中使用已经封装好的 ActiveX Dll，首先要在 VB 工程中添加对 Act iveX Dll 的引用。OPC 组织提供的 ActiveX Dll 的引用名称为“OPC Automation 2.0”，不同 DCS 厂商提供的 dll，引用名称有所不同，如 Siemens 的 dll 引用名称是“Siemen s OPC DAAutomation 2.0”。 2.2.2 2.2.2 2.2.2 2.2.2 使用使用使用使用 OPCOPCOPCOPC 对象访问数对象访问数对象访问数对象访问数据据据据访问 OPC Server 时常用的 OPC 对象是 OPCServer、OPCGroups、OPCGroup、OPCIte m，利用对象的属性和方法就可以连接到 OPC Server，添加 OPCGroup，在 OPCGroup 中添加 OPCItem，通过 OPCGroup_DataChange 事件来获取实时数据。VB 编程及说明如下： Option Base 1 Private WithEvents MyOpcServer As OPCServer Private WithEvents MyOPCGroup As OPCGroup Private ClientHandles(2) As Long Private ServerHandles() As Long Private Errors() As Long Private ItemIDs(2) As String '存放变量名 Private Values() As Variant Private TagValue1 ,TagValue2 ‘我们所需要访问的数据 '连接 OPCServer 的函数 Private Function ConnectOPCServer（）as booleam Dim ProgID as string,ServerName as string ProgID = "OPCServer.WinCC" ‘ProgID 由 OPC Server 所规定 ServerName = "192.168.1.28" ‘OPCServer 的主机名称或者 IP Set MyOpcServer = New OPCServer ‘创建新的 OPCServer 实体 MyOpcServer.Connect ProgID, ServerName ‘用 Connect 方法连接 OPC 服务器，如果连接不成功将会出错，程序中在这里还应该增加容错处理 Set MyOPCGroup = MyOpcServer.OPCGroups.Add("MyGroup1") ‘创建新的 OPCGroup 的实体 MyOPCGroup.IsSubscribed = True ItmeIDs(1)=”TagName1” ‘设定所访问的 OPC 服务器上的变量名称 ClientHandles(1)=1 ‘设定 OPC 客户端的句柄 ItmeIDs(2)=”TagName2” ClientHandles(2)=2 MyOPCGroup.OPCItems.AddItems 2, ItemIDs, ClientHandles, ServerHa ndles, Errors ‘用 OPCItems 的 AddItems 方法添加 OPCItem ‘如果 OPCItem 没有添加成功则返回错误 For i=1 to 2 If errors(i)<>0 then ConnectOPCServer = False Exit Function End if Next ConnectOPCServer=True End Function ‘当 OPCGroup 中的 OPCItem 的值发生，将引发 DataChange 事件,返回变化数据的值等 Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByV al NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualit ies() As Long, TimeStamps() As Date) Dim i As Integer For i = 1 To NumItems Select Case ClientHandles(i) Case 1 TagValue1=ItemValues(i) ‘获取变化后的数据 Case 2 TagValue2=ItemValues(i) ‘获取变化后的数据 End Select Next End Sub 调用 ConnectOPCServer 函数，程序连接所指定 ProgID 和主机名称的 OPC Ser ver，并创建一个 OPCGroup，给 OPCGroup 中添加 OPCItem，当 OPCItem 的数据值发生变化时，就会引发 OPCGroup_DataChange 事件，返回变化后的数据值、TimeSt amp 和 Quality。

                    本文档为【vb安装并添加OPC_ActiveX_dll的引用_vb例子】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

vb安装并添加OPC_ActiveX_dll的引用_vb例子

你可能还喜欢