FactoryTalk View Site Edition的VBA基本应用_精品.docVIP

FactoryTalk View Site Edition的VBA基本应用 技术部 徐晟昕 第一节 在VBA中标签的读取和写入 本例要达到的目标是通过FactoryTalk View Site Edition（以下简称SE）的VBA来访问PLC中的下位标签，并实现标签的读写。 1.准备工作 打开SE，选择应用程序类型（本例是Site Edition Network）） 启动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的一个中间层允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心到数据库的连接。Priva