Siemens S7 300 Timer problem solwing

Hello,

Made an example in lad, you just have to import the source.

[code]

FUNCTION FC 4 : VOID
TITLE =
VERSION : 0.1

VAR_INPUT
start : BOOL ;
puls : BOOL ;
Time_to_run : INT ;
END_VAR
VAR_OUTPUT
output : BOOL ;
END_VAR
VAR_IN_OUT
mem : INT ;
END_VAR
VAR_TEMP
time_reached : BOOL ;
END_VAR
BEGIN
NETWORK
TITLE =
//Counter
AN #time_reached;
A #start;
A #puls;
JNB _001;
L #mem;
L 1;
+I ;
T #mem;
_001: NOP 0;
NETWORK
TITLE =
//compare count value with the set value and set output
L #mem;
L #Time_to_run;
>=I ;
S #time_reached;
S #output;
NETWORK
TITLE =
//reset
AN #start;
A #time_reached;
JNB _002;
L 0;
T #mem;
SET ;
SAVE ;
CLR ;
_002: A BR;
R #time_reached;
R #output;
END_FUNCTION

ORGANIZATION_BLOCK OB 1
TITLE = "Main Program Sweep (Cycle)"
VERSION : 0.1

VAR_TEMP
OB1_EV_CLASS : BYTE ;//Bits 0-3 = 1 (Coming event), Bits 4-7 = 1 (Event class 1)
OB1_SCAN_1 : BYTE ;//1 (Cold restart scan 1 of OB 1), 3 (Scan 2-n of OB 1)
OB1_PRIORITY : BYTE ;//Priority of OB Execution
OB1_OB_NUMBR : BYTE ;//1 (Organization block 1, OB1)
OB1_RESERVED_1 : BYTE ;//Reserved for system
OB1_RESERVED_2 : BYTE ;//Reserved for system
OB1_PREV_CYCLE : INT ;//Cycle time of previous OB1 scan (milliseconds)
OB1_MIN_CYCLE : INT ;//Minimum cycle time of OB1 (milliseconds)
OB1_MAX_CYCLE : INT ;//Maximum cycle time of OB1 (milliseconds)
OB1_DATE_TIME : DATE_AND_TIME ;//Date and time OB1 started
END_VAR
BEGIN
NETWORK
TITLE =

A M 30.0;
= L 20.0;
BLD 103;
A M 50.1;
= L 20.1;
BLD 103;
CALL FC 4 (
start := L 20.0,
puls := L 20.1,
Time_to_run := 10000,
output := M 30.1,
mem := MW 100);
NOP 0;

END_ORGANIZATION_BLOCK

[/code]

Make sure your clock byte is selected in your CPU properties, in my case that is the M50.1

Regards,

Marcjan