FactoryTalk View Site Edition的VBA基本应用

第一节 VBA中标签的读取和写入

    本例要达到的目标是通过FactoryTalk View Site Edition(以下简称SE)的VBA来访问PLC中的下位标签,并实现标签的读写。

1.准备工作

打开SE,选择应用程序类型(本例是Site Edition Network),新建应用程序(本例取名:test),之后在test下新建area(本例取名:area1),在area下新建HMI Server(本例取名:HMI1),以下为完成之后截图:

        启动RSLogix Emulate 5000,并添加仿真CPU。启动RSLogix 5000编程软件,新建工程,与仿真PLC建立通讯(Topic名称为:TestTopic),并编写简单测试程序并下载到仿真PLC。

在SE中新建OPC Data Server

 

新建一个画面(名为:TestDispaly),并画上一个圆形和一个普通按钮

将圆形与下位Tag2标签关联,并设置颜色改变;右键点击按钮,点击Property Panel,出现属性框,将Name项改为TestBtn、ExposeToVBA项改为VBA Control如图:

 

2.编写代码并测试

右键点击按钮,单击VBA Code(或按Alt+F11)弹出Visual Basic编辑器,如图

添加如下代码:

On Error Resume Next

Dim TgGObj As TagGroup                             ‘标签组对象

Dim TagObj As Tag                                   ‘标签对象

Set TgGObj = CreateTagGroup(Me.AreaName)             ‘创建标签组实例

TgGObj.Add ("[TestTopic]Tag1")                        ‘向标签组中添加标签

Set TagObj = TgGObj.Item("[TestTopic]Tag1")             ‘创建标签实例

If TagObj.Value = 1 Then                              ‘读取标签的值如果标签的值为1

 TagObj.Value = 0                                    ’则将0写入标签,

Else                                                ‘反之则将1写入标签

 TagObj.Value = 1

End If

Set TagObj = Nothing

Set TgGObj = Nothing

标签组是一组标签的集合体。在SE的VBA中,我们要想引用标签,需要先创建标签组,然后将本地标签或远程标签加入标签组,之后通过集合访问的方式引用标签组中的标签。值得注意的是,SE中的标签类型并不是变量而是对象,也就是说我们需要用标签对象而不是普通变量去引用标签组中的单个标签。

测试画面,可以看到每次点击按钮,圆形的填充颜色都会发生变化,同时在RSLogix 5000中也能观察到标签状态的变化。如图:

在SE中:

在RSLogix 5000中:

第二节 运用VBA来简单处理运行历史数据

       本例的操作过程是在SE中新建本地内存标签(标签名:TestTag),使其值随时间(秒)自增,之后每按下一次存储按钮,实时的标签值和对应时间戳都会被写入数据库,然后我们可以在数据库中查看结果。

1.准备工作

        在SE中新建内存(memory)标签TestTag,类型为analog。

        在第上一节中的test应用程序中新建一个画面,并取名为TestSimpleData,并画出两个字符串显示控件和三个按钮。如图:

属性对应关系:

属性对应关系:

表2.1

类型

控件名

是否暴露在VBA中

所连标签

标题

按钮

CreateTag

Create Tag Object

按钮

DropTag

Drop Tag Object

按钮

SaveData

Save

字符串显示

StringDisplay1

System\DateAndTimeString

字符串显示

StringDisplay2

TestTag

在MS SQL Server中新建test数据库,之后在test下新建simple表。其中各列属性如下:

表2.2

列名

数据类型

描述

Time

Char(20)

时间字符串

Value

Smallint

标签值

2.对数据库连接与操作

    ADO是微软公司提供的一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLE DB的一个中间层,允许开发人员编写访问数据的代码而不用关心数据库是如何实现的,而只用关心到数据库的连接。本例将使用ADO来实现数据库相关操作。

    在VBA编辑器中选择工具之后选择引用

弹出如下对话框

在左侧的列表中找到Microsoft ActiveX Data Objects *.*(其中*.*号代表版本号,选择最新版本即可)。这样我们就可以在之后的编程中引用ADO对象了。

3.编写代码并测试

在VBA编辑器中输入以下代码:

Private OTag As Tag

Private OtagG As TagGroup

Private Conn As New ADODB.Connection                           '创建ADO的Connection实例

Private Rs As New ADODB.Recordset                                  '创建ADO的Recordset实例

Private Sub CreateTag_Released()

Set OtagG = CreateTagGroup(Me.AreaName)

OtagG.Add ("TestTag")

Set OTag = OtagG.Item(1)

Conn.ConnectionString = "provider=sqloledb;" & _

"Data Source=127.0.0.1;Initial Catalog=test;" & _                '指定数据库主机地址、数据库名

"User Id=sa;Password=0;"                                                     '指定用户名、密码

Conn.Open                                                                              '连接数据库

Rs.CursorLocation = adUseServer

Rs.CursorType = adOpenStatic

Rs.LockType = adLockOptimistic

Rs.Open "select * from simple", Conn                                   '从数据库返回数据集

End Sub

Private Sub SaveData_Released()

Rs.AddNew                                                                            '在集中插入一条记录

Rs.Fields.Item(0).Value = Date$ & " " & Time$

Rs.Fields.Item(1).Value = OTag.Value

Rs.Update                                                                               '将数据写入数据库

End Sub

Private Sub StringDisplay1_Change()

On Error Resume Next

If Not OtagG Is Nothing Then _

OTag.Value = OTag.Value + 1                                '当StringDisplay1发生改变时TestTag自增1

End Sub

Private Sub DropTag_Released()

Rs.Close

Conn.Close

OTag.Value = 0

Set OtagG = Nothing

End Sub

测试运行。先按下Create Tag Object按钮创建对象为接下来的操作做准备,然后随机几次按下Save按钮将不同时刻的TestTag值连同时间写入数据库,之后按Drop Tag Object按钮关闭各对象释放连接和内存空间。下图为程序运行截图:

下图为在数据库中simple表中的结果。可以看到运行数据已经成功写入数据表。

第三节 具有普遍性的历史数据处理方式

    本例在RSLogix 5000中编写了一个简单交通灯演示程序。我们要达到的目的是将交通灯在工作过程中各个灯的亮灭情况记录下来,存入MS SQL Server中,并通过Excel提取存储在MS SQL Server中的数据。

1.准备工作

    在RSLinx中建立Topic,名称为“TL”,使其指向仿真PLC。

        本下位程序中提供的标签及相关描述:

表3.1

标签名(布尔型)

描述

GreenLight1Range

南北向交通灯绿灯长亮范围

GreenLight2Range

东西向交通灯绿灯长亮范围

GreenLight1FlashRange

南北向交通灯绿灯闪烁范围

GreenLight2FlashRange

东西向交通灯绿灯闪烁范围

GreenLight

南北向交通灯绿灯长亮状态,与上位图形关联

GreenLight2

东西向交通灯绿灯长亮状态,与上位图形关联

YellowLight

南北向交通灯黄灯长亮状态,与上位图形关联

YellowLight2

东西向交通灯黄灯长亮状态,与上位图形关联

RedLight

南北向交通灯红灯长亮状态,与上位图形关联

RedLight2

东西向交通灯红灯长亮状态,与上位图形关联

DataUpdate

数据写入触发

注:DataUpdate标签的作用:为了减轻上位以太网的网络负载压力,本程序设计为实时采集数据,但每隔较长周期,向数据库中批量写入数据而不是实时写入。

   在MS SQL Server中的test数据库中新建数据表tutorial,其中各列属性如下:

表3.2

列名

数据类型

描述

ID

SmallInt

自增列

Time

DateTime

时间戳

GreenLight1

Char

GreenLight2

Char

YellowLight1

Char

YellowLight2

Char

RedLight1

Char

RedLight2

Char

在第一节中的test应用程序中新建一个画面,并取名为TestDatabase。依照下图画出各图形:

参照表一,将各代表交通灯的圆形与相应下位标签对应。在Property Panel中将Start Scan按钮的Name改为StartScBtn,ExposeToVBA改为VBA Control;将Stop Scan按钮的Name改为StopScBtn,ExposeToVBA改为VBA Control。

由于运行时下位标签每秒钟变化一次,为了使上位画面的显示正常,我们需要将上位画面的刷新率(默认为1秒)加快。右键点击画面空白处,在弹出的下拉菜单上选择Display Settings,然后将Maximum Tag Update Rate改为小于1的值,例如0.25。

2.事件驱动

    我们知道Visual Basic是事件驱动的编程机制,其中的控件都是通过事件触发而运行事件代码的。在SE的VBA中,提供了对标签对象和标签组对象的事件支持。我们先来做一个简单的实验。

新建一个画面,取名为VBA_Event。画出两个按钮和一个文本控件(text)并将他们的ExposeToVBA属性设为VBA Control。如图:

之后打开VBA编辑器,将下面的代码加入

Private WithEvents OTagG As TagGroup                      '声明标签组对象,并使能对象的事件

Private OTag As Tag

Private Sub Button1_Released()

Set OTagG = CreateTagGroup(Me.AreaName)

OTagG.Add ("system\DateAndTimeString")

Set OTag = OTagG.Item("system\DateAndTimeString")

OTagG.Active = True                                                     '开启对标签组对象的事件监视

End Sub

Private Sub OTagG_Change(ByVal TagNames As IGOMStringList)

Text1.Caption = OTag.Value                          '标签组中标签的值发生改变时将调用该过程

End Sub

Private Sub Button2_Released()

OTagG.Active = False

Set OTagG = Nothing

End Sub

        测试运行,可以看到当点击On Scan按钮后,Text控件将显示当前的日期时间,并且它是动态变化的。这是因为时间日期的变化会触发标签组对象的Change事件并调用相应过程来更新Text控件的显示值,从而我们观察到Text控件实时地显示日期时间。

3.编写代码并测试

在RSLogix 5000中编写下位程序,之后将程序下载到仿真PLC中。

在SE中的打开VBA编辑器,引用Microsoft ActiveX Data Objects,之后添加如下代码:

Private WithEvents TgG As TagGroup

Private WithEvents TgG2 As TagGroup

Private Conn As New ADODB.Connection

Private Rs As New ADODB.Recordset

Private TempStr(6) As String

Private Sub StartScBtn_Released()

Conn.ConnectionString = "provider=sqloledb;" & _

"Data Source=127.0.0.1;Initial Catalog=test;" & _

"User Id=sa;Password=0;"

Conn.Open

Rs.CursorLocation = adUseServer

Rs.CursorType = adOpenStatic

Rs.LockType = adLockBatchOptimistic

Rs.Open Source:="tutorial", ActiveConnection:=Conn, options:=adCmdTable

Set TgG = CreateTagGroup(Me.AreaName)

Set TgG2 = CreateTagGroup(Me.AreaName)

TgG.Add ("[TL]GreenLight1Range")

TgG.Add ("[TL]GreenLight2Range")

TgG.Add ("[TL]GreenLight1FlashRange")

TgG.Add ("[TL]GreenLight2FlashRange")

TgG.Add ("[TL]YellowLight")

TgG.Add ("[TL]YellowLight2")

TgG.Add ("[TL]RedLight")

TgG.Add ("[TL]RedLight2")

TgG2.Add ("[TL]DataUpdate")

TgG.Active = True

TgG2.Active = True

End Sub

Private Sub StopScBtn_Released()

Set TgG = Nothing

Set TgG2 = Nothing

Rs.Close

Conn.Close

End Sub

Private Sub TgG_Change(ByVal TagNames As IGOMStringList)

On Error Resume Next

TempStr(0) = Date$ & " " & Time$

If TgG.Item(1).Value = 1 Then

 TempStr(1) = "On"

ElseIf TgG.Item(3).Value = 1 Then

 TempStr(1) = "Flash"

ElseIf TgG.Item(1).Value = 0 And TgG.Item(3).Value = 0 Then

 TempStr(1) = "Off"

End If

If TgG.Item(2).Value = 1 Then

 TempStr(2) = "On"

ElseIf TgG.Item(4).Value = 1 Then

 TempStr(2) = "Flash"

ElseIf TgG.Item(2).Value = 0 And TgG.Item(4).Value = 0 Then

 TempStr(2) = "Off"

End If

Dim i As Integer

For i = 5 To TgG.Count

 If TgG.Item(i).Value = 1 Then

  TempStr(i - 2) = "On"

 Else

  TempStr(i - 2) = "Off"

 End If

Next

Rs.AddNew

For i = 0 To 6

 Rs.Fields(i + 1).Value = TempStr(i)

Next

End Sub

Private Sub TgG2_Change(ByVal TagNames As IGOMStringList)

Rs.UpdateBatch

End Sub

说明:TgG2集合中只引用了一个标签[TL]DataUpdate,此标签组发生变化(也就是[TL]DataUpdate发生变化)会导致运行数据批量写入数据库的动作发生。在下位中该标签被设计为每隔30秒发生一次翻转。也就是说以30秒为周期,在这30秒中发生的灯的变化情况都会被临时地记录在本地,当一个周期结束时,这些临时的记录会被统一发送回数据库,更新数据表,完成真正的写入动作。

        运行中点击Start Scan按钮,实时数据就会被采集下来并写入数据库。当点击Stop Scan按钮则停止数据采集。

 

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:/a/687876.html

如若内容造成侵权/违法违规/事实不符,请联系我们进行投诉反馈qq邮箱809451989@qq.com,一经查实,立即删除!

相关文章

NSSCTF-Web题目7

目录 [SWPUCTF 2022 新生赛]ez_rce 1、题目 2、知识点 3、思路 ​编辑 [MoeCTF 2022]baby_file 1、题目 2、知识点 3、思路 [SWPUCTF 2022 新生赛]ez_rce 1、题目 2、知识点 ThinkPHP V5 框架漏洞的利用,命令执行 由于ThinkPHP5在处理控制器传参时&#xff…

SpringBoot项目启动后访问网页显示“Please sign in“

SpringBoot启动类代码如下 SpringBoot项目启动后访问网页显示"Please sign in",如图 这是一个安全拦截页面,即SpringSecurity认证授权页面,因为SecurityAutoConfiguration是Spring Boot提供的安全自动配置类,也就是说它…

vue3+vite插件开发

插件开发目的:由于我司使用的前端技术栈为vue3tsvite2.Xaxios,在前端代码框架设计初期,做了把axios挂载到proxy对象上的操作,具体可见我的另一篇文章vue3TS自动化封装全局api_ts 封装腾讯位置api-CSDN博客 现在可以实现vue2的类似this.$api.xxx去调用接口,但是vue2源码使用的是…

Mac 使用Docker安装Elasticsearch、Kibana 、ik分词器、head

安装ElasticSearch 通过docker安装es docker pull elasticsearch:7.8.1 在本地创建elasticsearch.yml文件 mkdir /Users/ky/Documents/learn/es/elasticsearch.yml 编辑yml文件内容 http: host: 0.0.0.0 xpack.security.enabled: false xpack.security.enrollment.enabled: t…

DNF手游攻略:主C职业推荐,云手机强力辅助!

在《地下城与勇士》手游中,你是否厌倦了重复刷图和无休止的手动操作?利用VMOS云手机,你可以一键解决这些烦恼,实现自动打怪、一机多开,让游戏变得更加轻松愉快。下面我们将介绍如何使用VMOS云手机,以及推荐…

图像的IO操作

代码: import cv2 as cvimport matplotlib.pyplot as plt​#读取图像img cv.imread("../data/images/zidane.jpg")​#显示图像#2.1 OpenCVcv.imshow("dili",img)cv.waitKey(0)cv.destroyAllWindows()​#2.2 matplotlibplt.imshow(img[:,:,::-…

什么是阴道菌群CST分型,不同的分型代表哪些女性健康问题

谷禾健康 人体内的各个部位,如皮肤、口腔、肠道和阴道等,都是微生物的重要栖息地,这些微生物与人体健康紧密相关,并能反映人体的疾病状态。这些部位因受基因、环境和生活方式等影响,具有独特的菌群特征。 女性生殖系统…

【css3】png图片实现动态动画

.border_style {width: 400px;height: 400px;background-color: black;margin: auto;}keyframes sprite-animation {0% {background-position: 0 0;}100% {background-position: 0 -2064px;/* 假设每个图像的宽度为100px */}}.wrj_box {width: 86px;height: 86px;background-im…

《广告数据定量分析》读书笔记之统计原理2

3.相关分析:描述的是两个数值变量间关系的强度。(两个数值型变量之间的关系) (1)图表表示:散点图 (2)衡量关系强度指标:相关系数r。 (r的取值为-1到 1&…

基础概念解析:SOCKS5代理究竟是什么?SOCKS5代理ip使用场景有哪些?

在当今数字化时代,网络安全和隐私保护已成为我们日常生活中不可忽视的问题。随着网络攻击手段的日益复杂,如何安全地访问互联网资源成为了一个亟待解决的问题。SOCKS5代理作为一种先进的网络协议,为我们提供了解决这一问题的有效方案。 本文…

从品牌的角度看老字号五芳斋如何“粽”出年轻味?

端午划着龙舟的浆又来到了我们身边,咸鸭蛋和粽子已经裹上精美的包装在货架上等待着它们的“有缘人”,其实长期以来,说起吃粽子除了“甜咸口”的辩论赛,貌似在产品上却并没有太多的创新,但近几年随着消费市场的不断创新…

【电气学习六】HART仪表与HART信号

【电气学习六】HART仪表与HART信号 学习使人快乐 文章目录 【电气学习六】HART仪表与HART信号前言一、HART仪表是什么?二、HART协议1.什么是HART协议?2.HART协议的工作原理3.HART协议的特点4.HART协议的命令格式5.无源信号与有源信号的定义6.如何采集无源…

自定义模块设置示例

CSDN 针对部分博主开放了自定义模块设置&#xff0c;我也是简单的使用了一下这个功能&#xff0c;感觉很不错&#xff0c;下面是我编写的参考代码大家可以复制下面代码来使自己的博客主页多样化。 <div class"pmusic"><iframe frameborder"no" bo…

美琳莱卡:创新消费模式引领新零售时代

公司成立时间与定位 美琳莱卡自创立之初,便以独特的视角和前瞻性的战略定位,立足于消费市场的变革前沿。公司成立于2024年,正值全球数字化浪潮蓬勃兴起,消费升级趋势日益明显之际。美琳莱卡敏锐地捕捉到这一时代机遇,将自身定位为创新消费模式的引领者,致力于通过线上线下高度…

大模型在信用卡行业的应用探索

2022年11月&#xff0c;OpenAI发布ChatGPT3.5&#xff0c;迅速引起各界广泛关注&#xff0c;引发了人工智能领域新一轮发展热潮。ChatGPT作为一款基于人工智能技术的大语言模型&#xff08;LLMs&#xff09;&#xff0c;在文本生成、对话理解、多领域知识覆盖等方面具有卓越表现…

servlet实现图片上传和下载

图片上传 前端 后端 protected void dopost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException {Part filePart request.getPart("file"); // 获取上传的文件String fileName filePart.getSubmittedFileName(); …

[word] word文档字体间距怎么调整? #其他#经验分享

word文档字体间距怎么调整&#xff1f; 调整word文档字体间距的方法&#xff1a; 打开一个预先写好文字的文档。选中所有文字&#xff0c;点击字体右下角的“更多选项”。 在弹出的“字体”对话框中进入“字符间距”选项卡&#xff0c;在“间距”选项中即可设置字体间距。 设…

【机器学习】训练GNN图神经网络模型进行节点分类

1. 引言 1.1 图神经网络GNN概述 图神经网络&#xff08;Graph Neural Network&#xff0c;GNN&#xff09;是一种专门用于处理图结构数据的神经网络方法。它起源于2005年&#xff0c;当时Gori等人首次提出了GNN的概念&#xff0c;用于学习图中的节点特征以及它们之间的关系。…

mac安装nigix且配置 vue/springboot项目(本地/服务器)

一、mac安装Nigix 1. 查看是否存在 nginx 执行brew search nginx 命令查询要安装的软件是否存在 brew search nginx 2. 安装nginx brew install nginx 3. 查看版本 nginx -v 4. 查看信息 查看ngxin下载的位置以及nginx配置文件存放路径等信息 brew info nginx 下载的存…

Linux基础2-基本指令4(cp,mv,cat,tac)

上篇文章我们说到了rmdir,rm,man,echo.重定向等知识。 Linux基础1-基本指令3-CSDN博客 本文继续梳理其他基础指令 1.本章重点 1.使用cp命令拷贝文件 2.使用mv命令移动文件 3.使用cat&#xff0c;tac查看小文本文件 2.cp命令 在linux中使用cp命令来拷贝粘贴文件 cp src(原文…