我也湊熱鬧，步進寫的，很傳統，一定不是最簡的，但是容易讀懂。

圖是全部程序  已驗證  

真有不會滴

大神都不屑回復

IF bButton AND NOT ButtonOld  THEN
    wStep:=10;
END_IF;

CASE wStep OF
10:
     qLight1:=TRUE;
   IF TON1.Q THEN
     qLight1:=FALSE;
     wStep:=20;
   END_IF;
20:
  IF TON2.Q THEN
     wStep:=30;
  END_IF;
30:
     qLight2:=TRUE;
     IF TON3.Q THEN
       qLight2:=FALSE;
        wStep:=40;
     END_IF;
  40:
    IF TON4.Q THEN
        wStep:=50;
    END_IF;
  50:
    wCount:=wCount+1;
    IF wCount>=3 THEN
      wStep:=0;
     ELSE
       wStep:=10;
    END_IF;  
END_CASE;    




TON1(IN:= qLight1 ,PT:= T#3S);    
TON2(IN:= NOT qLight1 ,PT:= T#2S);

TON3(IN:= qLight2 ,PT:= T#3S);    
TON4(IN:= NOT qLight2 ,PT:= T#2S);
ButtonOld:=bButton;

SFC比較方便，編寫了一個，有附件，SFC塊縮小了，可以放大。



12.rar (514 K) 下载次数:2

搞辣么復雜干哈。。。。。