用西门子wincc7.5的vbs脚本编写一段程序 要求: 1:按下启动按钮,把变量二给到变量一。 2:然后延时time1分钟后,把变量三给到变量一。 3:然后再延时time2分钟后,把0kw给到变量一。 4:按下停止按钮,时间都清0,变量一里的值也为0。 5:如果下次再按启动按钮,能把上面的循环一遍。 6:变量一、变量二、time1、time2在画面能设定。
时间: 2024-03-16 22:46:35 浏览: 19
以下是实现上述要求的VBScript代码示例:
```
Sub Button_Start_Click()
Dim var1, var2, var3, time1, time2
var1 = HMIRuntime.Tags("Tag_Var1").Read
var2 = HMIRuntime.Tags("Tag_Var2").Read
time1 = HMIRuntime.Tags("Tag_Time1").Read
time2 = HMIRuntime.Tags("Tag_Time2").Read
'将变量二的值赋给变量一
HMIRuntime.Tags("Tag_Var1").Write var2
'延时time1分钟
HMIRuntime.Wait time1 * 60 * 1000
'将变量三的值赋给变量一
var3 = HMIRuntime.Tags("Tag_Var3").Read
HMIRuntime.Tags("Tag_Var1").Write var3
'延时time2分钟
HMIRuntime.Wait time2 * 60 * 1000
'将0赋给变量一
HMIRuntime.Tags("Tag_Var1").Write 0
End Sub
Sub Button_Stop_Click()
'清零变量一、time1、time2
HMIRuntime.Tags("Tag_Var1").Write 0
HMIRuntime.Tags("Tag_Time1").Write 0
HMIRuntime.Tags("Tag_Time2").Write 0
End Sub
```
在上述代码中,`Button_Start_Click()`和`Button_Stop_Click()`分别为启动和停止按钮的点击事件处理程序。具体实现中,需要将“Tag_Var1”、“Tag_Var2”、“Tag_Var3”、“Tag_Time1”、“Tag_Time2”这五个变量在画面中进行设置,通过`HMIRuntime.Tags().Read`和`HMIRuntime.Tags().Write`方法来读取和更改变量的值。其中,`HMIRuntime.Wait()`方法用于进行延时操作,参数为毫秒数。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)