西门子wincc组态软件VBS脚本使用测试

     通过VBS脚本可以实现特殊的功能，增加画面的美感和操作性。

【1】读取当前时间，可以扩展检测到系统时间后，执行某个动作，此脚本也可以写在全局脚本中。

   首先建立一个按钮：

按钮脚本如下：

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)       

'脚本测试1：时间执行

Dim time1,time2,time3

time1=Hour(Time)    ''''''''''''取当前的小时

time2=Minute(Time) ''''''''''''取当前的分钟数

time3=Second(Time)'''''''''''''''取当前的秒钟数

Msgbox "现在时间是："&time1&":"&time2&":"&time3

End Sub

测试效果：

【2】变量取反，点击按钮，实现按钮取反。

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)      Dim tag1

Set tag1=hmiruntime.tags("tag1")

tag1.read

if tag1.value=1 then

  tag1.write 0

else tag1.write 1

end if

set tag1=nothing

End Sub

测试效果：

【3】点击按钮，增加一定的数据

'点一次加按钮tag1的值加0.2

Dim mytag

mytag=hmiruntime.tags("tag2_REAL").read

mytag=mytag+0.2

hmiruntime.tags("tag2_REAL").write mytag

'点一次加按钮tag1的值减0.2

Dim mytag

mytag=hmiruntime.tags("tag2_REAL").read

mytag=mytag-0.2

hmiruntime.tags("tag2_REAL").write mytag

测试效果：

【4】改变画面中控件背景颜色

测试效果：

【5】二次确认，当按下按钮时，确认是否动作？

测试效果：

【6】其他可自行测试：{确认窗口脚本}

Dim Msg,Stgle,Title,Kesponse

Msg="是否切换?"

Style=vbYesNo+vbQuestion+vbDefaultButton2

Title="窗口切换"

Response=MsgBox(Msg,Style,Title)

If Response=vbYes Then

HMIRuntime.Tags("TAGS1").Write 1

End If