Programo la lógica que mantiene tu planta en marcha.

01// FB_Secuencia_EST20_Ensamblaje 02CASE EST20_estSecuencia OF 03 0: // espera pieza 04 IF EST20_bSensorPieza THEN 05 EST20_estSecuencia := 10; 06 END_IF; 07 10: // avance de cilindro de sujeción 08 EST20_bCilindroAvance := TRUE; 09 IF EST20_bFinCarrera THEN 10 EST20_tmrSujecion(IN := TRUE, PT := T#500MS); 11 EST20_estSecuencia := 20; 12 ELSIF EST20_tmrTimeout.Q THEN 13 EST20_estSecuencia := 900; // sin fin de carrera: fallo 14 END_IF; 15 20: // sujeción confirmada, aviso a robot 16 IF EST20_tmrSujecion.Q THEN 17 EST20_bRobotIniciar := TRUE; 18 EST20_estSecuencia := 30; 19 END_IF; 20 30: // ciclo de robot en curso 21 IF EST20_bRobotListo THEN 22 EST20_bCilindroAvance := FALSE; 23 EST20_estSecuencia := 0; 24 ELSIF EST20_bRobotError THEN 25 EST20_estSecuencia := 900; 26 END_IF; 27 900: // fallo de estación: requiere reset manual 28 EST20_bCilindroAvance := FALSE; 29 EST20_bAlarma := TRUE; 30 IF EST20_bReset THEN 31 EST20_bAlarma := FALSE; 32 EST20_estSecuencia := 0; 33 END_IF; 34END_CASE;