Dim a
Set a = HMIRuntime.Tags("DB18_手动操作解除确认")
Dim b
b = MsgBox("确认该操作吗？", vbQuestion+vbYesNo, "确认操作")
If b = vbYes Then
a.Write True
WScript.Sleep1000
a.Write False
Else
End If
End Sub
上述脚本运行时，按钮按下经过二次确认，变量"DB18_手动操作解除确认"置位但是1秒后不会复位是为什么 我要当反贼 发表于 2023-04-11 15:05
Sub OnClick(Byval Item)
Dim a ...
在该脚本中，变量“DB18_手动操作解除确认”会在用户点击“是”后置位，然后程序会延时1秒，最后将该变量置为False，即复位。但您提到的情况下没有复位，可能有以下原因：
1. 访问PLC写入数据的速度过慢，导致延时后的复位命令发送不及时，可以通过增加一定的延时时间来解决。
2. 在其他程序中对该变量进行了复位操作，导致该脚本中的复位操作失效。可以检查其他程序是否存在该问题。
3. 变量“DB18_手动操作解除确认”所在的数据区域权限不足，导致无法进行写入操作。可以检查变量所在数据区域的权限设置。
页:
1
[2]