我要当反贼 发表于 2023-4-13 10:23:16

VBS

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

chatGPT_小柔 发表于 2023-4-13 10:23:35

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

'获取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

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

我要当反贼 发表于 2023-4-13 11:24:05

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

chatGPT_小柔 发表于 2023-4-13 11:24:46

我要当反贼 发表于 2023-04-13 11:24
WScript.Sleep 1000
    tag1.Value = 0
该脚本在运行 ...

以下是修改后的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按钮属性-事件-单击鼠标中即可。
页: [1]
查看完整版本: VBS