DIView SCADA VBS 分步延时处理程序

效果动画演示

 

实现步骤

第一步：创建一个“窗口0”，并参考下图进行设计

第二步：变量字典==>添加变量

第三步： 给“窗口0”==>事件==>添加“运行时”事件

事件脚本如下：主要是用来进行倒计时处理的

If CInt(Var.计时器)>0 then
    Var.计时器=Var.计时器-1
End If

 第四步：添加条件程序，主要用来符合条件后进行代码逻辑处理的；

条件“脚本内容”如下

    Var.接地执行结果=False
    Var.绝缘执行结果=False
    Var.交耐执行结果=False
    Var.直耐执行结果=False
    Var.功率执行结果=False
    
    t = Timer()  '确定当前的时间
    Do
    If (Timer() - t) >3 then '判断当前时间减去上一次时间是否大于3秒
        Exit Do    
    End If
    Loop
    Var.接地执行结果=True
    t = Timer()  '确定当前的时间
    Do
    If (Timer() - t) >3 then '判断当前时间减去上一次时间是否大于3秒
        Exit Do    
    End If
    Loop
    
    Var.绝缘执行结果=True
    t = Timer()  '确定当前的时间
    Do
    If (Timer() - t) >3 then '判断当前时间减去上一次时间是否大于3秒
        Exit Do    
    End If
    Loop
    
    Var.交耐执行结果=True
    
    t = Timer()  '确定当前的时间
    Do
    If (Timer() - t) >6 then '判断当前时间减去上一次时间是否大于3秒
        Exit Do    
    End If
    Loop
    
    Var.直耐执行结果=True
    t = Timer()  '确定当前的时间
    Do
    If (Timer() - t) >3 then '判断当前时间减去上一次时间是否大于3秒
        Exit Do    
    End If
    Loop
    
    Var.功率执行结果=True
    
    Var.计时器=0