How can I set the correct resolution of On-delay Timer

The resolution is coded on 2 bits of S5Time data type

time base [bits]

00 -10ms

01 - 100ms

10 - 1s

11 - 10s

The timer setpoint is BCD coded 000 to 999.

Below is example of what to do - block which converts an int setpoint.

to open it

1. create symbolic name for blocks as shown below

2. create a new source and copy blocks to it.

3. compile source

4. blocks will create in the project.

given as s x 10 i.e. 123 = 12.3 seconds to S5Time.

//SYMBOLS

INT_S5TIME    FC    109    FC    109    Convert  Integer [0..32767 --> 0..3276.7s] to S5Time
S5TIME_INT    FC    110    FC    110    Function Converts S5 Time to Int in 100ms units

//BLOCKS [convert int-->S5Time and S5Time-->Int]

FUNCTION "INT_S5TIME" : S5TIME
TITLE =Converts S5Time to Time in range 0..3276.7 seconds
//Function Converts Time in Integer [0..32767 ==> 0..3276.7seconds] to S5Time
//In case of Error ENO=False and 0 is returned
VERSION : 0.1


VAR_INPUT
I_TIME : INT ;    //Time Value to be converted to S5Time
END_VAR
VAR_TEMP
Time_Value : INT ;    //Extracted Time Value [as Integer]
Time_Base : INT ;    //Extracted Time Base
END_VAR
BEGIN
NETWORK
TITLE =Select Time Base

L     0;
L     #I_TIME; // Time as Integer 0..32767 --> 0..3276.7s
<I    ;
JC    CNVT; // Jump to Convert if Time>=0
CLR   ; // Otherwise Clear ENO and finish
SAVE  ;
BE    ;

CNVT: L     99; // Limit for 10ms Time Base = 9.9seconds
TAK   ; // Toggle Accumulators to have Time in ACC1
>=I   ; // Time<=Limit?
JC    T10m; // Jump to 10ms Time Base
L     999; // Limit for 100ms Time Base = 99.9seconds [1m 39.9s.]
TAK   ;
>=I   ; // Time<Limit?
JC    T100; // Jump to 100ms Time Base
L     9999; // Limit for 1s Time Base = 999seconds [16m 39s.]
TAK   ;
>=I   ; // Time<=Limit?
JC    T1s; // Jump to 1s Time Base
JU    T10s; // Jump to 10s Time Base if Above
NETWORK
TITLE =

T10m: L     10; // Multiply int value times 10
*I    ; // to get time in 10ms units
ITB   ; // Convert to BCD. Time Base Bits are 00
JU    ENDE;

T100: ITB   ; // Convert to BCD
OW    W#16#1000; // Apply Time Base [01 = 100ms]
JU    ENDE;

T1s:  L     10; // Divide int value by 10
/I    ; // to get time in 1s units
ITB   ; // Convert to BCD.
OW    W#16#2000; // Apply Time Base [10 = 1s]
JU    ENDE;

T10s: L     100; // Divide int value by 100
/I    ; // to get time in 10s units
ITB   ; // Convert to BCD.
OW    W#16#3000; // Apply Time Base [11 = 10s]
NETWORK
TITLE =Issue Result and ENO=1

ENDE: T     #RET_VAL;
SET   ;
SAVE  ;
END_FUNCTION

FUNCTION "S5TIME_INT" : DINT
TITLE =Converts S5Time to Time in range 0..3276.7 seconds
//Function Converts Time in S5Time to Integer [0..32767 ==> 0..3276.7seconds]
//In case of Error ENO=False and 0 is returned
VERSION : 0.1


VAR_INPUT
I_TIME : S5TIME ;    //Time Value to be converted to Integer
END_VAR
VAR_TEMP
Time_Value : INT ;    //Extracted Time Value Without Time Base [as Integer]
END_VAR
BEGIN
NETWORK
TITLE =Calculate Byte Value without time base code

L     #I_TIME; // Time as S5Time
AW    W#16#FFF; // Clear Time Base and Unused Bits. Leave Time Value
BTI   ; // Convert BCD --> Int
T     #Time_Value; // Time Value without Time Base
NETWORK
TITLE =Detect the Time Base

L     #I_TIME; // Time as S5Timer Setpoint
AW    W#16#1000; // Check Time Base [01 = 100ms]
L    W#16#1000;
==I;
JC    T100;

L     #I_TIME; // Time as S5Timer Setpoint
AW    W#16#2000; // Check Time Base [10 = 1s]
L    W#16#2000;
==I;
JC    T1s;

L     #I_TIME; // Time as S5Timer Setpoint
AW    W#16#3000; // Check Time Base [11 = 10s]
L    W#16#3000;
==I;
JC    T10s;

JU    T10m; // Time Base Bits = 0 --> Time Base=10ms
NETWORK
TITLE =Calculate Time and return value

T100: L     #Time_Value; // Time Base: 100ms - Load Extracted Time
JU    ENDE; // and jump to End where it is returned

T1s:  L     #Time_Value; // Time Base: 1s - Load Extracted Time
L     10; // Calculate Time in 100ms Units
*I    ;
JU    ENDE; // and jump to End where it is returned

T10s: L     #Time_Value; // Time Base: 1s - Load Extracted Time
L     100; // Calculate Time in 100ms Units
*D    ; // D - multiply by 100 and return as double int to catch overflow
L     L#32767; // Check for Overflow
<=D   ; // Calculated Value<=32767?
JC    T_OK; // Jump to OK
T     #RET_VAL; // Return max possible value = 32767
CLR   ;
SAVE  ; // Retuen ENO=0 to indicate Overflow
BE    ; // Terminate Here

T_OK: POP   ; // Time is OK so get calculated time
JU    ENDE; // and jump to End where it is returned

T10m: L     #Time_Value; // Time Base: 10ms - Load Extracted Time
L     10; // Calculate Time in 100ms Units
/I    ; // Next network returns it with ENO=1
NETWORK
TITLE =Issue Result and ENO=1

ENDE: T     #RET_VAL;
SET   ;
SAVE  ;
END_FUNCTION

BTW

IEC Timers use data type TIME which is internally

dint in ms.

to show it in seconds on any HMI/SCADA [including non-siemens ones] set HMI

to show dint with 3 decimal places i.e. 1234 is shown as 1.234

if you want to enter setpoint as seconds simply multiply user input by 1000 then transfer to Timer setpoint.

Hi

I see where problem is.

Added comparison with the w#xxxx after the mask
L    W#16#x000;
==I;
JC    Txxx;

instead of check if result is positive (JPxxx)

Thanks