//----------------------------------------------------------------------------- // test2.vpl, created 2000-08-01 20:10 // //----------------------------------------------------------------------------- INCLUDE rtcu.inc // This program: // negates o1 on each leading edge detected on input i1 // negates o2 on each falling edge detected on input i1. // // Next follows all the variables that can be configured via the configuration dialog VAR_INPUT i1 :BOOL;| Input END_VAR; VAR_OUTPUT o1 :BOOL;| Output1 (Negated on leading edge) o2 :BOOL;| Output2 (Negated on falling edge) END_VAR; // Here follows the programs global variables VAR edge :RF_TRIG; END_VAR; PROGRAM test; // The next code will only be executed once after the program starts BEGIN // Code from this point until END will be executed repeatedly edge(trig := i1); IF edge.rq THEN o1 :=NOT o1; ELSIF edge.fq THEN o2 :=NOT o2; END_IF; END; END_PROGRAM;