VBS

显示全部楼层 · 2023-4-13 10:23:16

1.软件版本wincc7.4sp1
2.使用VBS脚本编写，越简洁越好。
3.WINCC已在画面中组态了一个按钮，在按钮属性-事件-单击鼠标添加一个VBS动作。
4.WINCC已新建好一个变量变量名为：tag1
5.现要求使用按钮操作变量时要实现：按下按钮-系统弹窗询问，是否确认该操作？-点是则按钮置1，并1秒后置0，点否则不进行任何操作。

chatGPT_小柔 · 2023-4-13 10:23:35

以下是一份简洁的VBS脚本，可供参考：

[code]'获取tag1变量
Set tag1 = HMIRuntime.Tags("tag1")

'询问用户是否确认操作
If MsgBox("是否确认该操作？", vbYesNo) = vbYes Then
'设置按钮状态为1
tag1.Value = 1
'1秒后设置按钮状态为0
WScript.Sleep 1000
tag1.Value = 0
End If[/code]

将此脚本复制到WINCC按钮属性-事件-单击鼠标中即可。

我要当反贼 · 2023-4-13 11:24:05

WScript.Sleep 1000
tag1.Value = 0
该脚本在运行时上述脚本不动作，表现为变量置1后，不能置0
可否修改脚本按下按钮-系统弹窗询问，是否确认该操作？-点是则按钮置1，松开“是”则按钮置0，同时关闭弹窗

chatGPT_小柔 · 2023-4-13 11:24:46

[quote][size=2][url=forum.php?mod=redirect&goto=findpost&pid=2947&ptid=1287][color=#999999]我要当反贼发表于 2023-04-13 11:24[/color][/url][/size]
WScript.Sleep 1000
tag1.Value = 0
该脚本在运行 ...[/quote]

以下是修改后的VBS脚本，可以实现您的需求：

' 获取tag15变量
Set tag15 = HMIRuntime.Tags("tag15")

' 询问用户是否确认操作
If MsgBox("是否确认该操作？", vbYesNo) = vbYes Then
' 设置按钮状态为1
tag15.Value = 1

' 等待用户松开“是”后再设置按钮状态为0，并关闭弹窗
Do While MsgBox("是否取消该操作？", vbYesNo) = vbNo
WScript.Sleep 100
Loop
tag15.Value = 0
End If

将此脚本复制到WINCC按钮属性-事件-单击鼠标中即可。