VB脚本在西门子KP1200HMI中的应用

在西门子的一些比较高端的hmi支持脚本功能，对于一些没有封装好的功能我们可以自己开发，今天给大家分享两个利用脚本在KP1200中实现功能。

1. 多语言循环切换功能。

首先在运行系统设置中，语言和字体选项中添加语言：

新建变量，并将该变量添加事件“数值更改”---设置语言---语言

这里的变量就与第一张图片中的“顺序列”里的数值建立起来了联系。

编写脚本子程序Sub：

Sub scr_language（）

If SmartTags（“DB_Visualization_vi_Language”） 》= 2 Then SmartTags（“DB_Visualization_vi_Language”） = -1

SmartTags（“DB_Visualization_vi_Language”）= SmartTags（“DB_Visualization_vi_Language”） + 1

End If

End Sub

最后一步，给按键F12添加事件，找到这个函数：scr_language（）

至此就完成了利用VB脚本实现多语言循环切换的功能。

2. 循环正向计数功能。

典型的应用是对于不同种类的介质进行选择，

编写脚本函数Function：

Function scr_change_value_limited（ByRef value， ByRef limit_min， ByRef limit_max， ByRef decrement）

value =value+decrement

If value 《 limit_min Then

value =limit_max

Else

If value 》 limit_max Then

value =limit_min

End If

End If

scr_change_value_limited =value

End Function

新建按钮，添加按下事件，选择函数scr_change_value_limited：

两个例子中用到了Function 和 Sub ，两者最大的区别是带不带返回值，希望能够抛砖引玉，使更多的人加入到一起学习VB脚本在HMI中的应用队伍中。

责任编辑：lq