FactoryTalkViewSiteEdition的VBA基本应用.doc

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 列名数据类型描述TimeChar(20)时间字符串ValueSmallint标签值2.对数据库连接与操作