640?wx_fmt=png&from=appmsg.jpg

//鍙橀噺澹版槑

VAR_INPUT CONSTANT

  Mode : BOOL;

  Timeout : TIME;

END_VAR

VAR_INPUT

  IN,SET,RST : BOOL;

END_VAR

VAR_OUTPUT

  Q : BOOL;

END_VAR

VAR

  Ton1 : TON;

  Edge: BOOL;

END_VAR





// 濡傛灉Ton1.Q锛屽垯灏哘璁剧疆涓篎ALSE  

IF Ton1.Q THEN 

  Q := FALSE; 

END_IF;



// 濡傛灉RST锛堝�嶄綅锛変俊鍙蜂负1锛屽垯灏哘璁剧疆涓篎ALSE

IF RST THEN

  Q := FALSE;

ELSIF SET THEN// 濡傛灉SET淇″彿涓�1锛屽垯灏哘璁剧疆涓篢RUE    

  Q := TRUE;

  

//濡傛灉IN涓�1涓擡dge涓�0锛屽垯鏍规嵁Mode鐨勫�兼潵鍒囨崲鎴栬�剧疆Q鐨勫�� 

ELSIF IN AND NOT Edge THEN  

  IF Mode THEN 

    q := NOT Q; 

  ELSE 

    q := TRUE; 

  END_IF;

END_IF;



// 鏇存柊Edge鍙橀噺鐨勫�间负IN鐨勫綋鍓嶅�硷紝鐢ㄤ簬涓嬩竴娆℃��娴婭N鐨勫彉鍖�

Edge := IN;

// 濡傛灉timeout鐨勫�煎ぇ浜�0绉掞紙鍗筹紝濡傛灉璁剧疆浜嗚秴鏃舵椂闂达級锛屽垯璋冪敤Ton1鍑芥暟锛屽皢Q鐨勫�间綔涓鸿緭鍏ワ紝骞惰�剧疆瓒呮椂鏃堕棿  

IF Timeout > T#0S THEN 

  Ton1(in := Q, PT := Timeout); 

END_IF;