1 / 3
文档名称:

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

格式:docx   大小:46KB   页数:3页
下载后只包含 1 个 DOCX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

文档介绍: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数据存取服务器.docx

上传人:碎碎念的折木 2022/6/19 文件大小:46 KB

下载得到文件列表

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

相关文档