用西门子wincc7.5的vbs脚本编写一段程序 要求: 1:按下启动按钮,把变量二给到变量一。 2:然后延时time1分钟后,把变量三给到变量一。 3:然后再延时time2分钟后,把0kw给到变量一。 4:按下停止按钮,时间都清0,变量一里的值也为0。 5:如果下次再按启动按钮,能把上面的循环一遍。 6:变量一、变量二、time1、time2在画面能设定。
时间: 2024-04-05 18:33:15 浏览: 119
以下是实现你要求的 VBScript 代码:
```
' 定义变量
Dim var1, var2, var3, time1, time2
Dim startTime, stopTime, elapsed
' 初始化变量
var1 = 0
var2 = 0
var3 = 0
time1 = 1
time2 = 2
' 定义事件处理程序
Sub StartButton_Click()
' 将变量二赋值给变量一
var1 = var2
' 启动计时器
startTime = Now()
' 延时 time1 分钟
Do While True
elapsed = DateDiff("n", startTime, Now())
If elapsed >= time1 Then
Exit Do
End If
Sleep(1000)
Loop
' 将变量三赋值给变量一
var1 = var3
' 启动计时器
startTime = Now()
' 延时 time2 分钟
Do While True
elapsed = DateDiff("n", startTime, Now())
If elapsed >= time2 Then
Exit Do
End If
Sleep(1000)
Loop
' 将 0kw 赋值给变量一
var1 = 0
End Sub
Sub StopButton_Click()
' 清零变量和时间
var1 = 0
startTime = 0
stopTime = 0
End Sub
' 辅助函数:暂停执行一定时间
Sub Sleep(milliseconds)
Dim waitTime
waitTime = Now() + (milliseconds / 1000 / 86400)
Do While Now() < waitTime
DoEvents
Loop
End Sub
```
以上代码假设你已经在 WinCC 中创建了两个按钮(StartButton 和 StopButton)和四个变量(var1、var2、var3、time1、time2),并将 StartButton 的 Click 事件和 StopButton 的 Click 事件分别绑定到 StartButton_Click 和 StopButton_Click 事件处理程序。在画面中,你可以通过修改变量 var2、var3、time1 和 time2 的值来控制程序的行为。
阅读全文