code(* read system time *)
tx := DWORD_TO_TIME(T_PLC_MS());

(* Rising edge detection *)
fb1 (CLK:=in);

(* count the number of clicks *)
IF fb1.Q = TRUE AND (tx - last) < return_time THEN
    last := tx;
    state := state + 1;
    IF (state > max_steps)  THEN
        state := 0;
    END_IF
ELSIF ((tx - last) > return_time AND fb1.Q = TRUE   )  THEN
    state := 0;
    last := tx;
ELSIF reset = TRUE THEN
    state := 0;
    last := tx;
END_IF

FUNCTION_BLOCK MyCounter
VAR_INPUT
    xIn:        BOOL;   // Count on rising edge of Input
    diDelayMS:  DINT;   // Delay before reset in miliseconds
    xReset:     BOOL;   // Reset the counter to zero on input
END_VAR
VAR_OUTPUT
    diCount:    DINT;   // Internal Counter
END_VAR
VAR
    tDelay:     TON;    // Timer
    MyTrig:     R_TRIG; // Trigger for input
END_VAR

=============================================

// Rising Edge in the Input
MyTrig(CLK:= xIn);

IF MyTrig.Q THEN
    IF tDelay.Q THEN
        // If count is already 0 then we can make it 1
        IF diCount = 0 THEN
            diCount := 1;
        ELSE
            diCount := 0;
        END_IF

    ELSE
        diCount := diCount + 1;
    END_IF
END_IF

// Reset the count if xReset Input is set
IF xreset THEN
    diCount := 0;
END_IF

// The Timer to force counter to zero
// This is at the bottom so that it doesn't prevent counting
tDelay(IN:= NOT xIn, PT:= DINT_TO_TIME(diDelayMS));