时间锁，我在8000里做的很成功！


macro_command main()

int on,a,Y,M,D,y1,m1,d1,m8034
short i,e,t

GetData(Y, "本机 触摸屏", LW, 100, 1)                        
GetData(y1, "本机 触摸屏", LW, 9022, 1)            
GetData(M, "本机 触摸屏", LW, 200, 1)            
GetData(m1, "本机 触摸屏", LW, 9021, 1)            
GetData(D, "本机 触摸屏", LW, 300, 1)            
GetData(d1, "本机 触摸屏", LW, 9020, 1)                  
SetData(Y, "本机 触摸屏", LW, 101, 1)            
SetData(M, "本机 触摸屏", LW, 201, 1)            
SetData(D, "本机 触摸屏", LW, 301, 1)                  
SetData(y1, "本机 触摸屏", LW, 103, 1)            
SetData(m1, "本机 触摸屏", LW, 203, 1)              
SetData(d1, "本机 触摸屏", LW, 303, 1)                
  
i=Y-y1
e=M-m1
t=D-d1
if i<0 then
     on=0
      m8034=1
     else
        if e<0 then
           on=0
             m8034=1
           else
           if t<=0 then
             on=0
               m8034=1
             else
             on=1
             m8034=0
            end if
           end if
          end if
SetData(i, "本机 触摸屏", LW, 102, 1)            
SetData(on, "本机 触摸屏", LB, 100, 1)            
SetData(e, "本机 触摸屏", LW, 202, 1)            
SetData(t, "本机 触摸屏", LW_Bit, 302, 1)              
SetData(m8034, "MITSUBISHI FX0n/FX2", M, 8034, 1)            

end macro_command


设定屏里的年月日时间限制后，当当前时间到达设定时间后，强制三菱PLCM8034置位。PLC停止工作。还要制作一个宏执行命令。（可以用PLC控制功能来执行）用RB20 执行宏运行---在屏幕开始第一个画面里制作一个隐形的位状态设定，工作条件设为 窗口打开时执行即可。(经过实际上机测试，此程序还存在逻辑关系没有完善，不能达到要求)，此例只是引导一下，还望大家一起完善时间锁程序！