Convertimos lógica en movimiento.

01PROGRAM PRG_Transportador
02VAR
03  bParoEmergencia   : BOOL;          (* Paro de emergencia accionado *)
04  bGuardasCerradas  : BOOL;          (* Guardas de seguridad *)
05  bInicio           : BOOL;          (* Botón de arranque *)
06  bSensorEntrada    : BOOL;          (* Fotocelda de entrada *)
07  bSensorSalida     : BOOL;          (* Fotocelda de salida *)
08  bAlarmaVFD        : BOOL;          (* Falla del variador *)
09  bSeguridadOK      : BOOL;          (* Cadena de seguridad *)
10  bSensorSalidaPrev : BOOL;          (* Flanco anterior de S2 *)
11  rVelocidadRef     : REAL := 12.5;  (* m/min *)
12  rVelocidadVFD     : REAL;
13  bMotorBanda       : BOOL;
14  nConteoPiezas     : UDINT;
15  tArranque         : TON;
16END_VAR
17
18(* Cadena de seguridad *)
19bSeguridadOK := NOT bParoEmergencia AND bGuardasCerradas;
20
21(* Arranque con retardo de 2 s *)
22tArranque(IN := bSeguridadOK AND bInicio, PT := T#2S);
23
24(* Habilitar transportador *)
25bMotorBanda := tArranque.Q AND NOT bAlarmaVFD;
26rVelocidadVFD := SEL(bMotorBanda, 0.0, rVelocidadRef);
27
28(* Conteo de piezas por flanco en la salida *)
29IF bSensorSalida AND NOT bSensorSalidaPrev THEN
30  nConteoPiezas := nConteoPiezas + 1;
31END_IF;
32bSensorSalidaPrev := bSensorSalida;
33END_PROGRAM