下载此文档

使用VB连接OPC数据存取服务器.docx


文档分类:IT计算机 | 页数:约3页 举报非法文档有奖
1/3
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/3 下载此文档
文档列表 文档介绍
32 便川VB连接OPC数据存取效劳器
〔工业把握计算机>2003年16卷第6期 31
T 1994-2021 China Academic Journal Electronic Publishing House. All ri OPCBrowse
图1 「I动化对象的层次构造
而如图2所示。左边是一个名为IstSrv的列表框,列出 计算机上已注册的全部OPC效劳器;右边是一个名为 Ivltem的ListView控件,显示添加的数据项及相应的 三个属性。卜面依据五个步骤表达该程•序的美谜技术。
图2 opc n动化接口客户端程序
1〕 安装opc自动化接11效劳。保证机器的系统目 录卜.冇文件OPCDAAuto.dll,从OPC基金会的网站 | 网址: opcfoundation.org〕可下载。在 VB6 环境 中,按“Project”的「菜单”References...“后,弹出对话 框,选中其中的“OPC Automation 20’项,再按确定, 这样才能使用自动化接口。
2〕 列出所冇的OPC效劳器。
Dim gelServer As OPCServer ‘ 定义 OPC 效劳器对象 Dim infoSvr As Variant
Dim i As Integer
Set getServer = New OPCServer ”创立实例 infoSvr = getServer.GetOPCServers ”取得机器上所已 注册效劳器的名字
32 便川VB连接OPC数据存取效劳器
〔工业把握计算机>2003年16卷第6期 33
T 1994-2021 China Academic Journal Electronic Publishing House. All rights reserved, :// cnki.net
T 1994-2021 C hina Academic Journal Electronic Publishing House. All rights reserved, :// cnki.net
For i = LBound(infoSvr) To UBound(infoSvr) IstSrv.Addltem infoSvr(i)”添加进列表框 IstSrv
Next i
Set getServer = Nothing ”删除该实例.留意-个程序只 允许一个实例
连接某OPC效劳器,并创立-个组对象的实 例。在图2所示的窗体内定义以下模块变量,后面的 步骤也需要用到。在Visual Basic中,引发大事的对 象叫做大事源,为了处理大事源所引发的大事,用关 键字WithEvents声明对象类的变量。
Option Base 1 ”OPC的数组基于1,建议在毎个模块都漆加• Dim WithEvents daAuloSvr As OPCServer
Dim WithEvents daGroups As OPCGroups Dim WithEvents daGroup As opcGroup Dim daltems As OPCItems
Dim daltem As OPCItem Public daBrowse As OPCBr

使用VB连接OPC数据存取服务器 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息