WINCC的一个小的练习

今天群里有一个哥们想在WINCC上做一个欢迎领导的横幅，我在WINCC上试验了一下还是挺容易的。
比如要显示“欢迎张三总经理莅临本公司指导工作！”
新建一个WINCC项目welcome，新建一个8位字符的内部变量。新建一个VBS动作脚本，周期1s，动作脚本如下：
Option Explicit
Function action
Dim s,txt
Set txt=HMIRuntime.Tags('txt')
s= Second(Now()) Mod 31
Select Case s
Case 0
txt.write ''
Case 1
txt.write ' 欢'
Case 2
txt.write ' 欢迎'
Case 3
txt.write ' 欢迎张'
Case 4
txt.write ' 欢迎张三'
Case 5
txt.write '