WinCC监控系统.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
* 第7章 WinCC监控系统 */150 WinCC支持的OPC服务器规范 1. OPC DA OPC数据访问(OPC DA)是管理实时数据的规范,WinCC V6.x及以上版本的WinCC OPC DA服务器符合OPC Data Access 2.0和1.0a规范。 2. OPC HAD OPC历史数据访问(OPC HAD)是访问归档数据的规范。该规范是OPC数据访问规范的扩充。WinCC V6.x及以上版本的WinCC OPC HDA服务器符合OPC Historical Data Access 1.1规范。 3. OPC AE OPC报警和事件(OPC AE)是访问过程报警和事件的规范。WinCC V 6.x及以上版本的WinCC OPC AE服务器符合OPC Alarm Events 1.0规范。 * 第7章 WinCC监控系统 */150 WinCC作为OPC DA服务器 WinCC作为OPC DA服务器,外部应用程序可以访问WinCC项目中的所有数据。这些应用程序可以和WinCC运行在同一台计算机上,也可以运行在网络中的另外一台计算机上。例如,通过OPC DA,可以在Microsoft Excel表中访问WinCC中的变量。 * 第7章 WinCC监控系统 */150 在Microsoft Excel中创建OPC DA客户机 打开Visual Basic编辑器 * 第7章 WinCC监控系统 */150 在Microsoft Excel中创建OPC DA客户机 引用Siemens OPC DAAutomation 2.0规范 * 第7章 WinCC监控系统 */150 在Microsoft Excel中创建OPC DA客户机 编写Visual Basic脚本 * 第7章 WinCC监控系统 */150 脚本 Option Explicit Option Base 1 Const ServerName = OPCServer.WinCC Dim WithEvents MyOPCServer As OPCServer Dim WithEvents MyOPCGroup As OPCGroup Dim MyOPCGroupColl As OPCGroups Dim MyOPCItemColl As OPCItems Dim MyOPCItems As OPCItems Dim MyOPCItem As OPCItem Dim ClientHandles(4) As Long Dim ServerHandles() As Long Dim Values(4) As Variant Dim Errors() As Long Dim ItemIDs(4) As String Dim GroupName As String Dim NodeName As String Dim CellName_R(4) As String Dim i As Integer * 第7章 WinCC监控系统 */150 脚本 ----------------------------------------------------------------------------- Sub StartClient() 目的:连接到OPC_server,创建组Group并添加条目Item ----------------------------------------------------------------------------- Sub StartClient() ClientHandles(1) = 1 ClientHandles(2) = 2 GroupName = MyGroup NodeName = Range(C2).Value ItemIDs(1) = Range(A4).Value ItemIDs(2) = Range(A5).Value ItemIDs(3) = Range(D4).Value ItemIDs(4) = Range(D5).Value Set MyOPCServer = New OPCServer MyOPCServer.Connect ServerName, NodeName Set MyOPCGroupColl = MyOPCServer.OPCGroups MyOPCGroupColl.DefaultGroupIsActive = True Set MyOPCGroup = MyOPCGroupColl.Add(GroupName) Set MyOPCItemColl = MyOPCGroup.OPCIte

文档评论(0)

克拉钻 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档