Sortownica_Sterowanie

PROGRAM licznikiST
VAR_EXTERNAL
    S3: BOOL;
    clr_count:BOOL;
    pom:BOOL;
    lbi:REAL;
    lcz:REAL;
    BS:BOOL;
    req:BOOL;
    vpos:REAL;
END_VAR

VAR
    LBI:CTUD;
    LCZ:CTUD;
    VIS_MONO:MONO_F;
    IN_LBI:BOOL;
    IN_LCZ:BOOL;
    TC_V:TIME;
END_VAR

IN_LBI:=S3 AND pom;
IN_LCZ:=NOT S3 AND pom;
LBI(INU:=IN_LBI, RES:=clr_count, CTC=>lbi);
LCZ(INU:=IN_LCZ, RES:=clr_count, CTC=>lcz);

VIS_MONO(IN:=BS, OUT=>req, TC=>TC_V);
vpos:=TO_RE(TO_DI(TC_V));

END_PROGRAM