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中的应用队伍中。