Код:
VAR
TON1 : TON;
Trig1 : R_TRIG;
B1 : BYTE;
Var1 : BYTE;
END_VAR
B1 := B1 + 1;
TON1(IN := NOT TON1.Q, PT := T#5000MS);
Trig1(CLK := TON1.Q);
IF Trig1.Q THEN
Var1 := B1;
END_IF
Адаптируйте под свои нужды и "заверните" в функциональный блок указанный выше код, который потом используйте в CFC.