没有合适的资源?快使用搜索试试~ 我知道了~
首页VB编写OPC客户端访问WINCC例程
资源详情
资源评论
资源推荐

这是别人写的一个用 VB 编写 OPC 客户端访问 WINCC 例程,自己分
析一下吧.
WinCC 在安装时提供了 OPC 的客户端控件:SiemensOPCDAAuto
mation2.0(SOPCDAAuto.dll),这个控件就是我们在 VB 中要用到的
控件,我们也可以使用通用的 OPC 客户端控件:OPCAutomation2
.0.
在 WINCC 的帮助中,有 SiemensOPCDAAutomation2.0 使用的
简略帮助,但说得不很详细,我在使用中碰到不少问题,现一并写
出来,与大家共享。
一、OPC 的连接
先在“引用”将近OSiemensOPCDAAutomation2.0 加入,然后开
始定义全局变量。在本程序中,我使用了两个 OPC 组进行 OPC 访
问,所以定义了全局变量。我们要首先定义 OPC 服务类型与计算机
结点名。定义 OPC 组与 OPC 标签组。并定义 OPC 的标签数组与
值数,注意,值数组一定要设为 Variant。
'OPC 处理:只对 WINCC
ConstServerName="OPCServer.WinCC"‘OPC 的类型

ConstNodeName="GUK"‘结点名,即计
算机名
‘DimNodeNameAsString
DimWithEventsMyOPCServerAsOPCServer‘OPC 服务OOOOO
DimMyOPCGroupCollAsOPCGroups‘
DimWithEventsMyOPCGroupOutAsOPCGroup‘OPC 组 , 本
程序用两个组进行 OPC 连接
DimWithEventsMyOPCGroupInAsOPCGroup
DimMyOPCItemCollInAsOPCItems‘OPC 标签组
DimMyOPCItemCollOutAsOPCItems
DimServerHandlesIn()AsLong‘句柄

DimServerHandlesOut()AsLong
DimErrorsIn()AsLong‘错误句柄
DimErrorsOut()AsLong
DimWatchDataReadItem(100)AsString'记录 OPC 的标签
DimWatchDataReadValue(100)AsVariant'存放 OPC 的值
DimWatchDataWriteItem(100)AsString'记录 OPC 的标签
DimWatchDataWriteValue(100)AsVariant'存放 OPC 的值
在定义所有变量后,我们就要进行 OPC 连接了,要进行 OPC 连
接 之 前 , 先 要 配 置 要 访 问 的 OPC 标 签 名 , 我 们
WatchDataReadItem、WatchDataWriteItem 中加入相应的标签名,

注意:这两个数组必须由 1 开始,不能由 0 开始。O
配置好标签后就要进行 OPC 连接了。如下面子程序:
1、OOClientHandles1 先配置名柄索引,这将在读取 OPC 标签的值
时可要用到
2、OO生成 OPC 对象,
3、OO进行 OPC 标签连接
至此:OPC 连接就成功了,我们可以对 OPC 进行读与写的操作
了。
'---------------------------------------------------------------------
'SubStartClient()
'目的:连接至 OPC_server,创建组和添加条目
'---------------------------------------------------------------------
剩余16页未读,继续阅读
















ycyiduli
- 粉丝: 2
- 资源: 4
上传资源 快速赚钱
我的内容管理 收起
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助

会员权益专享
安全验证
文档复制为VIP权益,开通VIP直接复制

评论3