恭喜,你发布的帖子
发布于 2015-09-14 10:58:06
1楼
全局脚本~,定时扫描,1秒,timer1计时变量,timeren,是不是运行计时变量
Dim i
if 0=HMIRuntime.tags("timeren").read then
Set i=HMIRuntime.tags("timer1")
If 3600<i.read Then '3600秒,即1个小时
Msgbox "时间到" ‘弹出对话框
HMIRuntime.tags("timeren").write 1 '之后停止计时防止继续弹出对话框
Else
i.write i.read+1
End If
end if
请填写推广理由:
分享
只看
楼主