時間鎖，我在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停止工作。還要制作一個宏執(zhí)行命令。（可以用PLC控制功能來執(zhí)行）用RB20 執(zhí)行宏運行---在屏幕開始第一個畫面里制作一個隱形的位狀態(tài)設定，工作條件設為 窗口打開時執(zhí)行即可。(經(jīng)過實際上機測試，此程序還存在邏輯關(guān)系沒有完善，不能達到要求)，此例只是引導一下，還望大家一起完善時間鎖程序！