vbs脚本（vbscript 脚本编程教程）

大家好，我是小智，智能制造之家号主（需要进群交流的，请点击文末的扩展链接加入）~

前面的文章中，我们已经从TIA Portal WinCC,到 WinCC Classic,再到WinCC OA的架构，选型到与MES通讯，工业数据桥，虚拟化等通通聊了一遍（具体见文末）

但是不论是使用TIA Portal WinCC 、WinCC Classic还是WinCC OA,脚本调试、各种通讯总是必不可少，还记得在前面的文章：

自动化早已不是原来的自动化，为何你却还是原来的你

我就提醒大家多学习编程和网络相关知识，其实随着IT与OT的不断融合，即使你还是做的自动化，但是却与IT的界限越来越模糊，自动化的你们正在走进IT的同时，IT也正在向我们走来，今天的自动化，早已经不是单纯自动化~

今天我们就来聊一聊TIA Portal WinCC VBS脚本调试的一些使用技巧，如果对前面推出的其它文章感兴趣的请参看文末往期推荐~

1、为什么一个由内部变量的 “数值改变” 事件触发的脚本不被执行

如果使用一个内部变量调用另外一个内部变量，以此，例如被调用的变量又去执行一个脚本（比如，根据变量变化），此时一个安全机制会阻止这个功能被执行。

此安全功能是为了阻止连续的执行。

例如

在内部变量 “HMI_Tag_01” 属性下，“更改数值”事件去置位内部变量 “HMI_Tag_02” 中的某一位。

同时内部变量 “HMI_Tag_02” 的“更改数值”事件下又调用一个脚本。

结果：这个脚本不会被执行。

解决办法

使用和控制器通讯的外部变量。请注意，通过使用外部变量可以规避上述安全机制。在项目运行时可能会产生问题。

2、如何在一个脚本中访问数组中的元素？

对数组元素的访问是通过数组的名称和数组中由括号分隔的数组索引来实现的：“SmartTags(“Array Name”)(array index) ”

例如

访问数组 “DB10_HMI_Data” 的第二个元素 ：

Dim Tag_01 ‘Internal script tag

Tag_01 = SmartTags(“DB10_HMI_Data”)(2)

注意

使用下面语法访问字符串类型数组中的元素：

Dim Tag_01 ‘Internal script tag

Tag_01 = SmartTags(“DB10_HMI_Data[2]”)

例如

通过一个循环描述数组 “DM10_HMI_Data” 的第一个元素至第十一个元素

Dim Tag_01

For Tag_01=0 to 10

SmartTags(“DB10_HMI_Data”)(Tag_01) = 5

Next

局部脚本的数组（该数组仅在此脚本中可用）可以使用同样的方式查询，对于多维数组，各个维度通过一个逗号分隔开。

例如

访问二维数组变量 “HMI_Data” 没有连接控制器。

Dim HMI_Data(10,10)

Dim Tag_01

Tag_01 = HMI_Data(0, 5)

注意

当使用控制器连接的数组元素时，推荐在脚本开始前将他们赋值给脚本内部变量，然后再使用内部变量进行其他工作。结束脚本前，将内部变量赋值给数组元素。

3、如何在控制器和脚本之间有效的赋值过程变量数组？

从控制器到一个脚本赋值，过程变量数组需要在一个循环中将数组元素一个一个赋值，参考示例。然而，也可以通过一个简单的指令把局部脚本的数组的值赋给过程变量数组。

例如

把控制器的数组 “CPU_Array” 的值赋给内部数组 “local_array” 和 把内部数组 “local_array” 的值赋给控制器的数组 “CPU_Array”

Dim local_array(10)

Dim i

…

‘ Copy from the CPU to the script:

For i = 0 To 9

local_array(i) = SmartTags(“CPU_Array”)(i)

Next

…

‘ Copy back to the CPU:

SmartTags(“CPU_Array”) = local_array

注意

使用数组可能导致较高的通信负载和数据不一致。

4、如何访问动态库 ( “动态链接库 “，DLLs）?

WinCC Comfort 和 Advanced 不能访问 DLLs。

WinCC Professional在用户定义的C函数里可以调用DLL函数 (DLL = Dynamic Link Library) 。

5、如何用VBS脚本确定鼠标当前的位置?

为了读取当前鼠标的位置，需要访问操作系统的 API (Application Programming Interface) 。

VBS 不支持通过 DLLs 访问操作系统的 API 。

6、为什么不能在脚本里使用 “ MsgBox ” 命令?

“MsgBox” 命令不能用于 WinCC Comfort 和 WinCC Advanced 版本是由于安全的原因。 “MsgBox”的弹出显示可能会覆盖掉元素操作，比如：阻止设备的快速操作。此外，消息框可能会阻止脚本的进一步执行。

解决办法

可以使用系统函数 ShowSystemAlarm。

7、如何在一个脚本中使用十六进制符号给变量赋值?

在脚本编辑器中把字符组合 “&h” 作为个十六进制常数的标识。

例如

Dim Tag_01

Tag_01 = &h45E ‘ Corresponds to the decimal value “1118”

8、如何在脚本里显示或隐藏各个层级？

使用层是 WinCC (TIA Portal) 开发系统的一个功能。层只能在这里组态及显示隐藏。

这个功能在操作面板或 PC 的运行系统中不可用。所以不能用脚本显示或隐藏“层”。

解决办法

在 “ 属性>动画>可见性 ” 组态变量，根据变量值控制相关对象的显示或隐藏。

9、如何在脚本中合并字符串?

可以使用 “ & ” 来合并字符串：

例如

将 “Tag_Text_01”, “Tag_Text_02” 和 “Tag_Text_03” 合并成新字符串 “Tag_01”

Dim Tag_01, Tag_Text_01, Tag_Text_02, Tag_Text_03

Tag_01 = Tag_Text_01 & Tag_Text_02 & Tag_Text_03

注意

VB函数 CStr (Expression) 将相应的表达式转换为“字符串”类型。 这样在连接字符串转换之前可以避免运行时出现错误。

10、在脚本中如何在单独的字符串之间插入一个通配符（空格）？

为了在两个文本之间插入任意数量的空格，可以使用两个引号 ” “。“空格”的数量取决于两个引号间的距离 ” “。

连接下一个字符需要再次使用连接操作 “&”。

例如

将字符串 “Tag_Text_01”, “Tag_Text_02” 和 “Tag_Text_03” 还有空格组合成一个新的字符串 “Tag_01”

Dim Tag_01, Tag_Text_01, Tag_Text_02, Tag_Text_03

Tag_01 = Tag_Text_01 & ” ” & Tag_Text_02 & ” ” & Tag_Text_03

11、如何组态带返回值和参数的脚本？

脚本类型必须是 “ Function ” 才可以有返回值。所以，请在TIA Portal 中添加新 VB 函数的 “Properties > General > Settings” 类型的下拉列表框中选择 “Function” 。

在 “ Parameter ” 表格中您以创建脚本变量用来将内部变量或控制器变量传入在脚本需要的时候。

组态函数返回值，在脚本中为脚本的名称分配表达式。

例如

组态函数类型,。按下面所示，在TIA Portal 组态名称为 “ VBFunction_1 ” 脚本函数的参数和返回值：

图. 01

例如，

脚本在按钮的 “ Click ” 的事件中被使用。

图. 02

在脚本中使用 “HMI_Tag_1″ 的值赋给”Parameter_1″ ，”HMI_Tag_2″ 的值赋给”Parameter_2” ，必须有一行脚本定义了返回值。

例如

下面的例子的返回值是两个传入参数的乘积：

VB_Function_1= Parameter_1 * Parameter_2

“VB_Function_1″ 是这个函数的名字，在执行这个脚本后，”HMI_Tag_3” 获得这个函数的返回值是 “HMI_Tag_1” * “HMI_Tag_2” 。

注意

定义一个 “by reference” 的参数 ，这意味着作为 “By_Ref ” 参数，仅对脚本中定义的和引用的变量产生影响，对 HMI 内部变量或者控制器变量不起作用。

12、什么能导致“最大嵌套深度到达”消息被触发?

如果太多的脚本在结束前调用自己或者调用其他脚本，会引起到达最大嵌套深度消息。

解决方法

检查脚本过程的处理，如有必要，减少脚本的嵌套。

13、如何确定当前画面的编号和画面名称？

通过预定义 VB 函数 “HmiRuntime.BaseScreenName ” 的返回值提供了当前画面的名字。

注意

不能使用脚本通过相关画面的“属性”直接读取画面名称/编号。

也可以使用“画面编号”区域指针。

14、如何在脚本中使用多路复用变量？

多路复用变量不能用在脚本中。

15、如何在脚本里使用 HMI UDT 变量？

可以使用“SmartTags” 访问数据类型是HMI UDT的变量元素(用户定义的数据类型)。

例如

访问 UDT 变量 ” Recipe ” 的元素 “x”

SmartTags(“Recipe.x”)

注意

这适用于在项目中已创建库类型 HMI UDT的实例。不能直接访问库类型。

16、如何在脚本中保存变量值当他们在两个脚本之间调用？

在两个脚本间相互传递数据需要使用全局变量。全局变量可以是 HMI 或者 PLC 变量。

脚本中定义的变量总是在脚本结束时删除。

17、如何通过脚本修改文本域的内容？

文本域的文本在运行时可以通过修改相应的对象属性而改变。

例如

在画面 “MachineData” 中，将文本 “NewText” 分配给 文本域 “Text_Field_01” ：

Dim obj

Set obj = HmiRuntime.Screens(“MachineData”).ScreenItems(“Text_Field_01”)

obj.Text = “NewText”

注意

文本的变化只是“暂时”的。当屏幕更改后这个被修改后的文本将被组态的文本覆盖。

18、如何在脚本中从密码列表或用户视图中读取用户密码？

由于安全原因这个功能在 WinCC (TIA Portal) 中不能实现。

19、如何通过脚本关闭 WinCC 运行系统和关闭PC和面板？

通过系统函数 “StopRuntime” 可以关闭 WinCC 运行系统和操作系统 。

可以通过修改 “StopRuntime” 函数的参数方式选择仅关闭运行系统或者将运行系统和操作系统都关闭。

ParameterMeaning

0 = hmiStopRuntime

Ends on the Runtime

1 = hmiStopRuntimeAndOperationSystem

Ends both the Runtime and the OS

例如

StopRuntime hmiStopRuntime

StopRuntime 1

注意

Windows-based 面板的操作系统不能通过这种方式关闭。

20、如何在脚本中访问一个画面或者模板的对象？

组态 “Runtime” 对象的属性 “ ActiveScreen ”，可以找到画面上组态对象的名字和修改相关的属性。

例如

把激活屏幕中的对象 “Circle_01” 设置为不显示

HmiRuntime.ActiveScreen.ScreenItems(“Circle_01”).Visible=False

注意

在画面中被组态对象必须有唯一的名字。对象的属性修改仅是暂时的，当屏幕更改后视图使用组态时的配置。

21、如何在运行时选择一个画面对象(例如输入输出域)？

获得一个对象的焦点通过 “Activate” 功能，文本输入会直接自动指向那个对象。

例如

获得屏幕 “Screen_1” 的 输入/输出域 “IOField_1” 的焦点

HMIRuntime.Screens(“Screen_1”).ScreenItems(“IOField_1”).Activate

来源：自动化工程与技术