etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@13: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@13: lbessard@13: lbessard@13: lbessard@13: lbessard@13: lbessard@13: lbessard@13: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN1 etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN2 etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@27: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@13: OUT etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN3 etisserant@0: lbessard@1: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: POU qui sert a tester PLCOpenEditor. etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@27: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@27: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: Commentaire etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: LDTest etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN1 etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN2 etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN3 etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN4 etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@1: lbessard@1: lbessard@1: lbessard@1: lbessard@1: lbessard@1: lbessard@1: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@13: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@13: LD Y1 lbessard@13: SUB Y2 (* Substract Y2 from Y1 *) lbessard@13: ST Temp (* Store Y1-Y2 in Temp *) lbessard@13: MUL Temp (* Multiply by Temp to square *) lbessard@13: ADD( X1 (* Defer ADD *) lbessard@13: SUB X2 (* Substract X1 from X2 *) lbessard@13: ST Temp (* Store X1-X2 in Temp *) lbessard@13: MUL Temp (* Multiply by Temp to square *) lbessard@13: ) lbessard@17: SQRT (* Call Square root fun *) lbessard@13: ST ILTest (* Setup function result *) lbessard@13: GT TMax (* Greater than TMax ? *) lbessard@13: JMPC ERR (* Yes, Jump to Error *) lbessard@13: S ERROR (* Set ERROR *) lbessard@13: RET (* Normal return *) lbessard@13: ERR: RET (* Error return, ENO not set *) etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@1: IF IN1 THEN lbessard@2: IN2 := 1; lbessard@1: ELSE lbessard@2: IN3 := 1; lbessard@1: END_IF; etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: := AND(IN1, IN2, IN3); etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN2 AND IN3 etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: lbessard@2: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN3 etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN4 etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: lbessard@2: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN5 etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN5 etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: IN5 etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: etisserant@0: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@1: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: etisserant@0: etisserant@0: lbessard@1: etisserant@0: etisserant@0: lbessard@2: etisserant@0: etisserant@0: etisserant@0: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: lbessard@2: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@17: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@1: IF Collision THEN lbessard@2: Speed := 0; lbessard@13: Brakes := TRUE; lbessard@1: END_IF; etisserant@0: lbessard@13: IF (Gate = TRUE) AND lbessard@13: (Pump = TRUE) AND (Temp > 200.0) THEN lbessard@13: Control_State := TRUE; lbessard@1: ELSE lbessard@13: Control_State := FALSE; lbessard@2: PumpSpeed := 10.0; lbessard@1: END_IF; etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: lbessard@24: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: etisserant@0: