FactoryTalkViewSiteEdition的VBA基本应用文档.docxVIP

FactoryTalkViewSiteEdition的VBA基本应用 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，并画出两个字符串显示控件和三个按钮。如图： 属性对应关系： 类型控件名是否暴露在 VBA中 所连标签标题 按钮CreateTag 是Create Tag Object 按钮DropTag 是Drop Tag Object 按钮SaveData 是Save 字符串 显示 StringDisplay1 是System\DateAndTimeString 字符串 显示 StringDisplay2 否TestTag 表2.2 列名数据类型描述 Time Char(20) 时间字符串 Value Smallint 标签值 ADO是微软公司提供的一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLE DB的一个中间层，允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心到数据库的连接。本例将使用ADO来实现数据库相关操作。 在VBA编辑器中选择工具之后选择引用 弹出如下对话框 在左侧的列表中找到Microsoft ActiveX Data Objects *.*（其中*.*号代表版本号，选择最新版本即可）。这样我们就可以在之后的编程中引用ADO对象了。 3.编写代码并测试 在VBA编辑器中输入以下代码： Private OTag As Tag Private Ota