aketza/ZC_ESTANDAR_ALIMENTACION
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambio de formato de exportacion a S7dcl.

Browse Source
This commit is contained in:
aketza
2026-07-20 16:03:44 +02:00
parent 350bcb6b01
commit d551a132c0
714 changed files with 44789 additions and 30182 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/DB1_SYS.db
-204
View File
@@ -1,204 +0,0 @@
DATA_BLOCK "DB1_SYS"
TITLE = Datos de sistema
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
VERSION : 0.1
NON_RETAIN
VAR
ON : Bool; // Siempre a 1
OFF : Bool; // Siempre a 0
SIM : Bool; // Sistema en simulacion
ACK : Bool; // Acuse general de errores
ARRANQUE : Bool; // Marca de primer arranque del sistema
Pulso100ms : Bool; // Pulso 100 ms
Pulso1seg : Bool; // Pulso 1 segundo
Pulso2seg : Bool; // Pulso 2 segundo
Pulso5seg : Bool; // Pulso 5 segundos
Pulso1min : Bool; // Pulso 1 minuto
Pulso1h : Bool; // Pulso 1 hora
FlipFlop1seg : Bool; // Flip flop 1 seg ON - 1 seg OFF
FlipFlop2seg : Bool; // Flip flop 2 seg ON - 2 seg OFF
FlipFlop5seg : Bool; // Flip flop 5 seg ON - 5 seg OFF
ResetEntidades { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Bool; // Reset todas las entidades
SincronizarFecha : Bool; // Orden sincronizacion fecha desde sistema superior
WatchDog : Int; // Watchdog para comunicaciones
Pulsador : Struct
EscribirFechaHora { S7_SetPoint := 'False'} : "UDT_ZC_PULSADOR"; // Pulsador cambio de fecha y hora desde hmi
Ack { S7_SetPoint := 'False'} : Array[0..9] of "UDT_ZC_PULSADOR"; // Pulsador acuse general de errores
END_STRUCT;
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual del sistema
END_VAR
VAR RETAIN
FechaHoraNuevaManual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora nueva escrita manualmente desde HMI
FechaHoraNuevaAuto {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora nueva escrita automaticamente
END_VAR
VAR
TiempoCiclo : Real; // Tiempo de ciclo del PLC
END_VAR
VAR RETAIN
Usuario : Struct
Seleccion : Array[0..9] of Struct
Orden : Bool;
Usuario : String[25];
END_STRUCT;
Actual : String[25]; // Usuario actual
END_STRUCT;
END_VAR
VAR
RedProfinet : Array[0..1023] of Bool;
END_VAR
VAR RETAIN
Aux : Struct
P_Trig_Pulso100ms : Bool; // P_TRIG Pulso 100 ms
P_Trig_Pulso1Seg : Bool; // P_TRIG Pulso 1 segundo
Contador2seg : USInt; // Aux. Contador 2 segundos
Contador5seg : USInt; // Aux. Contador 5 segundos
Contador1min : USInt; // Aux. Contador 1 minuto
Contador1h : UInt; // Aux. Contador 1 hora
auxRuntime : LReal; // Aux. Runtime
END_STRUCT;
END_VAR
BEGIN
ON := TRUE;
OFF := FALSE;
SIM := FALSE;
ACK := FALSE;
ARRANQUE := FALSE;
Pulso100ms := FALSE;
Pulso1seg := FALSE;
Pulso2seg := FALSE;
Pulso5seg := FALSE;
Pulso1min := FALSE;
Pulso1h := FALSE;
FlipFlop1seg := TRUE;
FlipFlop2seg := TRUE;
FlipFlop5seg := TRUE;
ResetEntidades := FALSE;
SincronizarFecha := FALSE;
Pulsador.EscribirFechaHora.Hmi := FALSE;
Pulsador.EscribirFechaHora.Plc := FALSE;
Pulsador.EscribirFechaHora.Permiso := TRUE;
Pulsador.EscribirFechaHora.Visibilidad := TRUE;
Pulsador.EscribirFechaHora.AuxPulso := FALSE;
Pulsador.EscribirFechaHora.AuxTiempo := 0;
Pulsador.Ack[0].Hmi := FALSE;
Pulsador.Ack[0].Plc := FALSE;
Pulsador.Ack[0].Permiso := TRUE;
Pulsador.Ack[0].Visibilidad := FALSE;
Pulsador.Ack[0].AuxPulso := FALSE;
Pulsador.Ack[0].AuxTiempo := 0;
Pulsador.Ack[1].Hmi := FALSE;
Pulsador.Ack[1].Plc := FALSE;
Pulsador.Ack[1].Permiso := TRUE;
Pulsador.Ack[1].Visibilidad := FALSE;
Pulsador.Ack[1].AuxPulso := FALSE;
Pulsador.Ack[1].AuxTiempo := 0;
Pulsador.Ack[2].Hmi := FALSE;
Pulsador.Ack[2].Plc := FALSE;
Pulsador.Ack[2].Permiso := TRUE;
Pulsador.Ack[2].Visibilidad := FALSE;
Pulsador.Ack[2].AuxPulso := FALSE;
Pulsador.Ack[2].AuxTiempo := 0;
Pulsador.Ack[3].Hmi := FALSE;
Pulsador.Ack[3].Plc := FALSE;
Pulsador.Ack[3].Permiso := TRUE;
Pulsador.Ack[3].Visibilidad := FALSE;
Pulsador.Ack[3].AuxPulso := FALSE;
Pulsador.Ack[3].AuxTiempo := 0;
Pulsador.Ack[4].Hmi := FALSE;
Pulsador.Ack[4].Plc := FALSE;
Pulsador.Ack[4].Permiso := TRUE;
Pulsador.Ack[4].Visibilidad := FALSE;
Pulsador.Ack[4].AuxPulso := FALSE;
Pulsador.Ack[4].AuxTiempo := 0;
Pulsador.Ack[5].Hmi := FALSE;
Pulsador.Ack[5].Plc := FALSE;
Pulsador.Ack[5].Permiso := TRUE;
Pulsador.Ack[5].Visibilidad := FALSE;
Pulsador.Ack[5].AuxPulso := FALSE;
Pulsador.Ack[5].AuxTiempo := 0;
Pulsador.Ack[6].Hmi := FALSE;
Pulsador.Ack[6].Plc := FALSE;
Pulsador.Ack[6].Permiso := TRUE;
Pulsador.Ack[6].Visibilidad := FALSE;
Pulsador.Ack[6].AuxPulso := FALSE;
Pulsador.Ack[6].AuxTiempo := 0;
Pulsador.Ack[7].Hmi := FALSE;
Pulsador.Ack[7].Plc := FALSE;
Pulsador.Ack[7].Permiso := TRUE;
Pulsador.Ack[7].Visibilidad := FALSE;
Pulsador.Ack[7].AuxPulso := FALSE;
Pulsador.Ack[7].AuxTiempo := 0;
Pulsador.Ack[8].Hmi := FALSE;
Pulsador.Ack[8].Plc := FALSE;
Pulsador.Ack[8].Permiso := TRUE;
Pulsador.Ack[8].Visibilidad := FALSE;
Pulsador.Ack[8].AuxPulso := FALSE;
Pulsador.Ack[8].AuxTiempo := 0;
Pulsador.Ack[9].Hmi := FALSE;
Pulsador.Ack[9].Plc := FALSE;
Pulsador.Ack[9].Permiso := TRUE;
Pulsador.Ack[9].Visibilidad := FALSE;
Pulsador.Ack[9].AuxPulso := FALSE;
Pulsador.Ack[9].AuxTiempo := 0;
FechaHoraActual.YEAR := 2025;
FechaHoraActual.MONTH := 9;
FechaHoraActual.DAY := 18;
FechaHoraActual.WEEKDAY := 5;
FechaHoraActual.HOUR := 19;
FechaHoraActual.MINUTE := 1;
FechaHoraActual.SECOND := 56;
FechaHoraActual.NANOSECOND := 550304800;
FechaHoraActual := DTL#2025-09-18-19:01:56.550304800;
FechaHoraNuevaManual.YEAR := 2026;
FechaHoraNuevaManual.MONTH := 3;
FechaHoraNuevaManual.DAY := 26;
FechaHoraNuevaManual.WEEKDAY := 5;
FechaHoraNuevaManual.HOUR := 11;
FechaHoraNuevaManual.MINUTE := 31;
FechaHoraNuevaManual.SECOND := 44;
FechaHoraNuevaManual.NANOSECOND := 10900982;
FechaHoraNuevaManual := DTL#2026-03-26-11:31:44.010900982;
FechaHoraNuevaAuto.YEAR := 2026;
FechaHoraNuevaAuto.MONTH := 3;
FechaHoraNuevaAuto.DAY := 26;
FechaHoraNuevaAuto.WEEKDAY := 5;
FechaHoraNuevaAuto.HOUR := 11;
FechaHoraNuevaAuto.MINUTE := 31;
FechaHoraNuevaAuto.SECOND := 44;
FechaHoraNuevaAuto.NANOSECOND := 10900982;
FechaHoraNuevaAuto := DTL#2026-03-26-11:31:44.010900982;
TiempoCiclo := 28.34702;
Usuario.Seleccion[0].Orden := FALSE;
Usuario.Seleccion[0].Usuario := 'sive';
Usuario.Seleccion[1].Orden := FALSE;
Usuario.Seleccion[1].Usuario := '';
Usuario.Seleccion[2].Orden := FALSE;
Usuario.Seleccion[2].Usuario := '';
Usuario.Seleccion[3].Orden := FALSE;
Usuario.Seleccion[3].Usuario := '';
Usuario.Seleccion[4].Orden := FALSE;
Usuario.Seleccion[4].Usuario := '';
Usuario.Seleccion[5].Orden := FALSE;
Usuario.Seleccion[5].Usuario := 's';
Usuario.Seleccion[6].Orden := FALSE;
Usuario.Seleccion[6].Usuario := '';
Usuario.Seleccion[7].Orden := FALSE;
Usuario.Seleccion[7].Usuario := '';
Usuario.Seleccion[8].Orden := FALSE;
Usuario.Seleccion[8].Usuario := '';
Usuario.Seleccion[9].Orden := FALSE;
Usuario.Seleccion[9].Usuario := '';
Usuario.Actual := 's';
Aux.P_Trig_Pulso100ms := TRUE;
Aux.P_Trig_Pulso1Seg := TRUE;
Aux.Contador2seg := 0;
Aux.Contador5seg := 0;
Aux.Contador1min := 33;
Aux.Contador1h := 573;
Aux.auxRuntime := 3.12728340475131E-308;
END_DATA_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/DB1_SYS.s7dcl
+266
View File
@@ -0,0 +1,266 @@
{
S7_Author := "ABH";
S7_BlockNumber := "1";
S7_BlockTitle := "MLC_4UZ";
S7_Optimized := "TRUE";
S7_StandardRetain := "FALSE";
S7_Version := "0.1"
}
DATA_BLOCK DB1_SYS
VAR
{ S7_MLC := "MLC_Q5" }
"ON" : Bool;
{ S7_MLC := "MLC_4iT" }
OFF : Bool;
{ S7_MLC := "MLC_55m" }
SIM : Bool;
{ S7_MLC := "MLC_5Af" }
ACK : Bool;
{ S7_MLC := "MLC_52i" }
ARRANQUE : Bool;
{ S7_MLC := "MLC_3vb" }
Pulso100ms : Bool;
{ S7_MLC := "MLC_4uy" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_3Sv" }
Pulso2seg : Bool;
{ S7_MLC := "MLC_ep" }
Pulso5seg : Bool;
{ S7_MLC := "MLC_526" }
Pulso1min : Bool;
{ S7_MLC := "MLC_dF" }
Pulso1h : Bool;
{ S7_MLC := "MLC_WT" }
FlipFlop1seg : Bool;
{ S7_MLC := "MLC_Ny" }
FlipFlop2seg : Bool;
{ S7_MLC := "MLC_55w" }
FlipFlop5seg : Bool;
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_3dU";
S7_Visibility := "Hidden := External"
}
ResetEntidades : Bool;
{ S7_MLC := "MLC_3pE" }
SincronizarFecha : Bool;
{ S7_MLC := "MLC_3v5" }
WatchDog : Int;
Pulsador : STRUCT
{
S7_MLC := "MLC_3ER";
S7_Setpoint := "False"
}
EscribirFechaHora : _.UDT_ZC_PULSADOR;
{
S7_MLC := "MLC_4K9";
S7_Setpoint := "False"
}
Ack : Array[0..9] of _.UDT_ZC_PULSADOR;
END_STRUCT;
{ S7_MLC := "MLC_4Fe" }
FechaHoraActual : DTL;
END_VAR
VAR RETAIN
{ S7_MLC := "MLC_4QZ" }
FechaHoraNuevaManual : DTL;
{ S7_MLC := "MLC_gz" }
FechaHoraNuevaAuto : DTL;
END_VAR
VAR
{ S7_MLC := "MLC_4Bs" }
TiempoCiclo : Real;
END_VAR
VAR RETAIN
Usuario : STRUCT
Seleccion : Array[0..9] of STRUCT
Orden : Bool;
Usuario : String[25];
END_STRUCT;
{ S7_MLC := "MLC_3JT" }
Actual : String[25];
END_STRUCT;
END_VAR
VAR
RedProfinet : Array[0..1023] of Bool;
END_VAR
VAR RETAIN
Aux : STRUCT
{ S7_MLC := "MLC_45G" }
P_Trig_Pulso100ms : Bool;
{ S7_MLC := "MLC_3zd" }
P_Trig_Pulso1Seg : Bool;
{ S7_MLC := "MLC_4V6" }
Contador2seg : USInt;
{ S7_MLC := "MLC_4r4" }
Contador5seg : USInt;
{ S7_MLC := "MLC_Yr" }
Contador1min : USInt;
{ S7_MLC := "MLC_3XQ" }
Contador1h : UInt;
{ S7_MLC := "MLC_5C3" }
auxRuntime : LReal;
END_STRUCT;
END_VAR
"ON" := TRUE;
OFF := FALSE;
SIM := FALSE;
ACK := FALSE;
ARRANQUE := FALSE;
Pulso100ms := FALSE;
Pulso1seg := FALSE;
Pulso2seg := FALSE;
Pulso5seg := FALSE;
Pulso1min := FALSE;
Pulso1h := FALSE;
FlipFlop1seg := TRUE;
FlipFlop2seg := TRUE;
FlipFlop5seg := TRUE;
ResetEntidades := FALSE;
SincronizarFecha := FALSE;
Pulsador.EscribirFechaHora.Hmi := FALSE;
Pulsador.EscribirFechaHora.Plc := FALSE;
Pulsador.EscribirFechaHora.Permiso := TRUE;
Pulsador.EscribirFechaHora.Visibilidad := TRUE;
Pulsador.EscribirFechaHora.AuxPulso := FALSE;
Pulsador.EscribirFechaHora.AuxTiempo := 0;
Pulsador.Ack[0].Hmi := FALSE;
Pulsador.Ack[0].Plc := FALSE;
Pulsador.Ack[0].Permiso := TRUE;
Pulsador.Ack[0].Visibilidad := FALSE;
Pulsador.Ack[0].AuxPulso := FALSE;
Pulsador.Ack[0].AuxTiempo := 0;
{ S7_MLC := "MLC_3Yi" }
Pulsador.Ack[0] := ();
Pulsador.Ack[1].Hmi := FALSE;
Pulsador.Ack[1].Plc := FALSE;
Pulsador.Ack[1].Permiso := TRUE;
Pulsador.Ack[1].Visibilidad := FALSE;
Pulsador.Ack[1].AuxPulso := FALSE;
Pulsador.Ack[1].AuxTiempo := 0;
{ S7_MLC := "MLC_44F" }
Pulsador.Ack[1] := ();
Pulsador.Ack[2].Hmi := FALSE;
Pulsador.Ack[2].Plc := FALSE;
Pulsador.Ack[2].Permiso := TRUE;
Pulsador.Ack[2].Visibilidad := FALSE;
Pulsador.Ack[2].AuxPulso := FALSE;
Pulsador.Ack[2].AuxTiempo := 0;
{ S7_MLC := "MLC_4tj" }
Pulsador.Ack[2] := ();
Pulsador.Ack[3].Hmi := FALSE;
Pulsador.Ack[3].Plc := FALSE;
Pulsador.Ack[3].Permiso := TRUE;
Pulsador.Ack[3].Visibilidad := FALSE;
Pulsador.Ack[3].AuxPulso := FALSE;
Pulsador.Ack[3].AuxTiempo := 0;
{ S7_MLC := "MLC_4s8" }
Pulsador.Ack[3] := ();
Pulsador.Ack[4].Hmi := FALSE;
Pulsador.Ack[4].Plc := FALSE;
Pulsador.Ack[4].Permiso := TRUE;
Pulsador.Ack[4].Visibilidad := FALSE;
Pulsador.Ack[4].AuxPulso := FALSE;
Pulsador.Ack[4].AuxTiempo := 0;
{ S7_MLC := "MLC_N4" }
Pulsador.Ack[4] := ();
Pulsador.Ack[5].Hmi := FALSE;
Pulsador.Ack[5].Plc := FALSE;
Pulsador.Ack[5].Permiso := TRUE;
Pulsador.Ack[5].Visibilidad := FALSE;
Pulsador.Ack[5].AuxPulso := FALSE;
Pulsador.Ack[5].AuxTiempo := 0;
{ S7_MLC := "MLC_3Nv" }
Pulsador.Ack[5] := ();
Pulsador.Ack[6].Hmi := FALSE;
Pulsador.Ack[6].Plc := FALSE;
Pulsador.Ack[6].Permiso := TRUE;
Pulsador.Ack[6].Visibilidad := FALSE;
Pulsador.Ack[6].AuxPulso := FALSE;
Pulsador.Ack[6].AuxTiempo := 0;
{ S7_MLC := "MLC_575" }
Pulsador.Ack[6] := ();
Pulsador.Ack[7].Hmi := FALSE;
Pulsador.Ack[7].Plc := FALSE;
Pulsador.Ack[7].Permiso := TRUE;
Pulsador.Ack[7].Visibilidad := FALSE;
Pulsador.Ack[7].AuxPulso := FALSE;
Pulsador.Ack[7].AuxTiempo := 0;
{ S7_MLC := "MLC_es" }
Pulsador.Ack[7] := ();
Pulsador.Ack[8].Hmi := FALSE;
Pulsador.Ack[8].Plc := FALSE;
Pulsador.Ack[8].Permiso := TRUE;
Pulsador.Ack[8].Visibilidad := FALSE;
Pulsador.Ack[8].AuxPulso := FALSE;
Pulsador.Ack[8].AuxTiempo := 0;
{ S7_MLC := "MLC_4N5" }
Pulsador.Ack[8] := ();
Pulsador.Ack[9].Hmi := FALSE;
Pulsador.Ack[9].Plc := FALSE;
Pulsador.Ack[9].Permiso := TRUE;
Pulsador.Ack[9].Visibilidad := FALSE;
Pulsador.Ack[9].AuxPulso := FALSE;
Pulsador.Ack[9].AuxTiempo := 0;
{ S7_MLC := "MLC_3jD" }
Pulsador.Ack[9] := ();
FechaHoraActual := DTL#2025-09-18-19:01:56.550304800;
FechaHoraNuevaManual := DTL#2026-03-26-11:31:44.010900982;
FechaHoraNuevaAuto := DTL#2026-03-26-11:31:44.010900982;
TiempoCiclo := 28.34702;
Usuario.Seleccion[0].Orden := FALSE;
Usuario.Seleccion[0].Usuario := 'sive';
{ S7_MLC := "MLC_37Y" }
Usuario.Seleccion[0] := ();
Usuario.Seleccion[1].Orden := FALSE;
Usuario.Seleccion[1].Usuario := '';
{ S7_MLC := "MLC_58D" }
Usuario.Seleccion[1] := ();
Usuario.Seleccion[2].Orden := FALSE;
Usuario.Seleccion[2].Usuario := '';
{ S7_MLC := "MLC_RC" }
Usuario.Seleccion[2] := ();
Usuario.Seleccion[3].Orden := FALSE;
Usuario.Seleccion[3].Usuario := '';
{ S7_MLC := "MLC_jP" }
Usuario.Seleccion[3] := ();
Usuario.Seleccion[4].Orden := FALSE;
Usuario.Seleccion[4].Usuario := '';
{ S7_MLC := "MLC_3Xk" }
Usuario.Seleccion[4] := ();
Usuario.Seleccion[5].Orden := FALSE;
Usuario.Seleccion[5].Usuario := 's';
{ S7_MLC := "MLC_3hH" }
Usuario.Seleccion[5] := ();
Usuario.Seleccion[6].Orden := FALSE;
Usuario.Seleccion[6].Usuario := '';
{ S7_MLC := "MLC_uK" }
Usuario.Seleccion[6] := ();
Usuario.Seleccion[7].Orden := FALSE;
Usuario.Seleccion[7].Usuario := '';
{ S7_MLC := "MLC_56U" }
Usuario.Seleccion[7] := ();
Usuario.Seleccion[8].Orden := FALSE;
Usuario.Seleccion[8].Usuario := '';
{ S7_MLC := "MLC_48z" }
Usuario.Seleccion[8] := ();
Usuario.Seleccion[9].Orden := FALSE;
Usuario.Seleccion[9].Usuario := '';
{ S7_MLC := "MLC_X5" }
Usuario.Seleccion[9] := ();
Usuario.Actual := 's';
Aux.P_Trig_Pulso100ms := TRUE;
Aux.P_Trig_Pulso1Seg := TRUE;
Aux.Contador2seg := 0;
Aux.Contador5seg := 0;
Aux.Contador1min := 33;
Aux.Contador1h := 573;
Aux.auxRuntime := 3.12728340475131E-308;
END_DATA_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/DB1_SYS.s7res
+105
View File
@@ -0,0 +1,105 @@
MultiLingualTexts:
- id: MLC_4UZ
es-ES: Datos de sistema
- id: MLC_Q5
es-ES: Siempre a 1
- id: MLC_4iT
es-ES: Siempre a 0
- id: MLC_55m
es-ES: Sistema en simulacion
- id: MLC_5Af
es-ES: Acuse general de errores
- id: MLC_52i
es-ES: Marca de primer arranque del sistema
- id: MLC_3vb
es-ES: Pulso 100 ms
- id: MLC_4uy
es-ES: Pulso 1 segundo
- id: MLC_3Sv
es-ES: Pulso 2 segundo
- id: MLC_ep
es-ES: Pulso 5 segundos
- id: MLC_526
es-ES: Pulso 1 minuto
- id: MLC_dF
es-ES: Pulso 1 hora
- id: MLC_WT
es-ES: Flip flop 1 seg ON - 1 seg OFF
- id: MLC_Ny
es-ES: Flip flop 2 seg ON - 2 seg OFF
- id: MLC_55w
es-ES: Flip flop 5 seg ON - 5 seg OFF
- id: MLC_3dU
es-ES: Reset todas las entidades
- id: MLC_3pE
es-ES: Orden sincronizacion fecha desde sistema superior
- id: MLC_3v5
es-ES: Watchdog para comunicaciones
- id: MLC_3ER
es-ES: Pulsador cambio de fecha y hora desde hmi
- id: MLC_4K9
es-ES: Pulsador acuse general de errores
- id: MLC_3Yi
es-ES: Scada 01
- id: MLC_44F
es-ES: Scada 02
- id: MLC_4tj
es-ES: Hmi zona 2 Pasto
- id: MLC_4s8
es-ES: Hmi zona 1 recepcion
- id: MLC_N4
es-ES: Hmi zona 3 Fermentacion
- id: MLC_3Nv
es-ES: Hmi zona 4 CIP 1
- id: MLC_575
es-ES: Hmi zona 5 CIP 2
- id: MLC_es
es-ES: '-'
- id: MLC_4N5
es-ES: '-'
- id: MLC_3jD
es-ES: '-'
- id: MLC_4Fe
es-ES: Fecha y hora actual del sistema
- id: MLC_4QZ
es-ES: Fecha y hora nueva escrita manualmente desde HMI
- id: MLC_gz
es-ES: Fecha y hora nueva escrita automaticamente
- id: MLC_4Bs
es-ES: Tiempo de ciclo del PLC
- id: MLC_37Y
es-ES: Scada 01
- id: MLC_58D
es-ES: Scada 02
- id: MLC_RC
es-ES: Hmi zona 2 Pasto
- id: MLC_jP
es-ES: Hmi zona 1 recepcion
- id: MLC_3Xk
es-ES: Hmi zona 3 Fermentacion
- id: MLC_3hH
es-ES: Hmi zona 4 CIP 1
- id: MLC_uK
es-ES: Hmi zona 5 CIP 2
- id: MLC_56U
es-ES: '-'
- id: MLC_48z
es-ES: '-'
- id: MLC_X5
es-ES: '-'
- id: MLC_3JT
es-ES: Usuario actual
- id: MLC_45G
es-ES: P_TRIG Pulso 100 ms
- id: MLC_3zd
es-ES: P_TRIG Pulso 1 segundo
- id: MLC_4V6
es-ES: Aux. Contador 2 segundos
- id: MLC_4r4
es-ES: Aux. Contador 5 segundos
- id: MLC_Yr
es-ES: Aux. Contador 1 minuto
- id: MLC_3XQ
es-ES: Aux. Contador 1 hora
- id: MLC_5C3
es-ES: Aux. Runtime
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/DB3_CHECKSUM.db
-10
View File
@@ -1,10 +0,0 @@
DATA_BLOCK "DB3_CHECKSUM"
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
NON_RETAIN
"FB3_ZC_CHECKSUM"
BEGIN
END_DATA_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/DB3_CHECKSUM.s7dcl
+8
View File
@@ -0,0 +1,8 @@
{
S7_BlockNumber := "3";
S7_Optimized := "TRUE";
S7_StandardRetain := "FALSE";
S7_Version := "0.1"
}
DATA_BLOCK DB3_CHECKSUM : FB3_ZC_CHECKSUM
END_DATA_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/FB3_ZC_CHECKSUM.s7dcl
+130
View File
@@ -0,0 +1,130 @@
{
S7_BlockNumber := "3";
S7_EditorMode := "SCL";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "0.1"
}
FUNCTION_BLOCK "FB3_ZC_CHECKSUM"
VAR_INPUT
Comprobar : Bool;
Copiar : Bool;
END_VAR
VAR_OUTPUT
CheckSumOK : Bool;
END_VAR
VAR
{
S7_Access := "ReadOnly := External";
S7_Setpoint := "False";
S7_Visibility := "Hidden := External"
}
s_GetCheckSum : GetChecksum;
END_VAR
VAR RETAIN
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_EstadoCheckSum : Array[0..7] of Byte;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_CheckSumFabrica : Array[0..7] of Byte;
END_VAR
VAR
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_Comprobar : Bool;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_OldComprobar : Bool;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2020 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
El bloque `FB3_CHECKSUM` implementa la lectura del checksum del programa actual del PLC y su comparación con el checksum de fábrica, permitiendo detectar modificaciones no autorizadas en el proyecto.
Funcionalidades principales:
- Detección de flanco ascendente en la entrada `#Comprobar` para ejecutar la comprobación bajo demanda (modo "pulso"), mediante la variable interna `#s_OldComprobar`.
- Lectura del checksum del bloque `Scope:=1` (objeto PLC) con `Range:=0` y `Subrange:=0` (rango completo), invocando la función de sistema `GetChecksum` a través del FB `GetChecksum` y depositando el resultado en `#s_EstadoCheckSum`.
- Captura del checksum de fábrica: cuando se activa la entrada `#Copiar`, se copia el checksum actual al valor de referencia `#s_CheckSumFabrica`, operación que se realiza una sola vez durante la puesta en marcha para fijar la línea base.
- Comparación continua entre el checksum actual y el de fábrica, exponiendo el resultado en la salida `#CheckSumOK` (TRUE cuando coinciden).
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | `GetChecksum` |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 28.09.2020 | (ABH) | Primera versión. |
| 01.00.01 | 02.07.2026 | (ABH) | Cambio a SCL. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION ORDEN_COMPROBACION
// Comprobacion mediante un pulso
#s_Comprobar := #Comprobar AND NOT #s_OldComprobar;
// Estado anterior
#s_OldComprobar := #Comprobar;
END_REGION ORDEN_COMPROBACION
// ==========================================================================================================
REGION LECTURA_CHECKSUM
// Comprobacion mediante un pulso
#s_GetCheckSum(Scope:=1,
Range:=0,
Subrange:=0,
Checksum:=#s_EstadoCheckSum);
// Copia de checksum a valor de fabrica
IF #Copiar THEN
#s_CheckSumFabrica := #s_EstadoCheckSum;
END_IF;
END_REGION LECTURA_CHECKSUM
// ==========================================================================================================
REGION SALIDAS
// Checksum OK
#CheckSumOK := #s_EstadoCheckSum = #s_CheckSumFabrica;
END_REGION SALIDAS
END_NETWORK
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/FB3_ZC_CHECKSUM.scl
-106
View File
@@ -1,106 +0,0 @@
FUNCTION_BLOCK "FB3_ZC_CHECKSUM"
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
Comprobar : Bool;
Copiar : Bool;
END_VAR
VAR_OUTPUT
CheckSumOK : Bool;
END_VAR
VAR
s_GetCheckSum {InstructionName := 'GetChecksum'; LibVersion := '1.0'; ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'; S7_SetPoint := 'False'} : GetChecksum;
END_VAR
VAR RETAIN
s_EstadoCheckSum { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Array[0..7] of Byte;
s_CheckSumFabrica { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Array[0..7] of Byte;
END_VAR
VAR
s_Comprobar { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Bool;
s_OldComprobar { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Bool;
END_VAR
BEGIN
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2020 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
El bloque `FB3_CHECKSUM` implementa la lectura del checksum del programa actual del PLC y su comparación con el checksum de fábrica, permitiendo detectar modificaciones no autorizadas en el proyecto.
Funcionalidades principales:
- Detección de flanco ascendente en la entrada `#Comprobar` para ejecutar la comprobación bajo demanda (modo "pulso"), mediante la variable interna `#s_OldComprobar`.
- Lectura del checksum del bloque `Scope:=1` (objeto PLC) con `Range:=0` y `Subrange:=0` (rango completo), invocando la función de sistema `GetChecksum` a través del FB `GetChecksum` y depositando el resultado en `#s_EstadoCheckSum`.
- Captura del checksum de fábrica: cuando se activa la entrada `#Copiar`, se copia el checksum actual al valor de referencia `#s_CheckSumFabrica`, operación que se realiza una sola vez durante la puesta en marcha para fijar la línea base.
- Comparación continua entre el checksum actual y el de fábrica, exponiendo el resultado en la salida `#CheckSumOK` (TRUE cuando coinciden).
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | `GetChecksum` |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 28.09.2020 | (ABH) | Primera versión. |
| 01.00.01 | 02.07.2026 | (ABH) | Cambio a SCL. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION ORDEN_COMPROBACION
// Comprobacion mediante un pulso
#s_Comprobar := #Comprobar AND NOT #s_OldComprobar;
// Estado anterior
#s_OldComprobar := #Comprobar;
END_REGION ORDEN_COMPROBACION
// ==========================================================================================================
REGION LECTURA_CHECKSUM
// Comprobacion mediante un pulso
#s_GetCheckSum(Scope:=1,
Range:=0,
Subrange:=0,
Checksum:=#s_EstadoCheckSum);
// Copia de checksum a valor de fabrica
IF #Copiar THEN
#s_CheckSumFabrica := #s_EstadoCheckSum;
END_IF;
END_REGION LECTURA_CHECKSUM
// ==========================================================================================================
REGION SALIDAS
// Checksum OK
#CheckSumOK := #s_EstadoCheckSum = #s_CheckSumFabrica;
END_REGION SALIDAS
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/FC1_ZC_SISTEMA.s7dcl
+418
View File
@@ -0,0 +1,418 @@
{
S7_Author := "HCR";
S7_BlockComment := "MLC_3dQ";
S7_BlockTitle := "MLC_42k";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "2.0"
}
FUNCTION "FC1_ZC_SISTEMA" : Void
VAR_INPUT
{ S7_MLC := "MLC_576" }
CPU_MarcasCiclo : Byte;
{ S7_MLC := "MLC_4Mc" }
CPU_MarcasSistema : Byte;
{ S7_MLC := "MLC_3B7" }
RedProfinet : HW_IOSYSTEM;
END_VAR
VAR_TEMP
{ S7_MLC := "MLC_3bT" }
for_i : Int;
{ S7_MLC := "MLC_4GP" }
t_RetVal : Int;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función central para la gestión de marcas de sistema, temporizaciones generales, usuarios y resets del sistema.
En ella se realizan las siguientes acciones:
- Cálculo dinámico del tiempo de ciclo del OB1 (en milisegundos) evaluando la variable auxiliar con la instrucción RUNTIME.
- Tratamiento y registro de trazabilidad de los 10 pulsadores de acuse de alarmas y del pulsador de modificación de fecha/hora mediante la función FC15026_ZC_PULSADOR.
- Consolidación del acuse general (ACK), agrupando las activaciones del PLC de todos los pulsadores de reconocimiento en una única marca.
- Generación de marcas estáticas (ON fijo y OFF fijo) y captura del primer ciclo de escáner tras el arranque.
- Creación de pulsos temporizados (100 ms, 1 s, 2 s, 5 s, 1 min, 1 h) y señales Flip-Flop a partir de las marcas de ciclo del hardware de la CPU.
- Lectura constante de la fecha y hora local (RD_LOC_T) y ejecución de la escritura en el sistema (WR_SYS_T) ante una orden del HMI.
- Escaneo continuo de las órdenes de selección para determinar y fijar el usuario actualmente activo en el sistema.
- Ejecución bajo demanda del reset general del array de entidades (solo aplicable con procesos parados), reinicializando sus variables a estados de disponibilidad, limpieza y vacío.
- Llamada a la rutina DB3_CHECKSUM para la validación y gestión de la suma de comprobación del programa.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC15026_ZC_PULSADOR` |
| FB | `FB3_ZC_CHECKSUM` |
| DB | `DB1_SYS`, `DB3_CHECKSUM`, `DB6_ENTIDAD` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 03.11.2022 | (HCR) | Primera version. |
| 01.00.01 | 02.06.2023 | (ABH) | Optimizacion de bloque para integrar en libreria. Se eliminan marcas no utilizadas. Se reorganizan las variables y se ponen bien los comentarios. |
| 01.00.02 | 24.04.2025 | (HCR) | Se añade gestion de idioma. |
| 01.00.03 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 02.00.00 | 25.03.2026 | (ABH) | Se cambia lenguaje a SCL. Se eliminan idiomas. Se añade watchdog para comunicaciones. Se integra estado red profinet. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION TIEMPO_DE_CICLO
// Se almacena el tiempo de ciclo del OB1
"DB1_SYS".TiempoCiclo := LREAL_TO_REAL(RUNTIME("DB1_SYS".Aux.auxRuntime));
"DB1_SYS".TiempoCiclo := ("DB1_SYS".TiempoCiclo * 1000.0);
END_REGION TIEMPO_DE_CICLO
// ==========================================================================================================
REGION GESTION_PULSADORES
// Gestion pulsadores de ack
"DB1_SYS".Pulsador.Ack[0].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_01",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[0]);
"DB1_SYS".Pulsador.Ack[1].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_02",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[1]);
"DB1_SYS".Pulsador.Ack[2].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_03",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[2]);
"DB1_SYS".Pulsador.Ack[3].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_04",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[3]);
"DB1_SYS".Pulsador.Ack[4].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_05",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[4]);
"DB1_SYS".Pulsador.Ack[5].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_06",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[5]);
"DB1_SYS".Pulsador.Ack[6].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_07",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[6]);
"DB1_SYS".Pulsador.Ack[7].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_08",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[7]);
"DB1_SYS".Pulsador.Ack[8].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_09",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[8]);
"DB1_SYS".Pulsador.Ack[9].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_10",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[9]);
// Gestion pulsador cambio de fecha y hora
"DB1_SYS".Pulsador.EscribirFechaHora.Permiso := TRUE;
"DB1_SYS".Pulsador.EscribirFechaHora.Visibilidad := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_FECHA",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.EscribirFechaHora);
END_REGION GESTION_PULSADORES
// ==========================================================================================================
REGION GESTION_ACUSE_GENERAL
// Activacion de marca de acuse general
"DB1_SYS".ACK :=
"DB1_SYS".Pulsador.Ack[0].Plc OR
"DB1_SYS".Pulsador.Ack[1].Plc OR
"DB1_SYS".Pulsador.Ack[2].Plc OR
"DB1_SYS".Pulsador.Ack[3].Plc OR
"DB1_SYS".Pulsador.Ack[4].Plc OR
"DB1_SYS".Pulsador.Ack[5].Plc OR
"DB1_SYS".Pulsador.Ack[6].Plc OR
"DB1_SYS".Pulsador.Ack[7].Plc OR
"DB1_SYS".Pulsador.Ack[8].Plc OR
"DB1_SYS".Pulsador.Ack[9].Plc;
END_REGION GESTION_ACUSE_GENERAL
// ==========================================================================================================
REGION GESTION_MARCAS_GENERALES_Y_FLANCOS
// ==========================================================================================================
// Marca siempre a ON
"DB1_SYS".OFF := FALSE;
// Marca siempre a OFF
"DB1_SYS".ON := TRUE;
// Marca primer arranque
"DB1_SYS".ARRANQUE := #CPU_MarcasSistema.%X0;
// ==========================================================================================================
// Pulso por 100 ms
"DB1_SYS".Pulso100ms := #CPU_MarcasCiclo.%X0 AND NOT "DB1_SYS".Aux.P_Trig_Pulso100ms;
// Pulso por 1 segundo
"DB1_SYS".Pulso1seg := #CPU_MarcasCiclo.%X5 AND NOT "DB1_SYS".Aux.P_Trig_Pulso1Seg;
// Pulso por 2 segundos
"DB1_SYS".Pulso2seg := FALSE;
IF "DB1_SYS".Pulso1seg THEN
"DB1_SYS".Aux.Contador2seg += 1;
IF "DB1_SYS".Aux.Contador2seg >= 2 THEN
"DB1_SYS".Pulso2seg := TRUE;
"DB1_SYS".Aux.Contador2seg := 0;
END_IF;
END_IF;
// Pulso por 5 segundos
"DB1_SYS".Pulso5seg := FALSE;
IF "DB1_SYS".Pulso1seg THEN
"DB1_SYS".Aux.Contador5seg += 1;
IF "DB1_SYS".Aux.Contador5seg >= 5 THEN
"DB1_SYS".Pulso5seg := TRUE;
"DB1_SYS".Aux.Contador5seg := 0;
END_IF;
END_IF;
// Pulso por 1 minuto
"DB1_SYS".Pulso1min := FALSE;
IF "DB1_SYS".Pulso1seg THEN
"DB1_SYS".Aux.Contador1min += 1;
IF "DB1_SYS".Aux.Contador1min >= 60 THEN
"DB1_SYS".Pulso1min := TRUE;
"DB1_SYS".Aux.Contador1min := 0;
END_IF;
END_IF;
// Pulso por 1 hora
"DB1_SYS".Pulso1h := FALSE;
IF "DB1_SYS".Pulso1seg THEN
"DB1_SYS".Aux.Contador1h += 1;
IF "DB1_SYS".Aux.Contador1h >= 3600 THEN
"DB1_SYS".Pulso1h := TRUE;
"DB1_SYS".Aux.Contador1h := 0;
END_IF;
END_IF;
// ==========================================================================================================
// Flip Flop 1 segundo
IF "DB1_SYS".Pulso1seg AND NOT "DB1_SYS".FlipFlop1seg THEN
"DB1_SYS".FlipFlop1seg := TRUE;
ELSIF "DB1_SYS".Pulso1seg AND "DB1_SYS".FlipFlop1seg THEN
"DB1_SYS".FlipFlop1seg := FALSE;
END_IF;
// Flip Flop 2 segundos
IF "DB1_SYS".Pulso2seg AND NOT "DB1_SYS".FlipFlop2seg THEN
"DB1_SYS".FlipFlop2seg := TRUE;
ELSIF "DB1_SYS".Pulso2seg AND "DB1_SYS".FlipFlop2seg THEN
"DB1_SYS".FlipFlop2seg := FALSE;
END_IF;
// Flip Flop 5 segundos
IF "DB1_SYS".Pulso5seg AND NOT "DB1_SYS".FlipFlop5seg THEN
"DB1_SYS".FlipFlop5seg := TRUE;
ELSIF "DB1_SYS".Pulso5seg AND "DB1_SYS".FlipFlop5seg THEN
"DB1_SYS".FlipFlop5seg := FALSE;
END_IF;
// ==========================================================================================================
// Watchdog
IF "DB1_SYS".Pulso100ms THEN
"DB1_SYS".WatchDog += 1;
IF "DB1_SYS".WatchDog > 20000 THEN
"DB1_SYS".WatchDog := 0;
END_IF;
END_IF;
// ==========================================================================================================
// Estados anteriores
"DB1_SYS".Aux.P_Trig_Pulso100ms := #CPU_MarcasCiclo.%X0;
"DB1_SYS".Aux.P_Trig_Pulso1Seg := #CPU_MarcasCiclo.%X5;
END_REGION GESTION_MARCAS_GENERALES_Y_FLANCOS
// ==========================================================================================================
REGION FECHA_Y_HORA
// Lectura de fecha y hora actual
#t_RetVal := RD_LOC_T("DB1_SYS".FechaHoraActual);
// Escritura de fecha y hora nueva escrita manualmente desde HMI
IF "DB1_SYS".Pulsador.EscribirFechaHora.Plc THEN
#t_RetVal := WR_SYS_T("DB1_SYS".FechaHoraNuevaManual);
END_IF;
// Escritura de fecha y hora nueva escrita autoamticamente desde Script, Scada, etc...
IF "DB1_SYS".SincronizarFecha THEN
#t_RetVal := WR_SYS_T("DB1_SYS".FechaHoraNuevaAuto);
END_IF;
END_REGION FECHA_Y_HORA
// ==========================================================================================================
REGION USUARIOS
// Gestion de usuario actual para trazas
FOR #for_i := 0 TO 9 DO
IF "DB1_SYS".Usuario.Seleccion[#for_i].Orden THEN
"DB1_SYS".Usuario.Actual := "DB1_SYS".Usuario.Seleccion[#for_i].Usuario;
"DB1_SYS".Usuario.Seleccion[#for_i].Orden := FALSE;
EXIT;
END_IF;
END_FOR;
END_REGION USUARIOS
// ==========================================================================================================
REGION RESET_ENTIDADES
// Reset todas las entidades
// CUIDADO!!!!!!!!
// TIENEN QUE ESTAR TODOS LOS PROCESOS PARADOS!!!!!!
IF "DB1_SYS".ResetEntidades THEN
FOR #for_i := 1 TO "N_MAX_ENTIDAD" DO
"DB6_ENTIDAD".ENT[#for_i].Estado.EnProduccion :=
"DB6_ENTIDAD".ENT[#for_i].Estado.EnCIP :=
"DB6_ENTIDAD".ENT[#for_i].Estado.EnSIP :=
"DB6_ENTIDAD".ENT[#for_i].Estado.ConProducto :=
"DB6_ENTIDAD".ENT[#for_i].Estado.ConAgua :=
"DB6_ENTIDAD".ENT[#for_i].Estado.Vacia :=
"DB6_ENTIDAD".ENT[#for_i].Estado.Sucia := FALSE;
"DB6_ENTIDAD".ENT[#for_i].Habilitar :=
"DB6_ENTIDAD".ENT[#for_i].Estado.Disponible :=
"DB6_ENTIDAD".ENT[#for_i].Estado.Limpia := TRUE;
"DB6_ENTIDAD".ENT[#for_i].Estado.CodEstado := 0;
"DB6_ENTIDAD".ENT[#for_i].Asignacion := 0;
"DB6_ENTIDAD".ENT[#for_i].ID := #for_i;
END_FOR;
"DB1_SYS".ResetEntidades := FALSE;
END_IF;
END_REGION RESET_ENTIDADES
// ==========================================================================================================
REGION CHECKSUM
// Gestion de checksum del programa
"DB3_CHECKSUM"();
END_REGION CHECKSUM
// ==========================================================================================================
REGION RED_PROFINET
// Comprobacion de red profinet
#t_RetVal := DeviceStates(LADDR := #RedProfinet, MODE := 4, STATE := "DB1_SYS".RedProfinet);
END_REGION RED_PROFINET
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/FC1_ZC_SISTEMA.s7res
+15
View File
@@ -0,0 +1,15 @@
MultiLingualTexts:
- id: MLC_42k
es-ES: FC1_ZC_SISTEMA
- id: MLC_3dQ
es-ES: Funcion para gestion de marcas de sistema
- id: MLC_576
es-ES: Byte Marca de ciclo CPU
- id: MLC_4Mc
es-ES: Byte Marcas de sistema
- id: MLC_3B7
es-ES: ID Profinet IO System
- id: MLC_3bT
es-ES: Variable para bucles FOR
- id: MLC_4GP
es-ES: Variable temporal para su uso en programa
PLC/Bloques de programa/ZC_Estandar_Alimentacion/000_Sistema/000_DatosSistema/FC1_ZC_SISTEMA.scl
-410
View File
@@ -1,410 +0,0 @@
FUNCTION "FC1_ZC_SISTEMA" : Void
TITLE = FC1_ZC_SISTEMA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : HCR
FAMILY : ZeusControl
VERSION : 2.0
//Funcion para gestion de marcas de sistema
VAR_INPUT
CPU_MarcasCiclo : Byte; // Byte Marca de ciclo CPU
CPU_MarcasSistema : Byte; // Byte Marcas de sistema
RedProfinet : HW_IOSYSTEM; // ID Profinet IO System
END_VAR
VAR_TEMP
for_i : Int; // Variable para bucles FOR
t_RetVal : Int; // Variable temporal para su uso en programa
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función central para la gestión de marcas de sistema, temporizaciones generales, usuarios y resets del sistema.
En ella se realizan las siguientes acciones:
- Cálculo dinámico del tiempo de ciclo del OB1 (en milisegundos) evaluando la variable auxiliar con la instrucción RUNTIME.
- Tratamiento y registro de trazabilidad de los 10 pulsadores de acuse de alarmas y del pulsador de modificación de fecha/hora mediante la función FC15026_ZC_PULSADOR.
- Consolidación del acuse general (ACK), agrupando las activaciones del PLC de todos los pulsadores de reconocimiento en una única marca.
- Generación de marcas estáticas (ON fijo y OFF fijo) y captura del primer ciclo de escáner tras el arranque.
- Creación de pulsos temporizados (100 ms, 1 s, 2 s, 5 s, 1 min, 1 h) y señales Flip-Flop a partir de las marcas de ciclo del hardware de la CPU.
- Lectura constante de la fecha y hora local (RD_LOC_T) y ejecución de la escritura en el sistema (WR_SYS_T) ante una orden del HMI.
- Escaneo continuo de las órdenes de selección para determinar y fijar el usuario actualmente activo en el sistema.
- Ejecución bajo demanda del reset general del array de entidades (solo aplicable con procesos parados), reinicializando sus variables a estados de disponibilidad, limpieza y vacío.
- Llamada a la rutina DB3_CHECKSUM para la validación y gestión de la suma de comprobación del programa.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC15026_ZC_PULSADOR` |
| FB | `FB3_ZC_CHECKSUM` |
| DB | `DB1_SYS`, `DB3_CHECKSUM`, `DB6_ENTIDAD` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 03.11.2022 | (HCR) | Primera version. |
| 01.00.01 | 02.06.2023 | (ABH) | Optimizacion de bloque para integrar en libreria. Se eliminan marcas no utilizadas. Se reorganizan las variables y se ponen bien los comentarios. |
| 01.00.02 | 24.04.2025 | (HCR) | Se añade gestion de idioma. |
| 01.00.03 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 02.00.00 | 25.03.2026 | (ABH) | Se cambia lenguaje a SCL. Se eliminan idiomas. Se añade watchdog para comunicaciones. Se integra estado red profinet. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION TIEMPO_DE_CICLO
// Se almacena el tiempo de ciclo del OB1
"DB1_SYS".TiempoCiclo := LREAL_TO_REAL(RUNTIME("DB1_SYS".Aux.auxRuntime));
"DB1_SYS".TiempoCiclo := ("DB1_SYS".TiempoCiclo * 1000.0);
END_REGION TIEMPO_DE_CICLO
// ==========================================================================================================
REGION GESTION_PULSADORES
// Gestion pulsadores de ack
"DB1_SYS".Pulsador.Ack[0].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_01",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[0]);
"DB1_SYS".Pulsador.Ack[1].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_02",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[1]);
"DB1_SYS".Pulsador.Ack[2].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_03",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[2]);
"DB1_SYS".Pulsador.Ack[3].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_04",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[3]);
"DB1_SYS".Pulsador.Ack[4].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_05",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[4]);
"DB1_SYS".Pulsador.Ack[5].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_06",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[5]);
"DB1_SYS".Pulsador.Ack[6].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_07",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[6]);
"DB1_SYS".Pulsador.Ack[7].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_08",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[7]);
"DB1_SYS".Pulsador.Ack[8].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_09",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[8]);
"DB1_SYS".Pulsador.Ack[9].Permiso := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_ACK_10",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.Ack[9]);
// Gestion pulsador cambio de fecha y hora
"DB1_SYS".Pulsador.EscribirFechaHora.Permiso := TRUE;
"DB1_SYS".Pulsador.EscribirFechaHora.Visibilidad := TRUE;
"FC15026_ZC_PULSADOR"(Pulso1Seg := "DB1_SYS".Pulso1seg,
SP_Tiempo := 0,
TrazaCategoria := "TRZ_CAT_1_SYS",
TrazaIdProceso := 0,
TrazaIdPulsador := "TRZ_SYS_PUL_FECHA",
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
Pulsador := "DB1_SYS".Pulsador.EscribirFechaHora);
END_REGION GESTION_PULSADORES
// ==========================================================================================================
REGION GESTION_ACUSE_GENERAL
// Activacion de marca de acuse general
"DB1_SYS".ACK :=
"DB1_SYS".Pulsador.Ack[0].Plc OR
"DB1_SYS".Pulsador.Ack[1].Plc OR
"DB1_SYS".Pulsador.Ack[2].Plc OR
"DB1_SYS".Pulsador.Ack[3].Plc OR
"DB1_SYS".Pulsador.Ack[4].Plc OR
"DB1_SYS".Pulsador.Ack[5].Plc OR
"DB1_SYS".Pulsador.Ack[6].Plc OR
"DB1_SYS".Pulsador.Ack[7].Plc OR
"DB1_SYS".Pulsador.Ack[8].Plc OR
"DB1_SYS".Pulsador.Ack[9].Plc;
END_REGION GESTION_ACUSE_GENERAL
// ==========================================================================================================
REGION GESTION_MARCAS_GENERALES_Y_FLANCOS
// ==========================================================================================================
// Marca siempre a ON
"DB1_SYS".OFF := FALSE;
// Marca siempre a OFF
"DB1_SYS".ON := TRUE;
// Marca primer arranque
"DB1_SYS".ARRANQUE := #CPU_MarcasSistema.%X0;
// ==========================================================================================================
// Pulso por 100 ms
"DB1_SYS".Pulso100ms := #CPU_MarcasCiclo.%X0 AND NOT "DB1_SYS".Aux.P_Trig_Pulso100ms;
// Pulso por 1 segundo
"DB1_SYS".Pulso1seg := #CPU_MarcasCiclo.%X5 AND NOT "DB1_SYS".Aux.P_Trig_Pulso1Seg;
// Pulso por 2 segundos
"DB1_SYS".Pulso2seg := FALSE;
IF "DB1_SYS".Pulso1seg THEN
"DB1_SYS".Aux.Contador2seg += 1;
IF "DB1_SYS".Aux.Contador2seg >= 2 THEN
"DB1_SYS".Pulso2seg := TRUE;
"DB1_SYS".Aux.Contador2seg := 0;
END_IF;
END_IF;
// Pulso por 5 segundos
"DB1_SYS".Pulso5seg := FALSE;
IF "DB1_SYS".Pulso1seg THEN
"DB1_SYS".Aux.Contador5seg += 1;
IF "DB1_SYS".Aux.Contador5seg >= 5 THEN
"DB1_SYS".Pulso5seg := TRUE;
"DB1_SYS".Aux.Contador5seg := 0;
END_IF;
END_IF;
// Pulso por 1 minuto
"DB1_SYS".Pulso1min := FALSE;
IF "DB1_SYS".Pulso1seg THEN
"DB1_SYS".Aux.Contador1min += 1;
IF "DB1_SYS".Aux.Contador1min >= 60 THEN
"DB1_SYS".Pulso1min := TRUE;
"DB1_SYS".Aux.Contador1min := 0;
END_IF;
END_IF;
// Pulso por 1 hora
"DB1_SYS".Pulso1h := FALSE;
IF "DB1_SYS".Pulso1seg THEN
"DB1_SYS".Aux.Contador1h += 1;
IF "DB1_SYS".Aux.Contador1h >= 3600 THEN
"DB1_SYS".Pulso1h := TRUE;
"DB1_SYS".Aux.Contador1h := 0;
END_IF;
END_IF;
// ==========================================================================================================
// Flip Flop 1 segundo
IF "DB1_SYS".Pulso1seg AND NOT "DB1_SYS".FlipFlop1seg THEN
"DB1_SYS".FlipFlop1seg := TRUE;
ELSIF "DB1_SYS".Pulso1seg AND "DB1_SYS".FlipFlop1seg THEN
"DB1_SYS".FlipFlop1seg := FALSE;
END_IF;
// Flip Flop 2 segundos
IF "DB1_SYS".Pulso2seg AND NOT "DB1_SYS".FlipFlop2seg THEN
"DB1_SYS".FlipFlop2seg := TRUE;
ELSIF "DB1_SYS".Pulso2seg AND "DB1_SYS".FlipFlop2seg THEN
"DB1_SYS".FlipFlop2seg := FALSE;
END_IF;
// Flip Flop 5 segundos
IF "DB1_SYS".Pulso5seg AND NOT "DB1_SYS".FlipFlop5seg THEN
"DB1_SYS".FlipFlop5seg := TRUE;
ELSIF "DB1_SYS".Pulso5seg AND "DB1_SYS".FlipFlop5seg THEN
"DB1_SYS".FlipFlop5seg := FALSE;
END_IF;
// ==========================================================================================================
// Watchdog
IF "DB1_SYS".Pulso100ms THEN
"DB1_SYS".WatchDog += 1;
IF "DB1_SYS".WatchDog > 20000 THEN
"DB1_SYS".WatchDog := 0;
END_IF;
END_IF;
// ==========================================================================================================
// Estados anteriores
"DB1_SYS".Aux.P_Trig_Pulso100ms := #CPU_MarcasCiclo.%X0;
"DB1_SYS".Aux.P_Trig_Pulso1Seg := #CPU_MarcasCiclo.%X5;
END_REGION GESTION_MARCAS_GENERALES_Y_FLANCOS
// ==========================================================================================================
REGION FECHA_Y_HORA
// Lectura de fecha y hora actual
#t_RetVal := RD_LOC_T("DB1_SYS".FechaHoraActual);
// Escritura de fecha y hora nueva escrita manualmente desde HMI
IF "DB1_SYS".Pulsador.EscribirFechaHora.Plc THEN
#t_RetVal := WR_SYS_T("DB1_SYS".FechaHoraNuevaManual);
END_IF;
// Escritura de fecha y hora nueva escrita autoamticamente desde Script, Scada, etc...
IF "DB1_SYS".SincronizarFecha THEN
#t_RetVal := WR_SYS_T("DB1_SYS".FechaHoraNuevaAuto);
END_IF;
END_REGION FECHA_Y_HORA
// ==========================================================================================================
REGION USUARIOS
// Gestion de usuario actual para trazas
FOR #for_i := 0 TO 9 DO
IF "DB1_SYS".Usuario.Seleccion[#for_i].Orden THEN
"DB1_SYS".Usuario.Actual := "DB1_SYS".Usuario.Seleccion[#for_i].Usuario;
"DB1_SYS".Usuario.Seleccion[#for_i].Orden := FALSE;
EXIT;
END_IF;
END_FOR;
END_REGION USUARIOS
// ==========================================================================================================
REGION RESET_ENTIDADES
// Reset todas las entidades
// CUIDADO!!!!!!!!
// TIENEN QUE ESTAR TODOS LOS PROCESOS PARADOS!!!!!!
IF "DB1_SYS".ResetEntidades THEN
FOR #for_i := 1 TO "N_MAX_ENTIDAD" DO
"DB6_ENTIDAD".ENT[#for_i].Estado.EnProduccion :=
"DB6_ENTIDAD".ENT[#for_i].Estado.EnCIP :=
"DB6_ENTIDAD".ENT[#for_i].Estado.EnSIP :=
"DB6_ENTIDAD".ENT[#for_i].Estado.ConProducto :=
"DB6_ENTIDAD".ENT[#for_i].Estado.ConAgua :=
"DB6_ENTIDAD".ENT[#for_i].Estado.Vacia :=
"DB6_ENTIDAD".ENT[#for_i].Estado.Sucia := FALSE;
"DB6_ENTIDAD".ENT[#for_i].Habilitar :=
"DB6_ENTIDAD".ENT[#for_i].Estado.Disponible :=
"DB6_ENTIDAD".ENT[#for_i].Estado.Limpia := TRUE;
"DB6_ENTIDAD".ENT[#for_i].Estado.CodEstado := 0;
"DB6_ENTIDAD".ENT[#for_i].Asignacion := 0;
"DB6_ENTIDAD".ENT[#for_i].ID := #for_i;
END_FOR;
"DB1_SYS".ResetEntidades := FALSE;
END_IF;
END_REGION RESET_ENTIDADES
// ==========================================================================================================
REGION CHECKSUM
// Gestion de checksum del programa
"DB3_CHECKSUM"();
END_REGION CHECKSUM
// ==========================================================================================================
REGION RED_PROFINET
// Comprobacion de red profinet
#t_RetVal := DeviceStates(LADDR := #RedProfinet, MODE := 4, STATE := "DB1_SYS".RedProfinet);
END_REGION RED_PROFINET
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15102_ZC_CALCULO_FCV_UF.s7dcl
+361
View File
@@ -0,0 +1,361 @@
{
S7_Author := "HCR";
S7_BlockComment := "MLC_3sr";
S7_BlockNumber := "15102";
S7_BlockTitle := "MLC_qJ";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION_BLOCK "FB15102_ZC_CALCULO_FCV_UF"
VAR_INPUT
{ S7_MLC := "MLC_546" }
Pulso1Seg : Bool;
{ S7_MLC := "MLC_5AL" }
ActivarCalculosCaudal : Bool;
{ S7_MLC := "MLC_mA" }
ActivarControlPresion : Bool;
{ S7_MLC := "MLC_eL" }
Marcha : Bool;
{ S7_MLC := "MLC_t4" }
EtapaRecircProd : Bool;
{ S7_MLC := "MLC_ri" }
CaudalTotalPermeado : Real;
{ S7_MLC := "MLC_4XA" }
SP_FCV : Real;
{ S7_MLC := "MLC_3s2" }
SP_CaudalMaximoEntrada : Real;
{ S7_MLC := "MLC_32z" }
SP_PorcientoPermeadoTotal : Real;
{ S7_MLC := "MLC_4dw" }
SP_BajoCaudalPermeado : Real;
{ S7_MLC := "MLC_hZ" }
SP_PresionInicial : Real;
{ S7_MLC := "MLC_3kE" }
SP_IncrementosPresion : Real;
{ S7_MLC := "MLC_3WS" }
SP_PresionMaxima : Real;
{ S7_MLC := "MLC_33v" }
SP_TiempoMuestreoPresion : Int;
{ S7_MLC := "MLC_4xx" }
SP_PorcentajeDecremento : Real;
{ S7_MLC := "MLC_3DC" }
SP_CaudalMinConcentrado : Real;
{ S7_MLC := "MLC_Z8" }
SP_TiempoDecrementos : Int;
{ S7_MLC := "MLC_ds" }
BotonReset : Bool;
END_VAR
VAR_OUTPUT
{ S7_MLC := "MLC_3VM" }
SP_CaudalTeoricoEntrada : Real;
{ S7_MLC := "MLC_Yw" }
SP_CaudalPermeado : Real;
{ S7_MLC := "MLC_3Qd" }
SP_Presion : Real;
{ S7_MLC := "MLC_Za" }
ErrorDiferenciaPermeado : Bool;
{ S7_MLC := "MLC_3CS" }
VisibilidadConsignasCaudal : Bool;
{ S7_MLC := "MLC_4by" }
VisibilidadConsignasPresion : Bool;
{ S7_MLC := "MLC_3df" }
VisibilidadConsignaCaudalDec : Bool;
{ S7_MLC := "MLC_4tj" }
PermisoReset : Bool;
{ S7_MLC := "MLC_3Qx" }
AjusteSP_CaudalConcentrado : Bool;
{ S7_MLC := "MLC_4iH" }
MaxPresionAlcanzada : Bool;
END_VAR
VAR_IN_OUT
{ S7_MLC := "MLC_43k" }
SP_CaudalConcentrado : Real;
{ S7_MLC := "MLC_46z" }
SP_CaudalPermeadoTotal : Real;
{ S7_MLC := "MLC_4FE" }
ForzarIncrementos : Bool;
END_VAR
VAR RETAIN
{ S7_MLC := "MLC_4CB" }
s_SP_Presion : Real;
{ S7_MLC := "MLC_3py" }
s_old_SP_CaudalConcentrado : Real;
{ S7_MLC := "MLC_4pQ" }
s_old_SP_FCV : Real;
END_VAR
VAR
{ S7_MLC := "MLC_4rA" }
s_DiferenciaCaudalPermeado : Real;
{ S7_MLC := "MLC_4u3" }
s_BajoCaudalPermeado : Bool;
{ S7_MLC := "MLC_gA" }
s_MaxPresionAlcanzada : Bool;
{ S7_MLC := "MLC_4iE" }
s_SP_CaudalConcentrado : Real;
{ S7_Setpoint := "False" }
s_TON : Array[0..1] of _.UDT_ZC_DISP_TON := [
{ S7_MLC := "MLC_3wk" }
(),
{ S7_MLC := "MLC_3cc" }
()
];
END_VAR
VAR_TEMP
{ S7_MLC := "MLC_3cE" }
t_CaudalTeoricoEntrada : Real;
END_VAR
VAR CONSTANT
{ S7_MLC := "MLC_3Nk" }
LIM_MIN_CAUDAL_PERMEADO_TOTAL : Real;
{ S7_MLC := "MLC_53J" }
LIM_MAX_CAUDAL_PERMEADO_TOTAL : Real := 100.0;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
El bloque `FB15102_ZC_CALCULO_FCV_UF` implementa el cálculo de la consigna de FCV (factor de conversión volumétrica) para máquinas de membranas de ultrafiltración, a partir de las consignas de caudal de concentrado y de FCV. Gestiona además el control de presión por incrementos/decrementos para mantener el caudal de permeado total dentro de los objetivos del proceso.
Funcionalidades principales:
- Validación de entradas: se detecta error (`ErrorDiferenciaPermeado`) cuando la consigna `SP_PorcientoPermeadoTotal` está fuera del rango definido por `LIM_MIN_CAUDAL_PERMEADO_TOTAL` y `LIM_MAX_CAUDAL_PERMEADO_TOTAL`. En caso de error, el cálculo del caudal teórico de permeado total se realiza con un valor de seguridad del 1%.
- Cálculo de caudales teóricos: a partir de `SP_CaudalConcentrado` y `SP_FCV` se obtiene el caudal teórico de entrada (`SP_CaudalTeoricoEntrada`) y, por diferencia, el caudal teórico de permeado (`SP_CaudalPermeado`). Si el caudal teórico de entrada supera el `SP_CaudalMaximoEntrada`, la consigna de concentrado se reduce automáticamente, activando el flag `AjusteSP_CaudalConcentrado` para señalizar el reescalado al exterior.
- Cálculo de caudal de permeado total: `SP_CaudalPermeadoTotal` se obtiene aplicando el porcentaje de permeado total al caudal de permeado teórico.
- Detección de bajo caudal de permeado: se calcula la diferencia entre el caudal teórico y el real (`CaudalTotalPermeado`). El flag `s_BajoCaudalPermeado` se activa cuando la diferencia es positiva pero inferior al umbral `SP_BajoCaudalPermeado`, o cuando el teórico es superior al real.
- Control de presión por incrementos: mediante un temporizador (`FC2928_ZC_TON_INDV` con estructura `ZC_TON`) se incrementa progresivamente la consigna `s_SP_Presion` en pasos `SP_IncrementosPresion` cuando se detecta bajo caudal de permeado, hasta alcanzar `SP_PresionMaxima`. Se permite reset a `SP_PresionInicial` mediante la entrada `BotonReset`, así como el disparo manual de un incremento con `ForzarIncrementos`.
- Lógica de decrementos de caudal: cuando se alcanza la presión máxima (`s_MaxPresionAlcanzada`) y el caudal real sigue por debajo del teórico, un segundo temporizador (`s_TON[1]`) reduce progresivamente la consigna de concentrado aplicando un porcentaje `SP_PorcentajeDecremento`, acotado inferiormente por `SP_CaudalMinConcentrado`. Cada ajuste activa `AjusteSP_CaudalConcentrado`.
- Modo no activo: cuando `ActivarCalculosCaudal` o `ActivarControlPresion` están desactivados, todas las salidas y variables internas se resetean a sus valores neutros, manteniendo únicamente la presión inicial si el proceso no se encuentra en recirculación de producto (`EtapaRecircProd`).
- Salidas de visibilidad HMI: `VisibilidadConsignasCaudal`, `VisibilidadConsignasPresion` y `VisibilidadConsignaCaudalDec` se exponen para que el sistema de supervisión muestre u oculte las pantallas de consignas según la etapa activa del bloque.
- Memoria de consignas anteriores: al final del bloque se actualizan `s_old_SP_CaudalConcentrado` y `s_old_SP_FCV` para la detección de cambios en el siguiente ciclo.
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC2928_ZC_TON_INDV` |
| FB | - |
| DB | - |
| UDT | `ZC_TON` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 24.05.2023 | (HCR) | Primera versión. |
| 01.00.01 | 04.03.2024 | (HCR) | Se corrige gestión de `SP_Presion`. Se añade variable estática para su gestión. |
| 01.00.02 | 10.11.2025 | (ABH) | Se añade salida `AjusteSP_CaudalConcentrado` para poder realizar escritura de parámetros fuera del bloque. |
| 01.00.03 | 20.11.2025 | (CNR) | Se añade lógica de funcionamiento por decrementos. |
| 01.00.04 | 28.11.2025 | (ABH) | Se elimina la parte de la diafiltración. Se añade gestión con temporizadores ZC. Se eliminan variables externas al bloque. Se estandariza el nombre de variables. |
*)
END_REGION DESCRIPCION
REGION ERROR
// ====================================================
// SP_PorcientoPermeadoTotal fuera de rango
#ErrorDiferenciaPermeado := (#SP_PorcientoPermeadoTotal < #LIM_MIN_CAUDAL_PERMEADO_TOTAL OR #SP_PorcientoPermeadoTotal > #LIM_MAX_CAUDAL_PERMEADO_TOTAL);
END_REGION
REGION CALCULO_FCV
// Reinicializacion de valores
#AjusteSP_CaudalConcentrado := FALSE;
// ====================================================
// Modo activo
IF #ActivarCalculosCaudal THEN
#s_SP_CaudalConcentrado := #SP_CaudalConcentrado;
// ====================================================
// Cambio de consigna caudal de concentrado
IF #s_SP_CaudalConcentrado <> #s_old_SP_CaudalConcentrado OR #SP_FCV <> #s_old_SP_FCV THEN
// Cálculo temporal de caudal teórico de entrada
#t_CaudalTeoricoEntrada := #s_SP_CaudalConcentrado * #SP_FCV;
// Comparación con el caudal máximo de entrada
IF #t_CaudalTeoricoEntrada > #SP_CaudalMaximoEntrada THEN
// Recalcular caudal de concentrado
#s_SP_CaudalConcentrado := #SP_CaudalMaximoEntrada / #SP_FCV;
#AjusteSP_CaudalConcentrado := TRUE;
END_IF;
END_IF;
// Cálculo caudal teórico de entrada
#SP_CaudalTeoricoEntrada := #s_SP_CaudalConcentrado * #SP_FCV;
// Cálculo caudal teórico de permeado
#SP_CaudalPermeado := #SP_CaudalTeoricoEntrada - #s_SP_CaudalConcentrado;
// Cálculo caudal teórico de permeado total
IF NOT #ErrorDiferenciaPermeado THEN
#SP_CaudalPermeadoTotal := #SP_CaudalPermeado * ((#SP_PorcientoPermeadoTotal / 100) + 1);
ELSE
#SP_CaudalPermeadoTotal := #SP_CaudalPermeado * ((1 / 100) + 1);
END_IF;
// Comprobación bajo caudal de permeado total para incremento de presión
IF #SP_CaudalPermeadoTotal > #CaudalTotalPermeado THEN
#s_DiferenciaCaudalPermeado := #SP_CaudalPermeadoTotal - #CaudalTotalPermeado;
ELSE
#s_DiferenciaCaudalPermeado := 0.0;
END_IF;
#s_BajoCaudalPermeado := (#s_DiferenciaCaudalPermeado < #SP_BajoCaudalPermeado AND #s_DiferenciaCaudalPermeado > 0.0 ) OR (#SP_CaudalPermeadoTotal > #CaudalTotalPermeado);
ELSE
// ====================================================
// Modo no activo
#SP_CaudalTeoricoEntrada := 0.0;
#SP_CaudalPermeado := 0.0;
#SP_CaudalPermeadoTotal := 0.0;
#s_DiferenciaCaudalPermeado := 0.0;
#s_BajoCaudalPermeado := FALSE;
#s_MaxPresionAlcanzada := FALSE;
END_IF;
END_REGION
REGION PRESION
REGION TEMPORIZADOR
// ====================================================
// Temporizador para incrementos de presión
// Configuración temporizador
#s_TON[0].SP := #SP_TiempoMuestreoPresion;
#s_TON[0].IN := NOT #s_TON[0].Q AND #ActivarControlPresion AND #Marcha AND #s_BajoCaudalPermeado AND NOT #BotonReset AND (#s_SP_Presion < #SP_PresionMaxima);
"FC2928_ZC_TON_INDV"(Pulso1seg:=#Pulso1Seg,
TON:=#s_TON[0]);
END_REGION
IF #ActivarControlPresion THEN
#PermisoReset := TRUE;
// ====================================================
// Incrementos de presión
IF #s_TON[0].Q OR #ForzarIncrementos AND (#s_SP_Presion < #SP_PresionMaxima) THEN
#ForzarIncrementos := FALSE;
#s_SP_Presion += #SP_IncrementosPresion;
// Si el valor de presión calculado es mayor a la presión máxima, movemos la consigna máxima de presión
IF #s_SP_Presion > #SP_PresionMaxima THEN
#s_SP_Presion := #SP_PresionMaxima;
END_IF;
END_IF;
// Reset valor de presión a presión inicial
IF #BotonReset THEN
#s_SP_Presion := #SP_PresionInicial;
END_IF;
ELSE
IF NOT #EtapaRecircProd THEN
#s_SP_Presion := #SP_PresionInicial;
END_IF;
#ForzarIncrementos := FALSE;
#PermisoReset := FALSE;
END_IF;
// ====================================================
// Limite presion
IF #s_SP_Presion < #SP_PresionInicial THEN
#s_SP_Presion := #SP_PresionInicial;
END_IF;
END_REGION
REGION DECREMENTOS_CAUDAL
REGION TEMPORIZADOR
// ====================================================
// Temporizador para decrementos de caudal
// Configuración temporizador
#s_TON[1].SP := #SP_TiempoDecrementos;
#s_TON[1].IN := NOT #s_TON[1].Q AND #ActivarControlPresion AND #Marcha AND #s_MaxPresionAlcanzada AND (#CaudalTotalPermeado < #SP_CaudalPermeadoTotal);
"FC2928_ZC_TON_INDV"(Pulso1seg:=#Pulso1Seg,
TON:=#s_TON[1]);
END_REGION
IF #ActivarControlPresion THEN
// Presion máxima alcanzada
IF #s_SP_Presion >= #SP_PresionMaxima THEN
#s_MaxPresionAlcanzada := TRUE;
ELSE
#s_MaxPresionAlcanzada := FALSE;
END_IF;
// ====================================================
// Decrementos de caudal
IF #s_TON[1].Q AND (#s_SP_CaudalConcentrado > #SP_CaudalMinConcentrado) THEN
#s_SP_CaudalConcentrado := #s_SP_CaudalConcentrado * (1 - (#SP_PorcentajeDecremento / 100.0));
// Si el valor de caudal calculado es menor al caudal minimo, movemos la consigna minima de caudal
IF #s_SP_CaudalConcentrado < #SP_CaudalMinConcentrado THEN
#s_SP_CaudalConcentrado := #SP_CaudalMinConcentrado;
END_IF;
#AjusteSP_CaudalConcentrado := TRUE;
END_IF;
END_IF;
END_REGION
REGION SALIDAS
// ====================================================
// Salida de presion
#SP_Presion := #s_SP_Presion;
// ====================================================
// Maxima presion alcanzada
#MaxPresionAlcanzada := #s_MaxPresionAlcanzada;
// ====================================================
// Visibilidad en HMI
#VisibilidadConsignasCaudal := #ActivarCalculosCaudal;
#VisibilidadConsignasPresion := #ActivarControlPresion;
#VisibilidadConsignaCaudalDec := #ActivarControlPresion AND #s_MaxPresionAlcanzada;
#SP_CaudalConcentrado := #s_SP_CaudalConcentrado;
END_REGION ;
// Estados anteriores
#s_old_SP_CaudalConcentrado := #s_SP_CaudalConcentrado;
#s_old_SP_FCV := #SP_FCV;
END_NETWORK
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15102_ZC_CALCULO_FCV_UF.s7res
+91
View File
@@ -0,0 +1,91 @@
MultiLingualTexts:
- id: MLC_qJ
es-ES: FB15102_ZC_CALCULO_FCV_UF
- id: MLC_3sr
es-ES: Bloque de funcion para la gestion del cálculo de FCV según consignas de caudal de concentrado y consigna de FCV, para máquinas de membranas
- id: MLC_546
es-ES: Pulso de 1 segundo
- id: MLC_5AL
es-ES: Activar calculos caudal
- id: MLC_mA
es-ES: Activar control presion
- id: MLC_eL
es-ES: Estado marcha
- id: MLC_t4
es-ES: Etapa recirculacion produccion
- id: MLC_ri
es-ES: CaudalInstantáneo de permeado
- id: MLC_4XA
es-ES: Consigna FCV
- id: MLC_3s2
es-ES: Consigna máxima caudal de entrada
- id: MLC_32z
es-ES: Diferencia entre consigna de permeado y permeado total
- id: MLC_4dw
es-ES: Consigna de caudal para corregir
- id: MLC_hZ
es-ES: Consigna de presión inicial
- id: MLC_3kE
es-ES: Consigna de incrementos de presión
- id: MLC_3WS
es-ES: Consigna máxima de presión
- id: MLC_33v
es-ES: Consigna tiempo de mustreo incremento de presión
- id: MLC_4xx
es-ES: '% de decremento caudal concentrado'
- id: MLC_3DC
es-ES: Caudal minimo de concentrado en decrementos
- id: MLC_Z8
es-ES: Consigna tiempo entre decrementos
- id: MLC_ds
es-ES: Orden pulsador reset presión
- id: MLC_3VM
es-ES: Consigna teorica caudal de entrada
- id: MLC_Yw
es-ES: Consigna caudal total permeado
- id: MLC_3Qd
es-ES: Consigna de presión
- id: MLC_Za
es-ES: Error porcentaje caudal permeado total fuera de rango
- id: MLC_3CS
es-ES: Visibilidad de consignas calculadas de caudal
- id: MLC_4by
es-ES: Visibilidad de consignas calculadas de presion
- id: MLC_3df
es-ES: Visibilidad de consignas caudal decremento
- id: MLC_4tj
es-ES: Permiso Reset Pulsador de presión
- id: MLC_3Qx
es-ES: Orden de ajuste set point caudal concentrado
- id: MLC_4iH
es-ES: Maxima presion alcanzada
- id: MLC_43k
es-ES: Consigna caudal de concentrado
- id: MLC_46z
es-ES: Consigna de permeado total
- id: MLC_4FE
es-ES: Forzar incrementos de presión
- id: MLC_4CB
es-ES: Calculo interno set point presion
- id: MLC_3py
es-ES: Estado anterior set point caudal concentrado
- id: MLC_4pQ
es-ES: Estado anterior set point FCV
- id: MLC_4rA
es-ES: Diferencia caudal permeado
- id: MLC_4u3
es-ES: Bajo caudal permeado activo
- id: MLC_gA
es-ES: Maxima presion alcanzada
- id: MLC_4iE
es-ES: Calculo interno set point caudal concentrado
- id: MLC_3wk
es-ES: Temporizador incrementos
- id: MLC_3cc
es-ES: Temporizador decrementos
- id: MLC_3cE
es-ES: Calculo caudal teorico entrada
- id: MLC_3Nk
es-ES: Porciento mínimo diferencia caudal total de permeado
- id: MLC_53J
es-ES: Porciento máximo diferencia caudal total de permeado
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15102_ZC_CALCULO_FCV_UF.scl
-314
View File
@@ -1,314 +0,0 @@
FUNCTION_BLOCK "FB15102_ZC_CALCULO_FCV_UF"
TITLE = FB15102_ZC_CALCULO_FCV_UF
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : HCR
FAMILY : ZeusControl
VERSION : 1.0
//Bloque de funcion para la gestion del cálculo de FCV según consignas de caudal de concentrado y consigna de FCV, para máquinas de membranas
VAR_INPUT
Pulso1Seg : Bool; // Pulso de 1 segundo
ActivarCalculosCaudal : Bool; // Activar calculos caudal
ActivarControlPresion : Bool; // Activar control presion
Marcha : Bool; // Estado marcha
EtapaRecircProd : Bool; // Etapa recirculacion produccion
CaudalTotalPermeado : Real; // CaudalInstantáneo de permeado
SP_FCV : Real; // Consigna FCV
SP_CaudalMaximoEntrada : Real; // Consigna máxima caudal de entrada
SP_PorcientoPermeadoTotal : Real; // Diferencia entre consigna de permeado y permeado total
SP_BajoCaudalPermeado : Real; // Consigna de caudal para corregir
SP_PresionInicial : Real; // Consigna de presión inicial
SP_IncrementosPresion : Real; // Consigna de incrementos de presión
SP_PresionMaxima : Real; // Consigna máxima de presión
SP_TiempoMuestreoPresion : Int; // Consigna tiempo de mustreo incremento de presión
SP_PorcentajeDecremento : Real; // % de decremento caudal concentrado
SP_CaudalMinConcentrado : Real; // Caudal minimo de concentrado en decrementos
SP_TiempoDecrementos : Int; // Consigna tiempo entre decrementos
BotonReset : Bool; // Orden pulsador reset presión
END_VAR
VAR_OUTPUT
SP_CaudalTeoricoEntrada : Real; // Consigna teorica caudal de entrada
SP_CaudalPermeado : Real; // Consigna caudal total permeado
SP_Presion : Real; // Consigna de presión
ErrorDiferenciaPermeado : Bool; // Error porcentaje caudal permeado total fuera de rango
VisibilidadConsignasCaudal : Bool; // Visibilidad de consignas calculadas de caudal
VisibilidadConsignasPresion : Bool; // Visibilidad de consignas calculadas de presion
VisibilidadConsignaCaudalDec : Bool; // Visibilidad de consignas caudal decremento
PermisoReset : Bool; // Permiso Reset Pulsador de presión
AjusteSP_CaudalConcentrado : Bool; // Orden de ajuste set point caudal concentrado
MaxPresionAlcanzada : Bool; // Maxima presion alcanzada
END_VAR
VAR_IN_OUT
SP_CaudalConcentrado : Real; // Consigna caudal de concentrado
SP_CaudalPermeadoTotal : Real; // Consigna de permeado total
ForzarIncrementos : Bool; // Forzar incrementos de presión
END_VAR
VAR RETAIN
s_SP_Presion : Real; // Calculo interno set point presion
s_old_SP_CaudalConcentrado : Real; // Estado anterior set point caudal concentrado
s_old_SP_FCV : Real; // Estado anterior set point FCV
END_VAR
VAR
s_DiferenciaCaudalPermeado : Real; // Diferencia caudal permeado
s_BajoCaudalPermeado : Bool; // Bajo caudal permeado activo
s_MaxPresionAlcanzada : Bool; // Maxima presion alcanzada
s_SP_CaudalConcentrado : Real; // Calculo interno set point caudal concentrado
s_TON { S7_SetPoint := 'False'} : Array[0..1] of "UDT_ZC_DISP_TON";
END_VAR
VAR_TEMP
t_CaudalTeoricoEntrada : Real; // Calculo caudal teorico entrada
END_VAR
VAR CONSTANT
LIM_MIN_CAUDAL_PERMEADO_TOTAL : Real; // Porciento mínimo diferencia caudal total de permeado
LIM_MAX_CAUDAL_PERMEADO_TOTAL : Real := 100.0; // Porciento máximo diferencia caudal total de permeado
END_VAR
BEGIN
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
El bloque `FB15102_ZC_CALCULO_FCV_UF` implementa el cálculo de la consigna de FCV (factor de conversión volumétrica) para máquinas de membranas de ultrafiltración, a partir de las consignas de caudal de concentrado y de FCV. Gestiona además el control de presión por incrementos/decrementos para mantener el caudal de permeado total dentro de los objetivos del proceso.
Funcionalidades principales:
- Validación de entradas: se detecta error (`ErrorDiferenciaPermeado`) cuando la consigna `SP_PorcientoPermeadoTotal` está fuera del rango definido por `LIM_MIN_CAUDAL_PERMEADO_TOTAL` y `LIM_MAX_CAUDAL_PERMEADO_TOTAL`. En caso de error, el cálculo del caudal teórico de permeado total se realiza con un valor de seguridad del 1%.
- Cálculo de caudales teóricos: a partir de `SP_CaudalConcentrado` y `SP_FCV` se obtiene el caudal teórico de entrada (`SP_CaudalTeoricoEntrada`) y, por diferencia, el caudal teórico de permeado (`SP_CaudalPermeado`). Si el caudal teórico de entrada supera el `SP_CaudalMaximoEntrada`, la consigna de concentrado se reduce automáticamente, activando el flag `AjusteSP_CaudalConcentrado` para señalizar el reescalado al exterior.
- Cálculo de caudal de permeado total: `SP_CaudalPermeadoTotal` se obtiene aplicando el porcentaje de permeado total al caudal de permeado teórico.
- Detección de bajo caudal de permeado: se calcula la diferencia entre el caudal teórico y el real (`CaudalTotalPermeado`). El flag `s_BajoCaudalPermeado` se activa cuando la diferencia es positiva pero inferior al umbral `SP_BajoCaudalPermeado`, o cuando el teórico es superior al real.
- Control de presión por incrementos: mediante un temporizador (`FC2928_ZC_TON_INDV` con estructura `ZC_TON`) se incrementa progresivamente la consigna `s_SP_Presion` en pasos `SP_IncrementosPresion` cuando se detecta bajo caudal de permeado, hasta alcanzar `SP_PresionMaxima`. Se permite reset a `SP_PresionInicial` mediante la entrada `BotonReset`, así como el disparo manual de un incremento con `ForzarIncrementos`.
- Lógica de decrementos de caudal: cuando se alcanza la presión máxima (`s_MaxPresionAlcanzada`) y el caudal real sigue por debajo del teórico, un segundo temporizador (`s_TON[1]`) reduce progresivamente la consigna de concentrado aplicando un porcentaje `SP_PorcentajeDecremento`, acotado inferiormente por `SP_CaudalMinConcentrado`. Cada ajuste activa `AjusteSP_CaudalConcentrado`.
- Modo no activo: cuando `ActivarCalculosCaudal` o `ActivarControlPresion` están desactivados, todas las salidas y variables internas se resetean a sus valores neutros, manteniendo únicamente la presión inicial si el proceso no se encuentra en recirculación de producto (`EtapaRecircProd`).
- Salidas de visibilidad HMI: `VisibilidadConsignasCaudal`, `VisibilidadConsignasPresion` y `VisibilidadConsignaCaudalDec` se exponen para que el sistema de supervisión muestre u oculte las pantallas de consignas según la etapa activa del bloque.
- Memoria de consignas anteriores: al final del bloque se actualizan `s_old_SP_CaudalConcentrado` y `s_old_SP_FCV` para la detección de cambios en el siguiente ciclo.
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC2928_ZC_TON_INDV` |
| FB | - |
| DB | - |
| UDT | `ZC_TON` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 24.05.2023 | (HCR) | Primera versión. |
| 01.00.01 | 04.03.2024 | (HCR) | Se corrige gestión de `SP_Presion`. Se añade variable estática para su gestión. |
| 01.00.02 | 10.11.2025 | (ABH) | Se añade salida `AjusteSP_CaudalConcentrado` para poder realizar escritura de parámetros fuera del bloque. |
| 01.00.03 | 20.11.2025 | (CNR) | Se añade lógica de funcionamiento por decrementos. |
| 01.00.04 | 28.11.2025 | (ABH) | Se elimina la parte de la diafiltración. Se añade gestión con temporizadores ZC. Se eliminan variables externas al bloque. Se estandariza el nombre de variables. |
*)
END_REGION DESCRIPCION
REGION ERROR
// ====================================================
// SP_PorcientoPermeadoTotal fuera de rango
#ErrorDiferenciaPermeado := (#SP_PorcientoPermeadoTotal < #LIM_MIN_CAUDAL_PERMEADO_TOTAL OR #SP_PorcientoPermeadoTotal > #LIM_MAX_CAUDAL_PERMEADO_TOTAL);
END_REGION
REGION CALCULO_FCV
// Reinicializacion de valores
#AjusteSP_CaudalConcentrado := FALSE;
// ====================================================
// Modo activo
IF #ActivarCalculosCaudal THEN
#s_SP_CaudalConcentrado := #SP_CaudalConcentrado;
// ====================================================
// Cambio de consigna caudal de concentrado
IF #s_SP_CaudalConcentrado <> #s_old_SP_CaudalConcentrado OR #SP_FCV <> #s_old_SP_FCV THEN
// Cálculo temporal de caudal teórico de entrada
#t_CaudalTeoricoEntrada := #s_SP_CaudalConcentrado * #SP_FCV;
// Comparación con el caudal máximo de entrada
IF #t_CaudalTeoricoEntrada > #SP_CaudalMaximoEntrada THEN
// Recalcular caudal de concentrado
#s_SP_CaudalConcentrado := #SP_CaudalMaximoEntrada / #SP_FCV;
#AjusteSP_CaudalConcentrado := TRUE;
END_IF;
END_IF;
// Cálculo caudal teórico de entrada
#SP_CaudalTeoricoEntrada := #s_SP_CaudalConcentrado * #SP_FCV;
// Cálculo caudal teórico de permeado
#SP_CaudalPermeado := #SP_CaudalTeoricoEntrada - #s_SP_CaudalConcentrado;
// Cálculo caudal teórico de permeado total
IF NOT #ErrorDiferenciaPermeado THEN
#SP_CaudalPermeadoTotal := #SP_CaudalPermeado * ((#SP_PorcientoPermeadoTotal / 100) + 1);
ELSE
#SP_CaudalPermeadoTotal := #SP_CaudalPermeado * ((1 / 100) + 1);
END_IF;
// Comprobación bajo caudal de permeado total para incremento de presión
IF #SP_CaudalPermeadoTotal > #CaudalTotalPermeado THEN
#s_DiferenciaCaudalPermeado := #SP_CaudalPermeadoTotal - #CaudalTotalPermeado;
ELSE
#s_DiferenciaCaudalPermeado := 0.0;
END_IF;
#s_BajoCaudalPermeado := (#s_DiferenciaCaudalPermeado < #SP_BajoCaudalPermeado AND #s_DiferenciaCaudalPermeado > 0.0 ) OR (#SP_CaudalPermeadoTotal > #CaudalTotalPermeado);
ELSE
// ====================================================
// Modo no activo
#SP_CaudalTeoricoEntrada := 0.0;
#SP_CaudalPermeado := 0.0;
#SP_CaudalPermeadoTotal := 0.0;
#s_DiferenciaCaudalPermeado := 0.0;
#s_BajoCaudalPermeado := FALSE;
#s_MaxPresionAlcanzada := FALSE;
END_IF;
END_REGION
REGION PRESION
REGION TEMPORIZADOR
// ====================================================
// Temporizador para incrementos de presión
// Configuración temporizador
#s_TON[0].SP := #SP_TiempoMuestreoPresion;
#s_TON[0].IN := NOT #s_TON[0].Q AND #ActivarControlPresion AND #Marcha AND #s_BajoCaudalPermeado AND NOT #BotonReset AND (#s_SP_Presion < #SP_PresionMaxima);
"FC2928_ZC_TON_INDV"(Pulso1seg:=#Pulso1Seg,
TON:=#s_TON[0]);
END_REGION
IF #ActivarControlPresion THEN
#PermisoReset := TRUE;
// ====================================================
// Incrementos de presión
IF #s_TON[0].Q OR #ForzarIncrementos AND (#s_SP_Presion < #SP_PresionMaxima) THEN
#ForzarIncrementos := FALSE;
#s_SP_Presion += #SP_IncrementosPresion;
// Si el valor de presión calculado es mayor a la presión máxima, movemos la consigna máxima de presión
IF #s_SP_Presion > #SP_PresionMaxima THEN
#s_SP_Presion := #SP_PresionMaxima;
END_IF;
END_IF;
// Reset valor de presión a presión inicial
IF #BotonReset THEN
#s_SP_Presion := #SP_PresionInicial;
END_IF;
ELSE
IF NOT #EtapaRecircProd THEN
#s_SP_Presion := #SP_PresionInicial;
END_IF;
#ForzarIncrementos := FALSE;
#PermisoReset := FALSE;
END_IF;
// ====================================================
// Limite presion
IF #s_SP_Presion < #SP_PresionInicial THEN
#s_SP_Presion := #SP_PresionInicial;
END_IF;
END_REGION
REGION DECREMENTOS_CAUDAL
REGION TEMPORIZADOR
// ====================================================
// Temporizador para decrementos de caudal
// Configuración temporizador
#s_TON[1].SP := #SP_TiempoDecrementos;
#s_TON[1].IN := NOT #s_TON[1].Q AND #ActivarControlPresion AND #Marcha AND #s_MaxPresionAlcanzada AND (#CaudalTotalPermeado < #SP_CaudalPermeadoTotal);
"FC2928_ZC_TON_INDV"(Pulso1seg:=#Pulso1Seg,
TON:=#s_TON[1]);
END_REGION
IF #ActivarControlPresion THEN
// Presion máxima alcanzada
IF #s_SP_Presion >= #SP_PresionMaxima THEN
#s_MaxPresionAlcanzada := TRUE;
ELSE
#s_MaxPresionAlcanzada := FALSE;
END_IF;
// ====================================================
// Decrementos de caudal
IF #s_TON[1].Q AND (#s_SP_CaudalConcentrado > #SP_CaudalMinConcentrado) THEN
#s_SP_CaudalConcentrado := #s_SP_CaudalConcentrado * (1 - (#SP_PorcentajeDecremento / 100.0));
// Si el valor de caudal calculado es menor al caudal minimo, movemos la consigna minima de caudal
IF #s_SP_CaudalConcentrado < #SP_CaudalMinConcentrado THEN
#s_SP_CaudalConcentrado := #SP_CaudalMinConcentrado;
END_IF;
#AjusteSP_CaudalConcentrado := TRUE;
END_IF;
END_IF;
END_REGION
REGION SALIDAS
// ====================================================
// Salida de presion
#SP_Presion := #s_SP_Presion;
// ====================================================
// Maxima presion alcanzada
#MaxPresionAlcanzada := #s_MaxPresionAlcanzada;
// ====================================================
// Visibilidad en HMI
#VisibilidadConsignasCaudal := #ActivarCalculosCaudal;
#VisibilidadConsignasPresion := #ActivarControlPresion;
#VisibilidadConsignaCaudalDec := #ActivarControlPresion AND #s_MaxPresionAlcanzada;
#SP_CaudalConcentrado := #s_SP_CaudalConcentrado;
END_REGION ;
// Estados anteriores
#s_old_SP_CaudalConcentrado := #s_SP_CaudalConcentrado;
#s_old_SP_FCV := #SP_FCV;
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15104_ZC_CALCULO_LIMP_2_MOD.s7dcl
+195
View File
@@ -0,0 +1,195 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_uc";
S7_BlockNumber := "15104";
S7_BlockTitle := "MLC_55Q";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION_BLOCK "FB15104_ZC_CALCULO_LIMP_2_MOD"
VAR_INPUT
{ S7_MLC := "MLC_4U2" }
EtapaRecirculacion : Bool;
{ S7_MLC := "MLC_xv" }
EtapaTiempoRestante : Int;
{ S7_MLC := "MLC_3Q4" }
SP_TiempoRecirculacion : Int;
{ S7_MLC := "MLC_YU" }
SP_Modulo1 : Real;
{ S7_MLC := "MLC_4MX" }
SP_Modulo2 : Real;
END_VAR
VAR_OUTPUT
{ S7_MLC := "MLC_3Na" }
LimpiarSoloModulo1 : Bool;
{ S7_MLC := "MLC_4Lz" }
LimpiarSoloModulo2 : Bool;
{ S7_MLC := "MLC_3Cc" }
LimpiarTodosLosModulos : Bool;
END_VAR
VAR RETAIN
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_cF";
S7_Visibility := "Hidden := External"
}
s_PorcentajeMinimoTodosModulos : Real := 20.0;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_PorcentajeModulo1 : Real;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_PorcentajeModulo2 : Real;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_PorcentajeRestante : Real;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_CalculoTiempoModulo1 : Int;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_CalculoTiempoModulo2 : Int;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_CalculoTiempoRestante : Int;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_TiempoModulo1 : Int;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_TiempoModulo2 : Int;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
Bloque de funcion que implementa el cálculo y la distribución temporal de la limpieza de 2 módulos de membranas, con soporte operativo para 3 módulos mediante la agrupación de los módulos 2 y 3 en una sola fase. Permite configurar, en porcentaje, el peso de cada módulo dentro del tiempo total de recirculación y reparte el tiempo restante a una fase conjunta de limpieza de todos los módulos.
Funcionalidades principales:
- Traspaso y validación de porcentajes: se leen los porcentajes de cada módulo (`SP_Modulo1`, `SP_Modulo2`) y se limitan para que la suma no supere el máximo disponible (`100 - s_PorcentajeMinimoTodosModulos`). Si la suma supera dicho umbral, ambos porcentajes se igualan al valor medio permitido, garantizando que siempre quede un mínimo reservado para la fase de limpieza conjunta. El porcentaje restante (`s_PorcentajeRestante`) se calcula como `100 - (s_PorcentajeModulo1 + s_PorcentajeModulo2)`.
- Cálculo de tiempos: a partir del tiempo total de recirculación (`SP_TiempoRecirculacion`) y de los porcentajes validados, se obtienen los tiempos individuales de cada módulo (`s_CalculoTiempoModulo1`, `s_CalculoTiempoModulo2`) y el tiempo restante (`s_CalculoTiempoRestante`). Se calculan también los tiempos acumulados hasta el inicio de cada fase (`s_TiempoModulo1`, `s_TiempoModulo2`) para acotar la salida de la etapa en curso.
- Activación de salidas de limpieza: durante la etapa de recirculación (`EtapaRecirculacion`), en función del valor de `EtapaTiempoRestante`, se activa la salida correspondiente:
- `LimpiarSoloModulo1`: mientras el tiempo restante está comprendido entre `s_TiempoModulo1` y `SP_TiempoRecirculacion` y el porcentaje del módulo 1 es distinto de cero.
- `LimpiarSoloModulo2`: mientras el tiempo restante está comprendido entre `s_TiempoModulo2` y `s_TiempoModulo1` y el porcentaje del módulo 2 es distinto de cero.
- `LimpiarTodosLosModulos`: en el resto de casos, durante la fase final del tiempo de recirculación.
- Las salidas son mutuamente excluyentes: en todo momento solo una de las tres se encuentra activa, inicializándose todas a `FALSE` al inicio de la región.
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 12.09.2023 | (ABH) | Primera versión. |
| 01.00.01 | 17.11.2023 | (HCR/ABH) | Cambio en nombre de parámetro de entrada `EtapaTiempoActual` por `EtapaTiempoRestante`. Se añade parámetro estático `s_PorcentajeMinimoTodosModulos` para límite de los SP de porcentaje de tiempo de cada módulo para no sobrepasar el 100% del tiempo. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION TRASPASO_PARAMETROS
// =====================================================================================
// TRASPASO DE PARAMETROS DE PORCENTAJE
// Se revisa los limites de los porcentajes metidos en pantalla
IF (#SP_Modulo1 + #SP_Modulo2) > (100.0 - #s_PorcentajeMinimoTodosModulos) THEN
#s_PorcentajeModulo1 := ((100.0 - #s_PorcentajeMinimoTodosModulos) / 2.0);
#s_PorcentajeModulo2 := #s_PorcentajeModulo1;
ELSE
#s_PorcentajeModulo1 := #SP_Modulo1;
#s_PorcentajeModulo2 := #SP_Modulo2;
END_IF;
#s_PorcentajeRestante := 100.0 - (#s_PorcentajeModulo1 + #s_PorcentajeModulo2);
END_REGION
// ==========================================================================================================
REGION CALCULOS
// =====================================================================================
// CALCULO DE TIEMPO DE PASO
// MODULO 1
IF #s_PorcentajeModulo1 <> 0.0 THEN
#s_CalculoTiempoModulo1 := REAL_TO_INT((#s_PorcentajeModulo1 * #SP_TiempoRecirculacion) / 100.0);
END_IF;
// MODULO 2 y 3
IF #s_PorcentajeModulo2 <> 0.0 THEN
#s_CalculoTiempoModulo2 := REAL_TO_INT((#s_PorcentajeModulo2 * #SP_TiempoRecirculacion) / 100.0);
END_IF;
// TIEMPO RESTANTE
#s_CalculoTiempoRestante := #SP_TiempoRecirculacion - (#s_CalculoTiempoModulo1 + #s_CalculoTiempoModulo2);
#s_TiempoModulo1 := #SP_TiempoRecirculacion - #s_CalculoTiempoModulo1;
#s_TiempoModulo2 := #SP_TiempoRecirculacion - #s_CalculoTiempoModulo1 - #s_CalculoTiempoModulo2;
END_REGION
// ==========================================================================================================
REGION SALIDAS
#LimpiarSoloModulo1 := #LimpiarSoloModulo2 := #LimpiarTodosLosModulos := FALSE;
IF #EtapaRecirculacion THEN
IF (#s_PorcentajeModulo1 <> 0.0) AND #EtapaTiempoRestante <= #SP_TiempoRecirculacion AND #EtapaTiempoRestante > #s_TiempoModulo1 THEN
#LimpiarSoloModulo1 := TRUE;
#LimpiarSoloModulo2 := #LimpiarTodosLosModulos := FALSE;
ELSIF (#s_PorcentajeModulo2 <> 0.0) AND #EtapaTiempoRestante <= #s_TiempoModulo1 AND #EtapaTiempoRestante > #s_TiempoModulo2 THEN
#LimpiarSoloModulo2 := TRUE;
#LimpiarSoloModulo1 := #LimpiarTodosLosModulos := FALSE;
ELSE
#LimpiarTodosLosModulos := TRUE;
#LimpiarSoloModulo1 := #LimpiarSoloModulo2 := FALSE;
END_IF;
END_IF;
END_REGION
END_NETWORK
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15104_ZC_CALCULO_LIMP_2_MOD.s7res
+23
View File
@@ -0,0 +1,23 @@
MultiLingualTexts:
- id: MLC_55Q
es-ES: FB15104_ZC_CALCULO_LIMP_2_MOD
- id: MLC_uc
es-ES: Bloque de funcion para el calculo de limpiezas modulos (2 modulos).
- id: MLC_4U2
es-ES: En etapa de recirculacion
- id: MLC_xv
es-ES: Tiempo de etapa restante
- id: MLC_3Q4
es-ES: Set Point tiempo de recirculacion
- id: MLC_YU
es-ES: Set Point (%) tiempo limpieza modulo 1
- id: MLC_4MX
es-ES: Set Point (%) tiempo limpieza modulo 2
- id: MLC_3Na
es-ES: Orden limpiar solo modulo 1
- id: MLC_4Lz
es-ES: Orden limpiar solo modulo 2
- id: MLC_3Cc
es-ES: Orden limpiar todos los modulos.
- id: MLC_cF
es-ES: Set Point (%) minimo para limpieza de todos los modulos
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15104_ZC_CALCULO_LIMP_2_MOD.scl
-147
View File
@@ -1,147 +0,0 @@
FUNCTION_BLOCK "FB15104_ZC_CALCULO_LIMP_2_MOD"
TITLE = FB15104_ZC_CALCULO_LIMP_2_MOD
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Bloque de funcion para el calculo de limpiezas modulos (2 modulos).
VAR_INPUT
EtapaRecirculacion : Bool; // En etapa de recirculacion
EtapaTiempoRestante : Int; // Tiempo de etapa restante
SP_TiempoRecirculacion : Int; // Set Point tiempo de recirculacion
SP_Modulo1 : Real; // Set Point (%) tiempo limpieza modulo 1
SP_Modulo2 : Real; // Set Point (%) tiempo limpieza modulo 2
END_VAR
VAR_OUTPUT
LimpiarSoloModulo1 : Bool; // Orden limpiar solo modulo 1
LimpiarSoloModulo2 : Bool; // Orden limpiar solo modulo 2
LimpiarTodosLosModulos : Bool; // Orden limpiar todos los modulos.
END_VAR
VAR RETAIN
s_PorcentajeMinimoTodosModulos { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Real := 20.0; // Set Point (%) minimo para limpieza de todos los modulos
s_PorcentajeModulo1 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Real;
s_PorcentajeModulo2 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Real;
s_PorcentajeRestante { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Real;
s_CalculoTiempoModulo1 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
s_CalculoTiempoModulo2 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
s_CalculoTiempoRestante { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
s_TiempoModulo1 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
s_TiempoModulo2 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
END_VAR
BEGIN
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
Bloque de funcion que implementa el cálculo y la distribución temporal de la limpieza de 2 módulos de membranas, con soporte operativo para 3 módulos mediante la agrupación de los módulos 2 y 3 en una sola fase. Permite configurar, en porcentaje, el peso de cada módulo dentro del tiempo total de recirculación y reparte el tiempo restante a una fase conjunta de limpieza de todos los módulos.
Funcionalidades principales:
- Traspaso y validación de porcentajes: se leen los porcentajes de cada módulo (`SP_Modulo1`, `SP_Modulo2`) y se limitan para que la suma no supere el máximo disponible (`100 - s_PorcentajeMinimoTodosModulos`). Si la suma supera dicho umbral, ambos porcentajes se igualan al valor medio permitido, garantizando que siempre quede un mínimo reservado para la fase de limpieza conjunta. El porcentaje restante (`s_PorcentajeRestante`) se calcula como `100 - (s_PorcentajeModulo1 + s_PorcentajeModulo2)`.
- Cálculo de tiempos: a partir del tiempo total de recirculación (`SP_TiempoRecirculacion`) y de los porcentajes validados, se obtienen los tiempos individuales de cada módulo (`s_CalculoTiempoModulo1`, `s_CalculoTiempoModulo2`) y el tiempo restante (`s_CalculoTiempoRestante`). Se calculan también los tiempos acumulados hasta el inicio de cada fase (`s_TiempoModulo1`, `s_TiempoModulo2`) para acotar la salida de la etapa en curso.
- Activación de salidas de limpieza: durante la etapa de recirculación (`EtapaRecirculacion`), en función del valor de `EtapaTiempoRestante`, se activa la salida correspondiente:
- `LimpiarSoloModulo1`: mientras el tiempo restante está comprendido entre `s_TiempoModulo1` y `SP_TiempoRecirculacion` y el porcentaje del módulo 1 es distinto de cero.
- `LimpiarSoloModulo2`: mientras el tiempo restante está comprendido entre `s_TiempoModulo2` y `s_TiempoModulo1` y el porcentaje del módulo 2 es distinto de cero.
- `LimpiarTodosLosModulos`: en el resto de casos, durante la fase final del tiempo de recirculación.
- Las salidas son mutuamente excluyentes: en todo momento solo una de las tres se encuentra activa, inicializándose todas a `FALSE` al inicio de la región.
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 12.09.2023 | (ABH) | Primera versión. |
| 01.00.01 | 17.11.2023 | (HCR/ABH) | Cambio en nombre de parámetro de entrada `EtapaTiempoActual` por `EtapaTiempoRestante`. Se añade parámetro estático `s_PorcentajeMinimoTodosModulos` para límite de los SP de porcentaje de tiempo de cada módulo para no sobrepasar el 100% del tiempo. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION TRASPASO_PARAMETROS
// =====================================================================================
// TRASPASO DE PARAMETROS DE PORCENTAJE
// Se revisa los limites de los porcentajes metidos en pantalla
IF (#SP_Modulo1 + #SP_Modulo2) > (100.0 - #s_PorcentajeMinimoTodosModulos) THEN
#s_PorcentajeModulo1 := ((100.0 - #s_PorcentajeMinimoTodosModulos) / 2.0);
#s_PorcentajeModulo2 := #s_PorcentajeModulo1;
ELSE
#s_PorcentajeModulo1 := #SP_Modulo1;
#s_PorcentajeModulo2 := #SP_Modulo2;
END_IF;
#s_PorcentajeRestante := 100.0 - (#s_PorcentajeModulo1 + #s_PorcentajeModulo2);
END_REGION
// ==========================================================================================================
REGION CALCULOS
// =====================================================================================
// CALCULO DE TIEMPO DE PASO
// MODULO 1
IF #s_PorcentajeModulo1 <> 0.0 THEN
#s_CalculoTiempoModulo1 := REAL_TO_INT((#s_PorcentajeModulo1 * #SP_TiempoRecirculacion) / 100.0);
END_IF;
// MODULO 2 y 3
IF #s_PorcentajeModulo2 <> 0.0 THEN
#s_CalculoTiempoModulo2 := REAL_TO_INT((#s_PorcentajeModulo2 * #SP_TiempoRecirculacion) / 100.0);
END_IF;
// TIEMPO RESTANTE
#s_CalculoTiempoRestante := #SP_TiempoRecirculacion - (#s_CalculoTiempoModulo1 + #s_CalculoTiempoModulo2);
#s_TiempoModulo1 := #SP_TiempoRecirculacion - #s_CalculoTiempoModulo1;
#s_TiempoModulo2 := #SP_TiempoRecirculacion - #s_CalculoTiempoModulo1 - #s_CalculoTiempoModulo2;
END_REGION
// ==========================================================================================================
REGION SALIDAS
#LimpiarSoloModulo1 := #LimpiarSoloModulo2 := #LimpiarTodosLosModulos := FALSE;
IF #EtapaRecirculacion THEN
IF (#s_PorcentajeModulo1 <> 0.0) AND #EtapaTiempoRestante <= #SP_TiempoRecirculacion AND #EtapaTiempoRestante > #s_TiempoModulo1 THEN
#LimpiarSoloModulo1 := TRUE;
#LimpiarSoloModulo2 := #LimpiarTodosLosModulos := FALSE;
ELSIF (#s_PorcentajeModulo2 <> 0.0) AND #EtapaTiempoRestante <= #s_TiempoModulo1 AND #EtapaTiempoRestante > #s_TiempoModulo2 THEN
#LimpiarSoloModulo2 := TRUE;
#LimpiarSoloModulo1 := #LimpiarTodosLosModulos := FALSE;
ELSE
#LimpiarTodosLosModulos := TRUE;
#LimpiarSoloModulo1 := #LimpiarSoloModulo2 := FALSE;
END_IF;
END_IF;
END_REGION
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15105_ZC_CALCULO_CURVA.s7dcl
+192
View File
@@ -0,0 +1,192 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_Qe";
S7_BlockNumber := "15105";
S7_BlockTitle := "MLC_4rc";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION_BLOCK "FB15105_ZC_CALCULO_CURVA"
VAR_INPUT
{ S7_MLC := "MLC_5Bz" }
ValorActual : Real;
{ S7_MLC := "MLC_tn" }
NumeroPuntos : Int := 10;
END_VAR
VAR_OUTPUT
{ S7_MLC := "MLC_3eH" }
Valor : Real;
END_VAR
VAR
s_ValorActual : Real;
s_Valor : Real;
s_NumeroPuntos : Int;
END_VAR
VAR RETAIN
{ S7_MLC := "MLC_4k7" }
s_PuntoX : Array[1..#MAX_PUNTOS] of Real := [
10.0,
20.0,
30.0,
40.0,
50.0,
60.0,
70.0,
80.0,
90.0,
100.0
];
{ S7_MLC := "MLC_4Nw" }
s_PuntoY : Array[1..#MAX_PUNTOS] of Real := [
10.0,
20.0,
30.0,
40.0,
50.0,
60.0,
70.0,
80.0,
90.0,
100.0
];
END_VAR
VAR_TEMP
for_i : Int;
dx : Real;
dy : Real;
END_VAR
VAR CONSTANT
{ S7_MLC := "MLC_WH" }
MAX_PUNTOS : Int := 10;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2023 - 2023
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
El bloque `FB15105_ZC_CALCULO_CURVA` implementa una función de interpolación lineal por tramos sobre una curva configurable de hasta `#MAX_PUNTOS` puntos `(X, Y)`. A partir de un valor de entrada `ValorActual`, devuelve el valor de salida interpolado `Valor`, permitiendo linealizar señales no lineales como sondas de nivel, curvas de bombas o perfiles de consigna.
Funcionalidades principales:
- Validación del número de puntos activos: `#NumeroPuntos` se acota entre 2 (mínimo necesario para definir un segmento) y la constante de dimensionamiento `#MAX_PUNTOS`.
- Relleno automático: los puntos no utilizados por encima de `#s_NumeroPuntos` se rellenan con el último valor válido, manteniendo la coherencia del array para los cálculos posteriores.
- Corrección de monotonía: se fuerza la coordenada `X` a ser monótona creciente o igual hacia adelante, evitando inversiones de tramo que producirían divisiones por `dx` negativas o nulas.
- Saturación de entrada: si `#ValorActual` está por debajo del primer punto, la salida toma directamente el primer `Y`; si está por encima del último, toma el último `Y`, abortando el resto del escaneo para optimizar el tiempo de ciclo.
- Búsqueda del segmento activo: recorre los `#MAX_PUNTOS - 1` segmentos y detecta aquel en el que se encuentra el valor de entrada.
- Interpolación lineal: calcula los deltas `dx` y `dy` del segmento y aplica la ecuación `Y = (X - X1) * (dY / dX) + Y1`. En caso de `dx` nulo (tramo vertical o degenerado) se asigna directamente el `Y` del extremo inferior para evitar división por cero.
- Publicación del resultado en la salida `#Valor` una vez finalizado el cálculo.
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 02.10.2023 | (ABH) | Primera versión. |
*)
END_REGION DESCRIPCION
// ===============================================================================================================
REGION LIMITES_VALORES
#s_ValorActual := #ValorActual;
#s_NumeroPuntos := #NumeroPuntos;
// Límite en configuración de número de puntos activos
IF #s_NumeroPuntos < 2 THEN
#s_NumeroPuntos := 2; // Una curva necesita mínimo 2 puntos (X1, Y1) a (X2, Y2)
ELSIF #s_NumeroPuntos > #MAX_PUNTOS THEN
#s_NumeroPuntos := #MAX_PUNTOS;
END_IF;
// Relleno automático de los puntos no utilizados con el último valor válido
FOR #for_i := #s_NumeroPuntos TO #MAX_PUNTOS DO
#s_PuntoX[#for_i] := #s_PuntoX[#s_NumeroPuntos];
#s_PuntoY[#for_i] := #s_PuntoY[#s_NumeroPuntos];
END_FOR;
// Corrección de monotonía (Asegurar que X siempre sea creciente o igual)
FOR #for_i := #MAX_PUNTOS TO 2 BY -1 DO
IF #s_PuntoX[#for_i] < #s_PuntoX[#for_i - 1] THEN
#s_PuntoX[#for_i] := #s_PuntoX[#for_i - 1];
END_IF;
END_FOR;
// Saturación del valor de entrada a los extremos de la curva configurada
IF #s_ValorActual <= #s_PuntoX[1] THEN
#s_ValorActual := #s_PuntoX[1];
#s_Valor := #s_PuntoY[1];
#Valor := #s_Valor;
RETURN; // Si está por debajo, asignamos y abortamos scan (Optimización)
ELSIF #s_ValorActual >= #s_PuntoX[#MAX_PUNTOS] THEN
#s_ValorActual := #s_PuntoX[#MAX_PUNTOS];
#s_Valor := #s_PuntoY[#MAX_PUNTOS];
#Valor := #s_Valor;
RETURN; // Si está por encima, asignamos y abortamos scan
END_IF;
END_REGION LIMITES_VALORES
// ===============================================================================================================
REGION CALCULO_SALIDA
// Búsqueda del segmento activo e interpolación lineal
FOR #for_i := 1 TO (#MAX_PUNTOS - 1) DO
IF (#s_ValorActual >= #s_PuntoX[#for_i]) AND (#s_ValorActual <= #s_PuntoX[#for_i + 1]) THEN
// Cálculo de deltas
#dx := #s_PuntoX[#for_i + 1] - #s_PuntoX[#for_i];
#dy := #s_PuntoY[#for_i + 1] - #s_PuntoY[#for_i];
// Proteccion por división por Cero
IF #dx <= 0.0 THEN
#s_Valor := #s_PuntoY[#for_i]; // Tramo vertical o nulo
ELSE
// Ecuación de la recta: Y = (X - X1) * (dY / dX) + Y1
#s_Valor := ((#s_ValorActual - #s_PuntoX[#for_i]) * (#dy / #dx)) + #s_PuntoY[#for_i];
END_IF;
// Segmento encontrado y calculado. Cortamos el bucle inmediatamente.
EXIT;
END_IF;
END_FOR;
END_REGION CALCULO_SALIDA
// ===============================================================================================================
REGION SALIDA
#Valor := #s_Valor;
END_REGION SALIDA
END_NETWORK
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15105_ZC_CALCULO_CURVA.s7res
+17
View File
@@ -0,0 +1,17 @@
MultiLingualTexts:
- id: MLC_4rc
es-ES: FB15105_ZC_CALCULO_CURVA
- id: MLC_Qe
es-ES: Bloque de funcion para calculo curva de 10 puntos maximo.
- id: MLC_5Bz
es-ES: Valor actual
- id: MLC_tn
es-ES: Numero de puntos
- id: MLC_3eH
es-ES: Valor resultante curva
- id: MLC_4k7
es-ES: Valor X
- id: MLC_4Nw
es-ES: Valor Y
- id: MLC_WH
es-ES: Numero maximo de puntos
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15105_ZC_CALCULO_CURVA.scl
-163
View File
@@ -1,163 +0,0 @@
FUNCTION_BLOCK "FB15105_ZC_CALCULO_CURVA"
TITLE = FB15105_ZC_CALCULO_CURVA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Bloque de funcion para calculo curva de 10 puntos maximo.
VAR_INPUT
ValorActual : Real; // Valor actual
NumeroPuntos : Int := 10; // Numero de puntos
END_VAR
VAR_OUTPUT
Valor : Real; // Valor resultante curva
END_VAR
VAR
s_ValorActual : Real;
s_Valor : Real;
s_NumeroPuntos : Int;
END_VAR
VAR RETAIN
s_PuntoX : Array[1..#MAX_PUNTOS] of Real := [10.0, 20.0, 30.0, 40.0, 50.0, 60.0, 70.0, 80.0, 90.0, 100.0]; // Valor X
s_PuntoY : Array[1..#MAX_PUNTOS] of Real := [10.0, 20.0, 30.0, 40.0, 50.0, 60.0, 70.0, 80.0, 90.0, 100.0]; // Valor Y
END_VAR
VAR_TEMP
for_i : Int;
dx : Real;
dy : Real;
END_VAR
VAR CONSTANT
MAX_PUNTOS : Int := 10; // Numero maximo de puntos
END_VAR
BEGIN
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2023 - 2023
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
El bloque `FB15105_ZC_CALCULO_CURVA` implementa una función de interpolación lineal por tramos sobre una curva configurable de hasta `#MAX_PUNTOS` puntos `(X, Y)`. A partir de un valor de entrada `ValorActual`, devuelve el valor de salida interpolado `Valor`, permitiendo linealizar señales no lineales como sondas de nivel, curvas de bombas o perfiles de consigna.
Funcionalidades principales:
- Validación del número de puntos activos: `#NumeroPuntos` se acota entre 2 (mínimo necesario para definir un segmento) y la constante de dimensionamiento `#MAX_PUNTOS`.
- Relleno automático: los puntos no utilizados por encima de `#s_NumeroPuntos` se rellenan con el último valor válido, manteniendo la coherencia del array para los cálculos posteriores.
- Corrección de monotonía: se fuerza la coordenada `X` a ser monótona creciente o igual hacia adelante, evitando inversiones de tramo que producirían divisiones por `dx` negativas o nulas.
- Saturación de entrada: si `#ValorActual` está por debajo del primer punto, la salida toma directamente el primer `Y`; si está por encima del último, toma el último `Y`, abortando el resto del escaneo para optimizar el tiempo de ciclo.
- Búsqueda del segmento activo: recorre los `#MAX_PUNTOS - 1` segmentos y detecta aquel en el que se encuentra el valor de entrada.
- Interpolación lineal: calcula los deltas `dx` y `dy` del segmento y aplica la ecuación `Y = (X - X1) * (dY / dX) + Y1`. En caso de `dx` nulo (tramo vertical o degenerado) se asigna directamente el `Y` del extremo inferior para evitar división por cero.
- Publicación del resultado en la salida `#Valor` una vez finalizado el cálculo.
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 02.10.2023 | (ABH) | Primera versión. |
*)
END_REGION DESCRIPCION
// ===============================================================================================================
REGION LIMITES_VALORES
#s_ValorActual := #ValorActual;
#s_NumeroPuntos := #NumeroPuntos;
// Límite en configuración de número de puntos activos
IF #s_NumeroPuntos < 2 THEN
#s_NumeroPuntos := 2; // Una curva necesita mínimo 2 puntos (X1, Y1) a (X2, Y2)
ELSIF #s_NumeroPuntos > #MAX_PUNTOS THEN
#s_NumeroPuntos := #MAX_PUNTOS;
END_IF;
// Relleno automático de los puntos no utilizados con el último valor válido
FOR #for_i := #s_NumeroPuntos TO #MAX_PUNTOS DO
#s_PuntoX[#for_i] := #s_PuntoX[#s_NumeroPuntos];
#s_PuntoY[#for_i] := #s_PuntoY[#s_NumeroPuntos];
END_FOR;
// Corrección de monotonía (Asegurar que X siempre sea creciente o igual)
FOR #for_i := #MAX_PUNTOS TO 2 BY -1 DO
IF #s_PuntoX[#for_i] < #s_PuntoX[#for_i - 1] THEN
#s_PuntoX[#for_i] := #s_PuntoX[#for_i - 1];
END_IF;
END_FOR;
// Saturación del valor de entrada a los extremos de la curva configurada
IF #s_ValorActual <= #s_PuntoX[1] THEN
#s_ValorActual := #s_PuntoX[1];
#s_Valor := #s_PuntoY[1];
#Valor := #s_Valor;
RETURN; // Si está por debajo, asignamos y abortamos scan (Optimización)
ELSIF #s_ValorActual >= #s_PuntoX[#MAX_PUNTOS] THEN
#s_ValorActual := #s_PuntoX[#MAX_PUNTOS];
#s_Valor := #s_PuntoY[#MAX_PUNTOS];
#Valor := #s_Valor;
RETURN; // Si está por encima, asignamos y abortamos scan
END_IF;
END_REGION LIMITES_VALORES
// ===============================================================================================================
REGION CALCULO_SALIDA
// Búsqueda del segmento activo e interpolación lineal
FOR #for_i := 1 TO (#MAX_PUNTOS - 1) DO
IF (#s_ValorActual >= #s_PuntoX[#for_i]) AND (#s_ValorActual <= #s_PuntoX[#for_i + 1]) THEN
// Cálculo de deltas
#dx := #s_PuntoX[#for_i + 1] - #s_PuntoX[#for_i];
#dy := #s_PuntoY[#for_i + 1] - #s_PuntoY[#for_i];
// Proteccion por división por Cero
IF #dx <= 0.0 THEN
#s_Valor := #s_PuntoY[#for_i]; // Tramo vertical o nulo
ELSE
// Ecuación de la recta: Y = (X - X1) * (dY / dX) + Y1
#s_Valor := ((#s_ValorActual - #s_PuntoX[#for_i]) * (#dy / #dx)) + #s_PuntoY[#for_i];
END_IF;
// Segmento encontrado y calculado. Cortamos el bucle inmediatamente.
EXIT;
END_IF;
END_FOR;
END_REGION CALCULO_SALIDA
// ===============================================================================================================
REGION SALIDA
#Valor := #s_Valor;
END_REGION SALIDA
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15106_ZC_CALCULO_LIMP_4_MOD.s7dcl
+299
View File
@@ -0,0 +1,299 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_cL";
S7_BlockNumber := "15106";
S7_BlockTitle := "MLC_56T";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION_BLOCK "FB15106_ZC_CALCULO_LIMP_4_MOD"
VAR_INPUT
{ S7_MLC := "MLC_4AX" }
Etapa : Bool;
Pulso1Seg : Bool;
EnMarcha : Bool;
{ S7_MLC := "MLC_44a" }
SP_Tiempo : Int;
{ S7_MLC := "MLC_56Q" }
SP_Salida1 : Real;
{ S7_MLC := "MLC_pG" }
SP_Salida2 : Real;
{ S7_MLC := "MLC_pq" }
SP_Salida3 : Real;
{ S7_MLC := "MLC_4kM" }
SP_Salida4 : Real;
END_VAR
VAR_IN_OUT
{ S7_MLC := "MLC_3xA" }
EtapaTiempoRestante : Int;
{ S7_MLC := "MLC_3W2" }
Salida1 : Bool;
{ S7_MLC := "MLC_NM" }
Salida2 : Bool;
{ S7_MLC := "MLC_dX" }
Salida3 : Bool;
{ S7_MLC := "MLC_4jc" }
Salida4 : Bool;
END_VAR
VAR RETAIN
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_PorcentajeSalida1 : Real;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_PorcentajeSalida2 : Real;
END_VAR
VAR
s_PorcentajeSalida3 : Real;
s_PorcentajeSalida4 : Real;
END_VAR
VAR RETAIN
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_PorcentajeRestante : Real;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_CalculoTiempoSalida1 : Int;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_CalculoTiempoSalida2 : Int;
END_VAR
VAR
s_CalculoTiempoSalida3 : Int;
s_CalculoTiempoSalida4 : Int;
END_VAR
VAR RETAIN
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_CalculoTiempoRestante : Int;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_TiempoSalida1 : Int;
{
S7_Access := "ReadOnly := External";
S7_Visibility := "Hidden := External"
}
s_TiempoSalida2 : Int;
END_VAR
VAR
s_TiempoSalida3 : Int;
s_TiempoSalida4 : Int;
{ S7_Setpoint := "False" }
S_TON : _.UDT_ZC_DISP_TON;
{ S7_Setpoint := "True" }
s_TiempoTotal : Int;
s_ContadorTiempo : Int;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
Bloque de funcion que implementa el cálculo y la distribución temporal de la limpieza de 4 módulos, asignando a cada uno un porcentaje configurable del tiempo total de la etapa. A partir de los porcentajes validados y del tiempo total, calcula los tiempos individuales de cada módulo y activa secuencialmente la salida correspondiente en función de un contador interno en segundos.
Funcionalidades principales:
- Traspaso y validación de porcentajes: se leen los porcentajes de cada uno de los 4 módulos (`SP_Salida1` a `SP_Salida4`) y se comprueba que su suma no supere `100.0`. Si la suma supera dicho umbral, se asigna por defecto un valor de seguridad de `10.0` a cada uno de los cuatro porcentajes, evitando estados incoherentes.
- Cálculo de tiempos individuales: para cada módulo, si su porcentaje es distinto de cero, se calcula el tiempo correspondiente como `Porcentaje * SP_Tiempo / 100`, truncado a entero mediante `REAL_TO_INT`.
- Cálculo del tiempo total: se obtiene como la suma de los cuatro tiempos calculados y se utiliza para acotar el contador interno.
- Contador de etapa: mientras `Etapa` está activa, `EnMarcha` esté activado y `Pulso1Seg` genere un pulso por segundo, se incrementa el contador `#s_ContadorTiempo` hasta alcanzar `#s_TiempoTotal`, momento en el que se reinicia a `0` para comenzar un nuevo ciclo.
- Activación secuencial de salidas: cada salida (`Salida1`, `Salida2`, `Salida3`, `Salida4`) se activa cuando el contador se encuentra en el intervalo de tiempo correspondiente a su módulo. `Salida4` se activa por descarte cuando ninguna de las tres anteriores está activa.
- Reset al salir de etapa: cuando `Etapa` se desactiva, el contador y todas las salidas se ponen a cero.
- Cálculo del tiempo restante de etapa (`EtapaTiempoRestante`): se calcula en función de la salida activa como la diferencia entre el tiempo acumulado del módulo y el contador actual. Si el resultado es negativo, se satura a `0`.
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 12.09.2023 | (HCR) | Primera versión. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION TRASPASO_PARAMETROS
// =====================================================================================
// TRASPASO DE PARAMETROS DE PORCENTAJE
// Se revisa los limites de los porcentajes metidos en pantalla
IF (#SP_Salida1 + #SP_Salida2 + #SP_Salida3 + #SP_Salida4) > 100.0 THEN
#s_PorcentajeSalida1 := 10.0;
#s_PorcentajeSalida2 := 10.0;
#s_PorcentajeSalida3 := 10.0;
#s_PorcentajeSalida4 := 10.0;
ELSE
#s_PorcentajeSalida1 := #SP_Salida1;
#s_PorcentajeSalida2 := #SP_Salida2;
#s_PorcentajeSalida3 := #SP_Salida3;
#s_PorcentajeSalida4 := #SP_Salida4;
END_IF;
END_REGION
// ==========================================================================================================
REGION CALCULOS
// =====================================================================================
// CALCULO DE TIEMPO DE PASO
// MODULO 1
IF #s_PorcentajeSalida1 <> 0.0 THEN
#s_CalculoTiempoSalida1 := REAL_TO_INT((#s_PorcentajeSalida1 * #SP_Tiempo) / 100.0);
END_IF;
// MODULO 2
IF #s_PorcentajeSalida2 <> 0.0 THEN
#s_CalculoTiempoSalida2 := REAL_TO_INT((#s_PorcentajeSalida2 * #SP_Tiempo) / 100.0);
END_IF;
// MODULO 3
IF #s_PorcentajeSalida3 <> 0.0 THEN
#s_CalculoTiempoSalida3 := REAL_TO_INT((#s_PorcentajeSalida3 * #SP_Tiempo) / 100.0);
END_IF;
// MODULO 4
IF #s_PorcentajeSalida4 <> 0.0 THEN
#s_CalculoTiempoSalida4 := REAL_TO_INT((#s_PorcentajeSalida4 * #SP_Tiempo) / 100.0);
END_IF;
#s_TiempoTotal := #s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida3 + #s_CalculoTiempoSalida4;
END_REGION
// ==========================================================================================================
REGION SALIDAS
IF #Etapa THEN
IF #s_ContadorTiempo < #s_TiempoTotal THEN
IF #Pulso1Seg AND #EnMarcha THEN
#s_ContadorTiempo += 1;
END_IF;
ELSE
#s_ContadorTiempo := 0;
END_IF;
// ACTIVACION 1
IF #s_ContadorTiempo < #s_CalculoTiempoSalida1 AND #s_CalculoTiempoSalida1 <> 0 THEN
#Salida1 := TRUE;
ELSE
#Salida1 := FALSE;
END_IF;
// ACTIVACION 2
IF #s_ContadorTiempo >= #s_CalculoTiempoSalida1 AND #s_ContadorTiempo < (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1) AND #s_CalculoTiempoSalida2 <> 0 THEN
#Salida2 := TRUE;
ELSE
#Salida2 := FALSE;
END_IF;
// ACTIVACION FLIP 3
IF #s_ContadorTiempo >= (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1) AND #s_ContadorTiempo < (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida3) AND #s_ContadorTiempo <> 0 THEN
#Salida3 := TRUE;
ELSE
#Salida3 := FALSE;
END_IF;
// ACTIVACION FLIP 4
#Salida4 := NOT #Salida1 AND NOT #Salida2 AND NOT #Salida3;
ELSE
#s_ContadorTiempo := 0;
#Salida1 := FALSE;
#Salida2 := FALSE;
#Salida3 := FALSE;
#Salida4 := FALSE;
END_IF;
// ACTIVACION 1
IF #s_ContadorTiempo < #s_CalculoTiempoSalida1 AND #s_CalculoTiempoSalida1 <> 0 THEN
#Salida1 := TRUE;
ELSE
#Salida1 := FALSE;
END_IF;
// ACTIVACION 2
IF #s_ContadorTiempo >= #s_CalculoTiempoSalida1 AND #s_ContadorTiempo < (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1) AND #s_CalculoTiempoSalida2 <> 0 THEN
#Salida2 := TRUE;
ELSE
#Salida2 := FALSE;
END_IF;
// ACTIVACION FLIP 3
IF #s_ContadorTiempo >= (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1) AND #s_ContadorTiempo < (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida3) AND #s_ContadorTiempo <> 0 THEN
#Salida3 := TRUE;
ELSE
#Salida3 := FALSE;
END_IF;
// ACTIVACION FLIP 4
#Salida4 := NOT #Salida1 AND NOT #Salida2 AND NOT #Salida3;
IF NOT #Etapa THEN
#Salida1 := #Salida2 := #Salida3 := #Salida4 := FALSE;
END_IF;
END_REGION
// ==========================================================================================================
REGION TIEMPO RESTANTE
IF #Salida1 THEN
#EtapaTiempoRestante := #s_CalculoTiempoSalida1 - #s_ContadorTiempo;
END_IF;
IF #Salida2 THEN
#EtapaTiempoRestante := (#s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida2) - #s_ContadorTiempo;
END_IF;
IF #Salida3 THEN
#EtapaTiempoRestante := (#s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida3) - #s_ContadorTiempo;
END_IF;
IF #Salida4 THEN
#EtapaTiempoRestante := #s_TiempoTotal - #s_ContadorTiempo;
END_IF;
IF #EtapaTiempoRestante < 0 THEN
#EtapaTiempoRestante := 0;
END_IF;
END_REGION
END_NETWORK
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15106_ZC_CALCULO_LIMP_4_MOD.s7res
+27
View File
@@ -0,0 +1,27 @@
MultiLingualTexts:
- id: MLC_56T
es-ES: FB15106_ZC_CALCULO_LIMP_4_MOD
- id: MLC_cL
es-ES: Bloque de funcion para el calculo de limpiezas modulos (4 modulos).
- id: MLC_4AX
es-ES: En etapa de recirculacion
- id: MLC_44a
es-ES: Set Point tiempo de recirculacion
- id: MLC_56Q
es-ES: Set Point (%) tiempo limpieza modulo 1
- id: MLC_pG
es-ES: Set Point (%) tiempo limpieza modulo 2
- id: MLC_pq
es-ES: Set Point (%) tiempo limpieza modulo 3
- id: MLC_4kM
es-ES: Set Point (%) tiempo limpieza modulo 4
- id: MLC_3xA
es-ES: Tiempo de etapa restante
- id: MLC_3W2
es-ES: Orden limpiar solo modulo 1
- id: MLC_NM
es-ES: Orden limpiar solo modulo 2
- id: MLC_dX
es-ES: Orden limpiar solo modulo 3
- id: MLC_4jc
es-ES: Orden limpiar solo modulo 4
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FB15106_ZC_CALCULO_LIMP_4_MOD.scl
-251
View File
@@ -1,251 +0,0 @@
FUNCTION_BLOCK "FB15106_ZC_CALCULO_LIMP_4_MOD"
TITLE = FB15106_ZC_CALCULO_LIMP_4_MOD
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Bloque de funcion para el calculo de limpiezas modulos (4 modulos).
VAR_INPUT
Etapa : Bool; // En etapa de recirculacion
Pulso1Seg : Bool;
EnMarcha : Bool;
SP_Tiempo : Int; // Set Point tiempo de recirculacion
SP_Salida1 : Real; // Set Point (%) tiempo limpieza modulo 1
SP_Salida2 : Real; // Set Point (%) tiempo limpieza modulo 2
SP_Salida3 : Real; // Set Point (%) tiempo limpieza modulo 3
SP_Salida4 : Real; // Set Point (%) tiempo limpieza modulo 4
END_VAR
VAR_IN_OUT
EtapaTiempoRestante : Int; // Tiempo de etapa restante
Salida1 : Bool; // Orden limpiar solo modulo 1
Salida2 : Bool; // Orden limpiar solo modulo 2
Salida3 : Bool; // Orden limpiar solo modulo 3
Salida4 : Bool; // Orden limpiar solo modulo 4
END_VAR
VAR RETAIN
s_PorcentajeSalida1 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Real;
s_PorcentajeSalida2 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Real;
END_VAR
VAR
s_PorcentajeSalida3 : Real;
s_PorcentajeSalida4 : Real;
END_VAR
VAR RETAIN
s_PorcentajeRestante { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Real;
s_CalculoTiempoSalida1 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
s_CalculoTiempoSalida2 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
END_VAR
VAR
s_CalculoTiempoSalida3 : Int;
s_CalculoTiempoSalida4 : Int;
END_VAR
VAR RETAIN
s_CalculoTiempoRestante { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
s_TiempoSalida1 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
s_TiempoSalida2 { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Int;
END_VAR
VAR
s_TiempoSalida3 : Int;
s_TiempoSalida4 : Int;
S_TON { S7_SetPoint := 'False'} : "UDT_ZC_DISP_TON";
s_TiempoTotal { S7_SetPoint := 'True'} : Int;
s_ContadorTiempo : Int;
END_VAR
BEGIN
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
Bloque de funcion que implementa el cálculo y la distribución temporal de la limpieza de 4 módulos, asignando a cada uno un porcentaje configurable del tiempo total de la etapa. A partir de los porcentajes validados y del tiempo total, calcula los tiempos individuales de cada módulo y activa secuencialmente la salida correspondiente en función de un contador interno en segundos.
Funcionalidades principales:
- Traspaso y validación de porcentajes: se leen los porcentajes de cada uno de los 4 módulos (`SP_Salida1` a `SP_Salida4`) y se comprueba que su suma no supere `100.0`. Si la suma supera dicho umbral, se asigna por defecto un valor de seguridad de `10.0` a cada uno de los cuatro porcentajes, evitando estados incoherentes.
- Cálculo de tiempos individuales: para cada módulo, si su porcentaje es distinto de cero, se calcula el tiempo correspondiente como `Porcentaje * SP_Tiempo / 100`, truncado a entero mediante `REAL_TO_INT`.
- Cálculo del tiempo total: se obtiene como la suma de los cuatro tiempos calculados y se utiliza para acotar el contador interno.
- Contador de etapa: mientras `Etapa` está activa, `EnMarcha` esté activado y `Pulso1Seg` genere un pulso por segundo, se incrementa el contador `#s_ContadorTiempo` hasta alcanzar `#s_TiempoTotal`, momento en el que se reinicia a `0` para comenzar un nuevo ciclo.
- Activación secuencial de salidas: cada salida (`Salida1`, `Salida2`, `Salida3`, `Salida4`) se activa cuando el contador se encuentra en el intervalo de tiempo correspondiente a su módulo. `Salida4` se activa por descarte cuando ninguna de las tres anteriores está activa.
- Reset al salir de etapa: cuando `Etapa` se desactiva, el contador y todas las salidas se ponen a cero.
- Cálculo del tiempo restante de etapa (`EtapaTiempoRestante`): se calcula en función de la salida activa como la diferencia entre el tiempo acumulado del módulo y el contador actual. Si el resultado es negativo, se satura a `0`.
> **Restricciones:** Ninguna.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 12.09.2023 | (HCR) | Primera versión. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION TRASPASO_PARAMETROS
// =====================================================================================
// TRASPASO DE PARAMETROS DE PORCENTAJE
// Se revisa los limites de los porcentajes metidos en pantalla
IF (#SP_Salida1 + #SP_Salida2 + #SP_Salida3 + #SP_Salida4) > 100.0 THEN
#s_PorcentajeSalida1 := 10.0;
#s_PorcentajeSalida2 := 10.0;
#s_PorcentajeSalida3 := 10.0;
#s_PorcentajeSalida4 := 10.0;
ELSE
#s_PorcentajeSalida1 := #SP_Salida1;
#s_PorcentajeSalida2 := #SP_Salida2;
#s_PorcentajeSalida3 := #SP_Salida3;
#s_PorcentajeSalida4 := #SP_Salida4;
END_IF;
END_REGION
// ==========================================================================================================
REGION CALCULOS
// =====================================================================================
// CALCULO DE TIEMPO DE PASO
// MODULO 1
IF #s_PorcentajeSalida1 <> 0.0 THEN
#s_CalculoTiempoSalida1 := REAL_TO_INT((#s_PorcentajeSalida1 * #SP_Tiempo) / 100.0);
END_IF;
// MODULO 2
IF #s_PorcentajeSalida2 <> 0.0 THEN
#s_CalculoTiempoSalida2 := REAL_TO_INT((#s_PorcentajeSalida2 * #SP_Tiempo) / 100.0);
END_IF;
// MODULO 3
IF #s_PorcentajeSalida3 <> 0.0 THEN
#s_CalculoTiempoSalida3 := REAL_TO_INT((#s_PorcentajeSalida3 * #SP_Tiempo) / 100.0);
END_IF;
// MODULO 4
IF #s_PorcentajeSalida4 <> 0.0 THEN
#s_CalculoTiempoSalida4 := REAL_TO_INT((#s_PorcentajeSalida4 * #SP_Tiempo) / 100.0);
END_IF;
#s_TiempoTotal := #s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida3 + #s_CalculoTiempoSalida4;
END_REGION
// ==========================================================================================================
REGION SALIDAS
IF #Etapa THEN
IF #s_ContadorTiempo < #s_TiempoTotal THEN
IF #Pulso1Seg AND #EnMarcha THEN
#s_ContadorTiempo += 1;
END_IF;
ELSE
#s_ContadorTiempo := 0;
END_IF;
// ACTIVACION 1
IF #s_ContadorTiempo < #s_CalculoTiempoSalida1 AND #s_CalculoTiempoSalida1 <> 0 THEN
#Salida1 := TRUE;
ELSE
#Salida1 := FALSE;
END_IF;
// ACTIVACION 2
IF #s_ContadorTiempo >= #s_CalculoTiempoSalida1 AND #s_ContadorTiempo < (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1) AND #s_CalculoTiempoSalida2 <> 0 THEN
#Salida2 := TRUE;
ELSE
#Salida2 := FALSE;
END_IF;
// ACTIVACION FLIP 3
IF #s_ContadorTiempo >= (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1) AND #s_ContadorTiempo < (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida3) AND #s_ContadorTiempo <> 0 THEN
#Salida3 := TRUE;
ELSE
#Salida3 := FALSE;
END_IF;
// ACTIVACION FLIP 4
#Salida4 := NOT #Salida1 AND NOT #Salida2 AND NOT #Salida3;
ELSE
#s_ContadorTiempo := 0;
#Salida1 := FALSE;
#Salida2 := FALSE;
#Salida3 := FALSE;
#Salida4 := FALSE;
END_IF;
// ACTIVACION 1
IF #s_ContadorTiempo < #s_CalculoTiempoSalida1 AND #s_CalculoTiempoSalida1 <> 0 THEN
#Salida1 := TRUE;
ELSE
#Salida1 := FALSE;
END_IF;
// ACTIVACION 2
IF #s_ContadorTiempo >= #s_CalculoTiempoSalida1 AND #s_ContadorTiempo < (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1) AND #s_CalculoTiempoSalida2 <> 0 THEN
#Salida2 := TRUE;
ELSE
#Salida2 := FALSE;
END_IF;
// ACTIVACION FLIP 3
IF #s_ContadorTiempo >= (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1) AND #s_ContadorTiempo < (#s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida3) AND #s_ContadorTiempo <> 0 THEN
#Salida3 := TRUE;
ELSE
#Salida3 := FALSE;
END_IF;
// ACTIVACION FLIP 4
#Salida4 := NOT #Salida1 AND NOT #Salida2 AND NOT #Salida3;
IF NOT #Etapa THEN
#Salida1 := #Salida2 := #Salida3 := #Salida4 := FALSE;
END_IF;
END_REGION
// ==========================================================================================================
REGION TIEMPO RESTANTE
IF #Salida1 THEN
#EtapaTiempoRestante := #s_CalculoTiempoSalida1 - #s_ContadorTiempo;
END_IF;
IF #Salida2 THEN
#EtapaTiempoRestante := (#s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida2) - #s_ContadorTiempo;
END_IF;
IF #Salida3 THEN
#EtapaTiempoRestante := (#s_CalculoTiempoSalida1 + #s_CalculoTiempoSalida2 + #s_CalculoTiempoSalida3) - #s_ContadorTiempo;
END_IF;
IF #Salida4 THEN
#EtapaTiempoRestante := #s_TiempoTotal - #s_ContadorTiempo;
END_IF;
IF #EtapaTiempoRestante < 0 THEN
#EtapaTiempoRestante := 0;
END_IF;
END_REGION
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FC15103_ZC_CALCULO_RAMPA.s7dcl
+161
View File
@@ -0,0 +1,161 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_39g";
S7_BlockNumber := "15103";
S7_BlockTitle := "MLC_hM";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC15103_ZC_CALCULO_RAMPA" : Void
VAR_INPUT
{ S7_MLC := "MLC_3wW" }
Pulso100ms : Bool;
{ S7_MLC := "MLC_4nN" }
HabilitarRampa : Bool;
{ S7_MLC := "MLC_4Hj" }
ValorObjetivo : Real;
{ S7_MLC := "MLC_3Mi" }
IncRespRapida : Real;
{ S7_MLC := "MLC_4DE" }
DecRespRapida : Real;
{ S7_MLC := "MLC_3Br" }
IncRespLenta : Real;
{ S7_MLC := "MLC_4dK" }
DecRespLenta : Real;
{ S7_MLC := "MLC_4zR" }
HistRapidaLenta : Real;
END_VAR
VAR_IN_OUT
{ S7_MLC := "MLC_52n" }
ValorActual : Real;
END_VAR
VAR_TEMP
t_Diferencia : Real;
t_Incremento : Real;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de calcular rampas hasta alcanzar valor objetivo.
El bloque opera de la siguiente manera:
1. Si esta la rampa habilitada:
2. Realiza el calculo de la diferencia entre el valor actual y el valor objetivo.
3. En funcion de en que rango este, realiza los incrementos en el valor actual.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 05.09.2023 | (HCR) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO_RAMPA
// Gestion de la rampa de Set Point al cambiar de valor
IF #HabilitarRampa THEN
// ==========================================================================================================
REGION CALCULOS
// Calculo diferencia entre Set Point y valor de la rampa
#t_Diferencia := ABS(#ValorObjetivo - #ValorActual);
// Calculo de incremento DOWN
IF #ValorObjetivo < #ValorActual THEN
IF #t_Diferencia > #HistRapidaLenta THEN
#t_Incremento := #DecRespRapida / 10;
ELSE
#t_Incremento := #DecRespLenta / 10;
END_IF;
END_IF;
// Calculo de incremento UP
IF #ValorObjetivo > #ValorActual THEN
IF #t_Diferencia > #HistRapidaLenta THEN
#t_Incremento := #IncRespRapida / 10;
ELSE
#t_Incremento := #IncRespLenta / 10;
END_IF;
END_IF;
END_REGION
// ==========================================================================================================
REGION GESTION_INCREMENTOS
// Gestion incremento UP
IF #ValorActual < #ValorObjetivo
AND
#t_Diferencia > #t_Incremento
AND
#Pulso100ms
THEN
#ValorActual := #ValorActual + #t_Incremento;
END_IF;
// Gestion incremento DOWN
IF #ValorActual > #ValorObjetivo
AND
#t_Diferencia > #t_Incremento
AND
#Pulso100ms
THEN
#ValorActual := #ValorActual - #t_Incremento;
END_IF;
// Gestion limite alcanzado o sin incremento configurado
IF #t_Diferencia <= #t_Incremento
OR
#t_Incremento = 0
THEN
#ValorActual := #ValorObjetivo;
END_IF;
END_REGION
ELSE
#ValorActual := #ValorObjetivo;
END_IF;
END_REGION CALCULO_RAMPA
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FC15103_ZC_CALCULO_RAMPA.s7res
+23
View File
@@ -0,0 +1,23 @@
MultiLingualTexts:
- id: MLC_hM
es-ES: FC15103_ZC_CALCULO_RAMPA
- id: MLC_39g
es-ES: Funcion para calculo de rampa hasta valor objetivo.
- id: MLC_3wW
es-ES: Pulso 100 ms
- id: MLC_4nN
es-ES: Habilitar Rampa
- id: MLC_4Hj
es-ES: Valor a alcanzar
- id: MLC_3Mi
es-ES: Incremento rapido en ud. ing. / segundo
- id: MLC_4DE
es-ES: Decremento Rapido ud. ing. / segundo
- id: MLC_3Br
es-ES: Incremento lento en ud. ing. / segundo
- id: MLC_4dK
es-ES: Decremento lento ud. ing. / segundo
- id: MLC_4zR
es-ES: Histeresis respuesta rapida-lenta rampa
- id: MLC_52n
es-ES: Valor actual de la rampa
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Calculos/FC15103_ZC_CALCULO_RAMPA.scl
-149
View File
@@ -1,149 +0,0 @@
FUNCTION "FC15103_ZC_CALCULO_RAMPA" : Void
TITLE = FC15103_ZC_CALCULO_RAMPA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para calculo de rampa hasta valor objetivo.
VAR_INPUT
Pulso100ms : Bool; // Pulso 100 ms
HabilitarRampa : Bool; // Habilitar Rampa
ValorObjetivo : Real; // Valor a alcanzar
IncRespRapida : Real; // Incremento rapido en ud. ing. / segundo
DecRespRapida : Real; // Decremento Rapido ud. ing. / segundo
IncRespLenta : Real; // Incremento lento en ud. ing. / segundo
DecRespLenta : Real; // Decremento lento ud. ing. / segundo
HistRapidaLenta : Real; // Histeresis respuesta rapida-lenta rampa
END_VAR
VAR_IN_OUT
ValorActual : Real; // Valor actual de la rampa
END_VAR
VAR_TEMP
t_Diferencia : Real;
t_Incremento : Real;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de calcular rampas hasta alcanzar valor objetivo.
El bloque opera de la siguiente manera:
1. Si esta la rampa habilitada:
2. Realiza el calculo de la diferencia entre el valor actual y el valor objetivo.
3. En funcion de en que rango este, realiza los incrementos en el valor actual.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 05.09.2023 | (HCR) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO_RAMPA
// Gestion de la rampa de Set Point al cambiar de valor
IF #HabilitarRampa THEN
// ==========================================================================================================
REGION CALCULOS
// Calculo diferencia entre Set Point y valor de la rampa
#t_Diferencia := ABS(#ValorObjetivo - #ValorActual);
// Calculo de incremento DOWN
IF #ValorObjetivo < #ValorActual THEN
IF #t_Diferencia > #HistRapidaLenta THEN
#t_Incremento := #DecRespRapida / 10;
ELSE
#t_Incremento := #DecRespLenta / 10;
END_IF;
END_IF;
// Calculo de incremento UP
IF #ValorObjetivo > #ValorActual THEN
IF #t_Diferencia > #HistRapidaLenta THEN
#t_Incremento := #IncRespRapida / 10;
ELSE
#t_Incremento := #IncRespLenta / 10;
END_IF;
END_IF;
END_REGION
// ==========================================================================================================
REGION GESTION_INCREMENTOS
// Gestion incremento UP
IF #ValorActual < #ValorObjetivo
AND
#t_Diferencia > #t_Incremento
AND
#Pulso100ms
THEN
#ValorActual := #ValorActual + #t_Incremento;
END_IF;
// Gestion incremento DOWN
IF #ValorActual > #ValorObjetivo
AND
#t_Diferencia > #t_Incremento
AND
#Pulso100ms
THEN
#ValorActual := #ValorActual - #t_Incremento;
END_IF;
// Gestion limite alcanzado o sin incremento configurado
IF #t_Diferencia <= #t_Incremento
OR
#t_Incremento = 0
THEN
#ValorActual := #ValorObjetivo;
END_IF;
END_REGION
ELSE
#ValorActual := #ValorObjetivo;
END_IF;
END_REGION CALCULO_RAMPA
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Contadores/FC15025_ZC_CONTADOR_TIEMPO.s7dcl
+101
View File
@@ -0,0 +1,101 @@
{
S7_Author := "HCR";
S7_BlockComment := "MLC_3d2";
S7_BlockNumber := "15025";
S7_BlockTitle := "MLC_Pc";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC15025_ZC_CONTADOR_TIEMPO" : Void
VAR_INPUT
{ S7_MLC := "MLC_4qU" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_4pS" }
Iniciar : Bool;
{ S7_MLC := "MLC_357" }
Reset : Bool;
END_VAR
VAR_IN_OUT
Contador : _.UDT_ZC_CONTADOR_TIEMPO;
END_VAR
VAR CONSTANT
{ S7_MLC := "MLC_Rh" }
MAX_HORAS : UDInt := 10000000;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de contar tiempo.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 16.03.2023 | (HCR) | Primera version. |
| 01.00.01 | 25.07.2023 | (HCR) | Se añade valor maximo DINT para limitar contador horas. En caso de alcanzar valor maximo, se resetea el contador de horas. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_CONTADOR
// ==========================================================================================================
REGION RESET_CONTADOR
IF #Reset OR #Contador.Hora >= #MAX_HORAS THEN
#Contador.Hora := #Contador.Minuto := #Contador.Segundo := 0;
END_IF;
END_REGION RESET_CONTADOR
// ==========================================================================================================
REGION GESTION_CONTADOR
IF #Iniciar AND #Pulso1seg THEN
#Contador.#Segundo += 1;
IF #Contador.#Segundo >= 60 THEN
#Contador.#Segundo := 0;
#Contador.#Minuto += 1;
IF #Contador.#Minuto >= 60 THEN
#Contador.#Minuto := 0;
#Contador.Hora += 1;
END_IF;
END_IF;
END_IF;
END_REGION RESET_CONTADOR
END_REGION
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Contadores/FC15025_ZC_CONTADOR_TIEMPO.s7res
+13
View File
@@ -0,0 +1,13 @@
MultiLingualTexts:
- id: MLC_Pc
es-ES: FC15025_ZC_CONTADOR_TIEMPO
- id: MLC_3d2
es-ES: Funcion contador de tiempo
- id: MLC_4qU
es-ES: Pulso de 1 segundo
- id: MLC_4pS
es-ES: Orden iniciar contador
- id: MLC_357
es-ES: Reset contador
- id: MLC_Rh
es-ES: Valor maximo de horas
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Contadores/FC15025_ZC_CONTADOR_TIEMPO.scl
-94
View File
@@ -1,94 +0,0 @@
FUNCTION "FC15025_ZC_CONTADOR_TIEMPO" : Void
TITLE = FC15025_ZC_CONTADOR_TIEMPO
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : HCR
FAMILY : ZeusControl
VERSION : 1.0
//Funcion contador de tiempo
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
Iniciar : Bool; // Orden iniciar contador
Reset : Bool; // Reset contador
END_VAR
VAR_IN_OUT
Contador : "UDT_ZC_CONTADOR_TIEMPO";
END_VAR
VAR CONSTANT
MAX_HORAS : UDInt := 10000000; // Valor maximo de horas
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de contar tiempo.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 16.03.2023 | (HCR) | Primera version. |
| 01.00.01 | 25.07.2023 | (HCR) | Se añade valor maximo DINT para limitar contador horas. En caso de alcanzar valor maximo, se resetea el contador de horas. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_CONTADOR
// ==========================================================================================================
REGION RESET_CONTADOR
IF #Reset OR #Contador.Hora >= #MAX_HORAS THEN
#Contador.Hora := #Contador.Minuto := #Contador.Segundo := 0;
END_IF;
END_REGION RESET_CONTADOR
// ==========================================================================================================
REGION GESTION_CONTADOR
IF #Iniciar AND #Pulso1seg THEN
#Contador.#Segundo += 1;
IF #Contador.#Segundo >= 60 THEN
#Contador.#Segundo := 0;
#Contador.#Minuto += 1;
IF #Contador.#Minuto >= 60 THEN
#Contador.#Minuto := 0;
#Contador.Hora += 1;
END_IF;
END_IF;
END_IF;
END_REGION RESET_CONTADOR
END_REGION
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Contadores/FC15027_ZC_CONTADOR_MINUTOS.s7dcl
+97
View File
@@ -0,0 +1,97 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_4GE";
S7_BlockNumber := "15027";
S7_BlockTitle := "MLC_36i";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC15027_ZC_CONTADOR_MINUTOS" : Void
VAR_INPUT
{ S7_MLC := "MLC_3Hm" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_4qN" }
Iniciar : Bool;
{ S7_MLC := "MLC_3r7" }
Reset : Bool;
END_VAR
VAR_IN_OUT
Contador : _.UDT_ZC_CONTADOR_MINUTOS;
END_VAR
VAR CONSTANT
{ S7_MLC := "MLC_34c" }
MAX_MINUTOS : UDInt := 10000000;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2024 - 2024
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de contar tiempo en minutos.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 13.05.2024 | (ABH) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_CONTADOR
// ==========================================================================================================
REGION RESET_CONTADOR
IF #Reset OR #Contador.Minuto >= #MAX_MINUTOS THEN
#Contador.Minuto := #Contador.Segundo := 0;
END_IF;
END_REGION RESET_CONTADOR
// ==========================================================================================================
REGION GESTION_CONTADOR
IF #Iniciar AND #Pulso1seg THEN
#Contador.#Segundo += 1;
IF #Contador.#Segundo >= 60 THEN
#Contador.#Segundo := 0;
#Contador.#Minuto += 1;
END_IF;
END_IF;
END_REGION GESTION_CONTADOR
END_REGION GESTION_CONTADOR
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Contadores/FC15027_ZC_CONTADOR_MINUTOS.s7res
+13
View File
@@ -0,0 +1,13 @@
MultiLingualTexts:
- id: MLC_36i
es-ES: FC15027_ZC_CONTADOR_MINUTOS
- id: MLC_4GE
es-ES: Funcion contador de minutos
- id: MLC_3Hm
es-ES: Pulso de 1 segundo
- id: MLC_4qN
es-ES: Orden iniciar contador
- id: MLC_3r7
es-ES: Reset contador
- id: MLC_34c
es-ES: Valor maximo de minutos
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Contadores/FC15027_ZC_CONTADOR_MINUTOS.scl
-90
View File
@@ -1,90 +0,0 @@
FUNCTION "FC15027_ZC_CONTADOR_MINUTOS" : Void
TITLE = FC15027_ZC_CONTADOR_MINUTOS
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion contador de minutos
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
Iniciar : Bool; // Orden iniciar contador
Reset : Bool; // Reset contador
END_VAR
VAR_IN_OUT
Contador : "UDT_ZC_CONTADOR_MINUTOS";
END_VAR
VAR CONSTANT
MAX_MINUTOS : UDInt := 10000000; // Valor maximo de minutos
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2024 - 2024
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de contar tiempo en minutos.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 13.05.2024 | (ABH) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_CONTADOR
// ==========================================================================================================
REGION RESET_CONTADOR
IF #Reset OR #Contador.Minuto >= #MAX_MINUTOS THEN
#Contador.Minuto := #Contador.Segundo := 0;
END_IF;
END_REGION RESET_CONTADOR
// ==========================================================================================================
REGION GESTION_CONTADOR
IF #Iniciar AND #Pulso1seg THEN
#Contador.#Segundo += 1;
IF #Contador.#Segundo >= 60 THEN
#Contador.#Segundo := 0;
#Contador.#Minuto += 1;
END_IF;
END_IF;
END_REGION GESTION_CONTADOR
END_REGION GESTION_CONTADOR
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15000_ZC_INT_TO_TIME.s7dcl
+68
View File
@@ -0,0 +1,68 @@
{
S7_Author := "HCR";
S7_BlockComment := "MLC_3Rf";
S7_BlockNumber := "15000";
S7_BlockTitle := "MLC_3br";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC15000_ZC_INT_TO_TIME" : Time
VAR_INPUT
{ S7_MLC := "MLC_4cD" }
Valor : Int;
END_VAR
VAR CONSTANT
{ S7_MLC := "MLC_ki" }
BASE_TIEMPO : Int := 1000;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de convertir tipo de dato INT a TIME.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 10.05.2023 | (HCR) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
#FC15000_ZC_INT_TO_TIME := DINT_TO_TIME(IN := INT_TO_DINT(IN := #Valor)) * #BASE_TIEMPO;
END_REGION CALCULO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15000_ZC_INT_TO_TIME.s7res
+9
View File
@@ -0,0 +1,9 @@
MultiLingualTexts:
- id: MLC_3br
es-ES: FC15000_ZC_INT_TO_TIME
- id: MLC_3Rf
es-ES: Funcion para conversion INT a TIME
- id: MLC_4cD
es-ES: Valor INT
- id: MLC_ki
es-ES: Base de tiempo para conversion
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15000_ZC_INT_TO_TIME.scl
-63
View File
@@ -1,63 +0,0 @@
FUNCTION "FC15000_ZC_INT_TO_TIME" : Time
TITLE = FC15000_ZC_INT_TO_TIME
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : HCR
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para conversion INT a TIME
VAR_INPUT
Valor : Int; // Valor INT
END_VAR
VAR CONSTANT
BASE_TIEMPO : Int := 1000; // Base de tiempo para conversion
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de convertir tipo de dato INT a TIME.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 10.05.2023 | (HCR) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
#FC15000_ZC_INT_TO_TIME := DINT_TO_TIME(IN := INT_TO_DINT(IN := #Valor)) * #BASE_TIEMPO;
END_REGION CALCULO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15001_ZC_INT_TO_STRING.s7dcl
+65
View File
@@ -0,0 +1,65 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_3NL";
S7_BlockNumber := "15001";
S7_BlockTitle := "MLC_4nr";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC15001_ZC_INT_TO_STRING" : String
VAR_INPUT
{ S7_MLC := "MLC_4LU" }
Valor : Int;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de convertir tipo de dato INT a STRING.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 15.03.2023 | (ABH) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
#FC15001_ZC_INT_TO_STRING := DELETE(IN := INT_TO_STRING(#Valor), L := 1, P := 1);
END_REGION CALCULO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15001_ZC_INT_TO_STRING.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_4nr
es-ES: FC15001_ZC_INT_TO_STRING
- id: MLC_3NL
es-ES: Funcion para convertir INT a STRING
- id: MLC_4LU
es-ES: Valor INT
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15001_ZC_INT_TO_STRING.scl
-60
View File
@@ -1,60 +0,0 @@
FUNCTION "FC15001_ZC_INT_TO_STRING" : String
TITLE = FC15001_ZC_INT_TO_STRING
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para convertir INT a STRING
VAR_INPUT
Valor : Int; // Valor INT
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de convertir tipo de dato INT a STRING.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 15.03.2023 | (ABH) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
#FC15001_ZC_INT_TO_STRING := DELETE(IN := INT_TO_STRING(#Valor), L := 1, P := 1);
END_REGION CALCULO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15003_ZC_REAL_TO_STRING.s7dcl
+87
View File
@@ -0,0 +1,87 @@
{
S7_Author := "HCR";
S7_BlockComment := "MLC_59w";
S7_BlockNumber := "15003";
S7_BlockTitle := "MLC_UY";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.1"
}
FUNCTION "FC15003_ZC_REAL_TO_STRING" : String
VAR_INPUT
{ S7_MLC := "MLC_nV" }
Valor : Real;
END_VAR
VAR_TEMP
t_String : String;
t_Posición : Int;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2022 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de convertir tipo de dato REAL a STRING.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 15.10.2022 | (HCR) | Primera version. |
| 01.00.00 | 25.07.2023 | (ABH) | Cambio FC de Void a Funcion. Cambio en nombre de variables para estandarizacion. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
// Conversion de real a string
VAL_STRG(IN := #Valor,
SIZE := 10,
PREC := 1,
FORMAT := 16#0004,
P := 16,
OUT => #t_String);
// Se añade signo en base a valor
IF #Valor >= 0.0 THEN
#t_Posición := FIND(IN1 := #t_String, IN2 := '+');
END_IF;
IF #Valor < 0.0 THEN
#t_Posición := FIND(IN1 := #t_String, IN2 := '-');
END_IF;
// Borrado de caracteres antes del signo
#FC15003_ZC_REAL_TO_STRING := DELETE(IN := #t_String, L := #t_Posición - 1, P := 1);
END_REGION CALCULO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15003_ZC_REAL_TO_STRING.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_UY
es-ES: FC15003_ZC_REAL_TO_STRING
- id: MLC_59w
es-ES: Funcion para convertir REAL a TRING
- id: MLC_nV
es-ES: Valor REAL
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15003_ZC_REAL_TO_STRING.scl
-83
View File
@@ -1,83 +0,0 @@
FUNCTION "FC15003_ZC_REAL_TO_STRING" : String
TITLE = FC15003_ZC_REAL_TO_STRING
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : HCR
FAMILY : ZeusControl
VERSION : 1.1
//Funcion para convertir REAL a TRING
VAR_INPUT
Valor : Real; // Valor REAL
END_VAR
VAR_TEMP
t_String : String;
t_Posición : Int;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2022 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de convertir tipo de dato REAL a STRING.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 15.10.2022 | (HCR) | Primera version. |
| 01.00.00 | 25.07.2023 | (ABH) | Cambio FC de Void a Funcion. Cambio en nombre de variables para estandarizacion. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
// Conversion de real a string
VAL_STRG(IN := #Valor,
SIZE := 10,
PREC := 1,
FORMAT := 16#0004,
P := 16,
OUT => #t_String);
// Se añade signo en base a valor
IF #Valor >= 0.0 THEN
#t_Posición := FIND(IN1 := #t_String, IN2 := '+');
END_IF;
IF #Valor < 0.0 THEN
#t_Posición := FIND(IN1 := #t_String, IN2 := '-');
END_IF;
// Borrado de caracteres antes del signo
#FC15003_ZC_REAL_TO_STRING := DELETE(IN := #t_String, L := #t_Posición - 1, P := 1);
END_REGION CALCULO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15005_ZC_DTL_TO_ZC_FECHA.s7dcl
+71
View File
@@ -0,0 +1,71 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_RZ";
S7_BlockNumber := "15005";
S7_BlockTitle := "MLC_4Cg";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC15005_ZC_DTL_TO_ZC_FECHA" : "UDT_ZC_FECHA"
VAR_INPUT
{ S7_MLC := "MLC_3vx" }
FechaDTL : DTL;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función para traspaso de datos en DTL a tipo de dato ZC_FECHA
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 03.11.2022 | (ABH) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
#FC15005_ZC_DTL_TO_ZC_FECHA.Ano := #FechaDTL.YEAR;
#FC15005_ZC_DTL_TO_ZC_FECHA.Mes := #FechaDTL.MONTH;
#FC15005_ZC_DTL_TO_ZC_FECHA.Dia := #FechaDTL.DAY;
#FC15005_ZC_DTL_TO_ZC_FECHA.Hora := #FechaDTL.HOUR;
#FC15005_ZC_DTL_TO_ZC_FECHA.Minuto := #FechaDTL.MINUTE;
#FC15005_ZC_DTL_TO_ZC_FECHA.Segundo := #FechaDTL.SECOND;
#FC15005_ZC_DTL_TO_ZC_FECHA.NanoSegundo := #FechaDTL.NANOSECOND;
#FC15005_ZC_DTL_TO_ZC_FECHA.DiaSemana := #FechaDTL.WEEKDAY;
END_REGION CALCULO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15005_ZC_DTL_TO_ZC_FECHA.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_4Cg
es-ES: FC15005_ZC_DTL_TO_ZC_FECHA
- id: MLC_RZ
es-ES: Funcion para convertir tipo de datos DTL a tipo de datos ZC_FECHA
- id: MLC_3vx
es-ES: Fecha DTL a convertir
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15005_ZC_DTL_TO_ZC_FECHA.scl
-66
View File
@@ -1,66 +0,0 @@
FUNCTION "FC15005_ZC_DTL_TO_ZC_FECHA" : "UDT_ZC_FECHA"
TITLE = FC15005_ZC_DTL_TO_ZC_FECHA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para convertir tipo de datos DTL a tipo de datos ZC_FECHA
VAR_INPUT
FechaDTL {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha DTL a convertir
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función para traspaso de datos en DTL a tipo de dato ZC_FECHA
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 03.11.2022 | (ABH) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
#FC15005_ZC_DTL_TO_ZC_FECHA.Ano := #FechaDTL.YEAR;
#FC15005_ZC_DTL_TO_ZC_FECHA.Mes := #FechaDTL.MONTH;
#FC15005_ZC_DTL_TO_ZC_FECHA.Dia := #FechaDTL.DAY;
#FC15005_ZC_DTL_TO_ZC_FECHA.Hora := #FechaDTL.HOUR;
#FC15005_ZC_DTL_TO_ZC_FECHA.Minuto := #FechaDTL.MINUTE;
#FC15005_ZC_DTL_TO_ZC_FECHA.Segundo := #FechaDTL.SECOND;
#FC15005_ZC_DTL_TO_ZC_FECHA.NanoSegundo := #FechaDTL.NANOSECOND;
#FC15005_ZC_DTL_TO_ZC_FECHA.DiaSemana := #FechaDTL.WEEKDAY;
END_REGION CALCULO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15006_ZC_DTL_TO_STRING.s7dcl
+191
View File
@@ -0,0 +1,191 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_yK";
S7_BlockNumber := "15006";
S7_BlockTitle := "MLC_px";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.1"
}
FUNCTION "FC15006_ZC_DTL_TO_STRING" : String
VAR_INPUT
FechaDTL : DTL;
{ S7_MLC := "MLC_3mz" }
Formato : USInt;
END_VAR
VAR_TEMP
t_Ano : String[5];
t_Mes : String[3];
t_Dia : String[3];
t_Hora : String[3];
t_Minuto : String[3];
t_Segundo : String[3];
t_Nanosegundo : String[50];
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2019 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de convertir tipo de dato DTL a String
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 10.09.2019 | (ABH) | Primera version. |
| 01.00.00 | 25.07.2023 | (ABH) | Se eliminan las variables temporales STRING, para concatenar directamente en el return de la funcion el texto deseado. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
REGION GESTION_STRING
// Genero un String por cada elemento
#t_Ano := UINT_TO_STRING(#FechaDTL.YEAR);
#t_Mes := USINT_TO_STRING(#FechaDTL.MONTH);
#t_Dia := USINT_TO_STRING(#FechaDTL.DAY);
#t_Hora := USINT_TO_STRING(#FechaDTL.HOUR);
#t_Minuto := USINT_TO_STRING(#FechaDTL.MINUTE);
#t_Segundo := USINT_TO_STRING(#FechaDTL.SECOND);
#t_Nanosegundo := UDINT_TO_STRING(#FechaDTL.NANOSECOND);
// TRATAMIENTO DE LA FECHA
// Año
#t_Ano := DELETE(IN := #t_Ano, L := 1, P := 1);// Le borro el signo
// Mes
IF #FechaDTL.MONTH < 10 THEN
#t_Mes := DELETE(IN := #t_Mes, L := 1, P := 1);// Le borro el signo
#t_Mes := CONCAT(IN1 := '0', IN2 := #t_Mes);// Le añado un cero
ELSE
#t_Mes := DELETE(IN := #t_Mes, L := 1, P := 1);// Le borro el signo
END_IF;
// Dia
IF #FechaDTL.DAY < 10 THEN
#t_Dia := DELETE(IN := #t_Dia, L := 1, P := 1);// Le borro el signo
#t_Dia := CONCAT(IN1 := '0', IN2 := #t_Dia);// Le añado un cero
ELSE
#t_Dia := DELETE(IN := #t_Dia, L := 1, P := 1);// Le borro el signo
END_IF;
// TRATAMIENTO DE LA HORA
// Horas
IF #FechaDTL.HOUR < 10 THEN
#t_Hora := DELETE(IN := #t_Hora, L := 1, P := 1);// Le borro el signo
#t_Hora := CONCAT(IN1 := '0', IN2 := #t_Hora);// Le añado un cero
ELSE
#t_Hora := DELETE(IN := #t_Hora, L := 1, P := 1);// Le borro el signo
END_IF;
// Minutos
IF #FechaDTL.MINUTE < 10 THEN
#t_Minuto := DELETE(IN := #t_Minuto, L := 1, P := 1);// Le borro el signo
#t_Minuto := CONCAT(IN1 := '0', IN2 := #t_Minuto);// Le añado un cero
ELSE
#t_Minuto := DELETE(IN := #t_Minuto, L := 1, P := 1);// Le borro el signo
END_IF;
// Segundos
IF #FechaDTL.SECOND < 10 THEN
#t_Segundo := DELETE(IN := #t_Segundo, L := 1, P := 1);// Le borro el signo
#t_Segundo := CONCAT(IN1 := '0', IN2 := #t_Segundo);// Le añado un cero
ELSE
#t_Segundo := DELETE(IN := #t_Segundo, L := 1, P := 1);// Le borro el signo
END_IF;
// Nanosegundos
IF #FechaDTL.NANOSECOND < 10 THEN
#t_Nanosegundo := DELETE(IN := #t_Nanosegundo, L := 1, P := 1);// Le borro el signo
#t_Nanosegundo := LEFT(IN := CONCAT(IN1 := '0', IN2 := #t_Nanosegundo), L := 5);// Le añado un cero
ELSE
#t_Nanosegundo := LEFT(IN := DELETE(IN := #t_Nanosegundo, L := 1, P := 1), L := 5);// Le borro el signo
END_IF;
END_REGION GESTION_STRING
REGION SALIDAS
CASE #Formato OF
0: // Fecha y hora
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Dia,
IN2 := '/',
IN3 := #t_Mes,
IN4 := '/',
IN5 := #t_Ano,
IN6 := ' ',
IN7 := #t_Hora,
IN8 := ':',
IN9 := #t_Minuto,
IN10 := ':',
IN11 := #t_Segundo);
1: // Fecha
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Dia,
IN2 := '/',
IN3 := #t_Mes,
IN4 := '/',
IN5 := #t_Ano);
2: // Hora
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Hora,
IN2 := ':',
IN3 := #t_Minuto,
IN4 := ':',
IN5 := #t_Segundo);
3: // Fecha y hora (nanosegundo)
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Ano,
IN2 := #t_Mes,
IN3 := #t_Dia,
IN4 := #t_Hora,
IN5 := #t_Minuto,
IN6 := #t_Segundo,
IN7 := #t_Nanosegundo);
ELSE
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Dia,
IN2 := '/',
IN3 := #t_Mes,
IN4 := '/',
IN5 := #t_Ano,
IN6 := ' ',
IN7 := #t_Hora,
IN8 := ':',
IN9 := #t_Minuto,
IN10 := ':',
IN11 := #t_Segundo);
END_CASE;
END_REGION SALIDAS
END_REGION CALCULO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15006_ZC_DTL_TO_STRING.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_px
es-ES: FC15006_ZC_DTL_TO_STRING
- id: MLC_yK
es-ES: Funcion para convertir DTL a STRING
- id: MLC_3mz
es-ES: 0= Fecha y hora / 1= Fecha / 2= hORA
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Conversiones/FC15006_ZC_DTL_TO_STRING.scl
-187
View File
@@ -1,187 +0,0 @@
FUNCTION "FC15006_ZC_DTL_TO_STRING" : String
TITLE = FC15006_ZC_DTL_TO_STRING
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.1
//Funcion para convertir DTL a STRING
VAR_INPUT
FechaDTL {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL;
Formato : USInt; // 0= Fecha y hora / 1= Fecha / 2= hORA
END_VAR
VAR_TEMP
t_Ano : String[5];
t_Mes : String[3];
t_Dia : String[3];
t_Hora : String[3];
t_Minuto : String[3];
t_Segundo : String[3];
t_Nanosegundo : String[50];
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2019 - 2023
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de convertir tipo de dato DTL a String
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 10.09.2019 | (ABH) | Primera version. |
| 01.00.00 | 25.07.2023 | (ABH) | Se eliminan las variables temporales STRING, para concatenar directamente en el return de la funcion el texto deseado. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION CALCULO
REGION GESTION_STRING
// Genero un String por cada elemento
#t_Ano := UINT_TO_STRING(#FechaDTL.YEAR);
#t_Mes := USINT_TO_STRING(#FechaDTL.MONTH);
#t_Dia := USINT_TO_STRING(#FechaDTL.DAY);
#t_Hora := USINT_TO_STRING(#FechaDTL.HOUR);
#t_Minuto := USINT_TO_STRING(#FechaDTL.MINUTE);
#t_Segundo := USINT_TO_STRING(#FechaDTL.SECOND);
#t_Nanosegundo := UDINT_TO_STRING(#FechaDTL.NANOSECOND);
// TRATAMIENTO DE LA FECHA
// Año
#t_Ano := DELETE(IN := #t_Ano, L := 1, P := 1);// Le borro el signo
// Mes
IF #FechaDTL.MONTH < 10 THEN
#t_Mes := DELETE(IN := #t_Mes, L := 1, P := 1);// Le borro el signo
#t_Mes := CONCAT(IN1 := '0', IN2 := #t_Mes);// Le añado un cero
ELSE
#t_Mes := DELETE(IN := #t_Mes, L := 1, P := 1);// Le borro el signo
END_IF;
// Dia
IF #FechaDTL.DAY < 10 THEN
#t_Dia := DELETE(IN := #t_Dia, L := 1, P := 1);// Le borro el signo
#t_Dia := CONCAT(IN1 := '0', IN2 := #t_Dia);// Le añado un cero
ELSE
#t_Dia := DELETE(IN := #t_Dia, L := 1, P := 1);// Le borro el signo
END_IF;
// TRATAMIENTO DE LA HORA
// Horas
IF #FechaDTL.HOUR < 10 THEN
#t_Hora := DELETE(IN := #t_Hora, L := 1, P := 1);// Le borro el signo
#t_Hora := CONCAT(IN1 := '0', IN2 := #t_Hora);// Le añado un cero
ELSE
#t_Hora := DELETE(IN := #t_Hora, L := 1, P := 1);// Le borro el signo
END_IF;
// Minutos
IF #FechaDTL.MINUTE < 10 THEN
#t_Minuto := DELETE(IN := #t_Minuto, L := 1, P := 1);// Le borro el signo
#t_Minuto := CONCAT(IN1 := '0', IN2 := #t_Minuto);// Le añado un cero
ELSE
#t_Minuto := DELETE(IN := #t_Minuto, L := 1, P := 1);// Le borro el signo
END_IF;
// Segundos
IF #FechaDTL.SECOND < 10 THEN
#t_Segundo := DELETE(IN := #t_Segundo, L := 1, P := 1);// Le borro el signo
#t_Segundo := CONCAT(IN1 := '0', IN2 := #t_Segundo);// Le añado un cero
ELSE
#t_Segundo := DELETE(IN := #t_Segundo, L := 1, P := 1);// Le borro el signo
END_IF;
// Nanosegundos
IF #FechaDTL.NANOSECOND < 10 THEN
#t_Nanosegundo := DELETE(IN := #t_Nanosegundo, L := 1, P := 1);// Le borro el signo
#t_Nanosegundo := LEFT(IN := CONCAT(IN1 := '0', IN2 := #t_Nanosegundo), L := 5);// Le añado un cero
ELSE
#t_Nanosegundo := LEFT(IN := DELETE(IN := #t_Nanosegundo, L := 1, P := 1), L := 5);// Le borro el signo
END_IF;
END_REGION GESTION_STRING
REGION SALIDAS
CASE #Formato OF
0: // Fecha y hora
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Dia,
IN2 := '/',
IN3 := #t_Mes,
IN4 := '/',
IN5 := #t_Ano,
IN6 := ' ',
IN7 := #t_Hora,
IN8 := ':',
IN9 := #t_Minuto,
IN10 := ':',
IN11 := #t_Segundo);
1: // Fecha
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Dia,
IN2 := '/',
IN3 := #t_Mes,
IN4 := '/',
IN5 := #t_Ano);
2: // Hora
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Hora,
IN2 := ':',
IN3 := #t_Minuto,
IN4 := ':',
IN5 := #t_Segundo);
3: // Fecha y hora (nanosegundo)
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Ano,
IN2 := #t_Mes,
IN3 := #t_Dia,
IN4 := #t_Hora,
IN5 := #t_Minuto,
IN6 := #t_Segundo,
IN7 := #t_Nanosegundo);
ELSE
#FC15006_ZC_DTL_TO_STRING := CONCAT(IN1 := #t_Dia,
IN2 := '/',
IN3 := #t_Mes,
IN4 := '/',
IN5 := #t_Ano,
IN6 := ' ',
IN7 := #t_Hora,
IN8 := ':',
IN9 := #t_Minuto,
IN10 := ':',
IN11 := #t_Segundo);
END_CASE;
END_REGION SALIDAS
END_REGION CALCULO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Pulsadores/FC15026_ZC_PULSADOR.s7dcl
+134
View File
@@ -0,0 +1,134 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_3x7";
S7_BlockNumber := "15026";
S7_BlockTitle := "MLC_4P4";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC15026_ZC_PULSADOR" : Void
VAR_INPUT
{ S7_MLC := "MLC_4b4" }
Pulso1Seg : Bool;
{ S7_MLC := "MLC_mg" }
SP_Tiempo : Int;
{ S7_MLC := "MLC_xH" }
TrazaCategoria : Int;
{ S7_MLC := "MLC_4gi" }
TrazaIdProceso : Int;
{ S7_MLC := "MLC_5CY" }
TrazaIdPulsador : Int;
{ S7_MLC := "MLC_54A" }
Usuario : String;
{ S7_MLC := "MLC_mR" }
FechaHoraActual : DTL;
END_VAR
VAR_IN_OUT
{ S7_MLC := "MLC_3Aq" }
Pulsador : _.UDT_ZC_PULSADOR;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2025 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de la gestión temporizada de los pulsadores virtuales provenientes del sistema HMI o sistema externo, integrando el registro automático de cada acción en el sistema de trazabilidad.
En ella se realizan las siguientes acciones:
- Evalúa continuamente si existe una orden activa desde el HMI o desde sistema externo y si el pulsador dispone del permiso de ejecución necesario.
- Incrementa un temporizador interno auxiliar mediante un pulso de un segundo hasta alcanzar el tiempo de retardo configurado.
- Una vez superado el tiempo de retardo:
- Registra el evento en el buffer invocando la función FC8_ZC_TRAZA_REGISTRO, asignando la categoría específica de pulsadores, el identificador, el usuario y la marca de tiempo.
- Activa la señal de confirmación de orden hacia la lógica del PLC.
- Resetea automáticamente la marca de activación del HMI.
- Reinicia a cero el tiempo acumulado del pulsador en caso de perder el permiso de ejecución o si la orden del HMI se cancela antes de finalizar el temporizador.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | - |
| UDT | `UDT_ZC_PULSADOR` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 14.03.2025 | (ABH) | Primera version. |
| 01.01.00 | 08.07.2026 | (ABH) | Se implementa orden externa. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_PULSADOR
// Reset orden PLC
#Pulsador.Plc := FALSE;
// Con permiso y con la orden desde HMI, contamos el tiempo para activar la orden de PLC
IF (#Pulsador.Hmi OR #Pulsador.Remoto) AND #Pulsador.Permiso THEN
IF #Pulso1Seg AND #Pulsador.AuxTiempo < #SP_Tiempo THEN
#Pulsador.AuxTiempo += 1;
END_IF;
IF #Pulsador.AuxTiempo >= #SP_Tiempo THEN
// Registramos la trazabilidad de la pulsacion del boton
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := #TrazaCategoria,
User := #Usuario,
CodInt_1 := #TrazaIdProceso,
CodInt_2 := #TrazaIdPulsador,
CodInt_3 := 0,
CodInt_4:= 0,
CodInt_5:= 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
// Activacion de orden PLC y reset orden HMI
#Pulsador.Plc := TRUE;
#Pulsador.Hmi :=
#Pulsador.Remoto := FALSE;
END_IF;
END_IF;
END_REGION GESTION_PULSADOR
// ==========================================================================================================
REGION RESET_DATOS
// Sin orden desde HMI o si no tenemos permiso, reseteamos el tiempo del pulsador
IF (NOT #Pulsador.Hmi AND NOT #Pulsador.Remoto) OR NOT #Pulsador.Permiso THEN
#Pulsador.AuxTiempo := 0;
END_IF;
END_REGION RESET_DATOS
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Pulsadores/FC15026_ZC_PULSADOR.s7res
+21
View File
@@ -0,0 +1,21 @@
MultiLingualTexts:
- id: MLC_4P4
es-ES: FC15026_ZC_PULSADOR
- id: MLC_3x7
es-ES: Funcion para gestion de pulsadores
- id: MLC_4b4
es-ES: Pulso 1 segundo
- id: MLC_mg
es-ES: Tiempo retardo pulsador
- id: MLC_xH
es-ES: Categoria de la traza
- id: MLC_4gi
es-ES: ID Proceso para trazabilidad
- id: MLC_5CY
es-ES: ID Pulsador para trazabilidad
- id: MLC_54A
es-ES: Usuario actual
- id: MLC_mR
es-ES: Fecha y hora actual
- id: MLC_3Aq
es-ES: Pulsador
PLC/Bloques de programa/ZC_Estandar_Alimentacion/100_Utilidades/100_Pulsadores/FC15026_ZC_PULSADOR.scl
-122
View File
@@ -1,122 +0,0 @@
FUNCTION "FC15026_ZC_PULSADOR" : Void
TITLE = FC15026_ZC_PULSADOR
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para gestion de pulsadores
VAR_INPUT
Pulso1Seg : Bool; // Pulso 1 segundo
SP_Tiempo : Int; // Tiempo retardo pulsador
TrazaCategoria : Int; // Categoria de la traza
TrazaIdProceso : Int; // ID Proceso para trazabilidad
TrazaIdPulsador : Int; // ID Pulsador para trazabilidad
Usuario : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
END_VAR
VAR_IN_OUT
Pulsador : "UDT_ZC_PULSADOR"; // Pulsador
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2025 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de la gestión temporizada de los pulsadores virtuales provenientes del sistema HMI o sistema externo, integrando el registro automático de cada acción en el sistema de trazabilidad.
En ella se realizan las siguientes acciones:
- Evalúa continuamente si existe una orden activa desde el HMI o desde sistema externo y si el pulsador dispone del permiso de ejecución necesario.
- Incrementa un temporizador interno auxiliar mediante un pulso de un segundo hasta alcanzar el tiempo de retardo configurado.
- Una vez superado el tiempo de retardo:
- Registra el evento en el buffer invocando la función FC8_ZC_TRAZA_REGISTRO, asignando la categoría específica de pulsadores, el identificador, el usuario y la marca de tiempo.
- Activa la señal de confirmación de orden hacia la lógica del PLC.
- Resetea automáticamente la marca de activación del HMI.
- Reinicia a cero el tiempo acumulado del pulsador en caso de perder el permiso de ejecución o si la orden del HMI se cancela antes de finalizar el temporizador.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | - |
| UDT | `UDT_ZC_PULSADOR` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 14.03.2025 | (ABH) | Primera version. |
| 01.01.00 | 08.07.2026 | (ABH) | Se implementa orden externa. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_PULSADOR
// Reset orden PLC
#Pulsador.Plc := FALSE;
// Con permiso y con la orden desde HMI, contamos el tiempo para activar la orden de PLC
IF (#Pulsador.Hmi OR #Pulsador.Remoto) AND #Pulsador.Permiso THEN
IF #Pulso1Seg AND #Pulsador.AuxTiempo < #SP_Tiempo THEN
#Pulsador.AuxTiempo += 1;
END_IF;
IF #Pulsador.AuxTiempo >= #SP_Tiempo THEN
// Registramos la trazabilidad de la pulsacion del boton
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := #TrazaCategoria,
User := #Usuario,
CodInt_1 := #TrazaIdProceso,
CodInt_2 := #TrazaIdPulsador,
CodInt_3 := 0,
CodInt_4:= 0,
CodInt_5:= 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
// Activacion de orden PLC y reset orden HMI
#Pulsador.Plc := TRUE;
#Pulsador.Hmi :=
#Pulsador.Remoto := FALSE;
END_IF;
END_IF;
END_REGION GESTION_PULSADOR
// ==========================================================================================================
REGION RESET_DATOS
// Sin orden desde HMI o si no tenemos permiso, reseteamos el tiempo del pulsador
IF (NOT #Pulsador.Hmi AND NOT #Pulsador.Remoto) OR NOT #Pulsador.Permiso THEN
#Pulsador.AuxTiempo := 0;
END_IF;
END_REGION RESET_DATOS
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FB15049_ZC_AIRE_ESTERIL.s7dcl
+383
View File
@@ -0,0 +1,383 @@
{
S7_Author := "HCR";
S7_BlockNumber := "15149";
S7_BlockTitle := "MLC_3cn";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION_BLOCK "FB15049_ZC_AIRE_ESTERIL"
VAR_INPUT
{ S7_MLC := "MLC_33z" }
Pulso1Seg : Bool;
HabilitarMantenimiento : Bool;
AlarmaFalloVapor : Bool;
{ S7_MLC := "MLC_Xw" }
FechaHora : DTL;
{ S7_MLC := "MLC_4TG" }
TempEsterilAlcanzada : Bool;
{ S7_MLC := "MLC_3r4" }
SP_TiempoEsterilizacion : Int;
{ S7_MLC := "MLC_3XU" }
SP_TiempoEnfriamiento : Int;
SP_NumeroMaximoEsterilizacion : Int;
{ S7_MLC := "MLC_zF" }
SP_DiasMaximoFiltroEsteril : Int;
{ S7_MLC := "MLC_WZ" }
ProcesoID : Int;
END_VAR
VAR_INPUT RETAIN
{ S7_MLC := "MLC_3cm" }
Usuario : String[25];
END_VAR
VAR_INPUT
MinutoAlarma : USInt;
SegundoAlarma : USInt;
END_VAR
VAR_IN_OUT
ParoMantenimiento : Bool;
AvisoDiasEsterilizacion : Bool;
AlarmaDiasEsterilizacion : Bool;
END_VAR
VAR
{ S7_MLC := "MLC_4jQ" }
s_Habilitar : Bool;
{ S7_MLC := "MLC_ZU" }
s_FiltroEsteril : Bool;
END_VAR
VAR RETAIN
{ S7_MLC := "MLC_3qw" }
s_Etapa : Int;
{ S7_MLC := "MLC_m7" }
s_NumeroEsterilizaciones : Int;
END_VAR
VAR
{ S7_MLC := "MLC_3gR" }
S_NumeroDiasEsterilizacion : Int;
END_VAR
VAR RETAIN
{
S7_MLC := "MLC_4hW";
S7_Setpoint := "False"
}
s_TiempoEtapa : _.UDT_ZC_PRO_TIEMPO_ETAPA;
END_VAR
VAR
Pulsadores : STRUCT
{ S7_Setpoint := "False" }
Habilitar : _.UDT_ZC_PULSADOR;
{ S7_Setpoint := "False" }
Deshabilitar : _.UDT_ZC_PULSADOR;
{ S7_Setpoint := "False" }
Mantenimiento : _.UDT_ZC_PULSADOR;
END_STRUCT;
END_VAR
VAR RETAIN
TiempoEsterelizado : _.UDT_ZC_CONTADOR_TIEMPO;
END_VAR
VAR
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_RL";
S7_Visibility := "Hidden := External"
}
s_PasswordCalculado : UInt;
{ S7_MLC := "MLC_3mQ" }
s_PasswordHMI : UInt;
{ S7_Setpoint := "True" }
s_MostrarAlarmaMto : Bool;
{ S7_Setpoint := "True" }
s_oldMostrarAlarmaMto : Bool;
END_VAR
VAR_TEMP
{ S7_MLC := "MLC_ps" }
t_ResetContador : Bool;
t_DiasAvisos : Int;
END_VAR
VAR CONSTANT
REPOSO : Int := 0;
ESTERILIZANDO : Int := 10;
ESTERILIZADO : Int := 20;
ENFRIAMIENTO : Int := 30;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 202
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
Función principal para la gestión integral y secuencial del dispositivo del tanque de aire estéril.
> **Restricciones:** Ninguna.
- Evaluar y gestionar las órdenes temporizadas provenientes de los pulsadores del HMI (`Habilitar`, `Deshabilitar`, `Mantenimiento`) mediante la invocación de `FC15026_ZC_PULSADOR`.
- Ejecutar la máquina de estados principal para controlar el ciclo de vida y las fases operativas del sistema: `REPOSO`, `ESTERILIZANDO`, `ENFRIAMIENTO` y `ESTERILIZADO`.
- Contabilizar el tiempo de permanencia en estado estéril utilizando `FC15025_ZC_CONTADOR_TIEMPO`, llevando el registro acumulado de días de operación del filtro.
- Monitorizar dinámicamente los tiempos de cada etapa (`s_TiempoEtapa`) y validar las transiciones de estado en función de la temperatura (`TempEsterilAlcanzada`) o la detección de fallos (`AlarmaFalloVapor`).
- Revocar automáticamente el estado de filtro estéril (`s_FiltroEsteril`) al superar el límite máximo de días configurado en `SP_DiasMaximoFiltroEsteril`.
- Procesar las rutinas de parada por mantenimiento preventivo, exigiendo validación de seguridad mediante contraseña (`s_PasswordHMI` vs `s_PasswordCalculado`) una vez alcanzado el límite de esterilizaciones (`SP_NumeroMaximoEsterilizacion`).
- Calcular y emitir señales preventivas de aviso (`AvisoDiasEsterilizacion`) y alarma crítica (`AlarmaDiasEsterilizacion`) según la caducidad operativa del filtro estéril.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC15025_ZC_CONTADOR_TIEMPO`, `FC15026_ZC_PULSADOR` |
| FB | - |
| DB | `DB1_SYS` |
| UDT | `UDT_ZC_CONTADOR_TIEMPO`, `UDT_ZC_PRO_TIEMPO_ETAPA`, `UDT_ZC_PULSADOR` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 15.10.2024 | (HCR) | Primera version. |
| 01.00.01 | 28.01.2025 | (ABH) | Se cambia organizacion de variables y nombres para estandarizacion. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION PULSADORES
// Permiso pulsadores
#Pulsadores.Habilitar.Permiso := NOT #s_Habilitar;
#Pulsadores.Deshabilitar.Permiso := #s_Habilitar;
#Pulsadores.Mantenimiento.Permiso := #ParoMantenimiento;
// Gestion pulsadores
"FC15026_ZC_PULSADOR"(Pulso1Seg := #Pulso1Seg,
SP_Tiempo := 2,
TrazaCategoria:="TRZ_CAT_4_PRO_PUL",
TrazaIdProceso:=#ProcesoID,
TrazaIdPulsador:="TRZ_SYS_PUL_AE_HAB",
Usuario := #Usuario,
FechaHoraActual := #FechaHora,
Pulsador := #Pulsadores.Habilitar);
"FC15026_ZC_PULSADOR"(Pulso1Seg := #Pulso1Seg,
SP_Tiempo := 2,
TrazaCategoria:="TRZ_CAT_4_PRO_PUL",
TrazaIdProceso:=#ProcesoID,
TrazaIdPulsador:="TRZ_SYS_PUL_AE_DES",
Usuario := #Usuario,
FechaHoraActual := #FechaHora,
Pulsador := #Pulsadores.Deshabilitar);
"FC15026_ZC_PULSADOR"(Pulso1Seg := #Pulso1Seg,
SP_Tiempo := 2,
TrazaCategoria:="TRZ_CAT_4_PRO_PUL",
TrazaIdProceso:=#ProcesoID,
TrazaIdPulsador:="TRZ_SYS_PUL_AE_MNT",
Usuario := #Usuario,
FechaHoraActual := #FechaHora,
Pulsador := #Pulsadores.Mantenimiento);
// Orden habilitar aire esteril
IF #Pulsadores.Habilitar.Plc THEN
#s_Habilitar := TRUE;
ELSIF #Pulsadores.Deshabilitar.Plc THEN
#s_Habilitar := FALSE;
END_IF;
END_REGION PULSADORES
// ==========================================================================================================
REGION SECUENCIA_FILTRO
CASE #s_Etapa OF
// =============================================================================
#REPOSO:
IF #s_Habilitar THEN
#s_Etapa := #ESTERILIZADO;
#s_TiempoEtapa.Actual := 0;
END_IF;
// =============================================================================
#ESTERILIZANDO:
#s_TiempoEtapa.SP := #SP_TiempoEsterilizacion;
IF NOT #s_Habilitar THEN
#s_Etapa := #REPOSO;
END_IF;
IF #AlarmaFalloVapor THEN
#s_Etapa := #REPOSO;
END_IF;
IF #s_TiempoEtapa.Cumplido THEN
#s_Etapa := #ENFRIAMIENTO;
#s_TiempoEtapa.Actual := 0;
#S_NumeroDiasEsterilizacion := 0;
#s_NumeroEsterilizaciones += 1;
#s_FiltroEsteril := TRUE;
END_IF;
IF #TempEsterilAlcanzada THEN
#s_TiempoEtapa.Activar := TRUE;
ELSE
#s_TiempoEtapa.Activar := FALSE;
#s_TiempoEtapa.Actual := 0;
END_IF;
// =============================================================================
#ENFRIAMIENTO:
#s_TiempoEtapa.SP := #SP_TiempoEnfriamiento;
#s_TiempoEtapa.Activar := TRUE;
IF NOT #s_Habilitar THEN
#s_Etapa := #REPOSO;
END_IF;
IF #s_TiempoEtapa.Cumplido THEN
#s_Etapa := #ESTERILIZADO;
#s_TiempoEtapa.Actual := 0;
END_IF;
// =============================================================================
#ESTERILIZADO:
#s_TiempoEtapa.SP := 5;
IF NOT #s_Habilitar THEN
#s_Etapa := #REPOSO;
END_IF;
IF #s_TiempoEtapa.Cumplido THEN
#s_Etapa := #ESTERILIZANDO;
#s_TiempoEtapa.Actual := 0;
END_IF;
IF #TempEsterilAlcanzada AND NOT #s_FiltroEsteril THEN
#s_TiempoEtapa.Activar := TRUE;
ELSE
#s_TiempoEtapa.Activar := FALSE;
#s_TiempoEtapa.Actual := 0;
END_IF;
ELSE
#s_Etapa := #REPOSO;
END_CASE;
END_REGION SECUENCIA_FILTRO
// ==========================================================================================================
REGION TIEMPO_ESTERILIZADO
// Incrementar dias de filtro #ESTERILIZADO
IF #TiempoEsterelizado.Hora >= 24 THEN
#t_ResetContador := TRUE;
#S_NumeroDiasEsterilizacion += 1;
END_IF;
"FC15025_ZC_CONTADOR_TIEMPO"(Pulso1seg:=#Pulso1Seg,
Iniciar:=#Pulso1Seg AND (#s_Etapa = #ESTERILIZADO),
Reset:=#t_ResetContador,
Contador:=#TiempoEsterelizado);
// Quitar estado filtro esteril
IF #S_NumeroDiasEsterilizacion >= #SP_DiasMaximoFiltroEsteril THEN
#s_FiltroEsteril := FALSE;
END_IF;
END_REGION TIEMPO_ESTERILIZADO
// ==========================================================================================================
REGION TIEMPO_ETAPA
// Proceso en estado parado
IF #s_Etapa = #REPOSO THEN
#s_TiempoEtapa.Actual := 0;
#s_TiempoEtapa.Activar := FALSE;
END_IF;
// Temporizador activo
IF #s_TiempoEtapa.Activar THEN
IF #Pulso1Seg
AND
(#s_TiempoEtapa.Actual < #s_TiempoEtapa.SP)
THEN
#s_TiempoEtapa.Actual += 1;
END_IF;
// Reiniciar tiempo paso cumplido para esperar condicion
#s_TiempoEtapa.Cumplido := FALSE;
// Tiempo paso cumplido
IF #s_TiempoEtapa.Actual >= #s_TiempoEtapa.SP AND #s_TiempoEtapa.Activar THEN
#s_TiempoEtapa.Cumplido := TRUE;
END_IF;
// Tiempo restante
#s_TiempoEtapa.Restante := #s_TiempoEtapa.SP - #s_TiempoEtapa.Actual;
END_IF;
// Tiempo restante
#s_TiempoEtapa.Restante := #s_TiempoEtapa.SP - #s_TiempoEtapa.Actual;
END_REGION TIEMPO_ETAPA
// ==========================================================================================================
REGION MANTENIMIENTO
// Flanco mostrar cartel de mantenieminto
IF #HabilitarMantenimiento THEN
#s_MostrarAlarmaMto := (#FechaHora.MINUTE = #MinutoAlarma) AND (#FechaHora.SECOND = #SegundoAlarma) AND (#s_NumeroEsterilizaciones >= #SP_NumeroMaximoEsterilizacion);
IF #s_MostrarAlarmaMto AND NOT #s_oldMostrarAlarmaMto THEN
#ParoMantenimiento := TRUE;
#s_PasswordCalculado :=
#s_PasswordHMI := 0;
END_IF;
// Pulsador chequear contraseña de mantenimiento
IF #Pulsadores.Mantenimiento.Plc THEN
#s_PasswordCalculado := #FechaHora.YEAR + #FechaHora.MONTH + #FechaHora.DAY;
IF #s_PasswordCalculado = #s_PasswordHMI THEN
#s_NumeroEsterilizaciones := 0;
#S_NumeroDiasEsterilizacion := 0;
END_IF;
#s_PasswordCalculado :=
#s_PasswordHMI := 0;
#ParoMantenimiento := FALSE;
END_IF;
ELSE
#ParoMantenimiento := FALSE;
END_IF;
#s_oldMostrarAlarmaMto := #s_MostrarAlarmaMto;
END_REGION MANTENIMIENTO
// ==========================================================================================================
REGION ALARMAS
// Aviso un dia antes
#t_DiasAvisos := #SP_DiasMaximoFiltroEsteril - 1;
IF #t_DiasAvisos < 0 THEN
#t_DiasAvisos := 0;
END_IF;
// Alarmas por dia de esterilizacion
#AlarmaDiasEsterilizacion := (#S_NumeroDiasEsterilizacion >= #SP_DiasMaximoFiltroEsteril);
#AvisoDiasEsterilizacion := (#S_NumeroDiasEsterilizacion >= #t_DiasAvisos AND NOT #AlarmaDiasEsterilizacion);
END_REGION ALARMAS
// ==========================================================================================================
REGION NUMERO_ESTERILIZACIONES
IF #s_NumeroEsterilizaciones = 0 THEN
#s_NumeroEsterilizaciones += 1;
END_IF;
END_REGION NUMERO_ESTERILIZACIONES
END_NETWORK
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FB15049_ZC_AIRE_ESTERIL.s7res
+37
View File
@@ -0,0 +1,37 @@
MultiLingualTexts:
- id: MLC_3cn
es-ES: FB15049_ZC_AIRE_ESTERIL
- id: MLC_33z
es-ES: Pulso 1 Segundo
- id: MLC_Xw
es-ES: Fecha y hora actual
- id: MLC_4TG
es-ES: Estado temperatura de esterilizacion alcanzada
- id: MLC_3r4
es-ES: SP_Tiempo de esterilizacion
- id: MLC_3XU
es-ES: SP_Tiempo de enfriamiento
- id: MLC_zF
es-ES: SP_Dias Maximo Filtro Esteril
- id: MLC_WZ
es-ES: ID Proceso para trazabilidad
- id: MLC_3cm
es-ES: Usuario actual
- id: MLC_4jQ
es-ES: Estado habilitado
- id: MLC_ZU
es-ES: Estado filtro esteril
- id: MLC_3qw
es-ES: Etapa actual
- id: MLC_m7
es-ES: Numero de esterilizaciones
- id: MLC_3gR
es-ES: Numerpo de dias con filtro esterilizado
- id: MLC_4hW
es-ES: Tiempo de etapa
- id: MLC_RL
es-ES: Contraseña calculada de mantenimiento
- id: MLC_3mQ
es-ES: Contraseña calculada de mantenimiento
- id: MLC_ps
es-ES: Tempoeral reset contador de horas
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FB15049_ZC_AIRE_ESTERIL.scl
-354
View File
@@ -1,354 +0,0 @@
FUNCTION_BLOCK "FB15049_ZC_AIRE_ESTERIL"
TITLE = FB15049_ZC_AIRE_ESTERIL
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : HCR
FAMILY : ZeusControl
VERSION : 1.0
VAR_INPUT
Pulso1Seg : Bool; // Pulso 1 Segundo
HabilitarMantenimiento : Bool;
AlarmaFalloVapor : Bool;
FechaHora {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
TempEsterilAlcanzada : Bool; // Estado temperatura de esterilizacion alcanzada
SP_TiempoEsterilizacion : Int; // SP_Tiempo de esterilizacion
SP_TiempoEnfriamiento : Int; // SP_Tiempo de enfriamiento
SP_NumeroMaximoEsterilizacion : Int;
SP_DiasMaximoFiltroEsteril : Int; // SP_Dias Maximo Filtro Esteril
ProcesoID : Int; // ID Proceso para trazabilidad
END_VAR
VAR_INPUT RETAIN
Usuario : String[25]; // Usuario actual
END_VAR
VAR_INPUT
MinutoAlarma : USInt;
SegundoAlarma : USInt;
END_VAR
VAR_IN_OUT
ParoMantenimiento : Bool;
AvisoDiasEsterilizacion : Bool;
AlarmaDiasEsterilizacion : Bool;
END_VAR
VAR
s_Habilitar : Bool; // Estado habilitado
s_FiltroEsteril : Bool; // Estado filtro esteril
END_VAR
VAR RETAIN
s_Etapa : Int; // Etapa actual
s_NumeroEsterilizaciones : Int; // Numero de esterilizaciones
END_VAR
VAR
S_NumeroDiasEsterilizacion : Int; // Numerpo de dias con filtro esterilizado
END_VAR
VAR RETAIN
s_TiempoEtapa { S7_SetPoint := 'False'} : "UDT_ZC_PRO_TIEMPO_ETAPA"; // Tiempo de etapa
END_VAR
VAR
Pulsadores : Struct
Habilitar { S7_SetPoint := 'False'} : "UDT_ZC_PULSADOR";
Deshabilitar { S7_SetPoint := 'False'} : "UDT_ZC_PULSADOR";
Mantenimiento { S7_SetPoint := 'False'} : "UDT_ZC_PULSADOR";
END_STRUCT;
END_VAR
VAR RETAIN
TiempoEsterelizado : "UDT_ZC_CONTADOR_TIEMPO";
END_VAR
VAR
s_PasswordCalculado { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : UInt; // Contraseña calculada de mantenimiento
s_PasswordHMI : UInt; // Contraseña calculada de mantenimiento
s_MostrarAlarmaMto { S7_SetPoint := 'True'} : Bool;
s_oldMostrarAlarmaMto { S7_SetPoint := 'True'} : Bool;
END_VAR
VAR_TEMP
t_ResetContador : Bool; // Tempoeral reset contador de horas
t_DiasAvisos : Int;
END_VAR
VAR CONSTANT
REPOSO : Int := 0;
ESTERILIZANDO : Int := 10;
ESTERILIZADO : Int := 20;
ENFRIAMIENTO : Int := 30;
END_VAR
BEGIN
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 202
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
Función principal para la gestión integral y secuencial del dispositivo del tanque de aire estéril.
> **Restricciones:** Ninguna.
- Evaluar y gestionar las órdenes temporizadas provenientes de los pulsadores del HMI (`Habilitar`, `Deshabilitar`, `Mantenimiento`) mediante la invocación de `FC15026_ZC_PULSADOR`.
- Ejecutar la máquina de estados principal para controlar el ciclo de vida y las fases operativas del sistema: `REPOSO`, `ESTERILIZANDO`, `ENFRIAMIENTO` y `ESTERILIZADO`.
- Contabilizar el tiempo de permanencia en estado estéril utilizando `FC15025_ZC_CONTADOR_TIEMPO`, llevando el registro acumulado de días de operación del filtro.
- Monitorizar dinámicamente los tiempos de cada etapa (`s_TiempoEtapa`) y validar las transiciones de estado en función de la temperatura (`TempEsterilAlcanzada`) o la detección de fallos (`AlarmaFalloVapor`).
- Revocar automáticamente el estado de filtro estéril (`s_FiltroEsteril`) al superar el límite máximo de días configurado en `SP_DiasMaximoFiltroEsteril`.
- Procesar las rutinas de parada por mantenimiento preventivo, exigiendo validación de seguridad mediante contraseña (`s_PasswordHMI` vs `s_PasswordCalculado`) una vez alcanzado el límite de esterilizaciones (`SP_NumeroMaximoEsterilizacion`).
- Calcular y emitir señales preventivas de aviso (`AvisoDiasEsterilizacion`) y alarma crítica (`AlarmaDiasEsterilizacion`) según la caducidad operativa del filtro estéril.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC15025_ZC_CONTADOR_TIEMPO`, `FC15026_ZC_PULSADOR` |
| FB | - |
| DB | `DB1_SYS` |
| UDT | `UDT_ZC_CONTADOR_TIEMPO`, `UDT_ZC_PRO_TIEMPO_ETAPA`, `UDT_ZC_PULSADOR` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 15.10.2024 | (HCR) | Primera version. |
| 01.00.01 | 28.01.2025 | (ABH) | Se cambia organizacion de variables y nombres para estandarizacion. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION PULSADORES
// Permiso pulsadores
#Pulsadores.Habilitar.Permiso := NOT #s_Habilitar;
#Pulsadores.Deshabilitar.Permiso := #s_Habilitar;
#Pulsadores.Mantenimiento.Permiso := #ParoMantenimiento;
// Gestion pulsadores
"FC15026_ZC_PULSADOR"(Pulso1Seg := #Pulso1Seg,
SP_Tiempo := 2,
TrazaCategoria:="TRZ_CAT_4_PRO_PUL",
TrazaIdProceso:=#ProcesoID,
TrazaIdPulsador:="TRZ_SYS_PUL_AE_HAB",
Usuario := #Usuario,
FechaHoraActual := #FechaHora,
Pulsador := #Pulsadores.Habilitar);
"FC15026_ZC_PULSADOR"(Pulso1Seg := #Pulso1Seg,
SP_Tiempo := 2,
TrazaCategoria:="TRZ_CAT_4_PRO_PUL",
TrazaIdProceso:=#ProcesoID,
TrazaIdPulsador:="TRZ_SYS_PUL_AE_DES",
Usuario := #Usuario,
FechaHoraActual := #FechaHora,
Pulsador := #Pulsadores.Deshabilitar);
"FC15026_ZC_PULSADOR"(Pulso1Seg := #Pulso1Seg,
SP_Tiempo := 2,
TrazaCategoria:="TRZ_CAT_4_PRO_PUL",
TrazaIdProceso:=#ProcesoID,
TrazaIdPulsador:="TRZ_SYS_PUL_AE_MNT",
Usuario := #Usuario,
FechaHoraActual := #FechaHora,
Pulsador := #Pulsadores.Mantenimiento);
// Orden habilitar aire esteril
IF #Pulsadores.Habilitar.Plc THEN
#s_Habilitar := TRUE;
ELSIF #Pulsadores.Deshabilitar.Plc THEN
#s_Habilitar := FALSE;
END_IF;
END_REGION PULSADORES
// ==========================================================================================================
REGION SECUENCIA_FILTRO
CASE #s_Etapa OF
// =============================================================================
#REPOSO:
IF #s_Habilitar THEN
#s_Etapa := #ESTERILIZADO;
#s_TiempoEtapa.Actual := 0;
END_IF;
// =============================================================================
#ESTERILIZANDO:
#s_TiempoEtapa.SP := #SP_TiempoEsterilizacion;
IF NOT #s_Habilitar THEN
#s_Etapa := #REPOSO;
END_IF;
IF #AlarmaFalloVapor THEN
#s_Etapa := #REPOSO;
END_IF;
IF #s_TiempoEtapa.Cumplido THEN
#s_Etapa := #ENFRIAMIENTO;
#s_TiempoEtapa.Actual := 0;
#S_NumeroDiasEsterilizacion := 0;
#s_NumeroEsterilizaciones += 1;
#s_FiltroEsteril := TRUE;
END_IF;
IF #TempEsterilAlcanzada THEN
#s_TiempoEtapa.Activar := TRUE;
ELSE
#s_TiempoEtapa.Activar := FALSE;
#s_TiempoEtapa.Actual := 0;
END_IF;
// =============================================================================
#ENFRIAMIENTO:
#s_TiempoEtapa.SP := #SP_TiempoEnfriamiento;
#s_TiempoEtapa.Activar := TRUE;
IF NOT #s_Habilitar THEN
#s_Etapa := #REPOSO;
END_IF;
IF #s_TiempoEtapa.Cumplido THEN
#s_Etapa := #ESTERILIZADO;
#s_TiempoEtapa.Actual := 0;
END_IF;
// =============================================================================
#ESTERILIZADO:
#s_TiempoEtapa.SP := 5;
IF NOT #s_Habilitar THEN
#s_Etapa := #REPOSO;
END_IF;
IF #s_TiempoEtapa.Cumplido THEN
#s_Etapa := #ESTERILIZANDO;
#s_TiempoEtapa.Actual := 0;
END_IF;
IF #TempEsterilAlcanzada AND NOT #s_FiltroEsteril THEN
#s_TiempoEtapa.Activar := TRUE;
ELSE
#s_TiempoEtapa.Activar := FALSE;
#s_TiempoEtapa.Actual := 0;
END_IF;
ELSE
#s_Etapa := #REPOSO;
END_CASE;
END_REGION SECUENCIA_FILTRO
// ==========================================================================================================
REGION TIEMPO_ESTERILIZADO
// Incrementar dias de filtro #ESTERILIZADO
IF #TiempoEsterelizado.Hora >= 24 THEN
#t_ResetContador := TRUE;
#S_NumeroDiasEsterilizacion += 1;
END_IF;
"FC15025_ZC_CONTADOR_TIEMPO"(Pulso1seg:=#Pulso1Seg,
Iniciar:=#Pulso1Seg AND (#s_Etapa = #ESTERILIZADO),
Reset:=#t_ResetContador,
Contador:=#TiempoEsterelizado);
// Quitar estado filtro esteril
IF #S_NumeroDiasEsterilizacion >= #SP_DiasMaximoFiltroEsteril THEN
#s_FiltroEsteril := FALSE;
END_IF;
END_REGION TIEMPO_ESTERILIZADO
// ==========================================================================================================
REGION TIEMPO_ETAPA
// Proceso en estado parado
IF #s_Etapa = #REPOSO THEN
#s_TiempoEtapa.Actual := 0;
#s_TiempoEtapa.Activar := FALSE;
END_IF;
// Temporizador activo
IF #s_TiempoEtapa.Activar THEN
IF #Pulso1Seg
AND
(#s_TiempoEtapa.Actual < #s_TiempoEtapa.SP)
THEN
#s_TiempoEtapa.Actual += 1;
END_IF;
// Reiniciar tiempo paso cumplido para esperar condicion
#s_TiempoEtapa.Cumplido := FALSE;
// Tiempo paso cumplido
IF #s_TiempoEtapa.Actual >= #s_TiempoEtapa.SP AND #s_TiempoEtapa.Activar THEN
#s_TiempoEtapa.Cumplido := TRUE;
END_IF;
// Tiempo restante
#s_TiempoEtapa.Restante := #s_TiempoEtapa.SP - #s_TiempoEtapa.Actual;
END_IF;
// Tiempo restante
#s_TiempoEtapa.Restante := #s_TiempoEtapa.SP - #s_TiempoEtapa.Actual;
END_REGION TIEMPO_ETAPA
// ==========================================================================================================
REGION MANTENIMIENTO
// Flanco mostrar cartel de mantenieminto
IF #HabilitarMantenimiento THEN
#s_MostrarAlarmaMto := (#FechaHora.MINUTE = #MinutoAlarma) AND (#FechaHora.SECOND = #SegundoAlarma) AND (#s_NumeroEsterilizaciones >= #SP_NumeroMaximoEsterilizacion);
IF #s_MostrarAlarmaMto AND NOT #s_oldMostrarAlarmaMto THEN
#ParoMantenimiento := TRUE;
#s_PasswordCalculado :=
#s_PasswordHMI := 0;
END_IF;
// Pulsador chequear contraseña de mantenimiento
IF #Pulsadores.Mantenimiento.Plc THEN
#s_PasswordCalculado := #FechaHora.YEAR + #FechaHora.MONTH + #FechaHora.DAY;
IF #s_PasswordCalculado = #s_PasswordHMI THEN
#s_NumeroEsterilizaciones := 0;
#S_NumeroDiasEsterilizacion := 0;
END_IF;
#s_PasswordCalculado :=
#s_PasswordHMI := 0;
#ParoMantenimiento := FALSE;
END_IF;
ELSE
#ParoMantenimiento := FALSE;
END_IF;
#s_oldMostrarAlarmaMto := #s_MostrarAlarmaMto;
END_REGION MANTENIMIENTO
// ==========================================================================================================
REGION ALARMAS
// Aviso un dia antes
#t_DiasAvisos := #SP_DiasMaximoFiltroEsteril - 1;
IF #t_DiasAvisos < 0 THEN
#t_DiasAvisos := 0;
END_IF;
// Alarmas por dia de esterilizacion
#AlarmaDiasEsterilizacion := (#S_NumeroDiasEsterilizacion >= #SP_DiasMaximoFiltroEsteril);
#AvisoDiasEsterilizacion := (#S_NumeroDiasEsterilizacion >= #t_DiasAvisos AND NOT #AlarmaDiasEsterilizacion);
END_REGION ALARMAS
// ==========================================================================================================
REGION NUMERO_ESTERILIZACIONES
IF #s_NumeroEsterilizaciones = 0 THEN
#s_NumeroEsterilizaciones += 1;
END_IF;
END_REGION NUMERO_ESTERILIZACIONES
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FB2017_ZC_M_SINA.s7dcl
+652
View File
@@ -0,0 +1,652 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_mA";
S7_BlockNumber := "2017";
S7_BlockTitle := "MLC_58v";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION_BLOCK "FB2017_ZC_M_SINA"
VAR_INPUT
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_3jh";
S7_Visibility := "Hidden := External"
}
Pulso1seg : Bool;
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_33h";
S7_Visibility := "Hidden := External"
}
Simulacion : Bool;
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_4tV";
S7_Visibility := "Hidden := External"
}
Arranque : Bool;
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_4Yr";
S7_Visibility := "Hidden := External"
}
Ack : Bool;
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_3v9";
S7_Visibility := "Hidden := External"
}
SeguridadesOK : Bool;
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_3LS";
S7_Visibility := "Hidden := External"
}
UsuarioActual : String;
{
S7_Access := "ReadOnly := External";
S7_MLC := "MLC_3Vs";
S7_Visibility := "Hidden := External"
}
FechaHoraActual : DTL;
END_VAR
VAR
{ S7_MLC := "MLC_4vz" }
HWIDSTW : Array[0.._.N_MAX_DISP_M_SINA] of HW_IO;
{ S7_MLC := "MLC_53F" }
HWIDZSW : Array[0.._.N_MAX_DISP_M_SINA] of HW_IO;
SinaSpeed : Array[0.._.N_MAX_DISP_M_SINA] of SinaSpeed;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_Frecuencia : Real;
t_ErrorSinaSpeed : Bool;
t_ErrorTermico : Bool;
t_ConfigAxis : Word;
t_ZSW1 : Bool;
END_VAR
VAR CONSTANT
SOLO_DIRECTO : USInt := 0;
DIRECTO_INVERSO : USInt := 1;
END_VAR
{ S7_Language := "SCL" }
NETWORK
(*
ZEUS CONTROL, S.A.
(c)Copyright (2025) All Rights Reserved
--------------------------------------------------------------------------------------
Software: TIA Portal 18
Restricciones: PLC serie 1200/1500
Nombre: DISPOSITIVO SINAMICS
Descripcion: Modelo de dispositivo sinamics (comunicado)
Dependencias:
FC: FC8_ZC_TRAZA_REGISTRO
FB: -
DB: DB2017_DISP_M_SINA
DB2018_INST_M_SINA
DB1_SYS
UDT: ZC_DISP_M_SINA
ZC_DISP_MUX_M_SINA
Change log:
Version Fecha Tecnico a cargo Descripcion
01.00.00 27.04.2020 (ABH) Primera version.
01.00.01 26.05.2020 (ABH) Se añade logica como dispositivo motor VF.
01.00.02 22.09.2022 (HCR) Cambio lógica SinaSpeed
Se añade trazabilidad manualizaciones
Se añade trazabilidad de activación manual
01.00.03 08.11.2022 (HCR) Cambio lógica enclavamiento
01.00.04 18.09.2023 (ABH) Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO
01.00.05 28.02.2024 (ABH) Se añade gestion multiplexado para Scada (no indexado)
01.00.06 26.03.2025 (ABH) Se añade variable grupo de alarma para separar los nuevos avisos por cuadro.
01.00.07 07.10.2025 (ABH) Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI
realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores.
02.00.00 17.12.2025 (ABH) Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se añade indexHMI para lista de
texto en sistemas de supervision.
//=====================================================================================
*)
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Motor con variador de frecuencia SINAMICS.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el tiempo en marcha
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO`, `FC15025_ZC_CONTADOR_TIEMPO` |
| FB | - |
| DB | `DB2017_DISP_M_SINA` |
| UDT | `ZC_DISP_M_SINA`, `ZC_DISP_MUX_M_SINA`, `ZC_CONTADOR_TIEMPO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 27.04.2020 | (ABH) | Primera version. |
| 00.00.02 | 26.05.2020 | (ABH) | Se añade logica como dispositivo motor VF. |
| 00.00.03 | 22.09.2022 | (ABH) | Cambio lógica SinaSpeed, Se añade trazabilidad manualizaciones, Se añade trazabilidad de activación manual |
| 00.00.04 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento. |
| 00.00.05 | 18.09.2023 | (ABH) | Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO. |
| 00.00.06 | 28.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado). |
| 00.00.07 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.08 | 07.10.2025 | (HCR) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.09 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento |
| 00.00.10 | 18.09.2023 | (ABH) | Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO |
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado Se añade movimiento de M[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.13 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 00.00.14 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.00.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2017_M_SINA".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2017_M_SINA".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2017_M_SINA".NumDispositivos := "N_MAX_DISP_M_SINA";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_M_SINA" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_M_SINA";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
REGION LIMITE_GRUPO_ALARMA
IF "DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma < 0 THEN
"DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2017_M_SINA".M_SINA[#for_i].Config_Habilitar THEN
// =============================================================================
// PUESTA A CERO DE LA SALIDA
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
// =============================================================================
// INICIALIZACION DE VALORES QUE SIEMPRE TIENEN QUE ESTAR A 1 EN LA PALABRA DE MANDO
#t_ConfigAxis := 16#003F;
REGION LECTURA_VALORES_DE_LA_TARJETA
// =============================================================================
// RETORNO TERMICO
IF "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoByte >= 0 THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_RetornoTermico := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoBit);
IF "DB2017_M_SINA".M_SINA[#for_i].Config_HabilitarInvertirTermico THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_RetornoTermico := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoBit));
END_IF;
END_IF;
END_REGION
REGION MODOS_DE_TRABAJO
// =============================================================================
// RESET CON LOCKOUT
IF #SinaSpeed[#for_i].Lockout AND NOT #Simulacion THEN
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarAuto := FALSE;
END_IF;
// =============================================================================
// MODO MANUAL
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan THEN
"DB2017_M_SINA".Agrup["DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual AND NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2017_M_SINA".M_SINA[#for_i].Estado_SeguridadOk AND NOT "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico THEN
#t_Activar := TRUE;
#t_Frecuencia := "DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaManual;
ELSE
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := "DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaAuto;
IF "DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarAuto AND NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2017_M_SINA".M_SINA[#for_i].Estado_SeguridadOk AND NOT "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico THEN
#t_Activar := TRUE;
#t_Frecuencia := "DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaAuto;
ELSE
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
END_IF;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaManual := "DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaAuto;
END_IF;
END_REGION
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// MOTOR SIMULADO Y NO SIMULADO
IF #Simulacion THEN
IF #t_Activar THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := TRUE;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := FALSE;
END_IF;
"DB2017_M_SINA".M_SINA[#for_i].Estado_ValorActual := #t_Frecuencia;
ELSE
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_EjeHabilitado THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := TRUE;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := FALSE;
END_IF;
IF #SinaSpeed[#for_i].ActVelocity > 0.0 THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_ValorActual := #SinaSpeed[#for_i].ActVelocity * "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMax / "DB2017_M_SINA".M_SINA[#for_i].Config_K_Velocidad;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Estado_ValorActual := #SinaSpeed[#for_i].ActVelocity;
END_IF;
END_IF;
END_REGION
REGION ERRORES
// =============================================================================
// CHEQUEO RETORNO TERMICO
IF NOT #Simulacion AND "DB2017_M_SINA".M_SINA[#for_i].Config_HabilitarRetornoTermico
AND "DB2017_M_SINA".M_SINA[#for_i].Estado_RetornoTermico THEN
#t_ErrorTermico := TRUE;
ELSE
#t_ErrorTermico := FALSE;
END_IF;
// =============================================================================
// CHEQUEO ERROR DESDE EL BLOQUE SINA SPEED
IF NOT #Simulacion AND #SinaSpeed[#for_i].Error AND (#SinaSpeed[#for_i].Status <> 16#8402) THEN
#t_ErrorSinaSpeed := TRUE;
ELSE
#t_ErrorSinaSpeed := FALSE;
END_IF;
// =============================================================================
// TEMPORIZADO DE ERRORES
IF #t_ErrorSinaSpeed
AND NOT "DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed
AND NOT "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico
THEN
IF NOT #Simulacion AND #Pulso1seg THEN
"DB2017_M_SINA".M_SINA[#for_i].Tiempos_Alarma += 1;
END_IF;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Tiempos_Alarma := 0;
END_IF;
// =============================================================================
// ERROR TERMICO
IF #t_ErrorTermico THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico := TRUE;
END_IF;
IF NOT #t_ErrorTermico THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico := FALSE;
END_IF;
// =============================================================================
// ERROR DESDE EL BLOQUE SINA SPEED
IF "DB2017_M_SINA".M_SINA[#for_i].Tiempos_Alarma >= "DB2017_M_SINA".M_SINA[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorSinaSpeed THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed := TRUE;
END_IF;
IF NOT #t_ErrorSinaSpeed THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed := FALSE;
END_IF;
// =============================================================================
// ERROR GLOBAL
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_General := "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico OR "DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed;
// =============================================================================
// SI TENEMOS UN ERROR DESACTIVAMOS LA SALIDA
IF "DB2017_M_SINA".M_SINA[#for_i].Alarmas_General THEN
"DB2017_M_SINA".Agrup["DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
#t_Activar := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
END_IF;
END_REGION
REGION DIAGNOSIS
// =============================================================================
// CONTADOR DE HORAS DE FUNCIONAMIENTO
IF "DB2017_M_SINA".M_SINA[#for_i].Orden_ResetHoras THEN
"DB2017_M_SINA".M_SINA[#for_i].Orden_ResetHoras := FALSE;
END_IF;
IF NOT #Simulacion AND #Pulso1seg AND "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado THEN
"DB2017_M_SINA".M_SINA[#for_i].Tiempos_Mantenimiento += 0.00027778;
END_IF;
// =============================================================================
// ALARMA HORAS PARA MANTENIMIENTO ALCANZADOS
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Mantenimiento := FALSE;
IF "DB2017_M_SINA".M_SINA[#for_i].Config_HabilitarMantenimiento
AND
"DB2017_M_SINA".M_SINA[#for_i].Tiempos_Mantenimiento > "DB2017_M_SINA".M_SINA[#for_i].Tiempos_SetPointMantenimiento
THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Mantenimiento := TRUE;
END_IF;
END_REGION
REGION ESCRITURA_SALIDA
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := #t_Frecuencia;
// =============================================================================
// LIMITAR SALIDA A LOS VALORES ESTABLECIDOS EN EL ELEMENTO
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida > "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMax THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMax;
END_IF;
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida < "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMin THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMin;
END_IF;
(*
// =============================================================================
// PERMISO PARA INVERTIR EL SENTIDO DE GIRO
"DB52_DISP_M_SINA".SINA[#i].Estado_PermisoInvertirSentido := NOT #tempActivar;
// =============================================================================
// REINICIALIZO LA PALABRA DE SALIDAS EN CASO DE QUE HAYAMOS INVERTIDO EL SENTIDO DE GIRO
IF "DB52_DISP_M_SINA".SINA[#i].Orden_SeleccionInverso THEN
#tempConfigAxis := 16#00FE;
END_IF;
*)
// =============================================================================
// ESCRITURA SALIDA SI NO ESTA LA ORDEN DE ACTIVAR
IF NOT #t_Activar THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := 0.0;
END_IF;
// =============================================================================
// CONVERSION DE Hz A VALOR EN RPM
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida > 0.0 THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := ("DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida * "DB2017_M_SINA".M_SINA[#for_i].Config_K_Velocidad) / "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMax;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := 0.0;
END_IF;
END_REGION
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarAuto := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado := FALSE;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan AND NOT "DB2017_M_SINA".M_SINA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_17_DISP_M_SINA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_SINA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan AND "DB2017_M_SINA".M_SINA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_17_DISP_M_SINA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_SINA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan AND "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado AND NOT "DB2017_M_SINA".M_SINA[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_17_DISP_M_SINA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_SINA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan AND NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado AND "DB2017_M_SINA".M_SINA[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_17_DISP_M_SINA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_SINA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2017_M_SINA".M_SINA[#for_i].Aux_oldAutoMan := "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan;
"DB2017_M_SINA".M_SINA[#for_i].Aux_oldActivado := "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_General := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Mantenimiento := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_RetornoTermico := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarAuto := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_ValorActual := 0.0;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X0 := "DB2017_M_SINA".M_SINA[#for_i].Config_Habilitar;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X1 := "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X2 := "DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X3 := "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X8 :="DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X9 := "DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X13 := "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Mantenimiento;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2017_M_SINA".M_SINA[#for_i].Alarmas_General AND NOT "DB2017_M_SINA".M_SINA[#for_i].Aux_oldAlarma THEN
"DB2017_M_SINA".Agrup["DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2017_M_SINA".M_SINA[#for_i].Aux_oldAlarma := "DB2017_M_SINA".M_SINA[#for_i].Alarmas_General;
END_REGION
REGION SINASPEED
IF #HWIDSTW[#for_i] <> 0 AND #HWIDZSW[#for_i] <> 0 THEN
#SinaSpeed[#for_i](EnableAxis := #t_Activar,
AckError := "DB2017_M_SINA".M_SINA[#for_i].Orden_ResetFallos OR #Ack,
SpeedSp := "DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida,
RefSpeed := "DB2017_M_SINA".M_SINA[#for_i].Config_K_Velocidad,
ConfigAxis := #t_ConfigAxis,
HWIDSTW := #HWIDSTW[#for_i],
HWIDZSW := #HWIDZSW[#for_i],
AxisEnabled => "DB2017_M_SINA".M_SINA[#for_i].Estado_EjeHabilitado,
Lockout => "DB2017_M_SINA".M_SINA[#for_i].Estado_EjeBloqueado,
Status => "DB2017_M_SINA".M_SINA[#for_i].Estado_Estado,
DiagId => "DB2017_M_SINA".M_SINA[#for_i].Estado_CodigoFallo);
END_IF;
// =============================================================================
// ESCRITURA RESET FALLOS
IF "DB2017_M_SINA".M_SINA[#for_i].Orden_ResetFallos AND #Pulso1seg THEN // Reset de este BIT cada segundo (es suficiente para resetear el Variador)
"DB2017_M_SINA".M_SINA[#for_i].Orden_ResetFallos := FALSE;
END_IF;
END_REGION
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2017_M_SINA".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION
END_NETWORK
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FB2017_ZC_M_SINA.s7res
+23
View File
@@ -0,0 +1,23 @@
MultiLingualTexts:
- id: MLC_58v
es-ES: FB2017_M_SINA
- id: MLC_mA
es-ES: Bloque de funcion para gestion de dispositivo motor sinamics
- id: MLC_3jh
es-ES: Pulso de 1 segundo
- id: MLC_33h
es-ES: Simulacion
- id: MLC_4tV
es-ES: Primer arranque
- id: MLC_4Yr
es-ES: Acuse general
- id: MLC_3v9
es-ES: Seguridades OK
- id: MLC_3LS
es-ES: Usuario actual
- id: MLC_3Vs
es-ES: Fecha y hora actual
- id: MLC_4vz
es-ES: Hardware Identifer set point slot
- id: MLC_53F
es-ES: Hardware Identifer actual value slot
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FB2017_ZC_M_SINA.scl
-614
View File
@@ -1,614 +0,0 @@
FUNCTION_BLOCK "FB2017_ZC_M_SINA"
TITLE = FB2017_M_SINA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Bloque de funcion para gestion de dispositivo motor sinamics
VAR_INPUT
Pulso1seg { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Bool; // Pulso de 1 segundo
Simulacion { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Bool; // Simulacion
Arranque { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Bool; // Primer arranque
Ack { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Bool; // Acuse general
SeguridadesOK { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : Bool; // Seguridades OK
UsuarioActual { ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'; ExternalAccessible := 'False'; ExternalVisible := 'False'; ExternalWritable := 'False'} : DTL; // Fecha y hora actual
END_VAR
VAR
HWIDSTW : Array[0.."N_MAX_DISP_M_SINA"] of HW_IO; // Hardware Identifer set point slot
HWIDZSW : Array[0.."N_MAX_DISP_M_SINA"] of HW_IO; // Hardware Identifer actual value slot
SinaSpeed {InstructionName := 'SinaSpeed'; LibVersion := '1.0'} : Array[0.."N_MAX_DISP_M_SINA"] of SinaSpeed;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_Frecuencia : Real;
t_ErrorSinaSpeed : Bool;
t_ErrorTermico : Bool;
t_ConfigAxis : Word;
t_ZSW1 : Bool;
END_VAR
VAR CONSTANT
SOLO_DIRECTO : USInt := 0;
DIRECTO_INVERSO : USInt := 1;
END_VAR
BEGIN
(*
ZEUS CONTROL, S.A.
(c)Copyright (2025) All Rights Reserved
--------------------------------------------------------------------------------------
Software: TIA Portal 18
Restricciones: PLC serie 1200/1500
Nombre: DISPOSITIVO SINAMICS
Descripcion: Modelo de dispositivo sinamics (comunicado)
Dependencias:
FC: FC8_ZC_TRAZA_REGISTRO
FB: -
DB: DB2017_DISP_M_SINA
DB2018_INST_M_SINA
DB1_SYS
UDT: ZC_DISP_M_SINA
ZC_DISP_MUX_M_SINA
Change log:
Version Fecha Tecnico a cargo Descripcion
01.00.00 27.04.2020 (ABH) Primera version.
01.00.01 26.05.2020 (ABH) Se añade logica como dispositivo motor VF.
01.00.02 22.09.2022 (HCR) Cambio lógica SinaSpeed
Se añade trazabilidad manualizaciones
Se añade trazabilidad de activación manual
01.00.03 08.11.2022 (HCR) Cambio lógica enclavamiento
01.00.04 18.09.2023 (ABH) Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO
01.00.05 28.02.2024 (ABH) Se añade gestion multiplexado para Scada (no indexado)
01.00.06 26.03.2025 (ABH) Se añade variable grupo de alarma para separar los nuevos avisos por cuadro.
01.00.07 07.10.2025 (ABH) Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI
realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores.
02.00.00 17.12.2025 (ABH) Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se añade indexHMI para lista de
texto en sistemas de supervision.
//=====================================================================================
*)
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Motor con variador de frecuencia SINAMICS.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el tiempo en marcha
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO`, `FC15025_ZC_CONTADOR_TIEMPO` |
| FB | - |
| DB | `DB2017_DISP_M_SINA` |
| UDT | `ZC_DISP_M_SINA`, `ZC_DISP_MUX_M_SINA`, `ZC_CONTADOR_TIEMPO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 27.04.2020 | (ABH) | Primera version. |
| 00.00.02 | 26.05.2020 | (ABH) | Se añade logica como dispositivo motor VF. |
| 00.00.03 | 22.09.2022 | (ABH) | Cambio lógica SinaSpeed, Se añade trazabilidad manualizaciones, Se añade trazabilidad de activación manual |
| 00.00.04 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento. |
| 00.00.05 | 18.09.2023 | (ABH) | Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO. |
| 00.00.06 | 28.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado). |
| 00.00.07 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.08 | 07.10.2025 | (HCR) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.09 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento |
| 00.00.10 | 18.09.2023 | (ABH) | Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO |
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado Se añade movimiento de M[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.13 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 00.00.14 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.00.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2017_M_SINA".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2017_M_SINA".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2017_M_SINA".NumDispositivos := "N_MAX_DISP_M_SINA";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_M_SINA" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_M_SINA";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
REGION LIMITE_GRUPO_ALARMA
IF "DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma < 0 THEN
"DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2017_M_SINA".M_SINA[#for_i].Config_Habilitar THEN
// =============================================================================
// PUESTA A CERO DE LA SALIDA
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
// =============================================================================
// INICIALIZACION DE VALORES QUE SIEMPRE TIENEN QUE ESTAR A 1 EN LA PALABRA DE MANDO
#t_ConfigAxis := 16#003F;
REGION LECTURA_VALORES_DE_LA_TARJETA
// =============================================================================
// RETORNO TERMICO
IF "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoByte >= 0 THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_RetornoTermico := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoBit);
IF "DB2017_M_SINA".M_SINA[#for_i].Config_HabilitarInvertirTermico THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_RetornoTermico := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2017_M_SINA".M_SINA[#for_i].Config_DireccionRetTermicoBit));
END_IF;
END_IF;
END_REGION
REGION MODOS_DE_TRABAJO
// =============================================================================
// RESET CON LOCKOUT
IF #SinaSpeed[#for_i].Lockout AND NOT #Simulacion THEN
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarAuto := FALSE;
END_IF;
// =============================================================================
// MODO MANUAL
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan THEN
"DB2017_M_SINA".Agrup["DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual AND NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2017_M_SINA".M_SINA[#for_i].Estado_SeguridadOk AND NOT "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico THEN
#t_Activar := TRUE;
#t_Frecuencia := "DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaManual;
ELSE
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := "DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaAuto;
IF "DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarAuto AND NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2017_M_SINA".M_SINA[#for_i].Estado_SeguridadOk AND NOT "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico THEN
#t_Activar := TRUE;
#t_Frecuencia := "DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaAuto;
ELSE
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
END_IF;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaManual := "DB2017_M_SINA".M_SINA[#for_i].Orden_ConsignaAuto;
END_IF;
END_REGION
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// MOTOR SIMULADO Y NO SIMULADO
IF #Simulacion THEN
IF #t_Activar THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := TRUE;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := FALSE;
END_IF;
"DB2017_M_SINA".M_SINA[#for_i].Estado_ValorActual := #t_Frecuencia;
ELSE
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_EjeHabilitado THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := TRUE;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := FALSE;
END_IF;
IF #SinaSpeed[#for_i].ActVelocity > 0.0 THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_ValorActual := #SinaSpeed[#for_i].ActVelocity * "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMax / "DB2017_M_SINA".M_SINA[#for_i].Config_K_Velocidad;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Estado_ValorActual := #SinaSpeed[#for_i].ActVelocity;
END_IF;
END_IF;
END_REGION
REGION ERRORES
// =============================================================================
// CHEQUEO RETORNO TERMICO
IF NOT #Simulacion AND "DB2017_M_SINA".M_SINA[#for_i].Config_HabilitarRetornoTermico
AND "DB2017_M_SINA".M_SINA[#for_i].Estado_RetornoTermico THEN
#t_ErrorTermico := TRUE;
ELSE
#t_ErrorTermico := FALSE;
END_IF;
// =============================================================================
// CHEQUEO ERROR DESDE EL BLOQUE SINA SPEED
IF NOT #Simulacion AND #SinaSpeed[#for_i].Error AND (#SinaSpeed[#for_i].Status <> 16#8402) THEN
#t_ErrorSinaSpeed := TRUE;
ELSE
#t_ErrorSinaSpeed := FALSE;
END_IF;
// =============================================================================
// TEMPORIZADO DE ERRORES
IF #t_ErrorSinaSpeed
AND NOT "DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed
AND NOT "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico
THEN
IF NOT #Simulacion AND #Pulso1seg THEN
"DB2017_M_SINA".M_SINA[#for_i].Tiempos_Alarma += 1;
END_IF;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Tiempos_Alarma := 0;
END_IF;
// =============================================================================
// ERROR TERMICO
IF #t_ErrorTermico THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico := TRUE;
END_IF;
IF NOT #t_ErrorTermico THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico := FALSE;
END_IF;
// =============================================================================
// ERROR DESDE EL BLOQUE SINA SPEED
IF "DB2017_M_SINA".M_SINA[#for_i].Tiempos_Alarma >= "DB2017_M_SINA".M_SINA[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorSinaSpeed THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed := TRUE;
END_IF;
IF NOT #t_ErrorSinaSpeed THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed := FALSE;
END_IF;
// =============================================================================
// ERROR GLOBAL
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_General := "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico OR "DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed;
// =============================================================================
// SI TENEMOS UN ERROR DESACTIVAMOS LA SALIDA
IF "DB2017_M_SINA".M_SINA[#for_i].Alarmas_General THEN
"DB2017_M_SINA".Agrup["DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
#t_Activar := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
END_IF;
END_REGION
REGION DIAGNOSIS
// =============================================================================
// CONTADOR DE HORAS DE FUNCIONAMIENTO
IF "DB2017_M_SINA".M_SINA[#for_i].Orden_ResetHoras THEN
"DB2017_M_SINA".M_SINA[#for_i].Orden_ResetHoras := FALSE;
END_IF;
IF NOT #Simulacion AND #Pulso1seg AND "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado THEN
"DB2017_M_SINA".M_SINA[#for_i].Tiempos_Mantenimiento += 0.00027778;
END_IF;
// =============================================================================
// ALARMA HORAS PARA MANTENIMIENTO ALCANZADOS
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Mantenimiento := FALSE;
IF "DB2017_M_SINA".M_SINA[#for_i].Config_HabilitarMantenimiento
AND
"DB2017_M_SINA".M_SINA[#for_i].Tiempos_Mantenimiento > "DB2017_M_SINA".M_SINA[#for_i].Tiempos_SetPointMantenimiento
THEN
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Mantenimiento := TRUE;
END_IF;
END_REGION
REGION ESCRITURA_SALIDA
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := #t_Frecuencia;
// =============================================================================
// LIMITAR SALIDA A LOS VALORES ESTABLECIDOS EN EL ELEMENTO
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida > "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMax THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMax;
END_IF;
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida < "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMin THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMin;
END_IF;
(*
// =============================================================================
// PERMISO PARA INVERTIR EL SENTIDO DE GIRO
"DB52_DISP_M_SINA".SINA[#i].Estado_PermisoInvertirSentido := NOT #tempActivar;
// =============================================================================
// REINICIALIZO LA PALABRA DE SALIDAS EN CASO DE QUE HAYAMOS INVERTIDO EL SENTIDO DE GIRO
IF "DB52_DISP_M_SINA".SINA[#i].Orden_SeleccionInverso THEN
#tempConfigAxis := 16#00FE;
END_IF;
*)
// =============================================================================
// ESCRITURA SALIDA SI NO ESTA LA ORDEN DE ACTIVAR
IF NOT #t_Activar THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := 0.0;
END_IF;
// =============================================================================
// CONVERSION DE Hz A VALOR EN RPM
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida > 0.0 THEN
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := ("DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida * "DB2017_M_SINA".M_SINA[#for_i].Config_K_Velocidad) / "DB2017_M_SINA".M_SINA[#for_i].Config_VelocidadMax;
ELSE
"DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida := 0.0;
END_IF;
END_REGION
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarAuto := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado := FALSE;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan AND NOT "DB2017_M_SINA".M_SINA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_17_DISP_M_SINA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_SINA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan AND "DB2017_M_SINA".M_SINA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_17_DISP_M_SINA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_SINA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan AND "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado AND NOT "DB2017_M_SINA".M_SINA[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_17_DISP_M_SINA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_SINA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan AND NOT "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado AND "DB2017_M_SINA".M_SINA[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_17_DISP_M_SINA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_SINA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2017_M_SINA".M_SINA[#for_i].Aux_oldAutoMan := "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan;
"DB2017_M_SINA".M_SINA[#for_i].Aux_oldActivado := "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_General := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_Mantenimiento := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_RetornoTermico := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarAuto := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Orden_ActivarManual := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_Activado := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Estado_ValorActual := 0.0;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X0 := "DB2017_M_SINA".M_SINA[#for_i].Config_Habilitar;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X1 := "DB2017_M_SINA".M_SINA[#for_i].Estado_AutoMan;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X2 := "DB2017_M_SINA".M_SINA[#for_i].Estado_Enclavado;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X3 := "DB2017_M_SINA".M_SINA[#for_i].Estado_Activado;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X8 :="DB2017_M_SINA".M_SINA[#for_i].Alarmas_Termico;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X9 := "DB2017_M_SINA".M_SINA[#for_i].Alarmas_SinaSpeed;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X13 := "DB2017_M_SINA".M_SINA[#for_i].Alarmas_Mantenimiento;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2017_M_SINA".M_SINA[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2017_M_SINA".M_SINA[#for_i].Alarmas_General AND NOT "DB2017_M_SINA".M_SINA[#for_i].Aux_oldAlarma THEN
"DB2017_M_SINA".Agrup["DB2017_M_SINA".M_SINA[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2017_M_SINA".M_SINA[#for_i].Aux_oldAlarma := "DB2017_M_SINA".M_SINA[#for_i].Alarmas_General;
END_REGION
REGION SINASPEED
IF #HWIDSTW[#for_i] <> 0 AND #HWIDZSW[#for_i] <> 0 THEN
#SinaSpeed[#for_i](EnableAxis := #t_Activar,
AckError := "DB2017_M_SINA".M_SINA[#for_i].Orden_ResetFallos OR #Ack,
SpeedSp := "DB2017_M_SINA".M_SINA[#for_i].Estado_VelocidadSalida,
RefSpeed := "DB2017_M_SINA".M_SINA[#for_i].Config_K_Velocidad,
ConfigAxis := #t_ConfigAxis,
HWIDSTW := #HWIDSTW[#for_i],
HWIDZSW := #HWIDZSW[#for_i],
AxisEnabled => "DB2017_M_SINA".M_SINA[#for_i].Estado_EjeHabilitado,
Lockout => "DB2017_M_SINA".M_SINA[#for_i].Estado_EjeBloqueado,
Status => "DB2017_M_SINA".M_SINA[#for_i].Estado_Estado,
DiagId => "DB2017_M_SINA".M_SINA[#for_i].Estado_CodigoFallo);
END_IF;
// =============================================================================
// ESCRITURA RESET FALLOS
IF "DB2017_M_SINA".M_SINA[#for_i].Orden_ResetFallos AND #Pulso1seg THEN // Reset de este BIT cada segundo (es suficiente para resetear el Variador)
"DB2017_M_SINA".M_SINA[#for_i].Orden_ResetFallos := FALSE;
END_IF;
END_REGION
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2017_M_SINA".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION
END_FUNCTION_BLOCK
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2000_ZC_ED.s7dcl
+377
View File
@@ -0,0 +1,377 @@
{
S7_Author := "HCR";
S7_BlockComment := "MLC_59U";
S7_BlockNumber := "2000";
S7_BlockTitle := "MLC_49Z";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2000_ZC_ED" : Void
VAR_INPUT
{ S7_MLC := "MLC_4ZE" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_4py" }
Simulacion : Bool;
{ S7_MLC := "MLC_4LR" }
UsuarioActual : String;
{ S7_MLC := "MLC_3kM" }
FechaHoraActual : DTL;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_ValorEntrada : Bool;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Entrada Digital.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se realiza la lectura de la entrada de manera indirecta si esta habilitada.
- Se gestiona el estado del dispositivo
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | `DB2000_ED` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version. |
| 00.01.00 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. |
| 00.02.00 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.03 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.04 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado. Se añade movimiento de SD[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.05 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.06 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.07 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.08 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.09 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 00.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.00.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2000_ED".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2000_ED".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2000_ED".NumDispositivos := "N_MAX_DISP_ED";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_ED" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_ED";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2000_ED".ED[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2000_ED".ED[#for_i].Config_GrupoAlarma < 0 THEN
"DB2000_ED".ED[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2000_ED".ED[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2000_ED".ED[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
REGION LECTURA_VALORES
CASE "DB2000_ED".ED[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
IF "DB2000_ED".ED[#for_i].Config_DirEntradaByte >= 0 THEN
(*
AREA: Pueden seleccionarse las siguientes áreas:
16#81: Input,
16#82: Output,
16#83: Marcas,
16#84: DB,
16#1: Entrada de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección en la que se lee. Solo se utilizan los 16 bits menos significativos.*)
#t_ValorEntrada := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2000_ED".ED[#for_i].Config_DirEntradaByte,
bitOffset := "DB2000_ED".ED[#for_i].Config_DirEntradaBit);
IF NOT "DB2000_ED".ED[#for_i].Config_HabilitarInvertir THEN
"DB2000_ED".ED[#for_i].Estado_EntradaCanal := NOT #t_ValorEntrada;
ELSE
"DB2000_ED".ED[#for_i].Estado_EntradaCanal := #t_ValorEntrada;
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
;
END_CASE;
END_REGION LECTURA_VALORES
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2000_ED".ED[#for_i].Estado_AutoMan THEN
"DB2000_ED".Agrup["DB2000_ED".ED[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2000_ED".ED[#for_i].Orden_ActivarManual THEN
"DB2000_ED".ED[#for_i].Estado_Activado := TRUE;
ELSE
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
"DB2000_ED".ED[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2000_ED".ED[#for_i].Orden_ActivarManual := "DB2000_ED".ED[#for_i].Estado_Activado;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// DETECTOR SIMULADO
IF #Simulacion THEN
IF "DB2000_ED".ED[#for_i].Orden_ActivarManual THEN
"DB2000_ED".ED[#for_i].Estado_Activado := TRUE;
ELSE
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
IF NOT "DB2000_ED".ED[#for_i].Estado_AutoMan AND NOT #Simulacion THEN
// =============================================================================
// RETARDO A LA ACTIVACIÓN AUTOMÁTICO
IF "DB2000_ED".ED[#for_i].Estado_EntradaCanal AND "DB2000_ED".ED[#for_i].Config_HabilitarRetardoAct THEN
IF #Pulso1seg AND "DB2000_ED".ED[#for_i].Tiempos_TiempoAct < "DB2000_ED".ED[#for_i].Tiempos_SPTiempoAct THEN
"DB2000_ED".ED[#for_i].Tiempos_TiempoAct += 1;
END_IF;
IF "DB2000_ED".ED[#for_i].Tiempos_TiempoAct >= "DB2000_ED".ED[#for_i].Tiempos_SPTiempoAct THEN
"DB2000_ED".ED[#for_i].Estado_Activado := TRUE;
END_IF;
ELSIF "DB2000_ED".ED[#for_i].Estado_EntradaCanal THEN
"DB2000_ED".ED[#for_i].Estado_Activado := TRUE;
ELSE
"DB2000_ED".ED[#for_i].Tiempos_TiempoAct := 0;
END_IF;
// =============================================================================
// RETARDO A LA DESACTIVACIÓN AUTOMÁTICO
IF NOT "DB2000_ED".ED[#for_i].Estado_EntradaCanal AND "DB2000_ED".ED[#for_i].Config_HabilitarRetardoDes THEN
IF #Pulso1seg AND "DB2000_ED".ED[#for_i].Tiempos_TiempoDes < "DB2000_ED".ED[#for_i].Tiempos_SPTiempoDes THEN
"DB2000_ED".ED[#for_i].Tiempos_TiempoDes += 1;
END_IF;
IF "DB2000_ED".ED[#for_i].Tiempos_TiempoDes >= "DB2000_ED".ED[#for_i].Tiempos_SPTiempoDes THEN
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
END_IF;
ELSIF NOT "DB2000_ED".ED[#for_i].Estado_EntradaCanal THEN
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
ELSE
"DB2000_ED".ED[#for_i].Tiempos_TiempoDes := 0;
END_IF;
END_IF;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2000_ED".ED[#for_i].Estado_AutoMan AND NOT "DB2000_ED".ED[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_10_DISP_ED",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_ED",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2000_ED".ED[#for_i].Estado_AutoMan AND "DB2000_ED".ED[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_10_DISP_ED",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_ED",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2000_ED".ED[#for_i].Estado_AutoMan AND "DB2000_ED".ED[#for_i].Estado_Activado AND NOT "DB2000_ED".ED[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_10_DISP_ED",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_ED",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2000_ED".ED[#for_i].Estado_AutoMan AND NOT "DB2000_ED".ED[#for_i].Estado_Activado AND "DB2000_ED".ED[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_10_DISP_ED",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_ED",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION TRAZABILIDAD_MANUALIZACION
// =============================================================================
// ESTADO ANTERIOR MANUAL/AUTOMÁTICO
"DB2000_ED".ED[#for_i].Aux_oldAutoMan := "DB2000_ED".ED[#for_i].Estado_AutoMan;
"DB2000_ED".ED[#for_i].Aux_oldActivado := "DB2000_ED".ED[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2000_ED".ED[#for_i].Estado_EntradaCanal := FALSE;
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
"DB2000_ED".ED[#for_i].Tiempos_TiempoAct := 0;
"DB2000_ED".ED[#for_i].Tiempos_TiempoDes := 0;
END_IF;
REGION ESTADO_HMI
// =============================================================================
// ESTADO BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2000_ED".ED[#for_i].Hmi_Estado.%X0 := "DB2000_ED".ED[#for_i].Config_Habilitar;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X1 := "DB2000_ED".ED[#for_i].Estado_AutoMan;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X2 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X3 := "DB2000_ED".ED[#for_i].Estado_Activado;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X8 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X13 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION ESTADO_HMI
END_FOR;
END_REGION
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2000_ZC_ED.s7res
+13
View File
@@ -0,0 +1,13 @@
MultiLingualTexts:
- id: MLC_49Z
es-ES: FC2000_ED
- id: MLC_59U
es-ES: Modelo de dispositivo Entrada digital
- id: MLC_4ZE
es-ES: Pulso de 1 segundo
- id: MLC_4py
es-ES: Simulacion
- id: MLC_4LR
es-ES: Usuario actual
- id: MLC_3kM
es-ES: Fecha y hora actual
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2000_ZC_ED.scl
-371
View File
@@ -1,371 +0,0 @@
FUNCTION "FC2000_ZC_ED" : Void
TITLE = FC2000_ED
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : HCR
FAMILY : ZeusControl
VERSION : 1.0
//Modelo de dispositivo Entrada digital
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
Simulacion : Bool; // Simulacion
UsuarioActual : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_ValorEntrada : Bool;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Entrada Digital.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se realiza la lectura de la entrada de manera indirecta si esta habilitada.
- Se gestiona el estado del dispositivo
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | `DB2000_ED` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version. |
| 00.01.00 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. |
| 00.02.00 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.03 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.04 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado. Se añade movimiento de SD[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.05 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.06 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.07 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.08 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.09 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 00.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.00.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2000_ED".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2000_ED".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2000_ED".NumDispositivos := "N_MAX_DISP_ED";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_ED" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_ED";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2000_ED".ED[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2000_ED".ED[#for_i].Config_GrupoAlarma < 0 THEN
"DB2000_ED".ED[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2000_ED".ED[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2000_ED".ED[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
REGION LECTURA_VALORES
CASE "DB2000_ED".ED[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
IF "DB2000_ED".ED[#for_i].Config_DirEntradaByte >= 0 THEN
(*
AREA: Pueden seleccionarse las siguientes áreas:
16#81: Input,
16#82: Output,
16#83: Marcas,
16#84: DB,
16#1: Entrada de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección en la que se lee. Solo se utilizan los 16 bits menos significativos.*)
#t_ValorEntrada := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2000_ED".ED[#for_i].Config_DirEntradaByte,
bitOffset := "DB2000_ED".ED[#for_i].Config_DirEntradaBit);
IF NOT "DB2000_ED".ED[#for_i].Config_HabilitarInvertir THEN
"DB2000_ED".ED[#for_i].Estado_EntradaCanal := NOT #t_ValorEntrada;
ELSE
"DB2000_ED".ED[#for_i].Estado_EntradaCanal := #t_ValorEntrada;
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
;
END_CASE;
END_REGION LECTURA_VALORES
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2000_ED".ED[#for_i].Estado_AutoMan THEN
"DB2000_ED".Agrup["DB2000_ED".ED[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2000_ED".ED[#for_i].Orden_ActivarManual THEN
"DB2000_ED".ED[#for_i].Estado_Activado := TRUE;
ELSE
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
"DB2000_ED".ED[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2000_ED".ED[#for_i].Orden_ActivarManual := "DB2000_ED".ED[#for_i].Estado_Activado;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// DETECTOR SIMULADO
IF #Simulacion THEN
IF "DB2000_ED".ED[#for_i].Orden_ActivarManual THEN
"DB2000_ED".ED[#for_i].Estado_Activado := TRUE;
ELSE
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
IF NOT "DB2000_ED".ED[#for_i].Estado_AutoMan AND NOT #Simulacion THEN
// =============================================================================
// RETARDO A LA ACTIVACIÓN AUTOMÁTICO
IF "DB2000_ED".ED[#for_i].Estado_EntradaCanal AND "DB2000_ED".ED[#for_i].Config_HabilitarRetardoAct THEN
IF #Pulso1seg AND "DB2000_ED".ED[#for_i].Tiempos_TiempoAct < "DB2000_ED".ED[#for_i].Tiempos_SPTiempoAct THEN
"DB2000_ED".ED[#for_i].Tiempos_TiempoAct += 1;
END_IF;
IF "DB2000_ED".ED[#for_i].Tiempos_TiempoAct >= "DB2000_ED".ED[#for_i].Tiempos_SPTiempoAct THEN
"DB2000_ED".ED[#for_i].Estado_Activado := TRUE;
END_IF;
ELSIF "DB2000_ED".ED[#for_i].Estado_EntradaCanal THEN
"DB2000_ED".ED[#for_i].Estado_Activado := TRUE;
ELSE
"DB2000_ED".ED[#for_i].Tiempos_TiempoAct := 0;
END_IF;
// =============================================================================
// RETARDO A LA DESACTIVACIÓN AUTOMÁTICO
IF NOT "DB2000_ED".ED[#for_i].Estado_EntradaCanal AND "DB2000_ED".ED[#for_i].Config_HabilitarRetardoDes THEN
IF #Pulso1seg AND "DB2000_ED".ED[#for_i].Tiempos_TiempoDes < "DB2000_ED".ED[#for_i].Tiempos_SPTiempoDes THEN
"DB2000_ED".ED[#for_i].Tiempos_TiempoDes += 1;
END_IF;
IF "DB2000_ED".ED[#for_i].Tiempos_TiempoDes >= "DB2000_ED".ED[#for_i].Tiempos_SPTiempoDes THEN
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
END_IF;
ELSIF NOT "DB2000_ED".ED[#for_i].Estado_EntradaCanal THEN
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
ELSE
"DB2000_ED".ED[#for_i].Tiempos_TiempoDes := 0;
END_IF;
END_IF;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2000_ED".ED[#for_i].Estado_AutoMan AND NOT "DB2000_ED".ED[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_10_DISP_ED",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_ED",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2000_ED".ED[#for_i].Estado_AutoMan AND "DB2000_ED".ED[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_10_DISP_ED",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_ED",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2000_ED".ED[#for_i].Estado_AutoMan AND "DB2000_ED".ED[#for_i].Estado_Activado AND NOT "DB2000_ED".ED[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_10_DISP_ED",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_ED",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2000_ED".ED[#for_i].Estado_AutoMan AND NOT "DB2000_ED".ED[#for_i].Estado_Activado AND "DB2000_ED".ED[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_10_DISP_ED",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_ED",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION TRAZABILIDAD_MANUALIZACION
// =============================================================================
// ESTADO ANTERIOR MANUAL/AUTOMÁTICO
"DB2000_ED".ED[#for_i].Aux_oldAutoMan := "DB2000_ED".ED[#for_i].Estado_AutoMan;
"DB2000_ED".ED[#for_i].Aux_oldActivado := "DB2000_ED".ED[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2000_ED".ED[#for_i].Estado_EntradaCanal := FALSE;
"DB2000_ED".ED[#for_i].Estado_Activado := FALSE;
"DB2000_ED".ED[#for_i].Tiempos_TiempoAct := 0;
"DB2000_ED".ED[#for_i].Tiempos_TiempoDes := 0;
END_IF;
REGION ESTADO_HMI
// =============================================================================
// ESTADO BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2000_ED".ED[#for_i].Hmi_Estado.%X0 := "DB2000_ED".ED[#for_i].Config_Habilitar;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X1 := "DB2000_ED".ED[#for_i].Estado_AutoMan;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X2 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X3 := "DB2000_ED".ED[#for_i].Estado_Activado;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X8 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X13 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2000_ED".ED[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION ESTADO_HMI
END_FOR;
END_REGION
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2001_ZC_EA.s7dcl
+576
View File
@@ -0,0 +1,576 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_43c";
S7_BlockNumber := "2001";
S7_BlockTitle := "MLC_3fJ";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2001_ZC_EA" : Void
VAR_INPUT
{ S7_MLC := "MLC_4ba" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_3tC" }
Simulacion : Bool;
{ S7_MLC := "MLC_UZ" }
Arranque : Bool;
{ S7_MLC := "MLC_52u" }
Ack : Bool;
{ S7_MLC := "MLC_mK" }
UsuarioActual : String;
{ S7_MLC := "MLC_3aC" }
FechaHoraActual : DTL;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_x0 : Real;
t_x1 : Real;
t_y0 : Real;
t_y1 : Real;
t_x : Real;
t_ErrorGeneral : Bool;
t_LecturaRealizada : Bool;
t_SubError : Real;
t_ValorTarjeta : Int;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO_ESCALADO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
TIPO_ACCESO_INDIRECTO_WORD_SIN_ESCALADO : SInt := 2;
TIPO_ACCESO_INDIRECTO_DWORD_SIN_ESCALADO : SInt := 3;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Entrada Analogica.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se realiza la lectura de la entrada de manera indirecta si esta habilitada.
- Se gestiona el escalado si esta habilitado.
- Se gestiona el estado del dispositivo
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | `DB2001_EA` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.00 | 15.10.2020 | (ABH) | Primera versión. |
| 00.00.01 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT en base al tipo de funcion.Se añade seguridad en el escalado. |
| 00.00.02 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.06 | 29.04.2022 | (HCR) | Cambio del estado de la señal, se agrega señal estado por prioridades. Cambio de las condiciones de para error de configuración. Cambio en la programaciíon de alarmas. Cambio en los límites de la señal |
| 00.00.07 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones |
| 00.00.08 | 20.12.2022 | (HCR) | Se añade trazabilidad de escalado y offset |
| 00.00.09 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.10 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado.nSe añade movimiento de EA[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.11 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.12 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.13 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.14 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.15 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 00.00.16 | 14.05.2026 | (ABH) | Se modifica UDT para añadir tipo de lectura. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2001_EA".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2001_EA".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2001_EA".NumDispositivos := "N_MAX_DISP_EA";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_EA" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_EA";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
REGION LIMITE_GRUPO_ALARMA
IF "DB2001_EA".EA[#for_i].Config_GrupoAlarma < 0 THEN
"DB2001_EA".EA[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2001_EA".EA[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2001_EA".EA[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
#t_LecturaRealizada := FALSE;
#t_ErrorGeneral := FALSE;
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2001_EA".EA[#for_i].Config_Habilitar THEN
REGION LECTURA
CASE "DB2001_EA".EA[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO_ESCALADO:
REGION LECTURA_VALORES_DE_LA_TARJETA
IF "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte > 0 THEN
// =============================================================================
// LECTURA DE LA SEÑAL DE ENTRADA - PEEK_WORD (area) 16#1 para CPU 1500; 16#81 para CPU 1200
#t_ValorTarjeta := WORD_TO_INT(PEEK_WORD(area := 16#81, dbNumber := 0, byteOffset := "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte));
// =============================================================================
// COMPROBAMOS LOCALARMASENTE LA LECTURA CORRECTA DE LA ENTRADA ANALOGICA
REGION DESCRIPCION_GET_ERR_ID()
// La instrucción "Consultar ID de error locALARMASente" consulta si se han producido errores en un bloque. Suele tratarse de un error de acceso.
// si al ejecutar el bloque el sistema notifica errores de ejecución desde que se ejecutó La instrucción por última vez, la instrucción emite la ID del primer error ocurrido.
// La ID de error solo se puede guardar en operandos del tipo de datos WORD. Si se producen varios errores en el bloque, la instrucción soluciona el primer error ocurrido,
// y solo entonces la instrucción emite la ID de error del siguiente error ocurrido.
// 0 0 Ningún error
// 2503 9475 Puntero no válido
// 2520 9504 STRING no válido
// 2522 9506 Error de lectura: operando fuera del rango válido
// 2523 9507 Error de escritura: operando fuera del rango válido
// 2524 9508 Error de lectura: operando no válido
// 2525 9509 Error de escritura: operando no válido
// 2528 9512 Error de lectura: alineación de datos
// 2529 9513 Error de escritura: alineación de datos
// 252C 9516 Puntero no válido
// 2530 9520 Error de escritura: Bloque de datos
// 2533 9523 Referencia usada no válida
// 2538 9528 Error de acceso: el DB no existe
// 2539 9529 Error de acceso: se ha utilizado un DB incorrecto
// 253A 9530 El bloque de datos global no existe
// 253C 9532 Indicación errónea o la función no existe
// 253D 9533 La función de sistema no existe
// 253E 9534 Indicación errónea o el bloque de función no existe
// 253F 9535 El bloque de sistema no existe
// 2550 9552 Error de acceso: el DB no existe
// 2551 9553 Error de acceso: se ha utilizado un DB incorrecto
// 2575 9589 Error en la profundidad de anidamiento del programa
// 2576 9590 Error en la distribución de datos locales
// 2577 9591 La propiedad de bloque "Alimentación de parámetros a través de registros" no está activada.
// 25A0 9632 Error interno en TP
// 25A1 9633 Variable protegida contra escritura
// 25A2 9634 Valor numérico no válido de la variable
// 2942 10562 Error de lectura: entrada
// 2943 10563 Error de escritura: salida
END_REGION
"DB2001_EA".EA[#for_i].Estado_Lectura := GET_ERR_ID();
#t_LecturaRealizada := ("DB2001_EA".EA[#for_i].Estado_Lectura = 0);
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := #t_ValorTarjeta;
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := 0;
#t_LecturaRealizada := TRUE;
END_IF;
END_REGION LECTURA_VALORES_DE_LA_TARJETA
REGION CALCULO_VALOR
IF "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte > 0 THEN
IF "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria > "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria AND
"DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta > "DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta THEN
#t_x0 := INT_TO_REAL("DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta);
#t_x1 := INT_TO_REAL("DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta);
#t_x := DINT_TO_REAL("DB2001_EA".EA[#for_i].Estado_ValorTarjeta);
#t_y0 := "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria;
#t_y1 := "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria;
// =============================================================================
// DETECCIÓN DE FALLO EN EL CANAL
IF ("DB2001_EA".EA[#for_i].Estado_ValorTarjeta > -32768) AND ("DB2001_EA".EA[#for_i].Estado_ValorTarjeta < 32767) AND #t_LecturaRealizada THEN
IF ("DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria <> "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria)
AND
("DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta <> "DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta)
THEN
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := ((#t_x - #t_x0) * ((#t_y1 - #t_y0) / (#t_x1 - #t_x0))) + #t_y0;
// =============================================================================
// LÍMITES
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria > "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria THEN
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria;
END_IF;
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria < "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria THEN
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria;
END_IF;
// =============================================================================
// OFFSET
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := "DB2001_EA".EA[#for_i].Estado_ValorIngenieria + "DB2001_EA".EA[#for_i].Config_EscaladoOffset;
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0.0;
END_IF;
"DB2001_EA".EA[#for_i].Alarmas_HiloRoto := FALSE;
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0.0;
"DB2001_EA".EA[#for_i].Alarmas_HiloRoto := TRUE; // Error del canal
END_IF;
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0.0;
END_IF;
END_IF;
END_REGION CALCULO_VALOR
#TIPO_ACCESO_INDIRECTO_WORD_SIN_ESCALADO:
REGION LECTURA_VALORES_DE_LA_TARJETA
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := 0;
IF "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte > 0 THEN
// =============================================================================
// LECTURA DE LA SEÑAL DE ENTRADA - PEEK_WORD (area) 16#1 para CPU 1500; 16#81 para CPU 1200
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := DINT_TO_REAL(WORD_TO_DINT(PEEK_WORD(area := 16#81, dbNumber := 0, byteOffset := "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte)));
// =============================================================================
// COMPROBAMOS LOCALARMASENTE LA LECTURA CORRECTA DE LA ENTRADA ANALOGICA
"DB2001_EA".EA[#for_i].Estado_Lectura := GET_ERR_ID();
#t_LecturaRealizada := ("DB2001_EA".EA[#for_i].Estado_Lectura = 0);
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0;
#t_LecturaRealizada := TRUE;
END_IF;
END_REGION LECTURA_VALORES_DE_LA_TARJETA
#TIPO_ACCESO_INDIRECTO_DWORD_SIN_ESCALADO:
REGION LECTURA_VALORES_DE_LA_TARJETA
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := 0;
IF "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte > 0 THEN
// =============================================================================
// LECTURA DE LA SEÑAL DE ENTRADA - PEEK_WORD (area) 16#1 para CPU 1500; 16#81 para CPU 1200
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := DINT_TO_REAL(DWORD_TO_DINT(PEEK_DWORD(area := 16#81, dbNumber := 0, byteOffset := "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte)));
// =============================================================================
// COMPROBAMOS LOCALARMASENTE LA LECTURA CORRECTA DE LA ENTRADA ANALOGICA
"DB2001_EA".EA[#for_i].Estado_Lectura := GET_ERR_ID();
#t_LecturaRealizada := ("DB2001_EA".EA[#for_i].Estado_Lectura = 0);
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0;
#t_LecturaRealizada := TRUE;
END_IF;
END_REGION LECTURA_VALORES_DE_LA_TARJETA
#TIPO_ACCESO_PLC:
#t_LecturaRealizada := TRUE;
END_CASE;
END_REGION LECTURA
REGION MODOS_DE_TRABAJO
// =============================================================================
// FORZADO DE LA SEÑAL
IF "DB2001_EA".EA[#for_i].Estado_AutoMan THEN
"DB2001_EA".Agrup["DB2001_EA".EA[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := "DB2001_EA".EA[#for_i].Orden_ConsignaManual;
ELSE
"DB2001_EA".EA[#for_i].Orden_ConsignaManual := "DB2001_EA".EA[#for_i].Estado_ValorIngenieria;
END_IF;
END_REGION
REGION ERRORES
#t_SubError := "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria - "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria;
// =============================================================================
// ALARMA NIVEL MÍNIMO
IF "DB2001_EA".EA[#for_i].Config_HabilitarAlarmaMin THEN
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria < "DB2001_EA".EA[#for_i].Config_ErrorMinIngenieria THEN
"DB2001_EA".EA[#for_i].Alarmas_Min := TRUE;
END_IF;
// =============================================================================
// RESET DE ALARMA CON HISTÉRESIS EN UNIDADES DE INGENIERÍA
IF NOT ("DB2001_EA".EA[#for_i].Config_HisteresisTipo) AND ("DB2001_EA".EA[#for_i].Estado_ValorIngenieria >= ("DB2001_EA".EA[#for_i].Config_ErrorMinIngenieria + "DB2001_EA".EA[#for_i].Config_ErrorMinHisteresis)) THEN
"DB2001_EA".EA[#for_i].Alarmas_Min := FALSE;
END_IF;
// =============================================================================
// RESET DE ALARMA CON HISTÉRESIS EN %
IF "DB2001_EA".EA[#for_i].Config_HisteresisTipo AND ("DB2001_EA".EA[#for_i].Estado_ValorIngenieria >= "DB2001_EA".EA[#for_i].Config_ErrorMinIngenieria + ("DB2001_EA".EA[#for_i].Config_ErrorMinHisteresis / 100.0) * #t_SubError) THEN
"DB2001_EA".EA[#for_i].Alarmas_Min := FALSE;
END_IF;
ELSE
"DB2001_EA".EA[#for_i].Alarmas_Min := FALSE;
END_IF;
// =============================================================================
// ALARMA NIVEL MÁXIMO
IF "DB2001_EA".EA[#for_i].Config_HabilitarAlarmaMax THEN
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria > "DB2001_EA".EA[#for_i].Config_ErrorMaxIngenieria THEN
"DB2001_EA".EA[#for_i].Alarmas_Max := TRUE;
END_IF;
// =============================================================================
// RESET DE ALARMA CON HISTÉRESIS EN UNIDADES DE INGENIERÍA
IF NOT ("DB2001_EA".EA[#for_i].Config_HisteresisTipo) AND ("DB2001_EA".EA[#for_i].Estado_ValorIngenieria <= ("DB2001_EA".EA[#for_i].Config_ErrorMaxIngenieria - "DB2001_EA".EA[#for_i].Config_ErrorMaxHisteresis)) THEN
"DB2001_EA".EA[#for_i].Alarmas_Max := FALSE;
END_IF;
// =============================================================================
// RESET DE ALARMA CON HISTÉRESIS EN %
IF "DB2001_EA".EA[#for_i].Config_HisteresisTipo AND ("DB2001_EA".EA[#for_i].Estado_ValorIngenieria <= "DB2001_EA".EA[#for_i].Config_ErrorMaxIngenieria - ("DB2001_EA".EA[#for_i].Config_ErrorMaxHisteresis / 100.0) * #t_SubError) THEN
"DB2001_EA".EA[#for_i].Alarmas_Max := FALSE;
END_IF;
ELSE
"DB2001_EA".EA[#for_i].Alarmas_Max := FALSE;
END_IF;
#t_ErrorGeneral := "DB2001_EA".EA[#for_i].Alarmas_HiloRoto OR "DB2001_EA".EA[#for_i].Alarmas_Max OR "DB2001_EA".EA[#for_i].Alarmas_Min;
"DB2001_EA".EA[#for_i].Alarmas_General := #t_ErrorGeneral;
IF #t_ErrorGeneral THEN
"DB2001_EA".Agrup["DB2001_EA".EA[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
END_IF;
"DB2001_EA".EA[#for_i].Alarmas_Lectura := NOT #t_LecturaRealizada;
END_REGION
REGION ESTADO
// Estado normal
"DB2001_EA".EA[#for_i].Aux_Estado := 1;
// Error de configuración
IF ("DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria = "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria) OR
("DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta = "DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta)
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 6;
END_IF;
// Error de configuración
IF ("DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria < "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria) OR
("DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta < "DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta)
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 6;
END_IF;
// Error del canal
IF "DB2001_EA".EA[#for_i].Config_TipoAcceso = #TIPO_ACCESO_INDIRECTO_ESCALADO AND
("DB2001_EA".EA[#for_i].Estado_ValorTarjeta <= -32766) OR
("DB2001_EA".EA[#for_i].Estado_ValorTarjeta >= 32766)
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 3;
END_IF;
// Señal en alarma
IF "DB2001_EA".EA[#for_i].Config_HabilitarAlarmaMin THEN
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria < "DB2001_EA".EA[#for_i].Config_ErrorMinIngenieria
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 4;
END_IF;
END_IF;
// Señal en alarma
IF "DB2001_EA".EA[#for_i].Config_HabilitarAlarmaMax THEN
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria > "DB2001_EA".EA[#for_i].Config_ErrorMaxIngenieria
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 5;
END_IF;
END_IF;
// Error de lectura
IF NOT #t_LecturaRealizada THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 7;
END_IF;
// EA no direccionada
IF ("DB2001_EA".EA[#for_i].Config_TipoAcceso = #TIPO_ACCESO_INDIRECTO_ESCALADO OR "DB2001_EA".EA[#for_i].Config_TipoAcceso = #TIPO_ACCESO_INDIRECTO_ESCALADO)
AND
"DB2001_EA".EA[#for_i].Config_DireccionEntradaByte <= 0
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 8;
END_IF;
// Señal forzada
IF "DB2001_EA".EA[#for_i].Estado_AutoMan THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 2;
END_IF;
END_REGION
REGION TRAZABILIDAD
IF "DB2001_EA".EA[#for_i].Estado_AutoMan AND NOT "DB2001_EA".EA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_11_DISP_EA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_EA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2001_EA".EA[#for_i].Estado_AutoMan AND "DB2001_EA".EA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_11_DISP_EA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_EA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2001_EA".EA[#for_i].Aux_oldAutoMan := "DB2001_EA".EA[#for_i].Estado_AutoMan;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := 0;
"DB2001_EA".EA[#for_i].Hmi_Estado := 0; // Canal deshabilitado
"DB2001_EA".EA[#for_i].Aux_Estado := 0; // Canal deshabilitado
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0.0;
"DB2001_EA".EA[#for_i].Alarmas_Max := FALSE;
"DB2001_EA".EA[#for_i].Alarmas_Min := FALSE;
"DB2001_EA".EA[#for_i].Alarmas_HiloRoto := FALSE;
"DB2001_EA".EA[#for_i].Alarmas_General := FALSE;
"DB2001_EA".EA[#for_i].Estado_AutoMan := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Reserva
// Bit 3 Reserva
// Bit 4 Reserva
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma Hilo Roto
// Bit 9 Alarma Alta
// Bit 10 Alarma Baja
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma 5
// Bit 14 Reserva
// Bit 15 Reserva
"DB2001_EA".EA[#for_i].Hmi_Estado.%X0 := "DB2001_EA".EA[#for_i].Config_Habilitar;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X1 := "DB2001_EA".EA[#for_i].Estado_AutoMan;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X2 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X3 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X8 := "DB2001_EA".EA[#for_i].Alarmas_HiloRoto;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X9 := "DB2001_EA".EA[#for_i].Alarmas_Max;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X10 := "DB2001_EA".EA[#for_i].Alarmas_Min;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X13 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2001_EA".EA[#for_i].Alarmas_General AND NOT "DB2001_EA".EA[#for_i].Aux_oldAlarma THEN
"DB2001_EA".Agrup["DB2001_EA".EA[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2001_EA".EA[#for_i].Aux_oldAlarma := "DB2001_EA".EA[#for_i].Alarmas_General;
END_REGION
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2001_EA".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2001_ZC_EA.s7res
+17
View File
@@ -0,0 +1,17 @@
MultiLingualTexts:
- id: MLC_3fJ
es-ES: FC2001_EA
- id: MLC_43c
es-ES: Modelo de dispositivo entrada analogica
- id: MLC_4ba
es-ES: Pulso de 1 segundo
- id: MLC_3tC
es-ES: Simulacion
- id: MLC_UZ
es-ES: Primer arranque
- id: MLC_52u
es-ES: Acuse general
- id: MLC_mK
es-ES: Usuario actual
- id: MLC_3aC
es-ES: Fecha y hora actual
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2001_ZC_EA.scl
-568
View File
@@ -1,568 +0,0 @@
FUNCTION "FC2001_ZC_EA" : Void
TITLE = FC2001_EA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Modelo de dispositivo entrada analogica
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
Simulacion : Bool; // Simulacion
Arranque : Bool; // Primer arranque
Ack : Bool; // Acuse general
UsuarioActual : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_x0 : Real;
t_x1 : Real;
t_y0 : Real;
t_y1 : Real;
t_x : Real;
t_ErrorGeneral : Bool;
t_LecturaRealizada : Bool;
t_SubError : Real;
t_ValorTarjeta : Int;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO_ESCALADO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
TIPO_ACCESO_INDIRECTO_WORD_SIN_ESCALADO : SInt := 2;
TIPO_ACCESO_INDIRECTO_DWORD_SIN_ESCALADO : SInt := 3;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Entrada Analogica.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se realiza la lectura de la entrada de manera indirecta si esta habilitada.
- Se gestiona el escalado si esta habilitado.
- Se gestiona el estado del dispositivo
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | `DB2001_EA` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.00 | 15.10.2020 | (ABH) | Primera versión. |
| 00.00.01 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT en base al tipo de funcion.Se añade seguridad en el escalado. |
| 00.00.02 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.06 | 29.04.2022 | (HCR) | Cambio del estado de la señal, se agrega señal estado por prioridades. Cambio de las condiciones de para error de configuración. Cambio en la programaciíon de alarmas. Cambio en los límites de la señal |
| 00.00.07 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones |
| 00.00.08 | 20.12.2022 | (HCR) | Se añade trazabilidad de escalado y offset |
| 00.00.09 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.10 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado.nSe añade movimiento de EA[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.11 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.12 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.13 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.14 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.15 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 00.00.16 | 14.05.2026 | (ABH) | Se modifica UDT para añadir tipo de lectura. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2001_EA".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2001_EA".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2001_EA".NumDispositivos := "N_MAX_DISP_EA";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_EA" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_EA";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
REGION LIMITE_GRUPO_ALARMA
IF "DB2001_EA".EA[#for_i].Config_GrupoAlarma < 0 THEN
"DB2001_EA".EA[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2001_EA".EA[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2001_EA".EA[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
#t_LecturaRealizada := FALSE;
#t_ErrorGeneral := FALSE;
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2001_EA".EA[#for_i].Config_Habilitar THEN
REGION LECTURA
CASE "DB2001_EA".EA[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO_ESCALADO:
REGION LECTURA_VALORES_DE_LA_TARJETA
IF "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte > 0 THEN
// =============================================================================
// LECTURA DE LA SEÑAL DE ENTRADA - PEEK_WORD (area) 16#1 para CPU 1500; 16#81 para CPU 1200
#t_ValorTarjeta := WORD_TO_INT(PEEK_WORD(area := 16#81, dbNumber := 0, byteOffset := "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte));
// =============================================================================
// COMPROBAMOS LOCALARMASENTE LA LECTURA CORRECTA DE LA ENTRADA ANALOGICA
REGION DESCRIPCION_GET_ERR_ID()
// La instrucción "Consultar ID de error locALARMASente" consulta si se han producido errores en un bloque. Suele tratarse de un error de acceso.
// si al ejecutar el bloque el sistema notifica errores de ejecución desde que se ejecutó La instrucción por última vez, la instrucción emite la ID del primer error ocurrido.
// La ID de error solo se puede guardar en operandos del tipo de datos WORD. Si se producen varios errores en el bloque, la instrucción soluciona el primer error ocurrido,
// y solo entonces la instrucción emite la ID de error del siguiente error ocurrido.
// 0 0 Ningún error
// 2503 9475 Puntero no válido
// 2520 9504 STRING no válido
// 2522 9506 Error de lectura: operando fuera del rango válido
// 2523 9507 Error de escritura: operando fuera del rango válido
// 2524 9508 Error de lectura: operando no válido
// 2525 9509 Error de escritura: operando no válido
// 2528 9512 Error de lectura: alineación de datos
// 2529 9513 Error de escritura: alineación de datos
// 252C 9516 Puntero no válido
// 2530 9520 Error de escritura: Bloque de datos
// 2533 9523 Referencia usada no válida
// 2538 9528 Error de acceso: el DB no existe
// 2539 9529 Error de acceso: se ha utilizado un DB incorrecto
// 253A 9530 El bloque de datos global no existe
// 253C 9532 Indicación errónea o la función no existe
// 253D 9533 La función de sistema no existe
// 253E 9534 Indicación errónea o el bloque de función no existe
// 253F 9535 El bloque de sistema no existe
// 2550 9552 Error de acceso: el DB no existe
// 2551 9553 Error de acceso: se ha utilizado un DB incorrecto
// 2575 9589 Error en la profundidad de anidamiento del programa
// 2576 9590 Error en la distribución de datos locales
// 2577 9591 La propiedad de bloque "Alimentación de parámetros a través de registros" no está activada.
// 25A0 9632 Error interno en TP
// 25A1 9633 Variable protegida contra escritura
// 25A2 9634 Valor numérico no válido de la variable
// 2942 10562 Error de lectura: entrada
// 2943 10563 Error de escritura: salida
END_REGION
"DB2001_EA".EA[#for_i].Estado_Lectura := GET_ERR_ID();
#t_LecturaRealizada := ("DB2001_EA".EA[#for_i].Estado_Lectura = 0);
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := #t_ValorTarjeta;
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := 0;
#t_LecturaRealizada := TRUE;
END_IF;
END_REGION LECTURA_VALORES_DE_LA_TARJETA
REGION CALCULO_VALOR
IF "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte > 0 THEN
IF "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria > "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria AND
"DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta > "DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta THEN
#t_x0 := INT_TO_REAL("DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta);
#t_x1 := INT_TO_REAL("DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta);
#t_x := DINT_TO_REAL("DB2001_EA".EA[#for_i].Estado_ValorTarjeta);
#t_y0 := "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria;
#t_y1 := "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria;
// =============================================================================
// DETECCIÓN DE FALLO EN EL CANAL
IF ("DB2001_EA".EA[#for_i].Estado_ValorTarjeta > -32768) AND ("DB2001_EA".EA[#for_i].Estado_ValorTarjeta < 32767) AND #t_LecturaRealizada THEN
IF ("DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria <> "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria)
AND
("DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta <> "DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta)
THEN
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := ((#t_x - #t_x0) * ((#t_y1 - #t_y0) / (#t_x1 - #t_x0))) + #t_y0;
// =============================================================================
// LÍMITES
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria > "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria THEN
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria;
END_IF;
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria < "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria THEN
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria;
END_IF;
// =============================================================================
// OFFSET
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := "DB2001_EA".EA[#for_i].Estado_ValorIngenieria + "DB2001_EA".EA[#for_i].Config_EscaladoOffset;
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0.0;
END_IF;
"DB2001_EA".EA[#for_i].Alarmas_HiloRoto := FALSE;
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0.0;
"DB2001_EA".EA[#for_i].Alarmas_HiloRoto := TRUE; // Error del canal
END_IF;
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0.0;
END_IF;
END_IF;
END_REGION CALCULO_VALOR
#TIPO_ACCESO_INDIRECTO_WORD_SIN_ESCALADO:
REGION LECTURA_VALORES_DE_LA_TARJETA
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := 0;
IF "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte > 0 THEN
// =============================================================================
// LECTURA DE LA SEÑAL DE ENTRADA - PEEK_WORD (area) 16#1 para CPU 1500; 16#81 para CPU 1200
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := DINT_TO_REAL(WORD_TO_DINT(PEEK_WORD(area := 16#81, dbNumber := 0, byteOffset := "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte)));
// =============================================================================
// COMPROBAMOS LOCALARMASENTE LA LECTURA CORRECTA DE LA ENTRADA ANALOGICA
"DB2001_EA".EA[#for_i].Estado_Lectura := GET_ERR_ID();
#t_LecturaRealizada := ("DB2001_EA".EA[#for_i].Estado_Lectura = 0);
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0;
#t_LecturaRealizada := TRUE;
END_IF;
END_REGION LECTURA_VALORES_DE_LA_TARJETA
#TIPO_ACCESO_INDIRECTO_DWORD_SIN_ESCALADO:
REGION LECTURA_VALORES_DE_LA_TARJETA
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := 0;
IF "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte > 0 THEN
// =============================================================================
// LECTURA DE LA SEÑAL DE ENTRADA - PEEK_WORD (area) 16#1 para CPU 1500; 16#81 para CPU 1200
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := DINT_TO_REAL(DWORD_TO_DINT(PEEK_DWORD(area := 16#81, dbNumber := 0, byteOffset := "DB2001_EA".EA[#for_i].Config_DireccionEntradaByte)));
// =============================================================================
// COMPROBAMOS LOCALARMASENTE LA LECTURA CORRECTA DE LA ENTRADA ANALOGICA
"DB2001_EA".EA[#for_i].Estado_Lectura := GET_ERR_ID();
#t_LecturaRealizada := ("DB2001_EA".EA[#for_i].Estado_Lectura = 0);
ELSE
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0;
#t_LecturaRealizada := TRUE;
END_IF;
END_REGION LECTURA_VALORES_DE_LA_TARJETA
#TIPO_ACCESO_PLC:
#t_LecturaRealizada := TRUE;
END_CASE;
END_REGION LECTURA
REGION MODOS_DE_TRABAJO
// =============================================================================
// FORZADO DE LA SEÑAL
IF "DB2001_EA".EA[#for_i].Estado_AutoMan THEN
"DB2001_EA".Agrup["DB2001_EA".EA[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := "DB2001_EA".EA[#for_i].Orden_ConsignaManual;
ELSE
"DB2001_EA".EA[#for_i].Orden_ConsignaManual := "DB2001_EA".EA[#for_i].Estado_ValorIngenieria;
END_IF;
END_REGION
REGION ERRORES
#t_SubError := "DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria - "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria;
// =============================================================================
// ALARMA NIVEL MÍNIMO
IF "DB2001_EA".EA[#for_i].Config_HabilitarAlarmaMin THEN
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria < "DB2001_EA".EA[#for_i].Config_ErrorMinIngenieria THEN
"DB2001_EA".EA[#for_i].Alarmas_Min := TRUE;
END_IF;
// =============================================================================
// RESET DE ALARMA CON HISTÉRESIS EN UNIDADES DE INGENIERÍA
IF NOT ("DB2001_EA".EA[#for_i].Config_HisteresisTipo) AND ("DB2001_EA".EA[#for_i].Estado_ValorIngenieria >= ("DB2001_EA".EA[#for_i].Config_ErrorMinIngenieria + "DB2001_EA".EA[#for_i].Config_ErrorMinHisteresis)) THEN
"DB2001_EA".EA[#for_i].Alarmas_Min := FALSE;
END_IF;
// =============================================================================
// RESET DE ALARMA CON HISTÉRESIS EN %
IF "DB2001_EA".EA[#for_i].Config_HisteresisTipo AND ("DB2001_EA".EA[#for_i].Estado_ValorIngenieria >= "DB2001_EA".EA[#for_i].Config_ErrorMinIngenieria + ("DB2001_EA".EA[#for_i].Config_ErrorMinHisteresis / 100.0) * #t_SubError) THEN
"DB2001_EA".EA[#for_i].Alarmas_Min := FALSE;
END_IF;
ELSE
"DB2001_EA".EA[#for_i].Alarmas_Min := FALSE;
END_IF;
// =============================================================================
// ALARMA NIVEL MÁXIMO
IF "DB2001_EA".EA[#for_i].Config_HabilitarAlarmaMax THEN
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria > "DB2001_EA".EA[#for_i].Config_ErrorMaxIngenieria THEN
"DB2001_EA".EA[#for_i].Alarmas_Max := TRUE;
END_IF;
// =============================================================================
// RESET DE ALARMA CON HISTÉRESIS EN UNIDADES DE INGENIERÍA
IF NOT ("DB2001_EA".EA[#for_i].Config_HisteresisTipo) AND ("DB2001_EA".EA[#for_i].Estado_ValorIngenieria <= ("DB2001_EA".EA[#for_i].Config_ErrorMaxIngenieria - "DB2001_EA".EA[#for_i].Config_ErrorMaxHisteresis)) THEN
"DB2001_EA".EA[#for_i].Alarmas_Max := FALSE;
END_IF;
// =============================================================================
// RESET DE ALARMA CON HISTÉRESIS EN %
IF "DB2001_EA".EA[#for_i].Config_HisteresisTipo AND ("DB2001_EA".EA[#for_i].Estado_ValorIngenieria <= "DB2001_EA".EA[#for_i].Config_ErrorMaxIngenieria - ("DB2001_EA".EA[#for_i].Config_ErrorMaxHisteresis / 100.0) * #t_SubError) THEN
"DB2001_EA".EA[#for_i].Alarmas_Max := FALSE;
END_IF;
ELSE
"DB2001_EA".EA[#for_i].Alarmas_Max := FALSE;
END_IF;
#t_ErrorGeneral := "DB2001_EA".EA[#for_i].Alarmas_HiloRoto OR "DB2001_EA".EA[#for_i].Alarmas_Max OR "DB2001_EA".EA[#for_i].Alarmas_Min;
"DB2001_EA".EA[#for_i].Alarmas_General := #t_ErrorGeneral;
IF #t_ErrorGeneral THEN
"DB2001_EA".Agrup["DB2001_EA".EA[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
END_IF;
"DB2001_EA".EA[#for_i].Alarmas_Lectura := NOT #t_LecturaRealizada;
END_REGION
REGION ESTADO
// Estado normal
"DB2001_EA".EA[#for_i].Aux_Estado := 1;
// Error de configuración
IF ("DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria = "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria) OR
("DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta = "DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta)
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 6;
END_IF;
// Error de configuración
IF ("DB2001_EA".EA[#for_i].Config_EscaladoMaxIngenieria < "DB2001_EA".EA[#for_i].Config_EscaladoMinIngenieria) OR
("DB2001_EA".EA[#for_i].Config_EscaladoMaxTarjeta < "DB2001_EA".EA[#for_i].Config_EscaladoMinTarjeta)
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 6;
END_IF;
// Error del canal
IF "DB2001_EA".EA[#for_i].Config_TipoAcceso = #TIPO_ACCESO_INDIRECTO_ESCALADO AND
("DB2001_EA".EA[#for_i].Estado_ValorTarjeta <= -32766) OR
("DB2001_EA".EA[#for_i].Estado_ValorTarjeta >= 32766)
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 3;
END_IF;
// Señal en alarma
IF "DB2001_EA".EA[#for_i].Config_HabilitarAlarmaMin THEN
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria < "DB2001_EA".EA[#for_i].Config_ErrorMinIngenieria
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 4;
END_IF;
END_IF;
// Señal en alarma
IF "DB2001_EA".EA[#for_i].Config_HabilitarAlarmaMax THEN
IF "DB2001_EA".EA[#for_i].Estado_ValorIngenieria > "DB2001_EA".EA[#for_i].Config_ErrorMaxIngenieria
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 5;
END_IF;
END_IF;
// Error de lectura
IF NOT #t_LecturaRealizada THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 7;
END_IF;
// EA no direccionada
IF ("DB2001_EA".EA[#for_i].Config_TipoAcceso = #TIPO_ACCESO_INDIRECTO_ESCALADO OR "DB2001_EA".EA[#for_i].Config_TipoAcceso = #TIPO_ACCESO_INDIRECTO_ESCALADO)
AND
"DB2001_EA".EA[#for_i].Config_DireccionEntradaByte <= 0
THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 8;
END_IF;
// Señal forzada
IF "DB2001_EA".EA[#for_i].Estado_AutoMan THEN
"DB2001_EA".EA[#for_i].Aux_Estado := 2;
END_IF;
END_REGION
REGION TRAZABILIDAD
IF "DB2001_EA".EA[#for_i].Estado_AutoMan AND NOT "DB2001_EA".EA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_11_DISP_EA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_EA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2001_EA".EA[#for_i].Estado_AutoMan AND "DB2001_EA".EA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_11_DISP_EA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_EA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2001_EA".EA[#for_i].Aux_oldAutoMan := "DB2001_EA".EA[#for_i].Estado_AutoMan;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2001_EA".EA[#for_i].Estado_ValorTarjeta := 0;
"DB2001_EA".EA[#for_i].Hmi_Estado := 0; // Canal deshabilitado
"DB2001_EA".EA[#for_i].Aux_Estado := 0; // Canal deshabilitado
"DB2001_EA".EA[#for_i].Estado_ValorIngenieria := 0.0;
"DB2001_EA".EA[#for_i].Alarmas_Max := FALSE;
"DB2001_EA".EA[#for_i].Alarmas_Min := FALSE;
"DB2001_EA".EA[#for_i].Alarmas_HiloRoto := FALSE;
"DB2001_EA".EA[#for_i].Alarmas_General := FALSE;
"DB2001_EA".EA[#for_i].Estado_AutoMan := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Reserva
// Bit 3 Reserva
// Bit 4 Reserva
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma Hilo Roto
// Bit 9 Alarma Alta
// Bit 10 Alarma Baja
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma 5
// Bit 14 Reserva
// Bit 15 Reserva
"DB2001_EA".EA[#for_i].Hmi_Estado.%X0 := "DB2001_EA".EA[#for_i].Config_Habilitar;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X1 := "DB2001_EA".EA[#for_i].Estado_AutoMan;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X2 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X3 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X8 := "DB2001_EA".EA[#for_i].Alarmas_HiloRoto;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X9 := "DB2001_EA".EA[#for_i].Alarmas_Max;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X10 := "DB2001_EA".EA[#for_i].Alarmas_Min;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X13 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2001_EA".EA[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2001_EA".EA[#for_i].Alarmas_General AND NOT "DB2001_EA".EA[#for_i].Aux_oldAlarma THEN
"DB2001_EA".Agrup["DB2001_EA".EA[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2001_EA".EA[#for_i].Aux_oldAlarma := "DB2001_EA".EA[#for_i].Alarmas_General;
END_REGION
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2001_EA".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2005_ZC_SD.s7dcl
+420
View File
@@ -0,0 +1,420 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_4ii";
S7_BlockNumber := "2005";
S7_BlockTitle := "MLC_3pw";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2005_ZC_SD" : Void
VAR_INPUT
{ S7_MLC := "MLC_36J" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_hm" }
Simulacion : Bool;
{ S7_MLC := "MLC_4ik" }
Arranque : Bool;
{ S7_MLC := "MLC_4ps" }
Ack : Bool;
{ S7_MLC := "MLC_3d4" }
SeguridadesOK : Bool;
{ S7_MLC := "MLC_4tF" }
UsuarioActual : String;
{ S7_MLC := "MLC_4ph" }
FechaHoraActual : DTL;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_ActivarConRetardo : Bool;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Salida Digital.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona la orden de activacion y activacion retardada
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 26.04.2022 | (HCR) | Primera version. Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. |
| 00.00.02 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.03 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones |
| 00.00.03 | 08.11.2022 | (HCR) | Se añade trazabilidad de activación manual |
| 00.00.04 | 20.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.05 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado Se añade movimiento de ED[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.07 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.08 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.09 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.10 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.11 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 00.00.12 | 14.05.2026 | (ABH) | Se modifica UDT para añadir tipo de lectura. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. Se corrigen logicas de activacion y se añade variable "Estado_Salida". |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2005_SD".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2005_SD".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2005_SD".NumDispositivos := "N_MAX_DISP_SD";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_SD" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_SD";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2005_SD".SD[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2005_SD".SD[#for_i].Config_GrupoAlarma < 0 THEN
"DB2005_SD".SD[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2005_SD".SD[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2005_SD".SD[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2005_SD".SD[#for_i].Estado_AutoMan THEN
"DB2005_SD".Agrup["DB2005_SD".SD[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2005_SD".SD[#for_i].Orden_ActivarManual AND #SeguridadesOK AND "DB2005_SD".SD[#for_i].Estado_SeguridadOk THEN // En caso de enclavar válvula en manual AND NOT "DB2005_SD".SD[#for_i].Estado_Enclavado
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
"DB2005_SD".SD[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2005_SD".SD[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2005_SD".SD[#for_i].Estado_AutoMan THEN
IF "DB2005_SD".SD[#for_i].Orden_ActivarAuto AND #SeguridadesOK AND "DB2005_SD".SD[#for_i].Estado_SeguridadOk AND NOT "DB2005_SD".SD[#for_i].Estado_Enclavado THEN
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
END_IF;
"DB2005_SD".SD[#for_i].Orden_ActivarManual := "DB2005_SD".SD[#for_i].Estado_Activado;
END_IF;
// Reset orden auto
"DB2005_SD".SD[#for_i].Orden_ActivarAuto := FALSE;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// SALIDA SIMULADA
IF #Simulacion THEN
IF #t_Activar THEN
"DB2005_SD".SD[#for_i].Estado_Activado := TRUE;
ELSE
"DB2005_SD".SD[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
IF NOT "DB2005_SD".SD[#for_i].Estado_AutoMan AND NOT #Simulacion THEN
// =============================================================================
// RETARDO A LA ACTIVACIÓN AUTOMÁTICO
IF #t_Activar AND "DB2005_SD".SD[#for_i].Config_HabilitarRetardoAct THEN
IF #Pulso1seg AND "DB2005_SD".SD[#for_i].Tiempos_TiempoAct < "DB2005_SD".SD[#for_i].Tiempos_SetPointTiempoAct THEN
"DB2005_SD".SD[#for_i].Tiempos_TiempoAct += 1;
END_IF;
IF "DB2005_SD".SD[#for_i].Tiempos_TiempoAct >= "DB2005_SD".SD[#for_i].Tiempos_SetPointTiempoAct THEN
#t_ActivarConRetardo := TRUE;
ELSE
#t_ActivarConRetardo := FALSE;
END_IF;
ELSIF #t_Activar THEN
#t_ActivarConRetardo := TRUE;
ELSE
"DB2005_SD".SD[#for_i].Tiempos_TiempoAct := 0;
END_IF;
// =============================================================================
// RETARDO A LA DESACTIVACIÓN AUTOMÁTICO
IF NOT #t_Activar AND "DB2005_SD".SD[#for_i].Config_HabilitarRetardoDes THEN
IF #Pulso1seg AND "DB2005_SD".SD[#for_i].Tiempos_TiempoDes < "DB2005_SD".SD[#for_i].Tiempos_SetPointTiempoDes THEN
"DB2005_SD".SD[#for_i].Tiempos_TiempoDes += 1;
END_IF;
IF "DB2005_SD".SD[#for_i].Tiempos_TiempoDes >= "DB2005_SD".SD[#for_i].Tiempos_SetPointTiempoDes THEN
#t_ActivarConRetardo := FALSE;
ELSE
#t_ActivarConRetardo := TRUE;
END_IF;
ELSIF NOT #t_Activar THEN
#t_ActivarConRetardo := FALSE;
ELSE
"DB2005_SD".SD[#for_i].Tiempos_TiempoDes := 0;
END_IF;
ELSE
#t_ActivarConRetardo := #t_Activar;
END_IF;
// Estado activado
"DB2005_SD".SD[#for_i].Estado_Activado := #t_ActivarConRetardo;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION ESCRITURA_SALIDA
// =============================================================================
// INVERSION DE LA SALIDA
IF "DB2005_SD".SD[#for_i].Config_HabilitarInvertir THEN
#t_ActivarConRetardo := NOT #t_ActivarConRetardo;
END_IF;
CASE "DB2005_SD".SD[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA VALORES DE LA TARJETA
IF "DB2005_SD".SD[#for_i].Config_DireccionSalidaByte >= 0 THEN
IF #t_ActivarConRetardo THEN
"DB2005_SD".SD[#for_i].Estado_Salida := TRUE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2005_SD".SD[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2005_SD".SD[#for_i].Config_DireccionSalidaBit,
value := TRUE);
ELSE
"DB2005_SD".SD[#for_i].Estado_Salida := FALSE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2005_SD".SD[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2005_SD".SD[#for_i].Config_DireccionSalidaBit,
value := FALSE);
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
IF #t_ActivarConRetardo THEN
"DB2005_SD".SD[#for_i].Estado_Salida := TRUE;
ELSE
"DB2005_SD".SD[#for_i].Estado_Salida := FALSE;
END_IF;
END_CASE;
END_REGION ESCRITURA_SALIDA
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2005_SD".SD[#for_i].Orden_ActivarAuto := FALSE;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2005_SD".SD[#for_i].Estado_AutoMan AND NOT "DB2005_SD".SD[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_12_DISP_SD",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SD",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2005_SD".SD[#for_i].Estado_AutoMan AND "DB2005_SD".SD[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_12_DISP_SD",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SD",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2005_SD".SD[#for_i].Estado_AutoMan AND "DB2005_SD".SD[#for_i].Estado_Activado AND NOT "DB2005_SD".SD[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_12_DISP_SD",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SD",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2005_SD".SD[#for_i].Estado_AutoMan AND NOT "DB2005_SD".SD[#for_i].Estado_Activado AND "DB2005_SD".SD[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_12_DISP_SD",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SD",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2005_SD".SD[#for_i].Aux_oldAutoMan := "DB2005_SD".SD[#for_i].Estado_AutoMan;
"DB2005_SD".SD[#for_i].Aux_oldActivado := "DB2005_SD".SD[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO DESHABILITADO
// =============================================================================
"DB2005_SD".SD[#for_i].Estado_Activado := FALSE;
"DB2005_SD".SD[#for_i].Estado_AutoMan := FALSE;
"DB2005_SD".SD[#for_i].Estado_Enclavado := FALSE;
"DB2005_SD".SD[#for_i].Estado_Salida := FALSE;
"DB2005_SD".SD[#for_i].Tiempos_TiempoAct := 0;
"DB2005_SD".SD[#for_i].Tiempos_TiempoDes := 0;
"DB2005_SD".SD[#for_i].Orden_ActivarManual := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2005_SD".SD[#for_i].Hmi_Estado.%X0 := "DB2005_SD".SD[#for_i].Config_Habilitar;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X1 := "DB2005_SD".SD[#for_i].Estado_AutoMan;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X2 := "DB2005_SD".SD[#for_i].Estado_Enclavado;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X3 := "DB2005_SD".SD[#for_i].Estado_Activado;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X8 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X13 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION
END_FOR;
END_REGION
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2005_ZC_SD.s7res
+19
View File
@@ -0,0 +1,19 @@
MultiLingualTexts:
- id: MLC_3pw
es-ES: FC2005_SD
- id: MLC_4ii
es-ES: Modelo de dispositivo salida digital
- id: MLC_36J
es-ES: Pulso de 1 segundo
- id: MLC_hm
es-ES: Simulacion
- id: MLC_4ik
es-ES: Primer arranque
- id: MLC_4ps
es-ES: Acuse general
- id: MLC_3d4
es-ES: Seguridades Ok
- id: MLC_4tF
es-ES: Usuario actual
- id: MLC_4ph
es-ES: Fecha y hora actual
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2005_ZC_SD.scl
-411
View File
@@ -1,411 +0,0 @@
FUNCTION "FC2005_ZC_SD" : Void
TITLE = FC2005_SD
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Modelo de dispositivo salida digital
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
Simulacion : Bool; // Simulacion
Arranque : Bool; // Primer arranque
Ack : Bool; // Acuse general
SeguridadesOK : Bool; // Seguridades Ok
UsuarioActual : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_ActivarConRetardo : Bool;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Salida Digital.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona la orden de activacion y activacion retardada
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 26.04.2022 | (HCR) | Primera version. Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. |
| 00.00.02 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.03 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones |
| 00.00.03 | 08.11.2022 | (HCR) | Se añade trazabilidad de activación manual |
| 00.00.04 | 20.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.05 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado Se añade movimiento de ED[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.07 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.08 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.09 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.10 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.11 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 00.00.12 | 14.05.2026 | (ABH) | Se modifica UDT para añadir tipo de lectura. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. Se corrigen logicas de activacion y se añade variable "Estado_Salida". |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2005_SD".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2005_SD".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2005_SD".NumDispositivos := "N_MAX_DISP_SD";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_SD" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_SD";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2005_SD".SD[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2005_SD".SD[#for_i].Config_GrupoAlarma < 0 THEN
"DB2005_SD".SD[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2005_SD".SD[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2005_SD".SD[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2005_SD".SD[#for_i].Estado_AutoMan THEN
"DB2005_SD".Agrup["DB2005_SD".SD[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2005_SD".SD[#for_i].Orden_ActivarManual AND #SeguridadesOK AND "DB2005_SD".SD[#for_i].Estado_SeguridadOk THEN // En caso de enclavar válvula en manual AND NOT "DB2005_SD".SD[#for_i].Estado_Enclavado
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
"DB2005_SD".SD[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2005_SD".SD[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2005_SD".SD[#for_i].Estado_AutoMan THEN
IF "DB2005_SD".SD[#for_i].Orden_ActivarAuto AND #SeguridadesOK AND "DB2005_SD".SD[#for_i].Estado_SeguridadOk AND NOT "DB2005_SD".SD[#for_i].Estado_Enclavado THEN
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
END_IF;
"DB2005_SD".SD[#for_i].Orden_ActivarManual := "DB2005_SD".SD[#for_i].Estado_Activado;
END_IF;
// Reset orden auto
"DB2005_SD".SD[#for_i].Orden_ActivarAuto := FALSE;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// SALIDA SIMULADA
IF #Simulacion THEN
IF #t_Activar THEN
"DB2005_SD".SD[#for_i].Estado_Activado := TRUE;
ELSE
"DB2005_SD".SD[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
IF NOT "DB2005_SD".SD[#for_i].Estado_AutoMan AND NOT #Simulacion THEN
// =============================================================================
// RETARDO A LA ACTIVACIÓN AUTOMÁTICO
IF #t_Activar AND "DB2005_SD".SD[#for_i].Config_HabilitarRetardoAct THEN
IF #Pulso1seg AND "DB2005_SD".SD[#for_i].Tiempos_TiempoAct < "DB2005_SD".SD[#for_i].Tiempos_SetPointTiempoAct THEN
"DB2005_SD".SD[#for_i].Tiempos_TiempoAct += 1;
END_IF;
IF "DB2005_SD".SD[#for_i].Tiempos_TiempoAct >= "DB2005_SD".SD[#for_i].Tiempos_SetPointTiempoAct THEN
#t_ActivarConRetardo := TRUE;
ELSE
#t_ActivarConRetardo := FALSE;
END_IF;
ELSIF #t_Activar THEN
#t_ActivarConRetardo := TRUE;
ELSE
"DB2005_SD".SD[#for_i].Tiempos_TiempoAct := 0;
END_IF;
// =============================================================================
// RETARDO A LA DESACTIVACIÓN AUTOMÁTICO
IF NOT #t_Activar AND "DB2005_SD".SD[#for_i].Config_HabilitarRetardoDes THEN
IF #Pulso1seg AND "DB2005_SD".SD[#for_i].Tiempos_TiempoDes < "DB2005_SD".SD[#for_i].Tiempos_SetPointTiempoDes THEN
"DB2005_SD".SD[#for_i].Tiempos_TiempoDes += 1;
END_IF;
IF "DB2005_SD".SD[#for_i].Tiempos_TiempoDes >= "DB2005_SD".SD[#for_i].Tiempos_SetPointTiempoDes THEN
#t_ActivarConRetardo := FALSE;
ELSE
#t_ActivarConRetardo := TRUE;
END_IF;
ELSIF NOT #t_Activar THEN
#t_ActivarConRetardo := FALSE;
ELSE
"DB2005_SD".SD[#for_i].Tiempos_TiempoDes := 0;
END_IF;
ELSE
#t_ActivarConRetardo := #t_Activar;
END_IF;
// Estado activado
"DB2005_SD".SD[#for_i].Estado_Activado := #t_ActivarConRetardo;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION ESCRITURA_SALIDA
// =============================================================================
// INVERSION DE LA SALIDA
IF "DB2005_SD".SD[#for_i].Config_HabilitarInvertir THEN
#t_ActivarConRetardo := NOT #t_ActivarConRetardo;
END_IF;
CASE "DB2005_SD".SD[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA VALORES DE LA TARJETA
IF "DB2005_SD".SD[#for_i].Config_DireccionSalidaByte >= 0 THEN
IF #t_ActivarConRetardo THEN
"DB2005_SD".SD[#for_i].Estado_Salida := TRUE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2005_SD".SD[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2005_SD".SD[#for_i].Config_DireccionSalidaBit,
value := TRUE);
ELSE
"DB2005_SD".SD[#for_i].Estado_Salida := FALSE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2005_SD".SD[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2005_SD".SD[#for_i].Config_DireccionSalidaBit,
value := FALSE);
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
IF #t_ActivarConRetardo THEN
"DB2005_SD".SD[#for_i].Estado_Salida := TRUE;
ELSE
"DB2005_SD".SD[#for_i].Estado_Salida := FALSE;
END_IF;
END_CASE;
END_REGION ESCRITURA_SALIDA
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2005_SD".SD[#for_i].Orden_ActivarAuto := FALSE;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2005_SD".SD[#for_i].Estado_AutoMan AND NOT "DB2005_SD".SD[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_12_DISP_SD",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SD",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2005_SD".SD[#for_i].Estado_AutoMan AND "DB2005_SD".SD[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_12_DISP_SD",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SD",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2005_SD".SD[#for_i].Estado_AutoMan AND "DB2005_SD".SD[#for_i].Estado_Activado AND NOT "DB2005_SD".SD[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_12_DISP_SD",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SD",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2005_SD".SD[#for_i].Estado_AutoMan AND NOT "DB2005_SD".SD[#for_i].Estado_Activado AND "DB2005_SD".SD[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_12_DISP_SD",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SD",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2005_SD".SD[#for_i].Aux_oldAutoMan := "DB2005_SD".SD[#for_i].Estado_AutoMan;
"DB2005_SD".SD[#for_i].Aux_oldActivado := "DB2005_SD".SD[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO DESHABILITADO
// =============================================================================
"DB2005_SD".SD[#for_i].Estado_Activado := FALSE;
"DB2005_SD".SD[#for_i].Estado_AutoMan := FALSE;
"DB2005_SD".SD[#for_i].Estado_Enclavado := FALSE;
"DB2005_SD".SD[#for_i].Estado_Salida := FALSE;
"DB2005_SD".SD[#for_i].Tiempos_TiempoAct := 0;
"DB2005_SD".SD[#for_i].Tiempos_TiempoDes := 0;
"DB2005_SD".SD[#for_i].Orden_ActivarManual := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2005_SD".SD[#for_i].Hmi_Estado.%X0 := "DB2005_SD".SD[#for_i].Config_Habilitar;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X1 := "DB2005_SD".SD[#for_i].Estado_AutoMan;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X2 := "DB2005_SD".SD[#for_i].Estado_Enclavado;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X3 := "DB2005_SD".SD[#for_i].Estado_Activado;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X8 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X13 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2005_SD".SD[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION
END_FOR;
END_REGION
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2006_ZC_SA.s7dcl
+483
View File
@@ -0,0 +1,483 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_4mj";
S7_BlockNumber := "2006";
S7_BlockTitle := "MLC_fU";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2006_ZC_SA" : Void
VAR_INPUT
{ S7_MLC := "MLC_4bz" }
Ack : Bool;
{ S7_MLC := "MLC_3tt" }
SeguridadesOK : Bool;
{ S7_MLC := "MLC_593" }
UsuarioActual : String;
{ S7_MLC := "MLC_Ld" }
FechaHoraActual : DTL;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_X0 : Real;
t_X1 : Real;
t_Y0 : Real;
t_Y1 : Real;
X : Real;
t_ValorSalida : Real;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Salida Analogica.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.00 | 15.10.2020 | (ABH) | Primera version. |
| 00.00.01 | 06.05.2021 | (ABH) | Añadido bit de enclavamiento. Cuando Estado_Enclavado este a TRUE, la salida tiene el valor de Config_ConsignaEnclavado. |
| 00.00.02 | 27.07.2021 | (ABH) | Se añade que si la direccion de salida es igual a 0, no realiza ningun calculo ni intenta escribir la salida para que no salten errores. Se añade variable aux para almacenar el mensaje de error, para que a la hora de generar las alarmas se generen adecuadamente. |
| 00.00.03 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. Se gestionan los BITs de visibilidad para Hmi. |
| 00.00.04 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.05 | 28.04.2022 | (HCR) | Se mantiene la salida al pasar a modo manual. |
| 00.00.06 | 29.04.2022 | (HCR) | Cambio del estado de la señal por prioridades. Cambio de las condiciones de para error de configuración, poniendo parámetros de ingenería y de tarjeta. Cambio en Alarmas. |
| 00.00.07 | 17.05.2022 | (BRM) | Cambio en escritura canal - Funcion POKE area: 16#82 para CPU 1200. |
| 00.00.08 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones. |
| 00.00.09 | 27.07.2023 | (ABH) | Se añade trazabilidad cambio parametros. |
| 00.00.10 | 18.09.2023 | (ABH) | Se añade reset de valor SP auto al final de la gestion del dispositivo. |
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado. Se añade movimiento de SA[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.12 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.13 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.14 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.15 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.16 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT.Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 09.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2006_SA".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2006_SA".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2006_SA".NumDispositivos := "N_MAX_DISP_SA";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_SA" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_SA";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2006_SA".SA[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2006_SA".SA[#for_i].Config_GrupoAlarma < 0 THEN
"DB2006_SA".SA[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2006_SA".SA[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2006_SA".SA[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2006_SA".SA[#for_i].Estado_AutoMan THEN
"DB2006_SA".Agrup["DB2006_SA".SA[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
"DB2006_SA".SA[#for_i].Estado_ValorActual := "DB2006_SA".SA[#for_i].Orden_ConsignaManual;
ELSE
"DB2006_SA".SA[#for_i].Estado_ValorActual := "DB2006_SA".SA[#for_i].Orden_ConsignaAuto;
"DB2006_SA".SA[#for_i].Orden_ConsignaManual := "DB2006_SA".SA[#for_i].Orden_ConsignaAuto;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ERRORES
// =============================================================================
// LIMITE INFERIOR
IF "DB2006_SA".SA[#for_i].Estado_ValorActual <= "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria THEN
"DB2006_SA".SA[#for_i].Estado_ValorActual := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
END_IF;
// =============================================================================
// LIMITE SUPERIOR
IF "DB2006_SA".SA[#for_i].Estado_ValorActual >= "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria THEN
"DB2006_SA".SA[#for_i].Estado_ValorActual := "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria;
END_IF;
// =============================================================================
// ERROR MÍNIMO
IF "DB2006_SA".SA[#for_i].Config_HabilitarAlarmaMin AND
"DB2006_SA".SA[#for_i].Estado_ValorActual < "DB2006_SA".SA[#for_i].Config_ErrorMinIngenieria THEN
"DB2006_SA".SA[#for_i].Alarmas_Min := TRUE;
ELSE
"DB2006_SA".SA[#for_i].Alarmas_Min := FALSE;
END_IF;
// =============================================================================
// ERROR MÁXIMO
IF "DB2006_SA".SA[#for_i].Config_HabilitarAlarmaMax AND
"DB2006_SA".SA[#for_i].Estado_ValorActual > "DB2006_SA".SA[#for_i].Config_ErrorMaxIngenieria THEN
"DB2006_SA".SA[#for_i].Alarmas_Max := TRUE;
ELSE
"DB2006_SA".SA[#for_i].Alarmas_Max := FALSE;
END_IF;
END_REGION ERRORES
REGION SALIDA
IF NOT "DB2006_SA".SA[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2006_SA".SA[#for_i].Estado_SeguridadOk THEN
// =============================================================================
// CONVERSIÓN DE VALORES
#t_Y0 := INT_TO_REAL("DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta);
#t_Y1 := INT_TO_REAL("DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta);
#X := "DB2006_SA".SA[#for_i].Estado_ValorActual;
#t_X0 := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
#t_X1 := "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria;
// =============================================================================
// ESCALADO Y = (X-x0)*((y1-y0)/(x1-x0)) + y0
IF "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria > "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria AND
"DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta > "DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta THEN
#t_ValorSalida := ((#X - #t_X0) * ((#t_Y1 - #t_Y0) / (#t_X1 - #t_X0))) + #t_Y0;
"DB2006_SA".SA[#for_i].Alarmas_Parametros := FALSE;
#t_ValorSalida := #t_ValorSalida + "DB2006_SA".SA[#for_i].Config_EscaladoOffset;
ELSE
#t_ValorSalida := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
"DB2006_SA".SA[#for_i].Alarmas_Parametros := TRUE;
END_IF;
ELSE
// =============================================================================
// AJUSTE LIMITES CONSIGNA ENCLAVADO
IF "DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado > "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria THEN
"DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado := "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria;
END_IF;
IF "DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado < "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria THEN
"DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
END_IF;
// =============================================================================
// ESCRITURA SALIDA ENCLAVADA
// =============================================================================
// CONVERSIÓN DE VALORES
#t_Y0 := INT_TO_REAL("DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta);
#t_Y1 := INT_TO_REAL("DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta);
#X := "DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado;
#t_X0 := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
#t_X1 := "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria;
// =============================================================================
// ESCALADO Y = (X-x0)*((y1-y0)/(x1-x0)) + y0
IF "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria > "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria AND
"DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta > "DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta THEN
#t_ValorSalida := ((#X - #t_X0) * ((#t_Y1 - #t_Y0) / (#t_X1 - #t_X0))) + #t_Y0;
"DB2006_SA".SA[#for_i].Alarmas_Parametros := FALSE;
ELSE
#t_ValorSalida := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
"DB2006_SA".SA[#for_i].Alarmas_Parametros := TRUE;
END_IF;
END_IF;
REGION ESCRITURA_SALIDA
CASE "DB2006_SA".SA[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA DEL CANAL - POKE (area) 16#2 para CPU 1500 ; 16#82 para CPU 1200
IF "DB2006_SA".SA[#for_i].Config_DireccionSalidaByte > 0 THEN
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := REAL_TO_INT(#t_ValorSalida);
POKE(area := 16#82,
dbNumber := 0,
byteOffset := "DB2006_SA".SA[#for_i].Config_DireccionSalidaByte,
value := INT_TO_WORD("DB2006_SA".SA[#for_i].Estado_ValorTarjeta));
"DB2006_SA".SA[#for_i].Estado_Escritura := GET_ERR_ID();
IF "DB2006_SA".SA[#for_i].Estado_Escritura <> 0 THEN
"DB2006_SA".SA[#for_i].Alarmas_Escritura := TRUE;
ELSE
"DB2006_SA".SA[#for_i].Alarmas_Escritura := FALSE;
END_IF;
ELSE
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := 0;
END_IF;
#TIPO_ACCESO_PLC:
// =============================================================================
// ESCRITURA VALORES DE LA TARJETA
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := REAL_TO_INT(#t_ValorSalida);
END_CASE;
END_REGION ESCRITURA_SALIDA
END_REGION SALIDA
REGION ESTADO
// Señal normal
"DB2006_SA".SA[#for_i].Aux_Estado := 1;
// Límites alcanzados
IF "DB2006_SA".SA[#for_i].Estado_ValorActual < "DB2006_SA".SA[#for_i].Config_ErrorMinIngenieria AND
"DB2006_SA".SA[#for_i].Config_HabilitarAlarmaMin THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 4;
END_IF;
// Límites alcanzados
IF "DB2006_SA".SA[#for_i].Estado_ValorActual >= "DB2006_SA".SA[#for_i].Config_ErrorMaxIngenieria AND
"DB2006_SA".SA[#for_i].Config_HabilitarAlarmaMax THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 5;
END_IF;
// Señal forzada
IF "DB2006_SA".SA[#for_i].Estado_AutoMan THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 2;
END_IF;
// Enclavado
IF "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria > "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria AND
"DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta > "DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta AND
"DB2006_SA".SA[#for_i].Estado_Enclavado THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 9;
END_IF;
// Error parametros
IF "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria <= "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria OR
"DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta <= "DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 6;
END_IF;
// Error de escritura
IF "DB2006_SA".SA[#for_i].Estado_Escritura <> 0 THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 10;
END_IF;
// SA no direccionada
IF "DB2006_SA".SA[#for_i].Config_DireccionSalidaByte <= 0 THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 8;
END_IF;
END_REGION
"DB2006_SA".SA[#for_i].Alarmas_General := FALSE;
IF "DB2006_SA".SA[#for_i].Alarmas_Max OR
"DB2006_SA".SA[#for_i].Alarmas_Min OR
"DB2006_SA".SA[#for_i].Alarmas_Parametros OR
"DB2006_SA".SA[#for_i].Alarmas_Escritura
THEN
"DB2006_SA".Agrup["DB2006_SA".SA[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
"DB2006_SA".SA[#for_i].Alarmas_General := TRUE;
END_IF;
REGION TRAZABILIDAD
IF "DB2006_SA".SA[#for_i].Estado_AutoMan AND NOT "DB2006_SA".SA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_13_DISP_SA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2006_SA".SA[#for_i].Estado_AutoMan AND "DB2006_SA".SA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_13_DISP_SA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2006_SA".SA[#for_i].Aux_oldAutoMan := "DB2006_SA".SA[#for_i].Estado_AutoMan;
// =============================================================================
// Reset de orden automatica
"DB2006_SA".SA[#for_i].Orden_ConsignaAuto := 0.0;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := 0;
"DB2006_SA".SA[#for_i].Hmi_Estado := 0; // Canal deshabilitado
"DB2006_SA".SA[#for_i].Estado_ValorActual := 0.0;
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := 0;
"DB2006_SA".SA[#for_i].Orden_ConsignaAuto := 0.0;
"DB2006_SA".SA[#for_i].Orden_ConsignaManual := 0.0;
"DB2006_SA".SA[#for_i].Estado_AutoMan := FALSE;
"DB2006_SA".SA[#for_i].Alarmas_General := FALSE;
"DB2006_SA".SA[#for_i].Alarmas_Max := FALSE;
"DB2006_SA".SA[#for_i].Alarmas_Min := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Reserva
// Bit 3 Reserva
// Bit 4 Enclavado
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma 5
// Bit 14 Reserva
// Bit 15 Reserva
"DB2006_SA".SA[#for_i].Hmi_Estado.%X0 := "DB2006_SA".SA[#for_i].Config_Habilitar;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X1 := "DB2006_SA".SA[#for_i].Estado_AutoMan;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X2 := "DB2006_SA".SA[#for_i].Estado_Enclavado;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X3 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X8 := "DB2006_SA".SA[#for_i].Alarmas_General;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X13 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2006_SA".SA[#for_i].Alarmas_General AND NOT "DB2006_SA".SA[#for_i].Aux_oldAlarma THEN
"DB2006_SA".Agrup["DB2006_SA".SA[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2006_SA".SA[#for_i].Aux_oldAlarma := "DB2006_SA".SA[#for_i].Alarmas_General;
END_REGION
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2006_SA".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2006_ZC_SA.s7res
+13
View File
@@ -0,0 +1,13 @@
MultiLingualTexts:
- id: MLC_fU
es-ES: FC2006_SA
- id: MLC_4mj
es-ES: Modelo de dispositivo salida analogica
- id: MLC_4bz
es-ES: Acuse general
- id: MLC_3tt
es-ES: Seguridades Ok
- id: MLC_593
es-ES: Usuario actual
- id: MLC_Ld
es-ES: Fecha y hora actual
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2006_ZC_SA.scl
-477
View File
@@ -1,477 +0,0 @@
FUNCTION "FC2006_ZC_SA" : Void
TITLE = FC2006_SA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Modelo de dispositivo salida analogica
VAR_INPUT
Ack : Bool; // Acuse general
SeguridadesOK : Bool; // Seguridades Ok
UsuarioActual : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_X0 : Real;
t_X1 : Real;
t_Y0 : Real;
t_Y1 : Real;
X : Real;
t_ValorSalida : Real;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Salida Analogica.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.00 | 15.10.2020 | (ABH) | Primera version. |
| 00.00.01 | 06.05.2021 | (ABH) | Añadido bit de enclavamiento. Cuando Estado_Enclavado este a TRUE, la salida tiene el valor de Config_ConsignaEnclavado. |
| 00.00.02 | 27.07.2021 | (ABH) | Se añade que si la direccion de salida es igual a 0, no realiza ningun calculo ni intenta escribir la salida para que no salten errores. Se añade variable aux para almacenar el mensaje de error, para que a la hora de generar las alarmas se generen adecuadamente. |
| 00.00.03 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. Se gestionan los BITs de visibilidad para Hmi. |
| 00.00.04 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.05 | 28.04.2022 | (HCR) | Se mantiene la salida al pasar a modo manual. |
| 00.00.06 | 29.04.2022 | (HCR) | Cambio del estado de la señal por prioridades. Cambio de las condiciones de para error de configuración, poniendo parámetros de ingenería y de tarjeta. Cambio en Alarmas. |
| 00.00.07 | 17.05.2022 | (BRM) | Cambio en escritura canal - Funcion POKE area: 16#82 para CPU 1200. |
| 00.00.08 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones. |
| 00.00.09 | 27.07.2023 | (ABH) | Se añade trazabilidad cambio parametros. |
| 00.00.10 | 18.09.2023 | (ABH) | Se añade reset de valor SP auto al final de la gestion del dispositivo. |
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado. Se añade movimiento de SA[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.12 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.13 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.14 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.15 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.16 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT.Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 09.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2006_SA".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2006_SA".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2006_SA".NumDispositivos := "N_MAX_DISP_SA";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_SA" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_SA";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2006_SA".SA[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2006_SA".SA[#for_i].Config_GrupoAlarma < 0 THEN
"DB2006_SA".SA[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2006_SA".SA[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2006_SA".SA[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2006_SA".SA[#for_i].Estado_AutoMan THEN
"DB2006_SA".Agrup["DB2006_SA".SA[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
"DB2006_SA".SA[#for_i].Estado_ValorActual := "DB2006_SA".SA[#for_i].Orden_ConsignaManual;
ELSE
"DB2006_SA".SA[#for_i].Estado_ValorActual := "DB2006_SA".SA[#for_i].Orden_ConsignaAuto;
"DB2006_SA".SA[#for_i].Orden_ConsignaManual := "DB2006_SA".SA[#for_i].Orden_ConsignaAuto;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ERRORES
// =============================================================================
// LIMITE INFERIOR
IF "DB2006_SA".SA[#for_i].Estado_ValorActual <= "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria THEN
"DB2006_SA".SA[#for_i].Estado_ValorActual := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
END_IF;
// =============================================================================
// LIMITE SUPERIOR
IF "DB2006_SA".SA[#for_i].Estado_ValorActual >= "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria THEN
"DB2006_SA".SA[#for_i].Estado_ValorActual := "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria;
END_IF;
// =============================================================================
// ERROR MÍNIMO
IF "DB2006_SA".SA[#for_i].Config_HabilitarAlarmaMin AND
"DB2006_SA".SA[#for_i].Estado_ValorActual < "DB2006_SA".SA[#for_i].Config_ErrorMinIngenieria THEN
"DB2006_SA".SA[#for_i].Alarmas_Min := TRUE;
ELSE
"DB2006_SA".SA[#for_i].Alarmas_Min := FALSE;
END_IF;
// =============================================================================
// ERROR MÁXIMO
IF "DB2006_SA".SA[#for_i].Config_HabilitarAlarmaMax AND
"DB2006_SA".SA[#for_i].Estado_ValorActual > "DB2006_SA".SA[#for_i].Config_ErrorMaxIngenieria THEN
"DB2006_SA".SA[#for_i].Alarmas_Max := TRUE;
ELSE
"DB2006_SA".SA[#for_i].Alarmas_Max := FALSE;
END_IF;
END_REGION ERRORES
REGION SALIDA
IF NOT "DB2006_SA".SA[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2006_SA".SA[#for_i].Estado_SeguridadOk THEN
// =============================================================================
// CONVERSIÓN DE VALORES
#t_Y0 := INT_TO_REAL("DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta);
#t_Y1 := INT_TO_REAL("DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta);
#X := "DB2006_SA".SA[#for_i].Estado_ValorActual;
#t_X0 := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
#t_X1 := "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria;
// =============================================================================
// ESCALADO Y = (X-x0)*((y1-y0)/(x1-x0)) + y0
IF "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria > "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria AND
"DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta > "DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta THEN
#t_ValorSalida := ((#X - #t_X0) * ((#t_Y1 - #t_Y0) / (#t_X1 - #t_X0))) + #t_Y0;
"DB2006_SA".SA[#for_i].Alarmas_Parametros := FALSE;
#t_ValorSalida := #t_ValorSalida + "DB2006_SA".SA[#for_i].Config_EscaladoOffset;
ELSE
#t_ValorSalida := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
"DB2006_SA".SA[#for_i].Alarmas_Parametros := TRUE;
END_IF;
ELSE
// =============================================================================
// AJUSTE LIMITES CONSIGNA ENCLAVADO
IF "DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado > "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria THEN
"DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado := "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria;
END_IF;
IF "DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado < "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria THEN
"DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
END_IF;
// =============================================================================
// ESCRITURA SALIDA ENCLAVADA
// =============================================================================
// CONVERSIÓN DE VALORES
#t_Y0 := INT_TO_REAL("DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta);
#t_Y1 := INT_TO_REAL("DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta);
#X := "DB2006_SA".SA[#for_i].Orden_ConsignaEnclavado;
#t_X0 := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
#t_X1 := "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria;
// =============================================================================
// ESCALADO Y = (X-x0)*((y1-y0)/(x1-x0)) + y0
IF "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria > "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria AND
"DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta > "DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta THEN
#t_ValorSalida := ((#X - #t_X0) * ((#t_Y1 - #t_Y0) / (#t_X1 - #t_X0))) + #t_Y0;
"DB2006_SA".SA[#for_i].Alarmas_Parametros := FALSE;
ELSE
#t_ValorSalida := "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria;
"DB2006_SA".SA[#for_i].Alarmas_Parametros := TRUE;
END_IF;
END_IF;
REGION ESCRITURA_SALIDA
CASE "DB2006_SA".SA[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA DEL CANAL - POKE (area) 16#2 para CPU 1500 ; 16#82 para CPU 1200
IF "DB2006_SA".SA[#for_i].Config_DireccionSalidaByte > 0 THEN
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := REAL_TO_INT(#t_ValorSalida);
POKE(area := 16#82,
dbNumber := 0,
byteOffset := "DB2006_SA".SA[#for_i].Config_DireccionSalidaByte,
value := INT_TO_WORD("DB2006_SA".SA[#for_i].Estado_ValorTarjeta));
"DB2006_SA".SA[#for_i].Estado_Escritura := GET_ERR_ID();
IF "DB2006_SA".SA[#for_i].Estado_Escritura <> 0 THEN
"DB2006_SA".SA[#for_i].Alarmas_Escritura := TRUE;
ELSE
"DB2006_SA".SA[#for_i].Alarmas_Escritura := FALSE;
END_IF;
ELSE
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := 0;
END_IF;
#TIPO_ACCESO_PLC:
// =============================================================================
// ESCRITURA VALORES DE LA TARJETA
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := REAL_TO_INT(#t_ValorSalida);
END_CASE;
END_REGION ESCRITURA_SALIDA
END_REGION SALIDA
REGION ESTADO
// Señal normal
"DB2006_SA".SA[#for_i].Aux_Estado := 1;
// Límites alcanzados
IF "DB2006_SA".SA[#for_i].Estado_ValorActual < "DB2006_SA".SA[#for_i].Config_ErrorMinIngenieria AND
"DB2006_SA".SA[#for_i].Config_HabilitarAlarmaMin THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 4;
END_IF;
// Límites alcanzados
IF "DB2006_SA".SA[#for_i].Estado_ValorActual >= "DB2006_SA".SA[#for_i].Config_ErrorMaxIngenieria AND
"DB2006_SA".SA[#for_i].Config_HabilitarAlarmaMax THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 5;
END_IF;
// Señal forzada
IF "DB2006_SA".SA[#for_i].Estado_AutoMan THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 2;
END_IF;
// Enclavado
IF "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria > "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria AND
"DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta > "DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta AND
"DB2006_SA".SA[#for_i].Estado_Enclavado THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 9;
END_IF;
// Error parametros
IF "DB2006_SA".SA[#for_i].Config_EscaladoMaxIngenieria <= "DB2006_SA".SA[#for_i].Config_EscaladoMinIngenieria OR
"DB2006_SA".SA[#for_i].Config_EscaladoMaxTarjeta <= "DB2006_SA".SA[#for_i].Config_EscaladoMinTarjeta THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 6;
END_IF;
// Error de escritura
IF "DB2006_SA".SA[#for_i].Estado_Escritura <> 0 THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 10;
END_IF;
// SA no direccionada
IF "DB2006_SA".SA[#for_i].Config_DireccionSalidaByte <= 0 THEN
"DB2006_SA".SA[#for_i].Aux_Estado := 8;
END_IF;
END_REGION
"DB2006_SA".SA[#for_i].Alarmas_General := FALSE;
IF "DB2006_SA".SA[#for_i].Alarmas_Max OR
"DB2006_SA".SA[#for_i].Alarmas_Min OR
"DB2006_SA".SA[#for_i].Alarmas_Parametros OR
"DB2006_SA".SA[#for_i].Alarmas_Escritura
THEN
"DB2006_SA".Agrup["DB2006_SA".SA[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
"DB2006_SA".SA[#for_i].Alarmas_General := TRUE;
END_IF;
REGION TRAZABILIDAD
IF "DB2006_SA".SA[#for_i].Estado_AutoMan AND NOT "DB2006_SA".SA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_13_DISP_SA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2006_SA".SA[#for_i].Estado_AutoMan AND "DB2006_SA".SA[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_13_DISP_SA",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_SA",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2006_SA".SA[#for_i].Aux_oldAutoMan := "DB2006_SA".SA[#for_i].Estado_AutoMan;
// =============================================================================
// Reset de orden automatica
"DB2006_SA".SA[#for_i].Orden_ConsignaAuto := 0.0;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := 0;
"DB2006_SA".SA[#for_i].Hmi_Estado := 0; // Canal deshabilitado
"DB2006_SA".SA[#for_i].Estado_ValorActual := 0.0;
"DB2006_SA".SA[#for_i].Estado_ValorTarjeta := 0;
"DB2006_SA".SA[#for_i].Orden_ConsignaAuto := 0.0;
"DB2006_SA".SA[#for_i].Orden_ConsignaManual := 0.0;
"DB2006_SA".SA[#for_i].Estado_AutoMan := FALSE;
"DB2006_SA".SA[#for_i].Alarmas_General := FALSE;
"DB2006_SA".SA[#for_i].Alarmas_Max := FALSE;
"DB2006_SA".SA[#for_i].Alarmas_Min := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Reserva
// Bit 3 Reserva
// Bit 4 Enclavado
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma 5
// Bit 14 Reserva
// Bit 15 Reserva
"DB2006_SA".SA[#for_i].Hmi_Estado.%X0 := "DB2006_SA".SA[#for_i].Config_Habilitar;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X1 := "DB2006_SA".SA[#for_i].Estado_AutoMan;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X2 := "DB2006_SA".SA[#for_i].Estado_Enclavado;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X3 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X8 := "DB2006_SA".SA[#for_i].Alarmas_General;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X13 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2006_SA".SA[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2006_SA".SA[#for_i].Alarmas_General AND NOT "DB2006_SA".SA[#for_i].Aux_oldAlarma THEN
"DB2006_SA".Agrup["DB2006_SA".SA[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2006_SA".SA[#for_i].Aux_oldAlarma := "DB2006_SA".SA[#for_i].Alarmas_General;
END_REGION
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2006_SA".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2010_ZC_V.s7dcl
+666
View File
@@ -0,0 +1,666 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_44X";
S7_BlockNumber := "2010";
S7_BlockTitle := "MLC_4Pn";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2010_ZC_V" : Void
VAR_INPUT
{ S7_MLC := "MLC_4wv" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_3Ys" }
Simulacion : Bool;
{ S7_MLC := "MLC_4uK" }
Arranque : Bool;
{ S7_MLC := "MLC_r3" }
Ack : Bool;
{ S7_MLC := "MLC_3Ps" }
SeguridadesOK : Bool;
{ S7_MLC := "MLC_4UE" }
UsuarioActual : String;
{ S7_MLC := "MLC_4ub" }
FechaHoraActual : DTL;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_ErrorReposo : Bool;
t_ErrorTrabajo : Bool;
t_ErrorDoble : Bool;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Valvula.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el numero de activaciones
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | `DB1_SYS`, `DB2010_V` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version. |
| 00.00.02 | 28.11.2020 | (ABH) | Añadidas alarmas mantenimiento |
| 00.00.03 | 28.07.2021 | (ABH) | Añadidas alarmas en doble posicion / ninguna posicion |
| 00.00.04 | 22.12.2021 | (ABH) | Añadido bit de visibilidad, a traves de variable CFG_Hmi_ |
| 00.00.05 | 26.04.2022 | (HCR) | Cambio UDT |
| 00.00.06 | 26.04.2022 | (HCR) | BITs de visibilidad para HMI, quitar enclavamiento para orden manual |
| 00.00.07 | 27.04.2022 | (HCR) | Si no esta habilitado se quita orden manual y se quita el estado manual. Se agrega Ack para alarma de confirmación de marcha. Se mantiene el estado de válvula cuando se pasa a manual. Cambio en lógica de errores. Cambio en la escritura de la salida |
| 00.00.08 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones |
| 00.00.09 | 08.11.2022 | (HCR) | Se añade trazabilidad de activación manual |
| 00.00.10 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento |
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado. Se añade movimiento de V[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.13 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.14 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.15 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.16 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.17 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 09.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2010_V".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2010_V".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2010_V".NumDispositivos := "N_MAX_DISP_V";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_V" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_V";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2010_V".V[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2010_V".V[#for_i].Config_GrupoAlarma < 0 THEN
"DB2010_V".V[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2010_V".V[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2010_V".V[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
// =============================================================================
// PUESTA A CERO DE LA SALIDA
#t_Activar := FALSE;
REGION LECTURA_VALORES
CASE "DB2010_V".V[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
(* AREA: Pueden seleccionarse las siguientes áreas: 16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#1: Entrada de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección en la que se lee. Solo se utilizan los 16 bits menos significativos.*)
// =============================================================================
// RETORNO REPOSO
IF "DB2010_V".V[#for_i].Config_DireccionRetReposoByte >= 0 THEN
"DB2010_V".V[#for_i].Estado_EntradaRetornoReposo := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionRetReposoByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionRetReposoBit);
IF "DB2010_V".V[#for_i].Config_HabilitarInvertirReposo THEN
"DB2010_V".V[#for_i].Estado_EntradaRetornoReposo := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionRetReposoByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionRetReposoBit));
END_IF;
END_IF;
// =============================================================================
// RETORNO TRABAJO
IF "DB2010_V".V[#for_i].Config_DireccionRetTrabajoByte >= 0 THEN
"DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionRetTrabajoByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionRetTrabajoBit);
IF "DB2010_V".V[#for_i].Config_HabilitarInvertirTrabajo THEN
"DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionRetTrabajoByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionRetTrabajoBit));
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
;
END_CASE;
END_REGION LECTURA_VALORES
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2010_V".V[#for_i].Estado_AutoMan THEN
"DB2010_V".Agrup["DB2010_V".V[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2010_V".V[#for_i].Orden_ActivarManual AND #SeguridadesOK AND "DB2010_V".V[#for_i].Estado_SeguridadOk THEN // En caso de enclavar válvula en manual AND NOT "DB2035_TMF1_DISP_V".V[#i].Estado_Enclavado
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
"DB2010_V".V[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2010_V".V[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2010_V".V[#for_i].Estado_AutoMan THEN
IF "DB2010_V".V[#for_i].Orden_ActivarAuto AND NOT "DB2010_V".V[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2010_V".V[#for_i].Estado_SeguridadOk THEN
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
END_IF;
"DB2010_V".V[#for_i].Orden_ActivarManual := "DB2010_V".V[#for_i].Estado_Activado;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// VÁLVULA SIMULADA
IF #Simulacion THEN
IF #t_Activar THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// VÁLVULA 2 RETORNOS (REPOSO + TRABAJO)
IF NOT #Simulacion AND
"DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo
THEN
IF "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo AND #t_Activar THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
END_IF;
IF "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo AND NOT #t_Activar THEN
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// VÁLVULA SOLO RETORNO REPOSO
IF NOT #Simulacion AND
"DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND NOT "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo
THEN
IF NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// VÁLVULA SOLO RETORNO TRABAJO
IF NOT #Simulacion AND
NOT "DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo
THEN
IF "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// VÁLVULA SIN RETORNOS
IF NOT #Simulacion AND
NOT "DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND NOT "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo
THEN
IF #t_Activar THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION ERRORES
// =============================================================================
// CHEQUEO RETORNO REPOSO
IF NOT #Simulacion AND
"DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND
(
(#t_Activar AND "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo)
OR
(NOT #t_Activar AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo)
)
THEN
#t_ErrorReposo := TRUE;
ELSE
#t_ErrorReposo := FALSE;
END_IF;
// =============================================================================
// CHEQUEO RETORNO TRABAJO
IF NOT #Simulacion AND
"DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo AND
(
(#t_Activar AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo)
OR
(NOT #t_Activar AND "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo)
)
THEN
#t_ErrorTrabajo := TRUE;
ELSE
#t_ErrorTrabajo := FALSE;
END_IF;
// =============================================================================
// CHEQUEO DOBLE RETORNO EN DOS POSICIONES O EN NINGUNA POSICION
IF NOT #Simulacion AND
("DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo)
AND
(
(NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo)
OR
("DB2010_V".V[#for_i].Estado_EntradaRetornoReposo AND "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo)
)
THEN
#t_ErrorDoble := TRUE;
ELSE
#t_ErrorDoble := FALSE;
END_IF;
// =============================================================================
// TEMPORIZADO DE ERRORES
IF (
("DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND #t_ErrorReposo AND NOT "DB2010_V".V[#for_i].Alarmas_Reposo)
OR
("DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo AND #t_ErrorTrabajo AND NOT "DB2010_V".V[#for_i].Alarmas_Trabajo)
OR
("DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo AND #t_ErrorDoble AND NOT "DB2010_V".V[#for_i].Alarmas_Doble)
)
THEN
IF #Pulso1seg AND NOT #Simulacion THEN
"DB2010_V".V[#for_i].Tiempos_Alarma += 1;
END_IF;
ELSE
"DB2010_V".V[#for_i].Tiempos_Alarma := 0;
END_IF;
// =============================================================================
// ERROR REPOSO
IF "DB2010_V".V[#for_i].Tiempos_Alarma >= "DB2010_V".V[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorReposo THEN
"DB2010_V".V[#for_i].Alarmas_Reposo := TRUE;
END_IF;
IF NOT #t_ErrorReposo THEN
"DB2010_V".V[#for_i].Alarmas_Reposo := FALSE;
END_IF;
// =============================================================================
// ERROR TRABAJO
IF "DB2010_V".V[#for_i].Tiempos_Alarma >= "DB2010_V".V[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorTrabajo THEN
"DB2010_V".V[#for_i].Alarmas_Trabajo := TRUE;
END_IF;
IF NOT #t_ErrorTrabajo THEN
"DB2010_V".V[#for_i].Alarmas_Trabajo := FALSE;
END_IF;
// =============================================================================
// ERROR DOBLE
IF "DB2010_V".V[#for_i].Tiempos_Alarma >= "DB2010_V".V[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorDoble THEN
"DB2010_V".V[#for_i].Alarmas_Doble := TRUE;
END_IF;
IF NOT #t_ErrorDoble THEN
"DB2010_V".V[#for_i].Alarmas_Doble := FALSE;
END_IF;
// =============================================================================
// ERROR GLOBAL
IF "DB2010_V".V[#for_i].Alarmas_Reposo OR
"DB2010_V".V[#for_i].Alarmas_Trabajo OR
"DB2010_V".V[#for_i].Alarmas_Doble
THEN
"DB2010_V".V[#for_i].Alarmas_General := TRUE;
END_IF;
IF #Ack AND
NOT "DB2010_V".V[#for_i].Alarmas_Reposo AND
NOT "DB2010_V".V[#for_i].Alarmas_Trabajo AND
NOT "DB2010_V".V[#for_i].Alarmas_Doble
THEN
"DB2010_V".V[#for_i].Alarmas_General := FALSE;
END_IF;
//"DB2010_V".V[#for_i].Alarmas_General := "DB2010_V".V[#for_i].Alarmas_Reposo OR "DB2010_V".V[#for_i].Alarmas_Trabajo OR "DB2010_V".V[#for_i].Alarmas_Doble;
IF "DB2010_V".V[#for_i].Alarmas_General THEN
"DB2010_V".Agrup["DB2010_V".V[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
END_IF;
END_REGION ERRORES
REGION DIAGNOSIS
// =============================================================================
// CONTADOR DE CICLOS DE ACTIVACIÓN DE LA VÁLVULA
IF ("DB2010_V".V[#for_i].Estado_Activado AND NOT "DB2010_V".V[#for_i].Aux_oldActivado)
OR
(NOT "DB2010_V".V[#for_i].Estado_Activado AND "DB2010_V".V[#for_i].Aux_oldActivado)
THEN
"DB2010_V".V[#for_i].Tiempos_Ciclos += 1;
END_IF;
IF "DB2010_V".V[#for_i].Orden_ResetCiclos THEN
"DB2010_V".V[#for_i].Tiempos_Ciclos := 0;
"DB2010_V".V[#for_i].Orden_ResetCiclos := FALSE;
END_IF;
// =============================================================================
// ALARMA CICLOS PARA MANTENIMIENTO ALCANZADOS
"DB2010_V".V[#for_i].Alarmas_Mantenimiento := FALSE;
IF "DB2010_V".V[#for_i].Config_HabilitarMantenimiento AND ("DB2010_V".V[#for_i].Tiempos_Ciclos > "DB2010_V".V[#for_i].Tiempos_SetPointCiclos) THEN
"DB2010_V".V[#for_i].Alarmas_Mantenimiento := TRUE;
END_IF;
END_REGION DIAGNOSIS
REGION ESCRITURA_SALIDA
CASE "DB2010_V".V[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA SALIDA
(* AREA: Pueden seleccionarse las siguientes áreas:16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#2: Salida de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección que se escribe, Solo se utilizan los 16 bits menos significativos.
BITOFFSET: Bit que se escribe,
VALUE: Valor que se escribe *)
IF "DB2010_V".V[#for_i].Config_DireccionSalidaByte >= 0 THEN
IF #t_Activar AND NOT "DB2010_V".V[#for_i].Alarmas_General THEN
"DB2010_V".V[#for_i].Estado_Salida := TRUE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionSalidaBit,
value := TRUE);
ELSE
"DB2010_V".V[#for_i].Estado_Salida := FALSE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionSalidaBit,
value := FALSE);
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
IF #t_Activar AND NOT "DB2010_V".V[#for_i].Alarmas_General THEN
"DB2010_V".V[#for_i].Estado_Salida := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Salida := FALSE;
END_IF;
END_CASE;
END_REGION
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2010_V".V[#for_i].Orden_ActivarAuto := FALSE;
"DB2010_V".V[#for_i].Estado_Enclavado := FALSE;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2010_V".V[#for_i].Estado_AutoMan AND NOT "DB2010_V".V[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_14_DISP_V",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_V",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2010_V".V[#for_i].Estado_AutoMan AND "DB2010_V".V[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_14_DISP_V",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_V",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2010_V".V[#for_i].Estado_AutoMan AND "DB2010_V".V[#for_i].Estado_Activado AND NOT "DB2010_V".V[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_14_DISP_V",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_V",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2010_V".V[#for_i].Estado_AutoMan AND NOT "DB2010_V".V[#for_i].Estado_Activado AND "DB2010_V".V[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_14_DISP_V",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_V",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION TRAZABILIDAD_MANUALIZACION
// =============================================================================
// Estado anterior manual/automatico
"DB2010_V".V[#for_i].Aux_oldActivado := "DB2010_V".V[#for_i].Estado_Activado;
"DB2010_V".V[#for_i].Aux_oldAutoMan := "DB2010_V".V[#for_i].Estado_AutoMan;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2010_V".V[#for_i].Alarmas_General := FALSE;
"DB2010_V".V[#for_i].Alarmas_Reposo := FALSE;
"DB2010_V".V[#for_i].Alarmas_Trabajo := FALSE;
"DB2010_V".V[#for_i].Alarmas_Doble := FALSE;
"DB2010_V".V[#for_i].Alarmas_Mantenimiento := FALSE;
"DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo := FALSE;
"DB2010_V".V[#for_i].Estado_EntradaRetornoReposo := FALSE;
"DB2010_V".V[#for_i].Estado_Enclavado := FALSE;
"DB2010_V".V[#for_i].Estado_Salida := FALSE;
"DB2010_V".V[#for_i].Orden_ActivarAuto := FALSE;
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
"DB2010_V".V[#for_i].Tiempos_Alarma := 0;
"DB2010_V".V[#for_i].Orden_ActivarManual := FALSE;
"DB2010_V".V[#for_i].Estado_AutoMan := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2010_V".V[#for_i].Hmi_Estado.%X0 := "DB2010_V".V[#for_i].Config_Habilitar;
"DB2010_V".V[#for_i].Hmi_Estado.%X1 := "DB2010_V".V[#for_i].Estado_AutoMan;
"DB2010_V".V[#for_i].Hmi_Estado.%X2 := "DB2010_V".V[#for_i].Estado_Enclavado;
"DB2010_V".V[#for_i].Hmi_Estado.%X3 := "DB2010_V".V[#for_i].Estado_Activado;
"DB2010_V".V[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X8 := "DB2010_V".V[#for_i].Alarmas_General;
"DB2010_V".V[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X13 := "DB2010_V".V[#for_i].Alarmas_Mantenimiento;
"DB2010_V".V[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION GESTION_HMI
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2010_V".V[#for_i].Alarmas_General AND NOT "DB2010_V".V[#for_i].Aux_oldAlarma THEN
"DB2010_V".Agrup["DB2010_V".V[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2010_V".V[#for_i].Aux_oldAlarma := "DB2010_V".V[#for_i].Alarmas_General;
END_REGION GESTION_NUEVA_ALARMA
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2010_V".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION LOGICA_DEL_DISPOSITIVO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2010_ZC_V.s7res
+19
View File
@@ -0,0 +1,19 @@
MultiLingualTexts:
- id: MLC_4Pn
es-ES: FC2010_V
- id: MLC_44X
es-ES: Modelo de dispositivo vlvula
- id: MLC_4wv
es-ES: Pulso de 1 segundo
- id: MLC_3Ys
es-ES: Simulacion
- id: MLC_4uK
es-ES: Primer arranque
- id: MLC_r3
es-ES: Acuse general
- id: MLC_3Ps
es-ES: Seguridades OK
- id: MLC_4UE
es-ES: Usuario actual
- id: MLC_4ub
es-ES: Fecha y hora actual
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2010_ZC_V.scl
-657
View File
@@ -1,657 +0,0 @@
FUNCTION "FC2010_ZC_V" : Void
TITLE = FC2010_V
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Modelo de dispositivo vlvula
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
Simulacion : Bool; // Simulacion
Arranque : Bool; // Primer arranque
Ack : Bool; // Acuse general
SeguridadesOK : Bool; // Seguridades OK
UsuarioActual : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_ErrorReposo : Bool;
t_ErrorTrabajo : Bool;
t_ErrorDoble : Bool;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Valvula.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el numero de activaciones
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | `DB1_SYS`, `DB2010_V` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version. |
| 00.00.02 | 28.11.2020 | (ABH) | Añadidas alarmas mantenimiento |
| 00.00.03 | 28.07.2021 | (ABH) | Añadidas alarmas en doble posicion / ninguna posicion |
| 00.00.04 | 22.12.2021 | (ABH) | Añadido bit de visibilidad, a traves de variable CFG_Hmi_ |
| 00.00.05 | 26.04.2022 | (HCR) | Cambio UDT |
| 00.00.06 | 26.04.2022 | (HCR) | BITs de visibilidad para HMI, quitar enclavamiento para orden manual |
| 00.00.07 | 27.04.2022 | (HCR) | Si no esta habilitado se quita orden manual y se quita el estado manual. Se agrega Ack para alarma de confirmación de marcha. Se mantiene el estado de válvula cuando se pasa a manual. Cambio en lógica de errores. Cambio en la escritura de la salida |
| 00.00.08 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones |
| 00.00.09 | 08.11.2022 | (HCR) | Se añade trazabilidad de activación manual |
| 00.00.10 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento |
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado. Se añade movimiento de V[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.13 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.14 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.15 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.16 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.17 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 09.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2010_V".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2010_V".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2010_V".NumDispositivos := "N_MAX_DISP_V";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_V" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_V";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2010_V".V[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2010_V".V[#for_i].Config_GrupoAlarma < 0 THEN
"DB2010_V".V[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2010_V".V[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2010_V".V[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
// =============================================================================
// PUESTA A CERO DE LA SALIDA
#t_Activar := FALSE;
REGION LECTURA_VALORES
CASE "DB2010_V".V[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
(* AREA: Pueden seleccionarse las siguientes áreas: 16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#1: Entrada de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección en la que se lee. Solo se utilizan los 16 bits menos significativos.*)
// =============================================================================
// RETORNO REPOSO
IF "DB2010_V".V[#for_i].Config_DireccionRetReposoByte >= 0 THEN
"DB2010_V".V[#for_i].Estado_EntradaRetornoReposo := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionRetReposoByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionRetReposoBit);
IF "DB2010_V".V[#for_i].Config_HabilitarInvertirReposo THEN
"DB2010_V".V[#for_i].Estado_EntradaRetornoReposo := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionRetReposoByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionRetReposoBit));
END_IF;
END_IF;
// =============================================================================
// RETORNO TRABAJO
IF "DB2010_V".V[#for_i].Config_DireccionRetTrabajoByte >= 0 THEN
"DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionRetTrabajoByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionRetTrabajoBit);
IF "DB2010_V".V[#for_i].Config_HabilitarInvertirTrabajo THEN
"DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionRetTrabajoByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionRetTrabajoBit));
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
;
END_CASE;
END_REGION LECTURA_VALORES
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2010_V".V[#for_i].Estado_AutoMan THEN
"DB2010_V".Agrup["DB2010_V".V[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2010_V".V[#for_i].Orden_ActivarManual AND #SeguridadesOK AND "DB2010_V".V[#for_i].Estado_SeguridadOk THEN // En caso de enclavar válvula en manual AND NOT "DB2035_TMF1_DISP_V".V[#i].Estado_Enclavado
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
"DB2010_V".V[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2010_V".V[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2010_V".V[#for_i].Estado_AutoMan THEN
IF "DB2010_V".V[#for_i].Orden_ActivarAuto AND NOT "DB2010_V".V[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2010_V".V[#for_i].Estado_SeguridadOk THEN
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
END_IF;
"DB2010_V".V[#for_i].Orden_ActivarManual := "DB2010_V".V[#for_i].Estado_Activado;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// VÁLVULA SIMULADA
IF #Simulacion THEN
IF #t_Activar THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// VÁLVULA 2 RETORNOS (REPOSO + TRABAJO)
IF NOT #Simulacion AND
"DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo
THEN
IF "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo AND #t_Activar THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
END_IF;
IF "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo AND NOT #t_Activar THEN
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// VÁLVULA SOLO RETORNO REPOSO
IF NOT #Simulacion AND
"DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND NOT "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo
THEN
IF NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// VÁLVULA SOLO RETORNO TRABAJO
IF NOT #Simulacion AND
NOT "DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo
THEN
IF "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// VÁLVULA SIN RETORNOS
IF NOT #Simulacion AND
NOT "DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND NOT "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo
THEN
IF #t_Activar THEN
"DB2010_V".V[#for_i].Estado_Activado := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION ERRORES
// =============================================================================
// CHEQUEO RETORNO REPOSO
IF NOT #Simulacion AND
"DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND
(
(#t_Activar AND "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo)
OR
(NOT #t_Activar AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo)
)
THEN
#t_ErrorReposo := TRUE;
ELSE
#t_ErrorReposo := FALSE;
END_IF;
// =============================================================================
// CHEQUEO RETORNO TRABAJO
IF NOT #Simulacion AND
"DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo AND
(
(#t_Activar AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo)
OR
(NOT #t_Activar AND "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo)
)
THEN
#t_ErrorTrabajo := TRUE;
ELSE
#t_ErrorTrabajo := FALSE;
END_IF;
// =============================================================================
// CHEQUEO DOBLE RETORNO EN DOS POSICIONES O EN NINGUNA POSICION
IF NOT #Simulacion AND
("DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo)
AND
(
(NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoReposo AND NOT "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo)
OR
("DB2010_V".V[#for_i].Estado_EntradaRetornoReposo AND "DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo)
)
THEN
#t_ErrorDoble := TRUE;
ELSE
#t_ErrorDoble := FALSE;
END_IF;
// =============================================================================
// TEMPORIZADO DE ERRORES
IF (
("DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND #t_ErrorReposo AND NOT "DB2010_V".V[#for_i].Alarmas_Reposo)
OR
("DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo AND #t_ErrorTrabajo AND NOT "DB2010_V".V[#for_i].Alarmas_Trabajo)
OR
("DB2010_V".V[#for_i].Config_HabilitarRetornoReposo AND "DB2010_V".V[#for_i].Config_HabilitarRetornoTrabajo AND #t_ErrorDoble AND NOT "DB2010_V".V[#for_i].Alarmas_Doble)
)
THEN
IF #Pulso1seg AND NOT #Simulacion THEN
"DB2010_V".V[#for_i].Tiempos_Alarma += 1;
END_IF;
ELSE
"DB2010_V".V[#for_i].Tiempos_Alarma := 0;
END_IF;
// =============================================================================
// ERROR REPOSO
IF "DB2010_V".V[#for_i].Tiempos_Alarma >= "DB2010_V".V[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorReposo THEN
"DB2010_V".V[#for_i].Alarmas_Reposo := TRUE;
END_IF;
IF NOT #t_ErrorReposo THEN
"DB2010_V".V[#for_i].Alarmas_Reposo := FALSE;
END_IF;
// =============================================================================
// ERROR TRABAJO
IF "DB2010_V".V[#for_i].Tiempos_Alarma >= "DB2010_V".V[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorTrabajo THEN
"DB2010_V".V[#for_i].Alarmas_Trabajo := TRUE;
END_IF;
IF NOT #t_ErrorTrabajo THEN
"DB2010_V".V[#for_i].Alarmas_Trabajo := FALSE;
END_IF;
// =============================================================================
// ERROR DOBLE
IF "DB2010_V".V[#for_i].Tiempos_Alarma >= "DB2010_V".V[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorDoble THEN
"DB2010_V".V[#for_i].Alarmas_Doble := TRUE;
END_IF;
IF NOT #t_ErrorDoble THEN
"DB2010_V".V[#for_i].Alarmas_Doble := FALSE;
END_IF;
// =============================================================================
// ERROR GLOBAL
IF "DB2010_V".V[#for_i].Alarmas_Reposo OR
"DB2010_V".V[#for_i].Alarmas_Trabajo OR
"DB2010_V".V[#for_i].Alarmas_Doble
THEN
"DB2010_V".V[#for_i].Alarmas_General := TRUE;
END_IF;
IF #Ack AND
NOT "DB2010_V".V[#for_i].Alarmas_Reposo AND
NOT "DB2010_V".V[#for_i].Alarmas_Trabajo AND
NOT "DB2010_V".V[#for_i].Alarmas_Doble
THEN
"DB2010_V".V[#for_i].Alarmas_General := FALSE;
END_IF;
//"DB2010_V".V[#for_i].Alarmas_General := "DB2010_V".V[#for_i].Alarmas_Reposo OR "DB2010_V".V[#for_i].Alarmas_Trabajo OR "DB2010_V".V[#for_i].Alarmas_Doble;
IF "DB2010_V".V[#for_i].Alarmas_General THEN
"DB2010_V".Agrup["DB2010_V".V[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
END_IF;
END_REGION ERRORES
REGION DIAGNOSIS
// =============================================================================
// CONTADOR DE CICLOS DE ACTIVACIÓN DE LA VÁLVULA
IF ("DB2010_V".V[#for_i].Estado_Activado AND NOT "DB2010_V".V[#for_i].Aux_oldActivado)
OR
(NOT "DB2010_V".V[#for_i].Estado_Activado AND "DB2010_V".V[#for_i].Aux_oldActivado)
THEN
"DB2010_V".V[#for_i].Tiempos_Ciclos += 1;
END_IF;
IF "DB2010_V".V[#for_i].Orden_ResetCiclos THEN
"DB2010_V".V[#for_i].Tiempos_Ciclos := 0;
"DB2010_V".V[#for_i].Orden_ResetCiclos := FALSE;
END_IF;
// =============================================================================
// ALARMA CICLOS PARA MANTENIMIENTO ALCANZADOS
"DB2010_V".V[#for_i].Alarmas_Mantenimiento := FALSE;
IF "DB2010_V".V[#for_i].Config_HabilitarMantenimiento AND ("DB2010_V".V[#for_i].Tiempos_Ciclos > "DB2010_V".V[#for_i].Tiempos_SetPointCiclos) THEN
"DB2010_V".V[#for_i].Alarmas_Mantenimiento := TRUE;
END_IF;
END_REGION DIAGNOSIS
REGION ESCRITURA_SALIDA
CASE "DB2010_V".V[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA SALIDA
(* AREA: Pueden seleccionarse las siguientes áreas:16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#2: Salida de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección que se escribe, Solo se utilizan los 16 bits menos significativos.
BITOFFSET: Bit que se escribe,
VALUE: Valor que se escribe *)
IF "DB2010_V".V[#for_i].Config_DireccionSalidaByte >= 0 THEN
IF #t_Activar AND NOT "DB2010_V".V[#for_i].Alarmas_General THEN
"DB2010_V".V[#for_i].Estado_Salida := TRUE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionSalidaBit,
value := TRUE);
ELSE
"DB2010_V".V[#for_i].Estado_Salida := FALSE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2010_V".V[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2010_V".V[#for_i].Config_DireccionSalidaBit,
value := FALSE);
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
IF #t_Activar AND NOT "DB2010_V".V[#for_i].Alarmas_General THEN
"DB2010_V".V[#for_i].Estado_Salida := TRUE;
ELSE
"DB2010_V".V[#for_i].Estado_Salida := FALSE;
END_IF;
END_CASE;
END_REGION
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2010_V".V[#for_i].Orden_ActivarAuto := FALSE;
"DB2010_V".V[#for_i].Estado_Enclavado := FALSE;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2010_V".V[#for_i].Estado_AutoMan AND NOT "DB2010_V".V[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_14_DISP_V",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_V",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2010_V".V[#for_i].Estado_AutoMan AND "DB2010_V".V[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_14_DISP_V",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_V",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2010_V".V[#for_i].Estado_AutoMan AND "DB2010_V".V[#for_i].Estado_Activado AND NOT "DB2010_V".V[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_14_DISP_V",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_V",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2010_V".V[#for_i].Estado_AutoMan AND NOT "DB2010_V".V[#for_i].Estado_Activado AND "DB2010_V".V[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_14_DISP_V",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_V",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION TRAZABILIDAD_MANUALIZACION
// =============================================================================
// Estado anterior manual/automatico
"DB2010_V".V[#for_i].Aux_oldActivado := "DB2010_V".V[#for_i].Estado_Activado;
"DB2010_V".V[#for_i].Aux_oldAutoMan := "DB2010_V".V[#for_i].Estado_AutoMan;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2010_V".V[#for_i].Alarmas_General := FALSE;
"DB2010_V".V[#for_i].Alarmas_Reposo := FALSE;
"DB2010_V".V[#for_i].Alarmas_Trabajo := FALSE;
"DB2010_V".V[#for_i].Alarmas_Doble := FALSE;
"DB2010_V".V[#for_i].Alarmas_Mantenimiento := FALSE;
"DB2010_V".V[#for_i].Estado_EntradaRetornoTrabajo := FALSE;
"DB2010_V".V[#for_i].Estado_EntradaRetornoReposo := FALSE;
"DB2010_V".V[#for_i].Estado_Enclavado := FALSE;
"DB2010_V".V[#for_i].Estado_Salida := FALSE;
"DB2010_V".V[#for_i].Orden_ActivarAuto := FALSE;
"DB2010_V".V[#for_i].Estado_Activado := FALSE;
"DB2010_V".V[#for_i].Tiempos_Alarma := 0;
"DB2010_V".V[#for_i].Orden_ActivarManual := FALSE;
"DB2010_V".V[#for_i].Estado_AutoMan := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2010_V".V[#for_i].Hmi_Estado.%X0 := "DB2010_V".V[#for_i].Config_Habilitar;
"DB2010_V".V[#for_i].Hmi_Estado.%X1 := "DB2010_V".V[#for_i].Estado_AutoMan;
"DB2010_V".V[#for_i].Hmi_Estado.%X2 := "DB2010_V".V[#for_i].Estado_Enclavado;
"DB2010_V".V[#for_i].Hmi_Estado.%X3 := "DB2010_V".V[#for_i].Estado_Activado;
"DB2010_V".V[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X8 := "DB2010_V".V[#for_i].Alarmas_General;
"DB2010_V".V[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X13 := "DB2010_V".V[#for_i].Alarmas_Mantenimiento;
"DB2010_V".V[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2010_V".V[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION GESTION_HMI
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2010_V".V[#for_i].Alarmas_General AND NOT "DB2010_V".V[#for_i].Aux_oldAlarma THEN
"DB2010_V".Agrup["DB2010_V".V[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2010_V".V[#for_i].Aux_oldAlarma := "DB2010_V".V[#for_i].Alarmas_General;
END_REGION GESTION_NUEVA_ALARMA
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2010_V".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION LOGICA_DEL_DISPOSITIVO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2015_ZC_M.s7dcl
+602
View File
@@ -0,0 +1,602 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_4ed";
S7_BlockNumber := "2015";
S7_BlockTitle := "MLC_3pg";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2015_ZC_M" : Void
VAR_INPUT
{ S7_MLC := "MLC_rZ" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_446" }
Simulacion : Bool;
{ S7_MLC := "MLC_4fr" }
Ack : Bool;
{ S7_MLC := "MLC_NA" }
SeguridadesOK : Bool;
{ S7_MLC := "MLC_M4" }
UsuarioActual : String;
{ S7_MLC := "MLC_4ix" }
FechaHoraActual : DTL;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_ErrorTermico : Bool;
t_ErrorConfMarcha : Bool;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Motor arranque directo.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el tiempo en marcha
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO`, `FC15025_ZC_CONTADOR_TIEMPO` |
| FB | - |
| DB | `DB2015_DISP_M` |
| UDT | `ZC_DISP_M`, `ZC_DISP_MUX_M`, `ZC_CONTADOR_TIEMPO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version.
| 00.00.02 | 28.11.2020 | (ABH) | Añadidas alarmas mantenimiento
| 00.00.03 | 26.10.2021 | (ABH) | Se integra la gestion de directo/inverso
| 00.00.04 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. Se quita el enclavamiento para orden manual.
| 00.00.05 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas.
| 00.00.06 | 27.04.2022 | (HCR) | Si no esta habilitado se quita orden manual y se quita el estado manual. Se agrega Ack para alarmas de confirmación de marcha. Se mantiene el estado cuando se pasa a manual. Cambio en lógica de errores. Cambio en la escritura de la salida. Cambio en laógica de modos
| 00.00.07 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones
| 00.00.08 | 08.11.2022 | (HCR) | Se añade trazabilidad de activación manual
| 00.00.09 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento
| 00.00.10 | 18.09.2023 | (ABH) | Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado)
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado Se añade movimiento de M[0] a multiplexado en caso de que el indice sea 0.
| 00.00.13 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores.
| 00.00.14 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro.
| 00.00.15 | 24.04.2025 | (HCR) | Se añade gestion de idioma
| 00.00.16 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion.
| 00.00.17 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision.
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2015_M".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2015_M".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2015_M".NumDispositivos := "N_MAX_DISP_M";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_M" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_M";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2015_M".M[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2015_M".M[#for_i].Config_GrupoAlarma < 0 THEN
"DB2015_M".M[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2015_M".M[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2015_M".M[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
// =============================================================================
// PUESTA A CERO DE LA SALIDA
#t_Activar := FALSE;
REGION LECTURA_VALORES
CASE "DB2015_M".M[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
(* AREA: Pueden seleccionarse las siguientes áreas: 16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#1: Entrada de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección en la que se lee. Solo se utilizan los 16 bits menos significativos.*)
// =============================================================================
// RETORNO TERMICO
IF "DB2015_M".M[#for_i].Config_DireccionRetTermicoByte >= 0 THEN
"DB2015_M".M[#for_i].Estado_EntradaTermico := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionRetTermicoBit);
IF "DB2015_M".M[#for_i].Config_HabilitarInvertirTermico THEN
"DB2015_M".M[#for_i].Estado_EntradaTermico := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionRetTermicoBit));
END_IF;
END_IF;
// =============================================================================
// RETORNO CONFIRMACION DE MARCHA
IF "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaByte >= 0 THEN
"DB2015_M".M[#for_i].Estado_EntradaConfMarcha := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaBit);
IF "DB2015_M".M[#for_i].Config_HabilitarInvertirConfMarcha THEN
"DB2015_M".M[#for_i].Estado_EntradaConfMarcha := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaBit));
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
;
END_CASE;
END_REGION LECTURA_VALORES
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2015_M".M[#for_i].Estado_AutoMan THEN
"DB2015_M".Agrup["DB2015_M".M[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2015_M".M[#for_i].Orden_ActivarManual = TRUE AND #SeguridadesOK AND "DB2015_M".M[#for_i].Estado_SeguridadOk AND NOT "DB2015_M".M[#for_i].Alarmas_Termico THEN // En caso de enclavar manual NOT "DB2036_TMF1_DISP_M".M[#i].Estado_Enclavado
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
"DB2015_M".M[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2015_M".M[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2015_M".M[#for_i].Estado_AutoMan THEN
IF "DB2015_M".M[#for_i].Orden_ActivarAuto = TRUE AND NOT "DB2015_M".M[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2015_M".M[#for_i].Estado_SeguridadOk AND NOT "DB2015_M".M[#for_i].Alarmas_Termico THEN
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
END_IF;
"DB2015_M".M[#for_i].Orden_ActivarManual := "DB2015_M".M[#for_i].Estado_Activado;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// MOTOR SIMULADO
IF #Simulacion THEN
IF #t_Activar THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO TERMICO Y CONFIRMACION DE MARCHA
IF NOT #Simulacion AND "DB2015_M".M[#for_i].Config_HabilitarRetornoTermico
AND "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha
THEN
IF NOT "DB2015_M".M[#for_i].Estado_EntradaTermico AND "DB2015_M".M[#for_i].Estado_EntradaConfMarcha THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO SOLO TERMICO
IF NOT #Simulacion AND "DB2015_M".M[#for_i].Config_HabilitarRetornoTermico
AND NOT "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF NOT "DB2015_M".M[#for_i].Estado_EntradaTermico AND #t_Activar THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO SOLO CONFIRMACION DE MARCHA
IF NOT #Simulacion AND NOT "DB2015_M".M[#for_i].Config_HabilitarRetornoTermico
AND "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF "DB2015_M".M[#for_i].Estado_EntradaConfMarcha THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR SIN RETORNOS
IF NOT (#Simulacion) AND NOT ("DB2015_M".M[#for_i].Config_HabilitarRetornoTermico)
AND NOT ("DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha) THEN
IF #t_Activar THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION ERRORES
// =============================================================================
// CHEQUEO RETORNO TERMICO
IF NOT #Simulacion AND "DB2015_M".M[#for_i].Config_HabilitarRetornoTermico
AND "DB2015_M".M[#for_i].Estado_EntradaTermico THEN
#t_ErrorTermico := TRUE;
ELSE
#t_ErrorTermico := FALSE;
END_IF;
// =============================================================================
// CHEQUEO RETORNO CONFIRMACION DE MARCHA
IF NOT #Simulacion AND "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha AND
(
(#t_Activar AND NOT "DB2015_M".M[#for_i].Estado_EntradaConfMarcha)
OR
(NOT #t_Activar AND "DB2015_M".M[#for_i].Estado_EntradaConfMarcha)
) THEN
#t_ErrorConfMarcha := TRUE;
ELSE
#t_ErrorConfMarcha := FALSE;
END_IF;
// =============================================================================
// TEMPORIZADO DE ERRORES
IF "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha
AND #t_ErrorConfMarcha
AND NOT "DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha
AND NOT "DB2015_M".M[#for_i].Alarmas_Termico
THEN
IF NOT #Simulacion AND #Pulso1seg THEN
"DB2015_M".M[#for_i].Tiempos_Alarma += 1;
END_IF;
ELSE
"DB2015_M".M[#for_i].Tiempos_Alarma := 0;
END_IF;
// =============================================================================
// ERROR TERMICO
IF #t_ErrorTermico THEN
"DB2015_M".M[#for_i].Alarmas_Termico := TRUE;
END_IF;
IF NOT #t_ErrorTermico THEN
"DB2015_M".M[#for_i].Alarmas_Termico := FALSE;
END_IF;
// =============================================================================
// ERROR CONFIRMACION DE MARCHA
IF "DB2015_M".M[#for_i].Tiempos_Alarma >= "DB2015_M".M[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorConfMarcha THEN
"DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha := TRUE;
END_IF;
IF NOT #t_ErrorConfMarcha THEN
"DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha := FALSE;
END_IF;
// =============================================================================
// ERROR GLOBAL
IF "DB2015_M".M[#for_i].Alarmas_Termico OR
"DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha
THEN
"DB2015_M".M[#for_i].Alarmas_General := TRUE;
END_IF;
IF #Ack AND
NOT "DB2015_M".M[#for_i].Alarmas_Termico AND
NOT "DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha
THEN
"DB2015_M".M[#for_i].Alarmas_General := FALSE;
END_IF;
//"DB2015_M".M[#for_i].Alarmas_General := "DB2015_M".M[#for_i].Alarmas_Termico OR "DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha;
IF "DB2015_M".M[#for_i].Alarmas_General THEN
"DB2015_M".Agrup["DB2015_M".M[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
END_IF;
END_REGION ERRORES
REGION DIAGNOSIS
// =============================================================================
// CONTADOR DE HORAS DE FUNCIONAMIENTO
IF "DB2015_M".M[#for_i].Orden_ResetHoras THEN
"DB2015_M".M[#for_i].Tiempos_Mantenimiento := 0.0;
"DB2015_M".M[#for_i].Orden_ResetHoras := FALSE;
END_IF;
IF NOT #Simulacion AND #Pulso1seg AND "DB2015_M".M[#for_i].Estado_Activado THEN
"DB2015_M".M[#for_i].Tiempos_Mantenimiento += 0.00027778;
END_IF;
// =============================================================================
// ALARMA HORAS PARA MANTENIMIENTO ALCANZADOS
"DB2015_M".M[#for_i].Alarmas_Mantenimiento := FALSE;
IF "DB2015_M".M[#for_i].Config_HabilitarMantenimiento
AND
"DB2015_M".M[#for_i].Tiempos_Mantenimiento > "DB2015_M".M[#for_i].Tiempos_SetPointMantenimiento
THEN
"DB2015_M".M[#for_i].Alarmas_Mantenimiento := TRUE;
END_IF;
END_REGION DIAGNOSIS
REGION ESCRITURA_SALIDA
CASE "DB2015_M".M[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA SALIDA
(* AREA: Pueden seleccionarse las siguientes áreas:16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#2: Salida de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección que se escribe, Solo se utilizan los 16 bits menos significativos.
BITOFFSET: Bit que se escribe,
VALUE: Valor que se escribe *)
IF "DB2015_M".M[#for_i].Config_DireccionSalidaByte >= 0 THEN
IF #t_Activar AND NOT "DB2015_M".M[#for_i].Alarmas_General THEN
"DB2015_M".M[#for_i].Estado_Salida := TRUE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionSalidaBit,
value := TRUE);
ELSE
"DB2015_M".M[#for_i].Estado_Salida := FALSE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionSalidaBit,
value := FALSE);
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
IF #t_Activar AND NOT "DB2015_M".M[#for_i].Alarmas_General THEN
"DB2015_M".M[#for_i].Estado_Salida := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Salida := FALSE;
END_IF;
END_CASE;
END_REGION ESCRITURA_SALIDA
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2015_M".M[#for_i].Orden_ActivarAuto := FALSE;
"DB2015_M".M[#for_i].Estado_Enclavado := FALSE;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2015_M".M[#for_i].Estado_AutoMan AND NOT "DB2015_M".M[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_15_DISP_M",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2015_M".M[#for_i].Estado_AutoMan AND "DB2015_M".M[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_15_DISP_M",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2015_M".M[#for_i].Estado_AutoMan AND "DB2015_M".M[#for_i].Estado_Activado AND NOT "DB2015_M".M[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_15_DISP_M",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2015_M".M[#for_i].Estado_AutoMan AND NOT "DB2015_M".M[#for_i].Estado_Activado AND "DB2015_M".M[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_15_DISP_M",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION TRAZABILIDAD_MANUALIZACION
// =============================================================================
// Estado anterior manual/automatico
"DB2015_M".M[#for_i].Aux_oldAutoMan := "DB2015_M".M[#for_i].Estado_AutoMan;
"DB2015_M".M[#for_i].Aux_oldActivado := "DB2015_M".M[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2015_M".M[#for_i].Alarmas_General := FALSE;
"DB2015_M".M[#for_i].Alarmas_Termico := FALSE;
"DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha := FALSE;
"DB2015_M".M[#for_i].Alarmas_Mantenimiento := FALSE;
"DB2015_M".M[#for_i].Estado_EntradaTermico := FALSE;
"DB2015_M".M[#for_i].Estado_EntradaConfMarcha := FALSE;
"DB2015_M".M[#for_i].Estado_Enclavado := FALSE;
"DB2015_M".M[#for_i].Estado_Salida := FALSE;
"DB2015_M".M[#for_i].Orden_ActivarAuto := FALSE;
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
"DB2015_M".M[#for_i].Tiempos_Alarma := 0;
"DB2015_M".M[#for_i].Orden_ActivarManual := FALSE;
"DB2015_M".M[#for_i].Estado_AutoMan := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 alarmas General
// Bit 9 alarmas 1
// Bit 10 alarmas 2
// Bit 11 alarmas 3
// Bit 12 alarmas 4
// Bit 13 alarmas Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2015_M".M[#for_i].Hmi_Estado.%X0 := "DB2015_M".M[#for_i].Config_Habilitar;
"DB2015_M".M[#for_i].Hmi_Estado.%X1 := "DB2015_M".M[#for_i].Estado_AutoMan;
"DB2015_M".M[#for_i].Hmi_Estado.%X2 := "DB2015_M".M[#for_i].Estado_Enclavado;
"DB2015_M".M[#for_i].Hmi_Estado.%X3 := "DB2015_M".M[#for_i].Estado_Activado;
"DB2015_M".M[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X8 := "DB2015_M".M[#for_i].Alarmas_General;
"DB2015_M".M[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X13 := "DB2015_M".M[#for_i].Alarmas_Mantenimiento;
"DB2015_M".M[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION GESTION_HMI
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA alarmas
IF "DB2015_M".M[#for_i].Alarmas_General AND NOT "DB2015_M".M[#for_i].Aux_oldAlarma THEN
"DB2015_M".Agrup["DB2015_M".M[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmass
"DB2015_M".M[#for_i].Aux_oldAlarma := "DB2015_M".M[#for_i].Alarmas_General;
END_REGION GESTION_NUEVA_ALARMA
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2015_M".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION LOGICA_DEL_DISPOSITIVO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2015_ZC_M.s7res
+17
View File
@@ -0,0 +1,17 @@
MultiLingualTexts:
- id: MLC_3pg
es-ES: FC2015_M
- id: MLC_4ed
es-ES: Modelo de dispositivo motor
- id: MLC_rZ
es-ES: Pulso de 1 segundo
- id: MLC_446
es-ES: Simulacion
- id: MLC_4fr
es-ES: Acuse general
- id: MLC_NA
es-ES: Seguridades OK
- id: MLC_M4
es-ES: Usuario actual
- id: MLC_4ix
es-ES: Fecha y hora actual
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2015_ZC_M.scl
-594
View File
@@ -1,594 +0,0 @@
FUNCTION "FC2015_ZC_M" : Void
TITLE = FC2015_M
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Modelo de dispositivo motor
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
Simulacion : Bool; // Simulacion
Ack : Bool; // Acuse general
SeguridadesOK : Bool; // Seguridades OK
UsuarioActual : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_ErrorTermico : Bool;
t_ErrorConfMarcha : Bool;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Motor arranque directo.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el tiempo en marcha
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO`, `FC15025_ZC_CONTADOR_TIEMPO` |
| FB | - |
| DB | `DB2015_DISP_M` |
| UDT | `ZC_DISP_M`, `ZC_DISP_MUX_M`, `ZC_CONTADOR_TIEMPO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version.
| 00.00.02 | 28.11.2020 | (ABH) | Añadidas alarmas mantenimiento
| 00.00.03 | 26.10.2021 | (ABH) | Se integra la gestion de directo/inverso
| 00.00.04 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. Se quita el enclavamiento para orden manual.
| 00.00.05 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas.
| 00.00.06 | 27.04.2022 | (HCR) | Si no esta habilitado se quita orden manual y se quita el estado manual. Se agrega Ack para alarmas de confirmación de marcha. Se mantiene el estado cuando se pasa a manual. Cambio en lógica de errores. Cambio en la escritura de la salida. Cambio en laógica de modos
| 00.00.07 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones
| 00.00.08 | 08.11.2022 | (HCR) | Se añade trazabilidad de activación manual
| 00.00.09 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento
| 00.00.10 | 18.09.2023 | (ABH) | Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado)
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado Se añade movimiento de M[0] a multiplexado en caso de que el indice sea 0.
| 00.00.13 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores.
| 00.00.14 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro.
| 00.00.15 | 24.04.2025 | (HCR) | Se añade gestion de idioma
| 00.00.16 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion.
| 00.00.17 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision.
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2015_M".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2015_M".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2015_M".NumDispositivos := "N_MAX_DISP_M";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_M" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_M";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2015_M".M[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2015_M".M[#for_i].Config_GrupoAlarma < 0 THEN
"DB2015_M".M[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2015_M".M[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2015_M".M[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
// =============================================================================
// PUESTA A CERO DE LA SALIDA
#t_Activar := FALSE;
REGION LECTURA_VALORES
CASE "DB2015_M".M[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
(* AREA: Pueden seleccionarse las siguientes áreas: 16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#1: Entrada de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección en la que se lee. Solo se utilizan los 16 bits menos significativos.*)
// =============================================================================
// RETORNO TERMICO
IF "DB2015_M".M[#for_i].Config_DireccionRetTermicoByte >= 0 THEN
"DB2015_M".M[#for_i].Estado_EntradaTermico := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionRetTermicoBit);
IF "DB2015_M".M[#for_i].Config_HabilitarInvertirTermico THEN
"DB2015_M".M[#for_i].Estado_EntradaTermico := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionRetTermicoBit));
END_IF;
END_IF;
// =============================================================================
// RETORNO CONFIRMACION DE MARCHA
IF "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaByte >= 0 THEN
"DB2015_M".M[#for_i].Estado_EntradaConfMarcha := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaBit);
IF "DB2015_M".M[#for_i].Config_HabilitarInvertirConfMarcha THEN
"DB2015_M".M[#for_i].Estado_EntradaConfMarcha := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionRetConfMarchaBit));
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
;
END_CASE;
END_REGION LECTURA_VALORES
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2015_M".M[#for_i].Estado_AutoMan THEN
"DB2015_M".Agrup["DB2015_M".M[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2015_M".M[#for_i].Orden_ActivarManual = TRUE AND #SeguridadesOK AND "DB2015_M".M[#for_i].Estado_SeguridadOk AND NOT "DB2015_M".M[#for_i].Alarmas_Termico THEN // En caso de enclavar manual NOT "DB2036_TMF1_DISP_M".M[#i].Estado_Enclavado
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
"DB2015_M".M[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2015_M".M[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2015_M".M[#for_i].Estado_AutoMan THEN
IF "DB2015_M".M[#for_i].Orden_ActivarAuto = TRUE AND NOT "DB2015_M".M[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2015_M".M[#for_i].Estado_SeguridadOk AND NOT "DB2015_M".M[#for_i].Alarmas_Termico THEN
#t_Activar := TRUE;
ELSE
#t_Activar := FALSE;
END_IF;
"DB2015_M".M[#for_i].Orden_ActivarManual := "DB2015_M".M[#for_i].Estado_Activado;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// MOTOR SIMULADO
IF #Simulacion THEN
IF #t_Activar THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO TERMICO Y CONFIRMACION DE MARCHA
IF NOT #Simulacion AND "DB2015_M".M[#for_i].Config_HabilitarRetornoTermico
AND "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha
THEN
IF NOT "DB2015_M".M[#for_i].Estado_EntradaTermico AND "DB2015_M".M[#for_i].Estado_EntradaConfMarcha THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO SOLO TERMICO
IF NOT #Simulacion AND "DB2015_M".M[#for_i].Config_HabilitarRetornoTermico
AND NOT "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF NOT "DB2015_M".M[#for_i].Estado_EntradaTermico AND #t_Activar THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO SOLO CONFIRMACION DE MARCHA
IF NOT #Simulacion AND NOT "DB2015_M".M[#for_i].Config_HabilitarRetornoTermico
AND "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF "DB2015_M".M[#for_i].Estado_EntradaConfMarcha THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR SIN RETORNOS
IF NOT (#Simulacion) AND NOT ("DB2015_M".M[#for_i].Config_HabilitarRetornoTermico)
AND NOT ("DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha) THEN
IF #t_Activar THEN
"DB2015_M".M[#for_i].Estado_Activado := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION ERRORES
// =============================================================================
// CHEQUEO RETORNO TERMICO
IF NOT #Simulacion AND "DB2015_M".M[#for_i].Config_HabilitarRetornoTermico
AND "DB2015_M".M[#for_i].Estado_EntradaTermico THEN
#t_ErrorTermico := TRUE;
ELSE
#t_ErrorTermico := FALSE;
END_IF;
// =============================================================================
// CHEQUEO RETORNO CONFIRMACION DE MARCHA
IF NOT #Simulacion AND "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha AND
(
(#t_Activar AND NOT "DB2015_M".M[#for_i].Estado_EntradaConfMarcha)
OR
(NOT #t_Activar AND "DB2015_M".M[#for_i].Estado_EntradaConfMarcha)
) THEN
#t_ErrorConfMarcha := TRUE;
ELSE
#t_ErrorConfMarcha := FALSE;
END_IF;
// =============================================================================
// TEMPORIZADO DE ERRORES
IF "DB2015_M".M[#for_i].Config_HabilitarRetornoConfMarcha
AND #t_ErrorConfMarcha
AND NOT "DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha
AND NOT "DB2015_M".M[#for_i].Alarmas_Termico
THEN
IF NOT #Simulacion AND #Pulso1seg THEN
"DB2015_M".M[#for_i].Tiempos_Alarma += 1;
END_IF;
ELSE
"DB2015_M".M[#for_i].Tiempos_Alarma := 0;
END_IF;
// =============================================================================
// ERROR TERMICO
IF #t_ErrorTermico THEN
"DB2015_M".M[#for_i].Alarmas_Termico := TRUE;
END_IF;
IF NOT #t_ErrorTermico THEN
"DB2015_M".M[#for_i].Alarmas_Termico := FALSE;
END_IF;
// =============================================================================
// ERROR CONFIRMACION DE MARCHA
IF "DB2015_M".M[#for_i].Tiempos_Alarma >= "DB2015_M".M[#for_i].Tiempos_SetPointTiempoAlarma AND #t_ErrorConfMarcha THEN
"DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha := TRUE;
END_IF;
IF NOT #t_ErrorConfMarcha THEN
"DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha := FALSE;
END_IF;
// =============================================================================
// ERROR GLOBAL
IF "DB2015_M".M[#for_i].Alarmas_Termico OR
"DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha
THEN
"DB2015_M".M[#for_i].Alarmas_General := TRUE;
END_IF;
IF #Ack AND
NOT "DB2015_M".M[#for_i].Alarmas_Termico AND
NOT "DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha
THEN
"DB2015_M".M[#for_i].Alarmas_General := FALSE;
END_IF;
//"DB2015_M".M[#for_i].Alarmas_General := "DB2015_M".M[#for_i].Alarmas_Termico OR "DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha;
IF "DB2015_M".M[#for_i].Alarmas_General THEN
"DB2015_M".Agrup["DB2015_M".M[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
END_IF;
END_REGION ERRORES
REGION DIAGNOSIS
// =============================================================================
// CONTADOR DE HORAS DE FUNCIONAMIENTO
IF "DB2015_M".M[#for_i].Orden_ResetHoras THEN
"DB2015_M".M[#for_i].Tiempos_Mantenimiento := 0.0;
"DB2015_M".M[#for_i].Orden_ResetHoras := FALSE;
END_IF;
IF NOT #Simulacion AND #Pulso1seg AND "DB2015_M".M[#for_i].Estado_Activado THEN
"DB2015_M".M[#for_i].Tiempos_Mantenimiento += 0.00027778;
END_IF;
// =============================================================================
// ALARMA HORAS PARA MANTENIMIENTO ALCANZADOS
"DB2015_M".M[#for_i].Alarmas_Mantenimiento := FALSE;
IF "DB2015_M".M[#for_i].Config_HabilitarMantenimiento
AND
"DB2015_M".M[#for_i].Tiempos_Mantenimiento > "DB2015_M".M[#for_i].Tiempos_SetPointMantenimiento
THEN
"DB2015_M".M[#for_i].Alarmas_Mantenimiento := TRUE;
END_IF;
END_REGION DIAGNOSIS
REGION ESCRITURA_SALIDA
CASE "DB2015_M".M[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA SALIDA
(* AREA: Pueden seleccionarse las siguientes áreas:16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#2: Salida de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección que se escribe, Solo se utilizan los 16 bits menos significativos.
BITOFFSET: Bit que se escribe,
VALUE: Valor que se escribe *)
IF "DB2015_M".M[#for_i].Config_DireccionSalidaByte >= 0 THEN
IF #t_Activar AND NOT "DB2015_M".M[#for_i].Alarmas_General THEN
"DB2015_M".M[#for_i].Estado_Salida := TRUE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionSalidaBit,
value := TRUE);
ELSE
"DB2015_M".M[#for_i].Estado_Salida := FALSE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2015_M".M[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2015_M".M[#for_i].Config_DireccionSalidaBit,
value := FALSE);
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
IF #t_Activar AND NOT "DB2015_M".M[#for_i].Alarmas_General THEN
"DB2015_M".M[#for_i].Estado_Salida := TRUE;
ELSE
"DB2015_M".M[#for_i].Estado_Salida := FALSE;
END_IF;
END_CASE;
END_REGION ESCRITURA_SALIDA
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2015_M".M[#for_i].Orden_ActivarAuto := FALSE;
"DB2015_M".M[#for_i].Estado_Enclavado := FALSE;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2015_M".M[#for_i].Estado_AutoMan AND NOT "DB2015_M".M[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_15_DISP_M",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2015_M".M[#for_i].Estado_AutoMan AND "DB2015_M".M[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_15_DISP_M",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2015_M".M[#for_i].Estado_AutoMan AND "DB2015_M".M[#for_i].Estado_Activado AND NOT "DB2015_M".M[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_15_DISP_M",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2015_M".M[#for_i].Estado_AutoMan AND NOT "DB2015_M".M[#for_i].Estado_Activado AND "DB2015_M".M[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_15_DISP_M",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION TRAZABILIDAD_MANUALIZACION
// =============================================================================
// Estado anterior manual/automatico
"DB2015_M".M[#for_i].Aux_oldAutoMan := "DB2015_M".M[#for_i].Estado_AutoMan;
"DB2015_M".M[#for_i].Aux_oldActivado := "DB2015_M".M[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2015_M".M[#for_i].Alarmas_General := FALSE;
"DB2015_M".M[#for_i].Alarmas_Termico := FALSE;
"DB2015_M".M[#for_i].Alarmas_ConfirmacionMarcha := FALSE;
"DB2015_M".M[#for_i].Alarmas_Mantenimiento := FALSE;
"DB2015_M".M[#for_i].Estado_EntradaTermico := FALSE;
"DB2015_M".M[#for_i].Estado_EntradaConfMarcha := FALSE;
"DB2015_M".M[#for_i].Estado_Enclavado := FALSE;
"DB2015_M".M[#for_i].Estado_Salida := FALSE;
"DB2015_M".M[#for_i].Orden_ActivarAuto := FALSE;
"DB2015_M".M[#for_i].Estado_Activado := FALSE;
"DB2015_M".M[#for_i].Tiempos_Alarma := 0;
"DB2015_M".M[#for_i].Orden_ActivarManual := FALSE;
"DB2015_M".M[#for_i].Estado_AutoMan := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 alarmas General
// Bit 9 alarmas 1
// Bit 10 alarmas 2
// Bit 11 alarmas 3
// Bit 12 alarmas 4
// Bit 13 alarmas Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2015_M".M[#for_i].Hmi_Estado.%X0 := "DB2015_M".M[#for_i].Config_Habilitar;
"DB2015_M".M[#for_i].Hmi_Estado.%X1 := "DB2015_M".M[#for_i].Estado_AutoMan;
"DB2015_M".M[#for_i].Hmi_Estado.%X2 := "DB2015_M".M[#for_i].Estado_Enclavado;
"DB2015_M".M[#for_i].Hmi_Estado.%X3 := "DB2015_M".M[#for_i].Estado_Activado;
"DB2015_M".M[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X8 := "DB2015_M".M[#for_i].Alarmas_General;
"DB2015_M".M[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X13 := "DB2015_M".M[#for_i].Alarmas_Mantenimiento;
"DB2015_M".M[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2015_M".M[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION GESTION_HMI
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA alarmas
IF "DB2015_M".M[#for_i].Alarmas_General AND NOT "DB2015_M".M[#for_i].Aux_oldAlarma THEN
"DB2015_M".Agrup["DB2015_M".M[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmass
"DB2015_M".M[#for_i].Aux_oldAlarma := "DB2015_M".M[#for_i].Alarmas_General;
END_REGION GESTION_NUEVA_ALARMA
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2015_M".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION LOGICA_DEL_DISPOSITIVO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2016_ZC_M_VF.s7dcl
+703
View File
@@ -0,0 +1,703 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_4yh";
S7_BlockNumber := "2016";
S7_BlockTitle := "MLC_4Pg";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2016_ZC_M_VF" : Void
VAR_INPUT
{ S7_MLC := "MLC_4G3" }
Pulso1seg : Bool;
{ S7_MLC := "MLC_3hd" }
Simulacion : Bool;
{ S7_MLC := "MLC_cH" }
Arranque : Bool;
{ S7_MLC := "MLC_33e" }
Ack : Bool;
{ S7_MLC := "MLC_3GW" }
SeguridadesOK : Bool;
{ S7_MLC := "MLC_39w" }
UsuarioActual : String;
{ S7_MLC := "MLC_Nh" }
FechaHoraActual : DTL;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_ErrorTermico : Bool;
t_ErrorConfirmacionMarcha : Bool;
t_Frecuencia : Real;
t_x : Real;
t_x0 : Real;
t_x1 : Real;
t_y0 : Real;
t_y1 : Real;
t_ValorSalida : Real;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Motor con variador de frecuencia.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el tiempo en marcha
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO`, `FC15025_ZC_CONTADOR_TIEMPO` |
| FB | - |
| DB | DB2016_DISP_M_VF |
| UDT | ZC_DISP_M_VF, ZC_DISP_MUX_M_VF, `ZC_CONTADOR_TIEMPO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version. |
| 00.00.02 | 28.11.2020 | (ABH) | Añadidas alarmas mantenimiento |
| 00.00.03 | 26.10.2021 | (ABH) | Se integra la gestion de directo/inverso |
| 00.00.04 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. Se quita el enclavamiento para orden manual. |
| 00.00.05 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.06 | 27.04.2022 | (HCR) | Si no esta habilitado se quita orden manual y se quita el estado manual. Se agrega Ack para alarmas de confirmación de marcha. Se mantiene el estado cuando se pasa a manual. Cambio en lógica de errores. Cambio en la escritura de la salida. Cambio en laógica de modos |
| 00.00.07 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones |
| 00.00.08 | 08.11.2022 | (HCR) | Se añade trazabilidad de activación manual |
| 00.00.09 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento |
| 00.00.10 | 18.09.2023 | (ABH) | Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO |
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado Se añade movimiento de M[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.13 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.14 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.15 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.16 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.17 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2016_M_VF".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2016_M_VF".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2016_M_VF".NumDispositivos := "N_MAX_DISP_M_VF";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_M_VF" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_M_VF";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2016_M_VF".M_VF[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma < 0 THEN
"DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
// =============================================================================
// PUESTA A CERO DE LA SALIDA
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
REGION LECTURA_VALORES
CASE "DB2016_M_VF".M_VF[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
(* AREA: Pueden seleccionarse las siguientes áreas: 16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#1: Entrada de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección en la que se lee. Solo se utilizan los 16 bits menos significativos.*)
IF "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoByte >= 0 THEN
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoBit);
IF "DB2016_M_VF".M_VF[#for_i].Config_HabilitarInvertirTermico THEN
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoBit));
END_IF;
END_IF;
// =============================================================================
// RETORNO CONFIRMACION DE MARCHA
IF "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaByte >= 0 THEN
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaBit);
IF "DB2016_M_VF".M_VF[#for_i].Config_HabilitarInvertirConfMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaBit));
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
;
END_CASE;
END_REGION LECTURA_VALORES
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan THEN
"DB2016_M_VF".Agrup["DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual = TRUE AND #SeguridadesOK AND "DB2016_M_VF".M_VF[#for_i].Estado_SeguridadOk AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico THEN //En caso de enclavar manual NOT "DB2037_TMF1_DISP_M_VF".M_VF[#i].Estado_Enclavado
#t_Activar := TRUE;
#t_Frecuencia := "DB2016_M_VF".M_VF[#for_i].Orden_ConsignaManual;
ELSE
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan THEN
IF "DB2016_M_VF".M_VF[#for_i].Orden_ActivarAuto = TRUE AND NOT "DB2016_M_VF".M_VF[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2016_M_VF".M_VF[#for_i].Estado_SeguridadOk AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico THEN
#t_Activar := TRUE;
#t_Frecuencia := "DB2016_M_VF".M_VF[#for_i].Orden_ConsignaAuto;
"DB2016_M_VF".M_VF[#for_i].Orden_ConsignaManual := "DB2016_M_VF".M_VF[#for_i].Orden_ConsignaAuto;
ELSE
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
END_IF;
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual := "DB2016_M_VF".M_VF[#for_i].Estado_Activado;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// MOTOR SIMULADO
IF #Simulacion THEN
IF #t_Activar THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO TERMICO Y CONFIRMACION DE MARCHA
IF NOT #Simulacion AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha
THEN
IF NOT "DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico AND "DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO SOLO TERMICO
IF NOT #Simulacion AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND NOT "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF NOT "DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico AND #t_Activar THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO SOLO CONFIRMACION DE MARCHA
IF NOT #Simulacion AND NOT "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF "DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR SIN RETORNOS
IF NOT #Simulacion AND NOT "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND NOT "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF #t_Activar THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION ERRORES
// =============================================================================
// CHEQUEO RETORNO TERMICO
IF NOT #Simulacion AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND "DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico THEN
#t_ErrorTermico := TRUE;
ELSE
#t_ErrorTermico := FALSE;
END_IF;
// =============================================================================
// CHEQUEO RETORNO CONFIRMACION DE MARCHA
IF NOT #Simulacion AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha AND
(
(#t_Activar AND NOT "DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha)
OR
(NOT #t_Activar AND "DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha)
) THEN
#t_ErrorConfirmacionMarcha := TRUE;
ELSE
#t_ErrorConfirmacionMarcha := FALSE;
END_IF;
// =============================================================================
// TEMPORIZADO DE ERRORES
IF "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha
AND #t_ErrorConfirmacionMarcha
AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha
AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico
THEN
IF NOT #Simulacion AND #Pulso1seg THEN
"DB2016_M_VF".M_VF[#for_i].Tiempos_Alarma += 1;
END_IF;
ELSE
"DB2016_M_VF".M_VF[#for_i].Tiempos_Alarma := 0;
END_IF;
// =============================================================================
// ERROR TERMICO
IF #t_ErrorTermico THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_Termico := TRUE;
END_IF;
IF NOT #t_ErrorTermico THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_Termico := FALSE;
END_IF;
// =============================================================================
// ERROR CONFIRMACION DE MARCHA
IF "DB2016_M_VF".M_VF[#for_i].Tiempos_Alarma >= "DB2016_M_VF".M_VF[#for_i].Tiempos_SetPointAlarma AND #t_ErrorConfirmacionMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha := TRUE;
END_IF;
IF NOT #t_ErrorConfirmacionMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha := FALSE;
END_IF;
// =============================================================================
// ERROR GLOBAL
IF "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico OR
"DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha
THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_General := TRUE;
END_IF;
IF #Ack AND
NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico AND
NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha
THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_General := FALSE;
END_IF;
//"DB2016_M_VF".M_VF[#for_i].Alarmas_General := "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico OR "DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha OR "DB2016_M_VF".M_VF[#for_i].Alarmas_Escritura;
IF "DB2016_M_VF".M_VF[#for_i].Alarmas_General THEN
"DB2016_M_VF".Agrup["DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
// =============================================================================
// SI TENEMOS UN ERROR DESACTIVAMOS LA SALIDA
#t_Frecuencia := 0.0;
END_IF;
END_REGION ERRORES
REGION DIAGNOSIS
// =============================================================================
// CONTADOR DE HORAS DE FUNCIONAMIENTO
IF "DB2016_M_VF".M_VF[#for_i].Orden_ResetHoras THEN
"DB2016_M_VF".M_VF[#for_i].Orden_ResetHoras := FALSE;
END_IF;
IF NOT #Simulacion AND #Pulso1seg AND "DB2016_M_VF".M_VF[#for_i].Estado_Activado THEN
"DB2016_M_VF".M_VF[#for_i].Tiempos_Mantenimiento += 0.00027778;
END_IF;
// =============================================================================
// ALARMA HORAS PARA MANTENIMIENTO ALCANZADOS
"DB2016_M_VF".M_VF[#for_i].Alarmas_Mantenimiento := FALSE;
IF "DB2016_M_VF".M_VF[#for_i].Config_HabilitarMantenimiento
AND
"DB2016_M_VF".M_VF[#for_i].Tiempos_Mantenimiento > "DB2016_M_VF".M_VF[#for_i].Tiempos_SetPointMantenimiento
THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_Mantenimiento := TRUE;
END_IF;
END_REGION DIAGNOSIS
REGION ESCRITURA_SALIDA
CASE "DB2016_M_VF".M_VF[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA SALIDA
(* AREA: Pueden seleccionarse las siguientes áreas:16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#2: Salida de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección que se escribe, Solo se utilizan los 16 bits menos significativos.
BITOFFSET: Bit que se escribe,
VALUE: Valor que se escribe *)
IF "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaByte >= 0 THEN
IF #t_Activar AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_General THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Salida := TRUE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaBit,
value := TRUE);
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Salida := FALSE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaBit,
value := FALSE);
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
IF #t_Activar AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_General THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Salida := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Salida := FALSE;
END_IF;
END_CASE;
END_REGION ESCRITURA_SALIDA
REGION SALIDA
// =============================================================================
// TRASPASO DE PARAMETROS
"DB2016_M_VF".M_VF[#for_i].Estado_ValorActual := #t_Frecuencia;
// =============================================================================
// CONVERSIÓN DE VALORES
#t_y0 := INT_TO_REAL(0);
#t_y1 := INT_TO_REAL(27648);
#t_x := "DB2016_M_VF".M_VF[#for_i].Estado_ValorActual;
#t_x0 := "DB2016_M_VF".M_VF[#for_i].Config_EscaladoMinIngenieria;
#t_x1 := "DB2016_M_VF".M_VF[#for_i].Config_EscaladoMaxIngenieria;
// SI TENEMOS ORDEN DE ACTIVAR
IF #t_Activar THEN
// =============================================================================
// ESCALADO Y = (X-x0)*((y1-y0)/(x1-x0)) + y0
IF "DB2016_M_VF".M_VF[#for_i].Config_EscaladoMaxIngenieria > "DB2016_M_VF".M_VF[#for_i].Config_EscaladoMinIngenieria THEN
#t_ValorSalida := ((#t_x - #t_x0) * ((#t_y1 - #t_y0) / (#t_x1 - #t_x0))) + #t_y0;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Parametros := FALSE;
ELSE
#t_ValorSalida := 0.0;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Parametros := TRUE;
END_IF;
ELSE
#t_ValorSalida := 0.0;
END_IF;
REGION ESCRITURA_SALIDA
CASE "DB2016_M_VF".M_VF[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA DEL CANAL - POKE (area) 16#2 para CPU 1500 ; 16#82 para CPU 1200
IF "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaAnalogicaByte > 0 THEN
"DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta := REAL_TO_INT(#t_ValorSalida);
POKE(area := 16#82,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaAnalogicaByte,
value := INT_TO_WORD("DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta));
"DB2016_M_VF".M_VF[#for_i].Estado_Escritura := GET_ERR_ID();
IF "DB2016_M_VF".M_VF[#for_i].Estado_Escritura <> 0 THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_Escritura := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Alarmas_Escritura := FALSE;
END_IF;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta := 0;
END_IF;
#TIPO_ACCESO_PLC:
// =============================================================================
// ESCRITURA VALORES DE LA TARJETA
"DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta := REAL_TO_INT(#t_ValorSalida);
END_CASE;
END_REGION ESCRITURA_SALIDA
END_REGION SALIDA
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarAuto := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_Enclavado := FALSE;
"DB2016_M_VF".M_VF[#for_i].Orden_ConsignaAuto := 0.0;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan AND NOT "DB2016_M_VF".M_VF[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_16_DISP_M_VF",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_VF",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan AND "DB2016_M_VF".M_VF[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_16_DISP_M_VF",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_VF",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan AND "DB2016_M_VF".M_VF[#for_i].Estado_Activado AND NOT "DB2016_M_VF".M_VF[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_16_DISP_M_VF",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_VF",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan AND NOT "DB2016_M_VF".M_VF[#for_i].Estado_Activado AND "DB2016_M_VF".M_VF[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_16_DISP_M_VF",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_VF",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION TRAZABILIDAD_MANUALIZACION
// =============================================================================
// Estado anterior manual/automatico
"DB2016_M_VF".M_VF[#for_i].Aux_oldAutoMan := "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan;
"DB2016_M_VF".M_VF[#for_i].Aux_oldActivado := "DB2016_M_VF".M_VF[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2016_M_VF".M_VF[#for_i].Alarmas_General := FALSE;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Termico := FALSE;
"DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha := FALSE;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Mantenimiento := FALSE;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Escritura := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_Enclavado := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta := 0;
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarAuto := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
"DB2016_M_VF".M_VF[#for_i].Tiempos_Alarma := 0;
"DB2016_M_VF".M_VF[#for_i].Orden_ConsignaAuto := 0.0;
"DB2016_M_VF".M_VF[#for_i].Orden_ConsignaManual := 0.0;
"DB2016_M_VF".M_VF[#for_i].Estado_ValorActual := 0.0;
"DB2016_M_VF".M_VF[#for_i].Estado_AutoMan := FALSE;
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X0 := "DB2016_M_VF".M_VF[#for_i].Config_Habilitar;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X1 := "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X2 := "DB2016_M_VF".M_VF[#for_i].Estado_Enclavado;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X3 := "DB2016_M_VF".M_VF[#for_i].Estado_Activado;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X8 := "DB2016_M_VF".M_VF[#for_i].Alarmas_General;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X13 := "DB2016_M_VF".M_VF[#for_i].Alarmas_Mantenimiento;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION GESTION_HMI
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2016_M_VF".M_VF[#for_i].Alarmas_General AND NOT "DB2016_M_VF".M_VF[#for_i].Aux_oldAlarma THEN
"DB2016_M_VF".Agrup["DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2016_M_VF".M_VF[#for_i].Aux_oldAlarma := "DB2016_M_VF".M_VF[#for_i].Alarmas_General;
END_REGION GESTION_NUEVA_ALARMA
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2016_M_VF".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION LOGICA_DEL_DISPOSITIVO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2016_ZC_M_VF.s7res
+19
View File
@@ -0,0 +1,19 @@
MultiLingualTexts:
- id: MLC_4Pg
es-ES: FC2016_M_VF
- id: MLC_4yh
es-ES: Modelo de dispositivo motor variador
- id: MLC_4G3
es-ES: Pulso de 1 segundo
- id: MLC_3hd
es-ES: Simulacion
- id: MLC_cH
es-ES: Primer arranque
- id: MLC_33e
es-ES: Acuse general
- id: MLC_3GW
es-ES: Seguridades OK
- id: MLC_39w
es-ES: Usuario actual
- id: MLC_Nh
es-ES: Fecha y hora actual
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2016_ZC_M_VF.scl
-694
View File
@@ -1,694 +0,0 @@
FUNCTION "FC2016_ZC_M_VF" : Void
TITLE = FC2016_M_VF
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Modelo de dispositivo motor variador
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
Simulacion : Bool; // Simulacion
Arranque : Bool; // Primer arranque
Ack : Bool; // Acuse general
SeguridadesOK : Bool; // Seguridades OK
UsuarioActual : String; // Usuario actual
FechaHoraActual {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; // Fecha y hora actual
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Activar : Bool;
t_ErrorTermico : Bool;
t_ErrorConfirmacionMarcha : Bool;
t_Frecuencia : Real;
t_x : Real;
t_x0 : Real;
t_x1 : Real;
t_y0 : Real;
t_y1 : Real;
t_ValorSalida : Real;
END_VAR
VAR CONSTANT
TIPO_ACCESO_INDIRECTO : SInt := 0;
TIPO_ACCESO_PLC : SInt := 1;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Motor con variador de frecuencia.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el tiempo en marcha
- Se gestiona la orden de escritura
- Se gestiona la trazabilidad de las manualizaciones del dispositivo
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO`, `FC15025_ZC_CONTADOR_TIEMPO` |
| FB | - |
| DB | DB2016_DISP_M_VF |
| UDT | ZC_DISP_M_VF, ZC_DISP_MUX_M_VF, `ZC_CONTADOR_TIEMPO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version. |
| 00.00.02 | 28.11.2020 | (ABH) | Añadidas alarmas mantenimiento |
| 00.00.03 | 26.10.2021 | (ABH) | Se integra la gestion de directo/inverso |
| 00.00.04 | 26.04.2022 | (HCR) | Cambio en la organizacion del UDT. Se organiza en estructuras en base al tipo de funcion que realizan los datos. Se quita el enclavamiento para orden manual. |
| 00.00.05 | 27.04.2022 | (ABH) | Se añaden auxiliares de estado anterior del modo manual y automatico para poder registrar las trazas. |
| 00.00.06 | 27.04.2022 | (HCR) | Si no esta habilitado se quita orden manual y se quita el estado manual. Se agrega Ack para alarmas de confirmación de marcha. Se mantiene el estado cuando se pasa a manual. Cambio en lógica de errores. Cambio en la escritura de la salida. Cambio en laógica de modos |
| 00.00.07 | 08.11.2022 | (ABH) | Se añade trazabilidad manualizaciones |
| 00.00.08 | 08.11.2022 | (HCR) | Se añade trazabilidad de activación manual |
| 00.00.09 | 08.11.2022 | (HCR) | Cambio lógica enclavamiento |
| 00.00.10 | 18.09.2023 | (ABH) | Cambio en tipo de dato de horas de alarma. Se utiliza el tipo de dato ZC_CONTADOR_TIEMPO y el FC15025_ZC_CONTADOR_TIEMPO |
| 00.00.11 | 22.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.12 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado Se añade movimiento de M[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.13 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 00.00.14 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.15 | 24.04.2025 | (HCR) | Se añade gestion de idioma |
| 00.00.16 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traduccion. |
| 00.00.17 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza codigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. Se elimina nombre de UDT. Se añade indexHMI para lista de texto en sistemas de supervision. |
| 01.00.00 | 18.05.2026 | (ABH) | Se añade variable `Config_TipoAcceso` para uso de direccionamiento indirecto o uso directo en PLC. |
| 01.01.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2016_M_VF".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2016_M_VF".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2016_M_VF".NumDispositivos := "N_MAX_DISP_M_VF";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_M_VF" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_M_VF";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// DISPOSITIVO HABILITADO
// =============================================================================
IF "DB2016_M_VF".M_VF[#for_i].Config_Habilitar THEN
REGION LIMITE_GRUPO_ALARMA
IF "DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma < 0 THEN
"DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma := 0;
END_IF;
IF "DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma > "N_MAX_DISP_AGRUP" THEN
"DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma := "N_MAX_DISP_AGRUP";
END_IF;
END_REGION LIMITE_GRUPO_ALARMA
// =============================================================================
// PUESTA A CERO DE LA SALIDA
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
REGION LECTURA_VALORES
CASE "DB2016_M_VF".M_VF[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
(* AREA: Pueden seleccionarse las siguientes áreas: 16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#1: Entrada de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección en la que se lee. Solo se utilizan los 16 bits menos significativos.*)
IF "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoByte >= 0 THEN
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoBit);
IF "DB2016_M_VF".M_VF[#for_i].Config_HabilitarInvertirTermico THEN
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetTermicoBit));
END_IF;
END_IF;
// =============================================================================
// RETORNO CONFIRMACION DE MARCHA
IF "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaByte >= 0 THEN
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaBit);
IF "DB2016_M_VF".M_VF[#for_i].Config_HabilitarInvertirConfMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha := NOT (PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionRetConfMarchaBit));
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
;
END_CASE;
END_REGION LECTURA_VALORES
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan THEN
"DB2016_M_VF".Agrup["DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
IF "DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual = TRUE AND #SeguridadesOK AND "DB2016_M_VF".M_VF[#for_i].Estado_SeguridadOk AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico THEN //En caso de enclavar manual NOT "DB2037_TMF1_DISP_M_VF".M_VF[#i].Estado_Enclavado
#t_Activar := TRUE;
#t_Frecuencia := "DB2016_M_VF".M_VF[#for_i].Orden_ConsignaManual;
ELSE
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual := FALSE;
END_IF;
ELSE
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual := FALSE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan THEN
IF "DB2016_M_VF".M_VF[#for_i].Orden_ActivarAuto = TRUE AND NOT "DB2016_M_VF".M_VF[#for_i].Estado_Enclavado AND #SeguridadesOK AND "DB2016_M_VF".M_VF[#for_i].Estado_SeguridadOk AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico THEN
#t_Activar := TRUE;
#t_Frecuencia := "DB2016_M_VF".M_VF[#for_i].Orden_ConsignaAuto;
"DB2016_M_VF".M_VF[#for_i].Orden_ConsignaManual := "DB2016_M_VF".M_VF[#for_i].Orden_ConsignaAuto;
ELSE
#t_Activar := FALSE;
#t_Frecuencia := 0.0;
END_IF;
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual := "DB2016_M_VF".M_VF[#for_i].Estado_Activado;
END_IF;
END_REGION MODOS_DE_TRABAJO
REGION ESTADO_DEL_DISPOSITIVO
// =============================================================================
// MOTOR SIMULADO
IF #Simulacion THEN
IF #t_Activar THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO TERMICO Y CONFIRMACION DE MARCHA
IF NOT #Simulacion AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha
THEN
IF NOT "DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico AND "DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO SOLO TERMICO
IF NOT #Simulacion AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND NOT "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF NOT "DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico AND #t_Activar THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR RETORNO SOLO CONFIRMACION DE MARCHA
IF NOT #Simulacion AND NOT "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF "DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
// =============================================================================
// MOTOR SIN RETORNOS
IF NOT #Simulacion AND NOT "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND NOT "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha THEN
IF #t_Activar THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
END_IF;
END_IF;
END_REGION ESTADO_DEL_DISPOSITIVO
REGION ERRORES
// =============================================================================
// CHEQUEO RETORNO TERMICO
IF NOT #Simulacion AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoTermico
AND "DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico THEN
#t_ErrorTermico := TRUE;
ELSE
#t_ErrorTermico := FALSE;
END_IF;
// =============================================================================
// CHEQUEO RETORNO CONFIRMACION DE MARCHA
IF NOT #Simulacion AND "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha AND
(
(#t_Activar AND NOT "DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha)
OR
(NOT #t_Activar AND "DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha)
) THEN
#t_ErrorConfirmacionMarcha := TRUE;
ELSE
#t_ErrorConfirmacionMarcha := FALSE;
END_IF;
// =============================================================================
// TEMPORIZADO DE ERRORES
IF "DB2016_M_VF".M_VF[#for_i].Config_HabilitarRetornoConfMarcha
AND #t_ErrorConfirmacionMarcha
AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha
AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico
THEN
IF NOT #Simulacion AND #Pulso1seg THEN
"DB2016_M_VF".M_VF[#for_i].Tiempos_Alarma += 1;
END_IF;
ELSE
"DB2016_M_VF".M_VF[#for_i].Tiempos_Alarma := 0;
END_IF;
// =============================================================================
// ERROR TERMICO
IF #t_ErrorTermico THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_Termico := TRUE;
END_IF;
IF NOT #t_ErrorTermico THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_Termico := FALSE;
END_IF;
// =============================================================================
// ERROR CONFIRMACION DE MARCHA
IF "DB2016_M_VF".M_VF[#for_i].Tiempos_Alarma >= "DB2016_M_VF".M_VF[#for_i].Tiempos_SetPointAlarma AND #t_ErrorConfirmacionMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha := TRUE;
END_IF;
IF NOT #t_ErrorConfirmacionMarcha THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha := FALSE;
END_IF;
// =============================================================================
// ERROR GLOBAL
IF "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico OR
"DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha
THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_General := TRUE;
END_IF;
IF #Ack AND
NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico AND
NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha
THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_General := FALSE;
END_IF;
//"DB2016_M_VF".M_VF[#for_i].Alarmas_General := "DB2016_M_VF".M_VF[#for_i].Alarmas_Termico OR "DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha OR "DB2016_M_VF".M_VF[#for_i].Alarmas_Escritura;
IF "DB2016_M_VF".M_VF[#for_i].Alarmas_General THEN
"DB2016_M_VF".Agrup["DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma].AlgunaAlarma := TRUE;
// =============================================================================
// SI TENEMOS UN ERROR DESACTIVAMOS LA SALIDA
#t_Frecuencia := 0.0;
END_IF;
END_REGION ERRORES
REGION DIAGNOSIS
// =============================================================================
// CONTADOR DE HORAS DE FUNCIONAMIENTO
IF "DB2016_M_VF".M_VF[#for_i].Orden_ResetHoras THEN
"DB2016_M_VF".M_VF[#for_i].Orden_ResetHoras := FALSE;
END_IF;
IF NOT #Simulacion AND #Pulso1seg AND "DB2016_M_VF".M_VF[#for_i].Estado_Activado THEN
"DB2016_M_VF".M_VF[#for_i].Tiempos_Mantenimiento += 0.00027778;
END_IF;
// =============================================================================
// ALARMA HORAS PARA MANTENIMIENTO ALCANZADOS
"DB2016_M_VF".M_VF[#for_i].Alarmas_Mantenimiento := FALSE;
IF "DB2016_M_VF".M_VF[#for_i].Config_HabilitarMantenimiento
AND
"DB2016_M_VF".M_VF[#for_i].Tiempos_Mantenimiento > "DB2016_M_VF".M_VF[#for_i].Tiempos_SetPointMantenimiento
THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_Mantenimiento := TRUE;
END_IF;
END_REGION DIAGNOSIS
REGION ESCRITURA_SALIDA
CASE "DB2016_M_VF".M_VF[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA SALIDA
(* AREA: Pueden seleccionarse las siguientes áreas:16#81: Input, 16#82: Output, 16#83: Marcas, 16#84: DB, 16#2: Salida de periferia (solo S7-1500)
DBNUMBER: Número del bloque de datos si AREA = DB, de lo contrario "0"
BYTEOFFSET: Dirección que se escribe, Solo se utilizan los 16 bits menos significativos.
BITOFFSET: Bit que se escribe,
VALUE: Valor que se escribe *)
IF "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaByte >= 0 THEN
IF #t_Activar AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_General THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Salida := TRUE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaBit,
value := TRUE);
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Salida := FALSE;
POKE_BOOL(area := 16#82,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaByte,
bitOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaBit,
value := FALSE);
END_IF;
END_IF;
#TIPO_ACCESO_PLC:
IF #t_Activar AND NOT "DB2016_M_VF".M_VF[#for_i].Alarmas_General THEN
"DB2016_M_VF".M_VF[#for_i].Estado_Salida := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_Salida := FALSE;
END_IF;
END_CASE;
END_REGION ESCRITURA_SALIDA
REGION SALIDA
// =============================================================================
// TRASPASO DE PARAMETROS
"DB2016_M_VF".M_VF[#for_i].Estado_ValorActual := #t_Frecuencia;
// =============================================================================
// CONVERSIÓN DE VALORES
#t_y0 := INT_TO_REAL(0);
#t_y1 := INT_TO_REAL(27648);
#t_x := "DB2016_M_VF".M_VF[#for_i].Estado_ValorActual;
#t_x0 := "DB2016_M_VF".M_VF[#for_i].Config_EscaladoMinIngenieria;
#t_x1 := "DB2016_M_VF".M_VF[#for_i].Config_EscaladoMaxIngenieria;
// SI TENEMOS ORDEN DE ACTIVAR
IF #t_Activar THEN
// =============================================================================
// ESCALADO Y = (X-x0)*((y1-y0)/(x1-x0)) + y0
IF "DB2016_M_VF".M_VF[#for_i].Config_EscaladoMaxIngenieria > "DB2016_M_VF".M_VF[#for_i].Config_EscaladoMinIngenieria THEN
#t_ValorSalida := ((#t_x - #t_x0) * ((#t_y1 - #t_y0) / (#t_x1 - #t_x0))) + #t_y0;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Parametros := FALSE;
ELSE
#t_ValorSalida := 0.0;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Parametros := TRUE;
END_IF;
ELSE
#t_ValorSalida := 0.0;
END_IF;
REGION ESCRITURA_SALIDA
CASE "DB2016_M_VF".M_VF[#for_i].Config_TipoAcceso OF
#TIPO_ACCESO_INDIRECTO:
// =============================================================================
// ESCRITURA DEL CANAL - POKE (area) 16#2 para CPU 1500 ; 16#82 para CPU 1200
IF "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaAnalogicaByte > 0 THEN
"DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta := REAL_TO_INT(#t_ValorSalida);
POKE(area := 16#82,
dbNumber := 0,
byteOffset := "DB2016_M_VF".M_VF[#for_i].Config_DireccionSalidaAnalogicaByte,
value := INT_TO_WORD("DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta));
"DB2016_M_VF".M_VF[#for_i].Estado_Escritura := GET_ERR_ID();
IF "DB2016_M_VF".M_VF[#for_i].Estado_Escritura <> 0 THEN
"DB2016_M_VF".M_VF[#for_i].Alarmas_Escritura := TRUE;
ELSE
"DB2016_M_VF".M_VF[#for_i].Alarmas_Escritura := FALSE;
END_IF;
ELSE
"DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta := 0;
END_IF;
#TIPO_ACCESO_PLC:
// =============================================================================
// ESCRITURA VALORES DE LA TARJETA
"DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta := REAL_TO_INT(#t_ValorSalida);
END_CASE;
END_REGION ESCRITURA_SALIDA
END_REGION SALIDA
// =============================================================================
// RESET ORDEN ACTIVAR EN AUTO
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarAuto := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_Enclavado := FALSE;
"DB2016_M_VF".M_VF[#for_i].Orden_ConsignaAuto := 0.0;
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan AND NOT "DB2016_M_VF".M_VF[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_16_DISP_M_VF",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_VF",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan AND "DB2016_M_VF".M_VF[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_16_DISP_M_VF",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_VF",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan AND "DB2016_M_VF".M_VF[#for_i].Estado_Activado AND NOT "DB2016_M_VF".M_VF[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_16_DISP_M_VF",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_VF",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan AND NOT "DB2016_M_VF".M_VF[#for_i].Estado_Activado AND "DB2016_M_VF".M_VF[#for_i].Aux_oldActivado THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := #FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_16_DISP_M_VF",
User := #UsuarioActual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_M_VF",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION TRAZABILIDAD_MANUALIZACION
// =============================================================================
// Estado anterior manual/automatico
"DB2016_M_VF".M_VF[#for_i].Aux_oldAutoMan := "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan;
"DB2016_M_VF".M_VF[#for_i].Aux_oldActivado := "DB2016_M_VF".M_VF[#for_i].Estado_Activado;
ELSE
// =============================================================================
// DISPOSITIVO NO HABILITADO
// =============================================================================
"DB2016_M_VF".M_VF[#for_i].Alarmas_General := FALSE;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Termico := FALSE;
"DB2016_M_VF".M_VF[#for_i].Alarmas_ConfirmacionMarcha := FALSE;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Mantenimiento := FALSE;
"DB2016_M_VF".M_VF[#for_i].Alarmas_Escritura := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaTermico := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_EntradaConfMarcha := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_Enclavado := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_ValorTarjeta := 0;
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarAuto := FALSE;
"DB2016_M_VF".M_VF[#for_i].Estado_Activado := FALSE;
"DB2016_M_VF".M_VF[#for_i].Tiempos_Alarma := 0;
"DB2016_M_VF".M_VF[#for_i].Orden_ConsignaAuto := 0.0;
"DB2016_M_VF".M_VF[#for_i].Orden_ConsignaManual := 0.0;
"DB2016_M_VF".M_VF[#for_i].Estado_ValorActual := 0.0;
"DB2016_M_VF".M_VF[#for_i].Estado_AutoMan := FALSE;
"DB2016_M_VF".M_VF[#for_i].Orden_ActivarManual := FALSE;
END_IF;
REGION GESTION_HMI
// =============================================================================
// GESTION BITS PARA VISUALIZACION
// Bit 0 Habilitacion
// Bit 1 ManualAutomatico
// Bit 2 Enclavado
// Bit 3 Activado 1
// Bit 4 Activado 2
// Bit 5 Reserva
// Bit 6 Reserva
// Bit 7 Reserva
// Bit 8 Alarma General
// Bit 9 Alarma 1
// Bit 10 Alarma 2
// Bit 11 Alarma 3
// Bit 12 Alarma 4
// Bit 13 Alarma Mantenimiento
// Bit 14 Reserva
// Bit 15 Reserva
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X0 := "DB2016_M_VF".M_VF[#for_i].Config_Habilitar;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X1 := "DB2016_M_VF".M_VF[#for_i].Estado_AutoMan;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X2 := "DB2016_M_VF".M_VF[#for_i].Estado_Enclavado;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X3 := "DB2016_M_VF".M_VF[#for_i].Estado_Activado;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X4 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X5 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X6 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X7 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X8 := "DB2016_M_VF".M_VF[#for_i].Alarmas_General;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X9 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X10 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X11 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X12 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X13 := "DB2016_M_VF".M_VF[#for_i].Alarmas_Mantenimiento;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X14 := FALSE;
"DB2016_M_VF".M_VF[#for_i].Hmi_Estado.%X15 := FALSE;
END_REGION GESTION_HMI
REGION GESTION_NUEVA_ALARMA
// =============================================================================
// DETECCION DE NUEVA ALARMA
IF "DB2016_M_VF".M_VF[#for_i].Alarmas_General AND NOT "DB2016_M_VF".M_VF[#for_i].Aux_oldAlarma THEN
"DB2016_M_VF".Agrup["DB2016_M_VF".M_VF[#for_i].Config_GrupoAlarma].NuevaAlarma := TRUE;
END_IF;
// Estado anterior de las alarmas
"DB2016_M_VF".M_VF[#for_i].Aux_oldAlarma := "DB2016_M_VF".M_VF[#for_i].Alarmas_General;
END_REGION GESTION_NUEVA_ALARMA
END_FOR;
// =============================================================================
// ACUSE DE NUEVAS ALARMAS
IF #Ack THEN
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2016_M_VF".Agrup[#for_i].NuevaAlarma := FALSE;
END_FOR;
END_IF;
END_REGION LOGICA_DEL_DISPOSITIVO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2025_ZC_TOT.s7dcl
+349
View File
@@ -0,0 +1,349 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_ax";
S7_BlockNumber := "2025";
S7_BlockTitle := "MLC_3tF";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2025_ZC_TOT" : Void
VAR_INPUT
{ S7_MLC := "MLC_4Yz" }
Pulso100ms : Bool;
{ S7_MLC := "MLC_39T" }
Simulacion : Bool;
{ S7_MLC := "MLC_nD" }
Arranque : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_CaudalSegundos : LReal;
t_LReal : LReal;
t_RT_Dummy : LReal;
END_VAR
VAR CONSTANT
{ S7_MLC := "MLC_4ux" }
VALOR_MAXIMO_CONTADORES : Real := 1000000.0;
{ S7_MLC := "MLC_4VC" }
NUMERO_MAXIMO_DESBORDE : Int := 32000;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Totalizador.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el contaje del totalizador por entrada digital o por entrada analogica
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version. |
| 00.00.02 | 28.01.2022 | (HCR) | Se añade corrección. |
| 00.00.03 | 05.09.2023 | (HCR) | Se añade contador por desborde |
| 00.00.04 | 18.09.2023 | (ABH) | Se estandariza nombre variables para gestion de tiempo de ciclo para integracion de EA. |
| 00.00.05 | 28.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.06 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado. Se añade movimiento de TOT[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.07 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 01.00.00 | 28.07.2025 | (ABH) | Se extrae el multiplexado a FC independiente. Se corrige reset de ordenes reset totalizadores en multiplexado. Se añade totalizador usuario. |
*)
END_REGION DESCRIPCION
REGION TIEMPO_CICLO_INTEGRACION
// Tiempo ciclo para integración EA
"DB2025_TOT".TiempoCiclo.Actual := LREAL_TO_REAL(RUNTIME("DB2025_TOT".TiempoCiclo.auxMem));
"DB2025_TOT".TiempoCiclo.Actual := ("DB2025_TOT".TiempoCiclo.Actual * 1000.0);
END_REGION TIEMPO_CICLO_INTEGRACION
REGION LOGICA_DEL_DISPOSITIVO
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2025_TOT".NumDispositivos := "N_MAX_DISP_TOT";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_TOT" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TOT";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// Dispositivo habilitado
IF "DB2025_TOT".TOT[#for_i].Config_Habilitar THEN
REGION LECTURA_VALORES
REGION ENTRADA_PULSOS
IF NOT #Simulacion THEN
IF "DB2025_TOT".TOT[#for_i].Config_DireccionEntradaByte > 0 THEN
// Lectura de la entrada digital
"DB2025_TOT".TOT[#for_i].Estado_Pulso := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2025_TOT".TOT[#for_i].Config_DireccionEntradaByte,
bitOffset := "DB2025_TOT".TOT[#for_i].Config_DireccionEntradaBit);
END_IF;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Pulso := #Pulso100ms;
END_IF;
END_REGION ENTRADA_PULSOS
REGION CAUDAL
IF "DB2025_TOT".TOT[#for_i].Estado_Valor > 0.0 THEN
#t_CaudalSegundos := (("DB2025_TOT".TOT[#for_i].Estado_Valor / 3600000.0 * "DB2025_TOT".TiempoCiclo.Actual));
ELSE
#t_CaudalSegundos := 0.0;
END_IF;
END_REGION CAUDAL
END_REGION LECTURA_VALORES
REGION MODO_TRABAJO
REGION TOTALIZADORES
// Orden activacion totalizadores
IF "DB2025_TOT".TOT[#for_i].Orden_Activar THEN
// 0 = TOTALIZADOR POR PULSOS
// 1 = TOTALIZADOR POR EA
IF NOT "DB2025_TOT".TOT[#for_i].Config_Tipo THEN // Caudalímetro por Pulso
IF "DB2025_TOT".TOT[#for_i].Estado_Pulso AND NOT "DB2025_TOT".TOT[#for_i].Aux_oldActivado THEN
IF NOT "DB2025_TOT".TOT[#for_i].Config_IncrDecr THEN
"DB2025_TOT".TOT[#for_i].Estado_Parcial += "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
"DB2025_TOT".TOT[#for_i].Estado_Total += "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
"DB2025_TOT".TOT[#for_i].Estado_Proceso += "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Parcial -= "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
"DB2025_TOT".TOT[#for_i].Estado_Total -= "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
"DB2025_TOT".TOT[#for_i].Estado_Proceso -= "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
END_IF;
END_IF;
ELSE
// Totalizador por EA
IF NOT "DB2025_TOT".TOT[#for_i].Config_IncrDecr THEN
"DB2025_TOT".TOT[#for_i].Estado_Parcial += #t_CaudalSegundos;
"DB2025_TOT".TOT[#for_i].Estado_Total += #t_CaudalSegundos;
"DB2025_TOT".TOT[#for_i].Estado_Proceso += #t_CaudalSegundos;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Parcial -= #t_CaudalSegundos;
"DB2025_TOT".TOT[#for_i].Estado_Total -= #t_CaudalSegundos;
"DB2025_TOT".TOT[#for_i].Estado_Proceso -= #t_CaudalSegundos;
END_IF;
END_IF;
END_IF;
END_REGION TOTALIZADORES
REGION TOTALIZADOR_USUARIO
IF "DB2025_TOT".TOT[#for_i].Orden_Usuario THEN
// 0 = TOTALIZADOR POR PULSOS
// 1 = TOTALIZADOR POR EA
IF NOT "DB2025_TOT".TOT[#for_i].Config_Tipo THEN // Caudalímetro por Pulso
IF "DB2025_TOT".TOT[#for_i].Estado_Pulso AND NOT "DB2025_TOT".TOT[#for_i].Aux_oldActivado THEN
IF NOT "DB2025_TOT".TOT[#for_i].Config_IncrDecr THEN
"DB2025_TOT".TOT[#for_i].Estado_Usuario += "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Usuario -= "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
END_IF;
END_IF;
ELSE
// Totalizador por EA
IF NOT "DB2025_TOT".TOT[#for_i].Config_IncrDecr THEN
"DB2025_TOT".TOT[#for_i].Estado_Usuario += #t_CaudalSegundos;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Usuario -= #t_CaudalSegundos;
END_IF;
END_IF;
END_IF;
END_REGION TOTALIZADOR_USUARIO
REGION CALCULO_CAUDAL_TEORICO
IF NOT "DB2025_TOT".TOT[#for_i].Config_Tipo AND "DB2025_TOT".TOT[#for_i].Orden_Activar THEN
// Calculo teorico L/H
IF #Pulso100ms THEN
"DB2025_TOT".TOT[#for_i].Aux_AcuTiempo += 1;
IF "DB2025_TOT".TOT[#for_i].Aux_AcuTiempo > 10 THEN
#t_LReal := "DB2025_TOT".TOT[#for_i].Estado_Total - "DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem;
"DB2025_TOT".TOT[#for_i].Estado_Valor := LREAL_TO_REAL(#t_LReal) * 36000.0 / "DB2025_TOT".TOT[#for_i].Aux_AcuTiempo;
"DB2025_TOT".TOT[#for_i].Aux_AcuTiempo := 0;
"DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem := "DB2025_TOT".TOT[#for_i].Estado_Total;
END_IF;
END_IF;
ELSIF NOT "DB2025_TOT".TOT[#for_i].Config_Tipo AND "DB2025_TOT".TOT[#for_i].Orden_Usuario THEN
// Calculo teorico L/H
IF #Pulso100ms THEN
"DB2025_TOT".TOT[#for_i].Aux_AcuTiempo += 1;
IF "DB2025_TOT".TOT[#for_i].Aux_AcuTiempo > 10 THEN
#t_LReal := "DB2025_TOT".TOT[#for_i].Estado_Usuario - "DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem;
"DB2025_TOT".TOT[#for_i].Estado_Valor := LREAL_TO_REAL(#t_LReal) * 36000.0 / "DB2025_TOT".TOT[#for_i].Aux_AcuTiempo;
"DB2025_TOT".TOT[#for_i].Aux_AcuTiempo := 0;
"DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem := "DB2025_TOT".TOT[#for_i].Estado_Usuario;
END_IF;
END_IF;
ELSE
"DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem := 0.0;
END_IF;
END_REGION
// Estado anterior del pulso
"DB2025_TOT".TOT[#for_i].Aux_oldActivado := "DB2025_TOT".TOT[#for_i].Estado_Pulso;
END_REGION MODO_TRABAJO
REGION DIAGNOSIS
// Reset totalizador total por desbordamiento
IF "DB2025_TOT".TOT[#for_i].Estado_Total >= #VALOR_MAXIMO_CONTADORES THEN
"DB2025_TOT".TOT[#for_i].Estado_DesbordeTotal += 1;
"DB2025_TOT".TOT[#for_i].Estado_Total := 0.0;
END_IF;
// Reset totalizador parcial por desbordamiento
IF "DB2025_TOT".TOT[#for_i].Estado_Parcial >= #VALOR_MAXIMO_CONTADORES THEN
"DB2025_TOT".TOT[#for_i].Estado_DesbordeParcial += 1;
"DB2025_TOT".TOT[#for_i].Estado_Parcial := 0.0;
END_IF;
// Reset totalizador usuario por desbordamiento
IF "DB2025_TOT".TOT[#for_i].Estado_Usuario >= #VALOR_MAXIMO_CONTADORES THEN
"DB2025_TOT".TOT[#for_i].Estado_DesbordeUsuario += 1;
"DB2025_TOT".TOT[#for_i].Estado_Usuario := 0.0;
END_IF;
// Reset totalizador parcial
IF "DB2025_TOT".TOT[#for_i].Orden_ResetParcial OR "DB2025_TOT".TOT[#for_i].Estado_DesbordeParcial > #NUMERO_MAXIMO_DESBORDE THEN
"DB2025_TOT".TOT[#for_i].Estado_Parcial := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_DesbordeParcial := 0;
"DB2025_TOT".TOT[#for_i].Orden_ResetParcial := FALSE;
END_IF;
// Reset totalizador total
IF "DB2025_TOT".TOT[#for_i].Orden_ResetTotal OR "DB2025_TOT".TOT[#for_i].Estado_DesbordeTotal > #NUMERO_MAXIMO_DESBORDE THEN
"DB2025_TOT".TOT[#for_i].Estado_Total := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_DesbordeTotal := 0;
"DB2025_TOT".TOT[#for_i].Orden_ResetTotal := FALSE;
END_IF;
// Reset totalizador proceso
IF "DB2025_TOT".TOT[#for_i].Orden_ResetProceso THEN
"DB2025_TOT".TOT[#for_i].Estado_Proceso := 0.0;
"DB2025_TOT".TOT[#for_i].Orden_ResetProceso := FALSE;
END_IF;
// Reset totalizador usuario
IF "DB2025_TOT".TOT[#for_i].Orden_ResetUsuario THEN
"DB2025_TOT".TOT[#for_i].Estado_Usuario := 0.0;
"DB2025_TOT".TOT[#for_i].Orden_ResetUsuario := FALSE;
END_IF;
END_REGION
ELSE
// Dispositivo no habilitado
"DB2025_TOT".TOT[#for_i].Orden_Activar := FALSE;
"DB2025_TOT".TOT[#for_i].Orden_ResetParcial := FALSE;
"DB2025_TOT".TOT[#for_i].Orden_ResetProceso := FALSE;
"DB2025_TOT".TOT[#for_i].Orden_ResetTotal := FALSE;
"DB2025_TOT".TOT[#for_i].Orden_ResetUsuario := FALSE;
"DB2025_TOT".TOT[#for_i].Estado_Valor := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_Parcial := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_Total := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_Proceso := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_Usuario := 0.0;
END_IF;
END_FOR;
END_REGION
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2025_ZC_TOT.s7res
+15
View File
@@ -0,0 +1,15 @@
MultiLingualTexts:
- id: MLC_3tF
es-ES: FC2025_TOT
- id: MLC_ax
es-ES: Bloque de funcion para gestion de totalizadores.
- id: MLC_4Yz
es-ES: Pulso de 100 milisegundos
- id: MLC_39T
es-ES: Simulacion
- id: MLC_nD
es-ES: Primer arranque
- id: MLC_4ux
es-ES: VALOR MÁXIMO DE ACUMULADOR
- id: MLC_4VC
es-ES: VALOR MÁXIMO NUMERO DE DESBORDE
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2025_ZC_TOT.scl
-342
View File
@@ -1,342 +0,0 @@
FUNCTION "FC2025_ZC_TOT" : Void
TITLE = FC2025_TOT
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Bloque de funcion para gestion de totalizadores.
VAR_INPUT
Pulso100ms : Bool; // Pulso de 100 milisegundos
Simulacion : Bool; // Simulacion
Arranque : Bool; // Primer arranque
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_CaudalSegundos : LReal;
t_LReal : LReal;
t_RT_Dummy : LReal;
END_VAR
VAR CONSTANT
VALOR_MAXIMO_CONTADORES : Real := 1000000.0; // VALOR MÁXIMO DE ACUMULADOR
NUMERO_MAXIMO_DESBORDE : Int := 32000; // VALOR MÁXIMO NUMERO DE DESBORDE
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Funcion para la gestion de dispositivo de tipo Totalizador.
En ella se realizan las siguientes acciones:
- Se gestiona el multiplexado de los dispositivos para su uso en sistemas HMI/SCADA.
- Se gestiona el estado del dispositivo
- Se gestiona el contaje del totalizador por entrada digital o por entrada analogica
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2020 | (ABH) | Primera version. |
| 00.00.02 | 28.01.2022 | (HCR) | Se añade corrección. |
| 00.00.03 | 05.09.2023 | (HCR) | Se añade contador por desborde |
| 00.00.04 | 18.09.2023 | (ABH) | Se estandariza nombre variables para gestion de tiempo de ciclo para integracion de EA. |
| 00.00.05 | 28.02.2024 | (ABH) | Se añade gestion multiplexado para Scada (no indexado) |
| 00.00.06 | 08.01.2025 | (ABH) | Se añade entrada de primer arranque del PLC para resetear indices de multiplexado. Se añade movimiento de TOT[0] a multiplexado en caso de que el indice sea 0. |
| 00.00.07 | 24.01.2025 | (ABH) | Se modifica la logica del multiplexado, la asignacion de oldindex se cambia de sitio ya que de vez en cuando (dependiendo de cuando el HMI realiza la comunicacion asincrona con el PLC) no detectaba el cambio y se machacaban valores. |
| 01.00.00 | 28.07.2025 | (ABH) | Se extrae el multiplexado a FC independiente. Se corrige reset de ordenes reset totalizadores en multiplexado. Se añade totalizador usuario. |
*)
END_REGION DESCRIPCION
REGION TIEMPO_CICLO_INTEGRACION
// Tiempo ciclo para integración EA
"DB2025_TOT".TiempoCiclo.Actual := LREAL_TO_REAL(RUNTIME("DB2025_TOT".TiempoCiclo.auxMem));
"DB2025_TOT".TiempoCiclo.Actual := ("DB2025_TOT".TiempoCiclo.Actual * 1000.0);
END_REGION TIEMPO_CICLO_INTEGRACION
REGION LOGICA_DEL_DISPOSITIVO
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2025_TOT".NumDispositivos := "N_MAX_DISP_TOT";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_TOT" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TOT";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
// Dispositivo habilitado
IF "DB2025_TOT".TOT[#for_i].Config_Habilitar THEN
REGION LECTURA_VALORES
REGION ENTRADA_PULSOS
IF NOT #Simulacion THEN
IF "DB2025_TOT".TOT[#for_i].Config_DireccionEntradaByte > 0 THEN
// Lectura de la entrada digital
"DB2025_TOT".TOT[#for_i].Estado_Pulso := PEEK_BOOL(area := 16#81,
dbNumber := 0,
byteOffset := "DB2025_TOT".TOT[#for_i].Config_DireccionEntradaByte,
bitOffset := "DB2025_TOT".TOT[#for_i].Config_DireccionEntradaBit);
END_IF;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Pulso := #Pulso100ms;
END_IF;
END_REGION ENTRADA_PULSOS
REGION CAUDAL
IF "DB2025_TOT".TOT[#for_i].Estado_Valor > 0.0 THEN
#t_CaudalSegundos := (("DB2025_TOT".TOT[#for_i].Estado_Valor / 3600000.0 * "DB2025_TOT".TiempoCiclo.Actual));
ELSE
#t_CaudalSegundos := 0.0;
END_IF;
END_REGION CAUDAL
END_REGION LECTURA_VALORES
REGION MODO_TRABAJO
REGION TOTALIZADORES
// Orden activacion totalizadores
IF "DB2025_TOT".TOT[#for_i].Orden_Activar THEN
// 0 = TOTALIZADOR POR PULSOS
// 1 = TOTALIZADOR POR EA
IF NOT "DB2025_TOT".TOT[#for_i].Config_Tipo THEN // Caudalímetro por Pulso
IF "DB2025_TOT".TOT[#for_i].Estado_Pulso AND NOT "DB2025_TOT".TOT[#for_i].Aux_oldActivado THEN
IF NOT "DB2025_TOT".TOT[#for_i].Config_IncrDecr THEN
"DB2025_TOT".TOT[#for_i].Estado_Parcial += "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
"DB2025_TOT".TOT[#for_i].Estado_Total += "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
"DB2025_TOT".TOT[#for_i].Estado_Proceso += "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Parcial -= "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
"DB2025_TOT".TOT[#for_i].Estado_Total -= "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
"DB2025_TOT".TOT[#for_i].Estado_Proceso -= "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
END_IF;
END_IF;
ELSE
// Totalizador por EA
IF NOT "DB2025_TOT".TOT[#for_i].Config_IncrDecr THEN
"DB2025_TOT".TOT[#for_i].Estado_Parcial += #t_CaudalSegundos;
"DB2025_TOT".TOT[#for_i].Estado_Total += #t_CaudalSegundos;
"DB2025_TOT".TOT[#for_i].Estado_Proceso += #t_CaudalSegundos;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Parcial -= #t_CaudalSegundos;
"DB2025_TOT".TOT[#for_i].Estado_Total -= #t_CaudalSegundos;
"DB2025_TOT".TOT[#for_i].Estado_Proceso -= #t_CaudalSegundos;
END_IF;
END_IF;
END_IF;
END_REGION TOTALIZADORES
REGION TOTALIZADOR_USUARIO
IF "DB2025_TOT".TOT[#for_i].Orden_Usuario THEN
// 0 = TOTALIZADOR POR PULSOS
// 1 = TOTALIZADOR POR EA
IF NOT "DB2025_TOT".TOT[#for_i].Config_Tipo THEN // Caudalímetro por Pulso
IF "DB2025_TOT".TOT[#for_i].Estado_Pulso AND NOT "DB2025_TOT".TOT[#for_i].Aux_oldActivado THEN
IF NOT "DB2025_TOT".TOT[#for_i].Config_IncrDecr THEN
"DB2025_TOT".TOT[#for_i].Estado_Usuario += "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Usuario -= "DB2025_TOT".TOT[#for_i].Config_LitroXPulso;
END_IF;
END_IF;
ELSE
// Totalizador por EA
IF NOT "DB2025_TOT".TOT[#for_i].Config_IncrDecr THEN
"DB2025_TOT".TOT[#for_i].Estado_Usuario += #t_CaudalSegundos;
ELSE
"DB2025_TOT".TOT[#for_i].Estado_Usuario -= #t_CaudalSegundos;
END_IF;
END_IF;
END_IF;
END_REGION TOTALIZADOR_USUARIO
REGION CALCULO_CAUDAL_TEORICO
IF NOT "DB2025_TOT".TOT[#for_i].Config_Tipo AND "DB2025_TOT".TOT[#for_i].Orden_Activar THEN
// Calculo teorico L/H
IF #Pulso100ms THEN
"DB2025_TOT".TOT[#for_i].Aux_AcuTiempo += 1;
IF "DB2025_TOT".TOT[#for_i].Aux_AcuTiempo > 10 THEN
#t_LReal := "DB2025_TOT".TOT[#for_i].Estado_Total - "DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem;
"DB2025_TOT".TOT[#for_i].Estado_Valor := LREAL_TO_REAL(#t_LReal) * 36000.0 / "DB2025_TOT".TOT[#for_i].Aux_AcuTiempo;
"DB2025_TOT".TOT[#for_i].Aux_AcuTiempo := 0;
"DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem := "DB2025_TOT".TOT[#for_i].Estado_Total;
END_IF;
END_IF;
ELSIF NOT "DB2025_TOT".TOT[#for_i].Config_Tipo AND "DB2025_TOT".TOT[#for_i].Orden_Usuario THEN
// Calculo teorico L/H
IF #Pulso100ms THEN
"DB2025_TOT".TOT[#for_i].Aux_AcuTiempo += 1;
IF "DB2025_TOT".TOT[#for_i].Aux_AcuTiempo > 10 THEN
#t_LReal := "DB2025_TOT".TOT[#for_i].Estado_Usuario - "DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem;
"DB2025_TOT".TOT[#for_i].Estado_Valor := LREAL_TO_REAL(#t_LReal) * 36000.0 / "DB2025_TOT".TOT[#for_i].Aux_AcuTiempo;
"DB2025_TOT".TOT[#for_i].Aux_AcuTiempo := 0;
"DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem := "DB2025_TOT".TOT[#for_i].Estado_Usuario;
END_IF;
END_IF;
ELSE
"DB2025_TOT".TOT[#for_i].Aux_TotalizadorMem := 0.0;
END_IF;
END_REGION
// Estado anterior del pulso
"DB2025_TOT".TOT[#for_i].Aux_oldActivado := "DB2025_TOT".TOT[#for_i].Estado_Pulso;
END_REGION MODO_TRABAJO
REGION DIAGNOSIS
// Reset totalizador total por desbordamiento
IF "DB2025_TOT".TOT[#for_i].Estado_Total >= #VALOR_MAXIMO_CONTADORES THEN
"DB2025_TOT".TOT[#for_i].Estado_DesbordeTotal += 1;
"DB2025_TOT".TOT[#for_i].Estado_Total := 0.0;
END_IF;
// Reset totalizador parcial por desbordamiento
IF "DB2025_TOT".TOT[#for_i].Estado_Parcial >= #VALOR_MAXIMO_CONTADORES THEN
"DB2025_TOT".TOT[#for_i].Estado_DesbordeParcial += 1;
"DB2025_TOT".TOT[#for_i].Estado_Parcial := 0.0;
END_IF;
// Reset totalizador usuario por desbordamiento
IF "DB2025_TOT".TOT[#for_i].Estado_Usuario >= #VALOR_MAXIMO_CONTADORES THEN
"DB2025_TOT".TOT[#for_i].Estado_DesbordeUsuario += 1;
"DB2025_TOT".TOT[#for_i].Estado_Usuario := 0.0;
END_IF;
// Reset totalizador parcial
IF "DB2025_TOT".TOT[#for_i].Orden_ResetParcial OR "DB2025_TOT".TOT[#for_i].Estado_DesbordeParcial > #NUMERO_MAXIMO_DESBORDE THEN
"DB2025_TOT".TOT[#for_i].Estado_Parcial := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_DesbordeParcial := 0;
"DB2025_TOT".TOT[#for_i].Orden_ResetParcial := FALSE;
END_IF;
// Reset totalizador total
IF "DB2025_TOT".TOT[#for_i].Orden_ResetTotal OR "DB2025_TOT".TOT[#for_i].Estado_DesbordeTotal > #NUMERO_MAXIMO_DESBORDE THEN
"DB2025_TOT".TOT[#for_i].Estado_Total := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_DesbordeTotal := 0;
"DB2025_TOT".TOT[#for_i].Orden_ResetTotal := FALSE;
END_IF;
// Reset totalizador proceso
IF "DB2025_TOT".TOT[#for_i].Orden_ResetProceso THEN
"DB2025_TOT".TOT[#for_i].Estado_Proceso := 0.0;
"DB2025_TOT".TOT[#for_i].Orden_ResetProceso := FALSE;
END_IF;
// Reset totalizador usuario
IF "DB2025_TOT".TOT[#for_i].Orden_ResetUsuario THEN
"DB2025_TOT".TOT[#for_i].Estado_Usuario := 0.0;
"DB2025_TOT".TOT[#for_i].Orden_ResetUsuario := FALSE;
END_IF;
END_REGION
ELSE
// Dispositivo no habilitado
"DB2025_TOT".TOT[#for_i].Orden_Activar := FALSE;
"DB2025_TOT".TOT[#for_i].Orden_ResetParcial := FALSE;
"DB2025_TOT".TOT[#for_i].Orden_ResetProceso := FALSE;
"DB2025_TOT".TOT[#for_i].Orden_ResetTotal := FALSE;
"DB2025_TOT".TOT[#for_i].Orden_ResetUsuario := FALSE;
"DB2025_TOT".TOT[#for_i].Estado_Valor := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_Parcial := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_Total := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_Proceso := 0.0;
"DB2025_TOT".TOT[#for_i].Estado_Usuario := 0.0;
END_IF;
END_FOR;
END_REGION
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2026_ZC_FF.s7dcl
+227
View File
@@ -0,0 +1,227 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_sz";
S7_BlockNumber := "2026";
S7_BlockTitle := "MLC_5BL";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2026_ZC_FF" : Void
VAR_INPUT
{ S7_MLC := "MLC_NU" }
Pulso1Seg : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
END_VAR
VAR CONSTANT
REPOSO : SInt := 0;
FLOP : SInt := 10;
PARO1 : SInt := 20;
FLIP : SInt := 30;
PARO2 : SInt := 40;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo flip flop con funcion de paro entre cambios.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculos de tiempo de cambio entre ordenes Flip, Flop y paro.
- Adicionalmente, se gestiona tambien la posibilidad de pausar el contaje del tiempo, para evitar su reinicializacion en caso de pausa.
- En los cambios entre ´flip´ <--> ´flop´, se activa tambien la marca ´paro´ para poder gestionar los cambios y evitar golpes de ariete.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | `DB2026_FF` |
| UDT | `UDT_ZC_DISP_FF_PARO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 10.08.2020 | (ABH) | Primera version. |
| 00.00.02 | 02.10.2020 | (ABH) | Cambio en la logica del dispositivo, ya que al cambio de flip a flop, se perdia un segundo del contaje de tienmpo. |
| 00.00.03 | 28.11.2023 | (ABH) | Se añade condicion de activacion del Flip Flop a que algun SP sea mayor que 0.. |
| 00.00.04 | 15.10.2025 | (ABH) | Se añade orden pausa para dejar de contar. |
| 01.00.00 | 06.07.2026 | (ABH) | Refactorizacion de logica para optimizacion. Se añade ordenes de paro (opcionales) para su uso para evitar golpes de ariete. |
*)
END_REGION DESCRIPCION
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_FF" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_FF";
END_REGION COMPROBACION_N_MAX
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
FOR #for_i := 1 TO #t_N_MAX DO
// ==========================================================================================================
REGION COMPROBACIONES_INICIALES
// Si no hay orden o faltan tiempos, reseteamos valores y salimos de la funcion
IF NOT "DB2026_FF".FF[#for_i].Orden_Activar OR ("DB2026_FF".FF[#for_i].Config_SetPointTiempoFlip <= 0 AND "DB2026_FF".FF[#for_i].Config_SetPointTiempoFlop <= 0) THEN
"DB2026_FF".FF[#for_i].Estado_Flip := FALSE;
"DB2026_FF".FF[#for_i].Estado_Flop := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := FALSE;
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
"DB2026_FF".FF[#for_i].Estado_Etapa := #REPOSO;
"DB2026_FF".FF[#for_i].Aux_Inicializado := FALSE;
RETURN;
END_IF;
END_REGION COMPROBACIONES_INICIALES
// ==========================================================================================================
REGION INICIALIZACION
// Arranque inicial forzado a Flop si no hay estado activo
IF NOT "DB2026_FF".FF[#for_i].Aux_Inicializado THEN
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLOP;
"DB2026_FF".FF[#for_i].Aux_Inicializado := TRUE;
END_IF;
END_REGION INICIALIZACION
// ==========================================================================================================
REGION LOGICA_DE_ESTADOS
CASE "DB2026_FF".FF[#for_i].Estado_Etapa OF
#FLOP:
// Salidas
"DB2026_FF".FF[#for_i].Estado_Flip := FALSE;
"DB2026_FF".FF[#for_i].Estado_Flop := TRUE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2026_FF".FF[#for_i].Orden_Pausa THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2026_FF".FF[#for_i].Aux_Tiempo >= "DB2026_FF".FF[#for_i].Config_SetPointTiempoFlop THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
// Si no tenemos tiempo de paro configurado, saltamos a FLIP
IF "DB2026_FF".FF[#for_i].Config_SetPointTiempoParo <= 0 THEN
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLIP;
ELSE
"DB2026_FF".FF[#for_i].Estado_Etapa := #PARO1;
END_IF;
END_IF;
#PARO1:
// Salidas
"DB2026_FF".FF[#for_i].Estado_Flip := FALSE;
"DB2026_FF".FF[#for_i].Estado_Flop := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := TRUE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2026_FF".FF[#for_i].Orden_Pausa THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2026_FF".FF[#for_i].Aux_Tiempo >= "DB2026_FF".FF[#for_i].Config_SetPointTiempoParo THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLIP;
END_IF;
#FLIP:
// Salidas
"DB2026_FF".FF[#for_i].Estado_Flip := TRUE;
"DB2026_FF".FF[#for_i].Estado_Flop := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2026_FF".FF[#for_i].Orden_Pausa THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2026_FF".FF[#for_i].Aux_Tiempo >= "DB2026_FF".FF[#for_i].Config_SetPointTiempoFlip THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
// Si no tenemos tiempo de paro configurado, saltamos a FLOP
IF "DB2026_FF".FF[#for_i].Config_SetPointTiempoParo <= 0 THEN
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLOP;
ELSE
"DB2026_FF".FF[#for_i].Estado_Etapa := #PARO2;
END_IF;
END_IF;
#PARO2:
// Salidas
"DB2026_FF".FF[#for_i].Estado_Flip := FALSE;
"DB2026_FF".FF[#for_i].Estado_Flop := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := TRUE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2026_FF".FF[#for_i].Orden_Pausa THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2026_FF".FF[#for_i].Aux_Tiempo >= "DB2026_FF".FF[#for_i].Config_SetPointTiempoParo THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLOP;
END_IF;
ELSE
"DB2026_FF".FF[#for_i].Estado_Etapa := #REPOSO;
END_CASE;
END_REGION LOGICA_DE_ESTADOS
END_FOR;
END_REGION GESTION_DISPOSITIVO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2026_ZC_FF.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_5BL
es-ES: FC2026_ZC_FF
- id: MLC_sz
es-ES: Funcion para gestion de flip flop
- id: MLC_NU
es-ES: Pulso de 1 segundo
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2026_ZC_FF.scl
-224
View File
@@ -1,224 +0,0 @@
FUNCTION "FC2026_ZC_FF" : Void
TITLE = FC2026_ZC_FF
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para gestion de flip flop
VAR_INPUT
Pulso1Seg : Bool; // Pulso de 1 segundo
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
END_VAR
VAR CONSTANT
REPOSO : SInt := 0;
FLOP : SInt := 10;
PARO1 : SInt := 20;
FLIP : SInt := 30;
PARO2 : SInt := 40;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2020 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo flip flop con funcion de paro entre cambios.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculos de tiempo de cambio entre ordenes Flip, Flop y paro.
- Adicionalmente, se gestiona tambien la posibilidad de pausar el contaje del tiempo, para evitar su reinicializacion en caso de pausa.
- En los cambios entre ´flip´ <--> ´flop´, se activa tambien la marca ´paro´ para poder gestionar los cambios y evitar golpes de ariete.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | `DB2026_FF` |
| UDT | `UDT_ZC_DISP_FF_PARO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 10.08.2020 | (ABH) | Primera version. |
| 00.00.02 | 02.10.2020 | (ABH) | Cambio en la logica del dispositivo, ya que al cambio de flip a flop, se perdia un segundo del contaje de tienmpo. |
| 00.00.03 | 28.11.2023 | (ABH) | Se añade condicion de activacion del Flip Flop a que algun SP sea mayor que 0.. |
| 00.00.04 | 15.10.2025 | (ABH) | Se añade orden pausa para dejar de contar. |
| 01.00.00 | 06.07.2026 | (ABH) | Refactorizacion de logica para optimizacion. Se añade ordenes de paro (opcionales) para su uso para evitar golpes de ariete. |
*)
END_REGION DESCRIPCION
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_FF" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_FF";
END_REGION COMPROBACION_N_MAX
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
FOR #for_i := 1 TO #t_N_MAX DO
// ==========================================================================================================
REGION COMPROBACIONES_INICIALES
// Si no hay orden o faltan tiempos, reseteamos valores y salimos de la funcion
IF NOT "DB2026_FF".FF[#for_i].Orden_Activar OR ("DB2026_FF".FF[#for_i].Config_SetPointTiempoFlip <= 0 AND "DB2026_FF".FF[#for_i].Config_SetPointTiempoFlop <= 0) THEN
"DB2026_FF".FF[#for_i].Estado_Flip := FALSE;
"DB2026_FF".FF[#for_i].Estado_Flop := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := FALSE;
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
"DB2026_FF".FF[#for_i].Estado_Etapa := #REPOSO;
"DB2026_FF".FF[#for_i].Aux_Inicializado := FALSE;
RETURN;
END_IF;
END_REGION COMPROBACIONES_INICIALES
// ==========================================================================================================
REGION INICIALIZACION
// Arranque inicial forzado a Flop si no hay estado activo
IF NOT "DB2026_FF".FF[#for_i].Aux_Inicializado THEN
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLOP;
"DB2026_FF".FF[#for_i].Aux_Inicializado := TRUE;
END_IF;
END_REGION INICIALIZACION
// ==========================================================================================================
REGION LOGICA_DE_ESTADOS
CASE "DB2026_FF".FF[#for_i].Estado_Etapa OF
#FLOP:
// Salidas
"DB2026_FF".FF[#for_i].Estado_Flip := FALSE;
"DB2026_FF".FF[#for_i].Estado_Flop := TRUE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2026_FF".FF[#for_i].Orden_Pausa THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2026_FF".FF[#for_i].Aux_Tiempo >= "DB2026_FF".FF[#for_i].Config_SetPointTiempoFlop THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
// Si no tenemos tiempo de paro configurado, saltamos a FLIP
IF "DB2026_FF".FF[#for_i].Config_SetPointTiempoParo <= 0 THEN
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLIP;
ELSE
"DB2026_FF".FF[#for_i].Estado_Etapa := #PARO1;
END_IF;
END_IF;
#PARO1:
// Salidas
"DB2026_FF".FF[#for_i].Estado_Flip := FALSE;
"DB2026_FF".FF[#for_i].Estado_Flop := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := TRUE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2026_FF".FF[#for_i].Orden_Pausa THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2026_FF".FF[#for_i].Aux_Tiempo >= "DB2026_FF".FF[#for_i].Config_SetPointTiempoParo THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLIP;
END_IF;
#FLIP:
// Salidas
"DB2026_FF".FF[#for_i].Estado_Flip := TRUE;
"DB2026_FF".FF[#for_i].Estado_Flop := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2026_FF".FF[#for_i].Orden_Pausa THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2026_FF".FF[#for_i].Aux_Tiempo >= "DB2026_FF".FF[#for_i].Config_SetPointTiempoFlip THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
// Si no tenemos tiempo de paro configurado, saltamos a FLOP
IF "DB2026_FF".FF[#for_i].Config_SetPointTiempoParo <= 0 THEN
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLOP;
ELSE
"DB2026_FF".FF[#for_i].Estado_Etapa := #PARO2;
END_IF;
END_IF;
#PARO2:
// Salidas
"DB2026_FF".FF[#for_i].Estado_Flip := FALSE;
"DB2026_FF".FF[#for_i].Estado_Flop := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro1 := FALSE;
"DB2026_FF".FF[#for_i].Estado_Paro2 := TRUE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2026_FF".FF[#for_i].Orden_Pausa THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2026_FF".FF[#for_i].Aux_Tiempo >= "DB2026_FF".FF[#for_i].Config_SetPointTiempoParo THEN
"DB2026_FF".FF[#for_i].Aux_Tiempo := 0;
"DB2026_FF".FF[#for_i].Estado_Etapa := #FLOP;
END_IF;
ELSE
"DB2026_FF".FF[#for_i].Estado_Etapa := #REPOSO;
END_CASE;
END_REGION LOGICA_DE_ESTADOS
END_FOR;
END_REGION GESTION_DISPOSITIVO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2027_ZC_FF_SEC.s7dcl
+216
View File
@@ -0,0 +1,216 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_4vc";
S7_BlockNumber := "2027";
S7_BlockTitle := "MLC_4rR";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2027_ZC_FF_SEC" : Void
VAR_INPUT
{ S7_MLC := "MLC_3qK" }
Pulso1Seg : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
for_j : Int;
t_SumaFlip : Int;
END_VAR
VAR CONSTANT
REPOSO : SInt := 0;
FLOP : SInt := 10;
FLIP : SInt := 20;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2025
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo flip flop secuencial.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculos de tiempo de cambio entre ordenes Flip y Flop.
- Adicionalmente, se gestiona tambien la posibilidad de pausar el contaje del tiempo, para evitar su reinicializacion en caso de pausa.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | `DB2027_FF_SEC` |
| UDT | `UDT_ZC_DISP_FF_SEC` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 02.10.2023 | (ABH) | Primera version. |
| 00.00.02 | 28.11.2023 | (ABH) | Se añade condicion de activacion del Flip Flop a que algun SP sea mayor que 0. |
| 01.00.00 | 15.10.2025 | (ABH) | Se añade orden pausa para dejar de contar. Refactorizacion de logica de gestion de flips. |
*)
END_REGION DESCRIPCION
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_FF_SEC" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_FF_SEC";
END_REGION COMPROBACION_N_MAX
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
FOR #for_i := 1 TO #t_N_MAX DO
// ==========================================================================================================
REGION COMPROBACIONES_INICIALES
// Suma de seguridad por FOR (Determinista)
#t_SumaFlip := 0;
FOR #for_j := 1 TO 10 DO
#t_SumaFlip += "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlip[#for_j];
END_FOR;
// Si no hay orden o los tiempos globales son 0, reseteamos valores y salimos de la funcion
IF NOT "DB2027_FF_SEC".FF_SEC[#for_i].Orden_Activar OR (#t_SumaFlip <= 0 AND "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlop <= 0) THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlop := FALSE;
FOR #for_j := 1 TO 10 DO
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlip[#for_j] := FALSE;
END_FOR;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #REPOSO;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Inicializacion := FALSE;
RETURN;
END_IF;
END_REGION COMPROBACIONES_INICIALES
// ==========================================================================================================
REGION INICIALIZACION
// Arranque inicial forzado a Flop si no hay estado activo
IF NOT "DB2027_FF_SEC".FF_SEC[#for_i].Aux_Inicializacion THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #FLOP;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Inicializacion := TRUE;
END_IF;
END_REGION INICIALIZACION
// ==========================================================================================================
REGION LOGICA_DE_ESTADOS
CASE "DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa OF
#FLOP:
// Salidas
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlop := TRUE;
FOR #for_j := 1 TO 10 DO
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlip[#for_j] := FALSE;
END_FOR;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2027_FF_SEC".FF_SEC[#for_i].Orden_Pausa THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo >= "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlop THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := 11; // Fallback por defecto
// Buscar primer Flip válido
FOR #for_j := 1 TO 10 DO
IF "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlip[#for_j] > 0 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := #for_j;
EXIT; // Corta el FOR en el primer acierto
END_IF;
END_FOR;
// Transición si encontró algo válido
IF "DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual <= 10 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #FLIP;
END_IF;
END_IF;
#FLIP:
// Salidas
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlop := FALSE;
FOR #for_j := 1 TO 10 DO
IF #for_j = "DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlip[#for_j] := TRUE;
ELSE
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlip[#for_j] := FALSE;
END_IF;
END_FOR;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2027_FF_SEC".FF_SEC[#for_i].Orden_Pausa THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo += 1;
END_IF;
/// Transición
IF "DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo >= "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlip["DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual] THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual += 1; // Apunta al siguiente
// Búsqueda del siguiente Flip válido
FOR #for_j := "DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual TO 10 DO
IF "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlip[#for_j] > 0 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := #for_j;
EXIT;
END_IF;
// Si llega al final sin encontrar nada
IF #for_j = 10 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := 11;
END_IF;
END_FOR;
// Si rebasó el límite, vuelve al Flop
IF "DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual > 10 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #FLOP;
END_IF;
END_IF;
ELSE
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #REPOSO;
END_CASE;
END_REGION LOGICA_DE_ESTADOS
END_FOR;
END_REGION GESTION_DISPOSITIVO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2027_ZC_FF_SEC.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_4rR
es-ES: FC2027_ZC_FF_SEC
- id: MLC_4vc
es-ES: Funcion para gestion de Flip Flop secuencial
- id: MLC_3qK
es-ES: Pulso 1 segundo
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2027_ZC_FF_SEC.scl
-213
View File
@@ -1,213 +0,0 @@
FUNCTION "FC2027_ZC_FF_SEC" : Void
TITLE = FC2027_ZC_FF_SEC
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para gestion de Flip Flop secuencial
VAR_INPUT
Pulso1Seg : Bool; // Pulso 1 segundo
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
for_j : Int;
t_SumaFlip : Int;
END_VAR
VAR CONSTANT
REPOSO : SInt := 0;
FLOP : SInt := 10;
FLIP : SInt := 20;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2023 - 2025
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo flip flop secuencial.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculos de tiempo de cambio entre ordenes Flip y Flop.
- Adicionalmente, se gestiona tambien la posibilidad de pausar el contaje del tiempo, para evitar su reinicializacion en caso de pausa.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | `DB2027_FF_SEC` |
| UDT | `UDT_ZC_DISP_FF_SEC` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 02.10.2023 | (ABH) | Primera version. |
| 00.00.02 | 28.11.2023 | (ABH) | Se añade condicion de activacion del Flip Flop a que algun SP sea mayor que 0. |
| 01.00.00 | 15.10.2025 | (ABH) | Se añade orden pausa para dejar de contar. Refactorizacion de logica de gestion de flips. |
*)
END_REGION DESCRIPCION
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_FF_SEC" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_FF_SEC";
END_REGION COMPROBACION_N_MAX
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
FOR #for_i := 1 TO #t_N_MAX DO
// ==========================================================================================================
REGION COMPROBACIONES_INICIALES
// Suma de seguridad por FOR (Determinista)
#t_SumaFlip := 0;
FOR #for_j := 1 TO 10 DO
#t_SumaFlip += "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlip[#for_j];
END_FOR;
// Si no hay orden o los tiempos globales son 0, reseteamos valores y salimos de la funcion
IF NOT "DB2027_FF_SEC".FF_SEC[#for_i].Orden_Activar OR (#t_SumaFlip <= 0 AND "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlop <= 0) THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlop := FALSE;
FOR #for_j := 1 TO 10 DO
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlip[#for_j] := FALSE;
END_FOR;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #REPOSO;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Inicializacion := FALSE;
RETURN;
END_IF;
END_REGION COMPROBACIONES_INICIALES
// ==========================================================================================================
REGION INICIALIZACION
// Arranque inicial forzado a Flop si no hay estado activo
IF NOT "DB2027_FF_SEC".FF_SEC[#for_i].Aux_Inicializacion THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #FLOP;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Inicializacion := TRUE;
END_IF;
END_REGION INICIALIZACION
// ==========================================================================================================
REGION LOGICA_DE_ESTADOS
CASE "DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa OF
#FLOP:
// Salidas
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlop := TRUE;
FOR #for_j := 1 TO 10 DO
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlip[#for_j] := FALSE;
END_FOR;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2027_FF_SEC".FF_SEC[#for_i].Orden_Pausa THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo += 1;
END_IF;
// Transición
IF "DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo >= "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlop THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := 11; // Fallback por defecto
// Buscar primer Flip válido
FOR #for_j := 1 TO 10 DO
IF "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlip[#for_j] > 0 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := #for_j;
EXIT; // Corta el FOR en el primer acierto
END_IF;
END_FOR;
// Transición si encontró algo válido
IF "DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual <= 10 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #FLIP;
END_IF;
END_IF;
#FLIP:
// Salidas
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlop := FALSE;
FOR #for_j := 1 TO 10 DO
IF #for_j = "DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlip[#for_j] := TRUE;
ELSE
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_SalidaFlip[#for_j] := FALSE;
END_IF;
END_FOR;
// Conteo de tiempo
IF #Pulso1Seg AND NOT "DB2027_FF_SEC".FF_SEC[#for_i].Orden_Pausa THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo += 1;
END_IF;
/// Transición
IF "DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo >= "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlip["DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual] THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_Tiempo := 0;
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual += 1; // Apunta al siguiente
// Búsqueda del siguiente Flip válido
FOR #for_j := "DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual TO 10 DO
IF "DB2027_FF_SEC".FF_SEC[#for_i].Config_SetPointTiempoFlip[#for_j] > 0 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := #for_j;
EXIT;
END_IF;
// Si llega al final sin encontrar nada
IF #for_j = 10 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual := 11;
END_IF;
END_FOR;
// Si rebasó el límite, vuelve al Flop
IF "DB2027_FF_SEC".FF_SEC[#for_i].Aux_FlipActual > 10 THEN
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #FLOP;
END_IF;
END_IF;
ELSE
"DB2027_FF_SEC".FF_SEC[#for_i].Estado_Etapa := #REPOSO;
END_CASE;
END_REGION LOGICA_DE_ESTADOS
END_FOR;
END_REGION GESTION_DISPOSITIVO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2028_ZC_TEMP.s7dcl
+219
View File
@@ -0,0 +1,219 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_3A2";
S7_BlockNumber := "2028";
S7_BlockTitle := "MLC_3SV";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2028_ZC_TEMP" : Void
VAR_INPUT
Pulso1seg : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2022 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo TON.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y temporizacion de la activacion del temporizador.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | `DB2028_TEMP` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 02.10.2022 | (ABH) | Primera version. |
| 00.00.02 | 03.05.2022 | (ABH) | TONR. Se añade tiempo Restante. |
| 00.00.03 | 13.09.2023 | (ABH) | TP. Se elimina la marca "Flanco" ya que no es necesaria. Se utiliza solamente la marca "oldIN" para la deteccion de flancos. |
| 00.00.04 | 13.08.2025 | (ABH) | TONR. Se modifica activacion de salida Q sin dependencia de entrada IN. |
| 01.00.00 | 06.07.2026 | (ABH) | Se unifican los temporizadores en un solo DB y en un solo FC |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_DISPOSITIVO_TON
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TON";
IF #t_N_MAX >= 1 THEN
FOR #for_i := 1 TO #t_N_MAX DO
IF "DB2028_TEMP".TON[#for_i].IN THEN
IF "DB2028_TEMP".TON[#for_i].ET >= "DB2028_TEMP".TON[#for_i].SP THEN
"DB2028_TEMP".TON[#for_i].Q := TRUE;
ELSE
IF #Pulso1seg THEN
"DB2028_TEMP".TON[#for_i].ET += 1;
END_IF;
END_IF;
ELSE
"DB2028_TEMP".TON[#for_i].ET := 0;
"DB2028_TEMP".TON[#for_i].Q := FALSE;
END_IF;
END_FOR;
END_IF;
END_REGION GESTION_DISPOSITIVO_TON
// ==========================================================================================================
REGION GESTION_DISPOSITIVO_TOF
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TOF";
IF #t_N_MAX >= 1 THEN
FOR #for_i := 1 TO #t_N_MAX DO
IF "DB2028_TEMP".TOF[#for_i].IN THEN
"DB2028_TEMP".TOF[#for_i].OldActivar := TRUE;
"DB2028_TEMP".TOF[#for_i].Q := TRUE;
END_IF;
IF "DB2028_TEMP".TOF[#for_i].OldActivar AND NOT "DB2028_TEMP".TOF[#for_i].IN THEN
IF "DB2028_TEMP".TOF[#for_i].ET <= 0 THEN
"DB2028_TEMP".TOF[#for_i].Q := FALSE;
"DB2028_TEMP".TOF[#for_i].OldActivar := FALSE;
ELSE
IF #Pulso1seg THEN
"DB2028_TEMP".TOF[#for_i].ET -= 1;
END_IF;
END_IF;
ELSE
"DB2028_TEMP".TOF[#for_i].ET := "DB2028_TEMP".TOF[#for_i].SP;
END_IF;
END_FOR;
END_IF;
END_REGION GESTION_DISPOSITIVO_TOF
// ==========================================================================================================
REGION GESTION_DISPOSITIVO_TONR
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TONR";
IF #t_N_MAX >= 1 THEN
FOR #for_i := 1 TO #t_N_MAX DO
IF "DB2028_TEMP".TONR[#for_i].RESET THEN
"DB2028_TEMP".TONR[#for_i].ET := 0;
"DB2028_TEMP".TONR[#for_i].Q := FALSE;
"DB2028_TEMP".TONR[#for_i].RESET := FALSE;
END_IF;
IF "DB2028_TEMP".TONR[#for_i].IN AND
"DB2028_TEMP".TONR[#for_i].ET < "DB2028_TEMP".TONR[#for_i].SP AND
#Pulso1seg
THEN
"DB2028_TEMP".TONR[#for_i].ET += 1;
"DB2028_TEMP".TONR[#for_i].Q := FALSE;
END_IF;
IF "DB2028_TEMP".TONR[#for_i].ET >= "DB2028_TEMP".TONR[#for_i].SP THEN
"DB2028_TEMP".TONR[#for_i].Q := TRUE;
END_IF;
"DB2028_TEMP".TONR[#for_i].RT := "DB2028_TEMP".TONR[#for_i].SP - "DB2028_TEMP".TONR[#for_i].ET;
END_FOR;
END_IF;
END_REGION GESTION_DISPOSITIVO_TONR
// ==========================================================================================================
REGION GESTION_DISPOSITIVO_TP
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TP";
IF #t_N_MAX >= 1 THEN
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// Detección de flanco
IF "DB2028_TEMP".TP[#for_i].IN AND NOT "DB2028_TEMP".TP[#for_i].oldIN THEN
"DB2028_TEMP".TP[#for_i].Q := TRUE;
END_IF;
// Actualizo valor de memoria
"DB2028_TEMP".TP[#for_i].oldIN := "DB2028_TEMP".TP[#for_i].IN;
// =============================================================================
// Reinicio memoria de activación cuando piedo salida y cuento tiempo
IF NOT "DB2028_TEMP".TP[#for_i].IN THEN
"DB2028_TEMP".TP[#for_i].oldIN := FALSE;
END_IF;
// =============================================================================
// Incremento de tiempo
IF "DB2028_TEMP".TP[#for_i].Q
AND
"DB2028_TEMP".TP[#for_i].ET < "DB2028_TEMP".TP[#for_i].PT
AND
#Pulso1seg
THEN
"DB2028_TEMP".TP[#for_i].ET += 1;
END_IF;
// =============================================================================
// Desactivo salida cuando cumplo tiempo de retardo de salida
IF "DB2028_TEMP".TP[#for_i].ET >= "DB2028_TEMP".TP[#for_i].PT THEN
"DB2028_TEMP".TP[#for_i].Q := FALSE;
"DB2028_TEMP".TP[#for_i].ET := 0;
END_IF;
END_FOR;
END_IF;
END_REGION GESTION_DISPOSITIVO_TP
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2028_ZC_TEMP.s7res
+5
View File
@@ -0,0 +1,5 @@
MultiLingualTexts:
- id: MLC_3SV
es-ES: FC2028_ZC_TEMP
- id: MLC_3A2
es-ES: Funcion para gestion de temporizadorres TON, TOF, TONR y TP (Base 1 seg)
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2028_ZC_TEMP.scl
-216
View File
@@ -1,216 +0,0 @@
FUNCTION "FC2028_ZC_TEMP" : Void
TITLE = FC2028_ZC_TEMP
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para gestion de temporizadorres TON, TOF, TONR y TP (Base 1 seg)
VAR_INPUT
Pulso1seg : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2022 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo TON.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y temporizacion de la activacion del temporizador.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | `DB2028_TEMP` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 02.10.2022 | (ABH) | Primera version. |
| 00.00.02 | 03.05.2022 | (ABH) | TONR. Se añade tiempo Restante. |
| 00.00.03 | 13.09.2023 | (ABH) | TP. Se elimina la marca "Flanco" ya que no es necesaria. Se utiliza solamente la marca "oldIN" para la deteccion de flancos. |
| 00.00.04 | 13.08.2025 | (ABH) | TONR. Se modifica activacion de salida Q sin dependencia de entrada IN. |
| 01.00.00 | 06.07.2026 | (ABH) | Se unifican los temporizadores en un solo DB y en un solo FC |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_DISPOSITIVO_TON
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TON";
IF #t_N_MAX >= 1 THEN
FOR #for_i := 1 TO #t_N_MAX DO
IF "DB2028_TEMP".TON[#for_i].IN THEN
IF "DB2028_TEMP".TON[#for_i].ET >= "DB2028_TEMP".TON[#for_i].SP THEN
"DB2028_TEMP".TON[#for_i].Q := TRUE;
ELSE
IF #Pulso1seg THEN
"DB2028_TEMP".TON[#for_i].ET += 1;
END_IF;
END_IF;
ELSE
"DB2028_TEMP".TON[#for_i].ET := 0;
"DB2028_TEMP".TON[#for_i].Q := FALSE;
END_IF;
END_FOR;
END_IF;
END_REGION GESTION_DISPOSITIVO_TON
// ==========================================================================================================
REGION GESTION_DISPOSITIVO_TOF
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TOF";
IF #t_N_MAX >= 1 THEN
FOR #for_i := 1 TO #t_N_MAX DO
IF "DB2028_TEMP".TOF[#for_i].IN THEN
"DB2028_TEMP".TOF[#for_i].OldActivar := TRUE;
"DB2028_TEMP".TOF[#for_i].Q := TRUE;
END_IF;
IF "DB2028_TEMP".TOF[#for_i].OldActivar AND NOT "DB2028_TEMP".TOF[#for_i].IN THEN
IF "DB2028_TEMP".TOF[#for_i].ET <= 0 THEN
"DB2028_TEMP".TOF[#for_i].Q := FALSE;
"DB2028_TEMP".TOF[#for_i].OldActivar := FALSE;
ELSE
IF #Pulso1seg THEN
"DB2028_TEMP".TOF[#for_i].ET -= 1;
END_IF;
END_IF;
ELSE
"DB2028_TEMP".TOF[#for_i].ET := "DB2028_TEMP".TOF[#for_i].SP;
END_IF;
END_FOR;
END_IF;
END_REGION GESTION_DISPOSITIVO_TOF
// ==========================================================================================================
REGION GESTION_DISPOSITIVO_TONR
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TONR";
IF #t_N_MAX >= 1 THEN
FOR #for_i := 1 TO #t_N_MAX DO
IF "DB2028_TEMP".TONR[#for_i].RESET THEN
"DB2028_TEMP".TONR[#for_i].ET := 0;
"DB2028_TEMP".TONR[#for_i].Q := FALSE;
"DB2028_TEMP".TONR[#for_i].RESET := FALSE;
END_IF;
IF "DB2028_TEMP".TONR[#for_i].IN AND
"DB2028_TEMP".TONR[#for_i].ET < "DB2028_TEMP".TONR[#for_i].SP AND
#Pulso1seg
THEN
"DB2028_TEMP".TONR[#for_i].ET += 1;
"DB2028_TEMP".TONR[#for_i].Q := FALSE;
END_IF;
IF "DB2028_TEMP".TONR[#for_i].ET >= "DB2028_TEMP".TONR[#for_i].SP THEN
"DB2028_TEMP".TONR[#for_i].Q := TRUE;
END_IF;
"DB2028_TEMP".TONR[#for_i].RT := "DB2028_TEMP".TONR[#for_i].SP - "DB2028_TEMP".TONR[#for_i].ET;
END_FOR;
END_IF;
END_REGION GESTION_DISPOSITIVO_TONR
// ==========================================================================================================
REGION GESTION_DISPOSITIVO_TP
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TP";
IF #t_N_MAX >= 1 THEN
FOR #for_i := 1 TO #t_N_MAX DO
// =============================================================================
// Detección de flanco
IF "DB2028_TEMP".TP[#for_i].IN AND NOT "DB2028_TEMP".TP[#for_i].oldIN THEN
"DB2028_TEMP".TP[#for_i].Q := TRUE;
END_IF;
// Actualizo valor de memoria
"DB2028_TEMP".TP[#for_i].oldIN := "DB2028_TEMP".TP[#for_i].IN;
// =============================================================================
// Reinicio memoria de activación cuando piedo salida y cuento tiempo
IF NOT "DB2028_TEMP".TP[#for_i].IN THEN
"DB2028_TEMP".TP[#for_i].oldIN := FALSE;
END_IF;
// =============================================================================
// Incremento de tiempo
IF "DB2028_TEMP".TP[#for_i].Q
AND
"DB2028_TEMP".TP[#for_i].ET < "DB2028_TEMP".TP[#for_i].PT
AND
#Pulso1seg
THEN
"DB2028_TEMP".TP[#for_i].ET += 1;
END_IF;
// =============================================================================
// Desactivo salida cuando cumplo tiempo de retardo de salida
IF "DB2028_TEMP".TP[#for_i].ET >= "DB2028_TEMP".TP[#for_i].PT THEN
"DB2028_TEMP".TP[#for_i].Q := FALSE;
"DB2028_TEMP".TP[#for_i].ET := 0;
END_IF;
END_FOR;
END_IF;
END_REGION GESTION_DISPOSITIVO_TP
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2037_ZC_MEDIA.s7dcl
+160
View File
@@ -0,0 +1,160 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_qi";
S7_BlockNumber := "2037";
S7_BlockTitle := "MLC_3wJ";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2037_ZC_MEDIA" : Void
VAR_INPUT
{ S7_MLC := "MLC_344" }
Pulso1seg : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_NumeroDatos : LReal;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2022 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo Media.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculo de la media.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | `DB2037_MEDIA` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 01.02.2022 | (ABH) | Primera version. |
| 00.00.02 | 18.09.2023 | (ABH) | Se añade valor maximo y valor minimo del valor instanteneo de la media cuando esta iniciada la media. |
| 01.00.00 | 06.07.2026 | (ABH) | Cambio a SCL. |
*)
END_REGION DESCRIPCION
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_MEDIA" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_MEDIA";
END_REGION COMPROBACION_N_MAX
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
FOR #for_i := 1 TO #t_N_MAX DO
// ==========================================================================================================
REGION REINICIALIZACION_DE_DATOS
// Reset temporizador interno si no esta habilitada la media
IF NOT "DB2037_MEDIA".MEDIA[#for_i].IniciarMedia THEN
"DB2037_MEDIA".MEDIA[#for_i].auxTiempo := 0;
END_IF;
// Reinicializacion de datos al inicializar
IF "DB2037_MEDIA".MEDIA[#for_i].Inicializar AND NOT "DB2037_MEDIA".MEDIA[#for_i].auxInicializar THEN
"DB2037_MEDIA".MEDIA[#for_i].auxAcumulado := 0.0;
"DB2037_MEDIA".MEDIA[#for_i].auxIndice := 0;
"DB2037_MEDIA".MEDIA[#for_i].auxTiempo := 0;
"DB2037_MEDIA".MEDIA[#for_i].ValorMinimo := 9999999.0;
"DB2037_MEDIA".MEDIA[#for_i].ValorMaximo := -9999999.0;
END_IF;
// Estado anterior
"DB2037_MEDIA".MEDIA[#for_i].auxInicializar := "DB2037_MEDIA".MEDIA[#for_i].Inicializar;
END_REGION REINICIALIZACION_DE_DATOS
// ==========================================================================================================
REGION TOMA_DE_VALORES
IF "DB2037_MEDIA".MEDIA[#for_i].IniciarMedia AND #Pulso1seg THEN
// Incrementamos el indice de tiempo
"DB2037_MEDIA".MEDIA[#for_i].auxTiempo += 1;
// En caso de superar el tiempo de muestreo, incrementamos el acumulado, reseteamos el tiempo y aumentamos el indice
IF "DB2037_MEDIA".MEDIA[#for_i].auxTiempo >= "DB2037_MEDIA".MEDIA[#for_i].TiempoMuestreo THEN
"DB2037_MEDIA".MEDIA[#for_i].auxAcumulado := "DB2037_MEDIA".MEDIA[#for_i].ValorActual + "DB2037_MEDIA".MEDIA[#for_i].auxAcumulado;
"DB2037_MEDIA".MEDIA[#for_i].auxIndice += 1;
"DB2037_MEDIA".MEDIA[#for_i].auxTiempo := 0;
END_IF;
// Guardamos el valor minimo alcanzado
IF "DB2037_MEDIA".MEDIA[#for_i].ValorActual < "DB2037_MEDIA".MEDIA[#for_i].ValorMinimo THEN
"DB2037_MEDIA".MEDIA[#for_i].ValorMinimo := "DB2037_MEDIA".MEDIA[#for_i].ValorActual;
END_IF;
// Guardamos el valor maximo alcanzado
IF "DB2037_MEDIA".MEDIA[#for_i].ValorActual > "DB2037_MEDIA".MEDIA[#for_i].ValorMaximo THEN
"DB2037_MEDIA".MEDIA[#for_i].ValorMaximo := "DB2037_MEDIA".MEDIA[#for_i].ValorActual;
END_IF;
END_IF;
// Conversion de indice a REAL para calculos
#t_NumeroDatos := DINT_TO_LREAL("DB2037_MEDIA".MEDIA[#for_i].auxIndice);
END_REGION TOMA_DE_VALORES
// ==========================================================================================================
REGION CALCULO_MEDIA
IF "DB2037_MEDIA".MEDIA[#for_i].auxIndice > 0 THEN
"DB2037_MEDIA".MEDIA[#for_i].Media := "DB2037_MEDIA".MEDIA[#for_i].auxAcumulado / #t_NumeroDatos;
ELSE
"DB2037_MEDIA".MEDIA[#for_i].Media := 0.0;
END_IF;
END_REGION CALCULO_MEDIA
END_FOR;
END_REGION GESTION_DISPOSITIVO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2037_ZC_MEDIA.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_3wJ
es-ES: FC2037_ZC_MEDIA
- id: MLC_qi
es-ES: Funcion para gestion medias
- id: MLC_344
es-ES: Pulso de 1 segundo
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2037_ZC_MEDIA.scl
-156
View File
@@ -1,156 +0,0 @@
FUNCTION "FC2037_ZC_MEDIA" : Void
TITLE = FC2037_ZC_MEDIA
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para gestion medias
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_NumeroDatos : LReal;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2022 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo Media.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculo de la media.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | `DB2037_MEDIA` |
| UDT | - |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 01.02.2022 | (ABH) | Primera version. |
| 00.00.02 | 18.09.2023 | (ABH) | Se añade valor maximo y valor minimo del valor instanteneo de la media cuando esta iniciada la media. |
| 01.00.00 | 06.07.2026 | (ABH) | Cambio a SCL. |
*)
END_REGION DESCRIPCION
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_MEDIA" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_MEDIA";
END_REGION COMPROBACION_N_MAX
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
FOR #for_i := 1 TO #t_N_MAX DO
// ==========================================================================================================
REGION REINICIALIZACION_DE_DATOS
// Reset temporizador interno si no esta habilitada la media
IF NOT "DB2037_MEDIA".MEDIA[#for_i].IniciarMedia THEN
"DB2037_MEDIA".MEDIA[#for_i].auxTiempo := 0;
END_IF;
// Reinicializacion de datos al inicializar
IF "DB2037_MEDIA".MEDIA[#for_i].Inicializar AND NOT "DB2037_MEDIA".MEDIA[#for_i].auxInicializar THEN
"DB2037_MEDIA".MEDIA[#for_i].auxAcumulado := 0.0;
"DB2037_MEDIA".MEDIA[#for_i].auxIndice := 0;
"DB2037_MEDIA".MEDIA[#for_i].auxTiempo := 0;
"DB2037_MEDIA".MEDIA[#for_i].ValorMinimo := 9999999.0;
"DB2037_MEDIA".MEDIA[#for_i].ValorMaximo := -9999999.0;
END_IF;
// Estado anterior
"DB2037_MEDIA".MEDIA[#for_i].auxInicializar := "DB2037_MEDIA".MEDIA[#for_i].Inicializar;
END_REGION REINICIALIZACION_DE_DATOS
// ==========================================================================================================
REGION TOMA_DE_VALORES
IF "DB2037_MEDIA".MEDIA[#for_i].IniciarMedia AND #Pulso1seg THEN
// Incrementamos el indice de tiempo
"DB2037_MEDIA".MEDIA[#for_i].auxTiempo += 1;
// En caso de superar el tiempo de muestreo, incrementamos el acumulado, reseteamos el tiempo y aumentamos el indice
IF "DB2037_MEDIA".MEDIA[#for_i].auxTiempo >= "DB2037_MEDIA".MEDIA[#for_i].TiempoMuestreo THEN
"DB2037_MEDIA".MEDIA[#for_i].auxAcumulado := "DB2037_MEDIA".MEDIA[#for_i].ValorActual + "DB2037_MEDIA".MEDIA[#for_i].auxAcumulado;
"DB2037_MEDIA".MEDIA[#for_i].auxIndice += 1;
"DB2037_MEDIA".MEDIA[#for_i].auxTiempo := 0;
END_IF;
// Guardamos el valor minimo alcanzado
IF "DB2037_MEDIA".MEDIA[#for_i].ValorActual < "DB2037_MEDIA".MEDIA[#for_i].ValorMinimo THEN
"DB2037_MEDIA".MEDIA[#for_i].ValorMinimo := "DB2037_MEDIA".MEDIA[#for_i].ValorActual;
END_IF;
// Guardamos el valor maximo alcanzado
IF "DB2037_MEDIA".MEDIA[#for_i].ValorActual > "DB2037_MEDIA".MEDIA[#for_i].ValorMaximo THEN
"DB2037_MEDIA".MEDIA[#for_i].ValorMaximo := "DB2037_MEDIA".MEDIA[#for_i].ValorActual;
END_IF;
END_IF;
// Conversion de indice a REAL para calculos
#t_NumeroDatos := DINT_TO_LREAL("DB2037_MEDIA".MEDIA[#for_i].auxIndice);
END_REGION TOMA_DE_VALORES
// ==========================================================================================================
REGION CALCULO_MEDIA
IF "DB2037_MEDIA".MEDIA[#for_i].auxIndice > 0 THEN
"DB2037_MEDIA".MEDIA[#for_i].Media := "DB2037_MEDIA".MEDIA[#for_i].auxAcumulado / #t_NumeroDatos;
ELSE
"DB2037_MEDIA".MEDIA[#for_i].Media := 0.0;
END_IF;
END_REGION CALCULO_MEDIA
END_FOR;
END_REGION GESTION_DISPOSITIVO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2038_ZC_MEDIA_VOL.s7dcl
+151
View File
@@ -0,0 +1,151 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_Th";
S7_BlockNumber := "2038";
S7_BlockTitle := "MLC_4Kw";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2038_ZC_MEDIA_VOL" : Void
VAR_INPUT
{ S7_MLC := "MLC_Ne" }
Pulso1seg : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_NumeroDatos : LReal;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2024 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo Media volumen.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculo de la media teniendo en cuenta el volumen/caudal.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | `UDT_ZC_DISP_MEDIA_VOLUMEN` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 01.02.2024 | (ABH) | Primera version. |
| 00.00.02 | 16.02.2024 | (ABH) | Cambio de tipo de dato auxVolumen de REAL a LREAL. |
| 01.00.00 | 06.07.2026 | (ABH) | Cambio a SCL. |
*)
END_REGION DESCRIPCION
REGION COMPROBACION_N_MAX
// Si no hay dispositivo declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_MEDIA_VOLUMEN" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_MEDIA_VOLUMEN";
END_REGION COMPROBACION_N_MAX
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
FOR #for_i := 1 TO #t_N_MAX DO
// ==========================================================================================================
REGION REINICIALIZACION_DE_DATOS
// Reset temporizador interno si no esta habilitada la media
IF NOT "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].IniciarMedia THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo := 0;
END_IF;
// Reinicializacion de datos al inicializar
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Inicializar AND NOT "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxInicializar THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxAcumulado :=
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxVolumen :=
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxValorMedia :=
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Media := 0.0;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo := 0;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMinimo := 9999999.0;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMaximo := -9999999.0;
END_IF;
// Estado anterior
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxInicializar := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Inicializar;
END_REGION REINICIALIZACION_DE_DATOS
// ==========================================================================================================
REGION TOMA_DE_VALORES
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].IniciarMedia AND #Pulso1seg THEN
// Incrementamos el indice de tiempo
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo += 1;
// En caso de superar el tiempo de muestreo, incrementamos el acumulado, reseteamos el tiempo y aumentamos el indice
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo >= "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].TiempoMuestreo THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxValorMedia := ("DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Volumen - "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxVolumen) * "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxVolumen := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Volumen;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxAcumulado := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxValorMedia + "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxAcumulado;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Media := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxAcumulado / "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Volumen;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo := 0;
END_IF;
// Guardamos el valor minimo alcanzado
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual < "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMinimo THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMinimo := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual;
END_IF;
// Guardamos el valor maximo alcanzado
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual > "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMaximo THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMaximo := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual;
END_IF;
END_IF;
END_REGION TOMA_DE_VALORES
END_FOR;
END_REGION GESTION_DISPOSITIVO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2038_ZC_MEDIA_VOL.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_4Kw
es-ES: FC2038_ZC_MEDIA_VOL
- id: MLC_Th
es-ES: Funcion para gestion de media teniendo en cuenta el volumen/caudal.
- id: MLC_Ne
es-ES: Pulso de 1 segundo
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2038_ZC_MEDIA_VOL.scl
-147
View File
@@ -1,147 +0,0 @@
FUNCTION "FC2038_ZC_MEDIA_VOL" : Void
TITLE = FC2038_ZC_MEDIA_VOL
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para gestion de media teniendo en cuenta el volumen/caudal.
VAR_INPUT
Pulso1seg : Bool; // Pulso de 1 segundo
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_NumeroDatos : LReal;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2024 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo Media volumen.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculo de la media teniendo en cuenta el volumen/caudal.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | `UDT_ZC_DISP_MEDIA_VOLUMEN` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 01.02.2024 | (ABH) | Primera version. |
| 00.00.02 | 16.02.2024 | (ABH) | Cambio de tipo de dato auxVolumen de REAL a LREAL. |
| 01.00.00 | 06.07.2026 | (ABH) | Cambio a SCL. |
*)
END_REGION DESCRIPCION
REGION COMPROBACION_N_MAX
// Si no hay dispositivo declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_MEDIA_VOLUMEN" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_MEDIA_VOLUMEN";
END_REGION COMPROBACION_N_MAX
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
FOR #for_i := 1 TO #t_N_MAX DO
// ==========================================================================================================
REGION REINICIALIZACION_DE_DATOS
// Reset temporizador interno si no esta habilitada la media
IF NOT "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].IniciarMedia THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo := 0;
END_IF;
// Reinicializacion de datos al inicializar
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Inicializar AND NOT "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxInicializar THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxAcumulado :=
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxVolumen :=
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxValorMedia :=
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Media := 0.0;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo := 0;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMinimo := 9999999.0;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMaximo := -9999999.0;
END_IF;
// Estado anterior
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxInicializar := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Inicializar;
END_REGION REINICIALIZACION_DE_DATOS
// ==========================================================================================================
REGION TOMA_DE_VALORES
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].IniciarMedia AND #Pulso1seg THEN
// Incrementamos el indice de tiempo
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo += 1;
// En caso de superar el tiempo de muestreo, incrementamos el acumulado, reseteamos el tiempo y aumentamos el indice
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo >= "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].TiempoMuestreo THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxValorMedia := ("DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Volumen - "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxVolumen) * "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxVolumen := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Volumen;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxAcumulado := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxValorMedia + "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxAcumulado;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Media := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxAcumulado / "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].Volumen;
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].auxTiempo := 0;
END_IF;
// Guardamos el valor minimo alcanzado
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual < "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMinimo THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMinimo := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual;
END_IF;
// Guardamos el valor maximo alcanzado
IF "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual > "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMaximo THEN
"DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorMaximo := "DB2038_MEDIA_VOL".MEDIA_VOL[#for_i].ValorActual;
END_IF;
END_IF;
END_REGION TOMA_DE_VALORES
END_FOR;
END_REGION GESTION_DISPOSITIVO
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2041_ZC_TQ_AE.s7dcl
+390
View File
@@ -0,0 +1,390 @@
{
S7_Author := "HCR";
S7_BlockNumber := "2041";
S7_BlockTitle := "MLC_562";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2041_ZC_TQ_AE" : Void
VAR_INPUT
Pulso1seg : Bool;
Arranque : Bool;
Ack : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Index : Int;
t_oldIndex : Int;
t_CambioDesdeHMI : Bool;
t_CambioDesdeMux : Bool;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
Bloque de gestión de dispositivos `TQ Aire Estéril`. Realiza la lógica de control, supervisión, alarmas y trazabilidad de los tanques de aire estéril de la planta, así como el multiplexado de los dispositivos hacia los distintos clientes HMI/SCADA.
> **Restricciones:** Ninguna.
Acciones detalladas:
- Inicializa los índices de multiplexado a `0` en el arranque del PLC.
- Gestiona los límites del índice (`Index`) y el flag `MaxVisible` para cada cliente HMI/SCADA.
- Realiza la carga inicial del dispositivo seleccionado al detectar un cambio de índice.
- Sincroniza los datos de lectura del dispositivo hacia la estructura del multiplexado (`Mux[...]`).
- Sincroniza los datos de escritura desde el multiplexado hacia el dispositivo, marcando `ExisteCambio` cuando se modifica algún valor.
- Propaga los cambios realizados desde SCADA al resto de multiplexados que tengan seleccionado el mismo dispositivo.
- Resetea los flags `AlgunaAlarma` y `AlgunaEnManual` de las agrupaciones de alarma en cada ciclo.
- Gestiona los modos de trabajo `AutoMan` y la orden `Orden_Manual`.
- Gestiona las alarmas de configuración, presión baja y presión alta, con temporización de confirmación mediante `Pulso1seg`.
- Controla la válvula de ducha durante el ciclo CIP mediante lógica flip-flop temporizada.
- Controla la válvula de venteo, inhibida por las alarmas de presión.
- Controla la válvula de estéril de forma modulante en función de la presión de trabajo.
- Registra la trazabilidad de los cambios de modo Auto/Manual y de la activación/desactivación de la orden manual mediante `FC8_ZC_TRAZA_REGISTRO`.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | `DB2041_ZC_TQ_AE` |
| UDT | `ZC_DISP_TQ_AE` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2024 | (HCR) | Primera versión. |
| 00.00.02 | 28.01.2025 | (ABH) | Se añade estado AutoMan y orden manual. Se añade trazabilidad. Se añade multiplexado. |
| 00.00.03 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.04 | 24.04.2025 | (HCR) | Se añade gestión de idioma. |
| 00.00.05 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traducción. |
| 00.00.06 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza códigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. |
| 01.00.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2041_TQ_AE".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2041_TQ_AE".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2041_TQ_AE".NumDispositivos := "N_MAX_DISP_TQ_AE";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_TQ_AE" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TQ_AE";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
IF "DB2041_TQ_AE".TQ_AE[#for_i].Config_Habilitar THEN
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan THEN
"DB2041_TQ_AE".Agrup["DB2041_TQ_AE".TQ_AE[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual := FALSE;
END_IF;
END_REGION
REGION ALARMAS
IF "DB2041_TQ_AE".TQ_AE[#for_i].Config_HabilitarAlarmas THEN
// =============================================================================
// ALARMA DE CONFIGURACION
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion := TRUE;
IF ("DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinAlarma < "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinTrabajo) AND
("DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinTrabajo < "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxTrabajo) AND
("DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxTrabajo < "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxAlarma) THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion := FALSE;
END_IF;
// =============================================================================
// ALARMA MINIMA PRESION
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja := FALSE;
IF ("DB2041_TQ_AE".TQ_AE[#for_i].Estado_ValorPresion < "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinAlarma)
AND
NOT #Ack
THEN
IF ("DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMinPresion >= "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointAlarmaMinPresion) AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Vaciado THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja := TRUE;
ELSE
IF #Pulso1seg THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMinPresion += 1;
END_IF;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMinPresion := 0;
END_IF;
// =============================================================================
// ALARMA MAXIMA PRESION
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta := FALSE;
IF ("DB2041_TQ_AE".TQ_AE[#for_i].Estado_ValorPresion > "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxAlarma)
THEN
IF "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMaxPresion >= "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointAlarmaMaxPresion THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta := TRUE;
ELSE
IF #Pulso1seg THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMaxPresion += 1;
END_IF;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMaxPresion := 0;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja := FALSE;
END_IF;
END_REGION
REGION VALVULA_DUCHA
IF "DB2041_TQ_AE".TQ_AE[#for_i].Orden_CIP AND
("DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointFlipDucha > 0
OR
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointFlopDucha > 0)
THEN
IF "DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlanco = FALSE THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlop := TRUE;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlanco := TRUE;
END_IF;
// =============================================================================
// GESTION TIEMPO FLIP FLOP
IF #Pulso1seg THEN
// =============================================================================
// CUENTA FLIP
IF "DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlipActivo = TRUE THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlip += 1;
END_IF;
// =============================================================================
// CUENTA FLOP
IF "DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlopActivo = TRUE THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlop += 1;
END_IF;
// =============================================================================
// GESTION LOGICA Y SALIDAS FLIP
IF "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlip >= "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointFlipDucha THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlip := FALSE;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlop := TRUE;
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlip := 0;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlipActivo := false;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlopActivo := true;
END_IF;
// =============================================================================
// GESTION LOGICA Y SALIDAS FLOP
IF "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlop >= "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointFlopDucha THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlip := TRUE;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlop := FALSE;
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlop := 0;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlipActivo := true;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlopActivo := false;
END_IF;
END_IF;
END_IF;
// =============================================================================
// GESTION LOGICA SALIDA DUCHA
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaDucha :=
(
NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan
AND
(
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Produccion
OR
("DB2041_TQ_AE".TQ_AE[#for_i].Orden_CIP AND "DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlip)
)
)
OR
("DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual);
END_REGION
REGION VALVULA_VENTEO
// =============================================================================
// GESTION LOGICA SALIDA VENTEO
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaVenteo :=
(
(NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Produccion)
OR
("DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual)
)
AND
NOT "DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja;
END_REGION
REGION VALVULA_ESTERIL
// =============================================================================
// GESTION LOGICA SALIDA ESTERIL
IF (NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Produccion)
OR
("DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual)
THEN
IF NOT "DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja THEN
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_ValorPresion <= "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinTrabajo THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril := TRUE;
END_IF;
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_ValorPresion >= "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxTrabajo THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril := FALSE;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril := FALSE;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril := FALSE;
END_IF;
END_REGION
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := "DB1_SYS".FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_20_DISP_TQ_AE",
User := "DB1_SYS".Usuario.Actual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_TQ_AE",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := "DB1_SYS".FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_20_DISP_TQ_AE",
User := "DB1_SYS".Usuario.Actual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_TQ_AE",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldOrdenManual THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := "DB1_SYS".FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_20_DISP_TQ_AE",
User := "DB1_SYS".Usuario.Actual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_TQ_AE",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual AND "DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldOrdenManual THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := "DB1_SYS".FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_20_DISP_TQ_AE",
User := "DB1_SYS".Usuario.Actual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_TQ_AE",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldOrdenManual := "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldAutoMan := "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan;
ELSE
// =============================================================================
// INICIALIZACIÓN DE SALIDAS
"DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan :=
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual :=
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Produccion :=
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_CIP :=
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Vaciado :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja :=
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaDucha :=
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril :=
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaVenteo := FALSE;
END_IF;
END_FOR;
END_REGION
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2041_ZC_TQ_AE.s7res
+3
View File
@@ -0,0 +1,3 @@
MultiLingualTexts:
- id: MLC_562
es-ES: FC2041_ZC_TQ_AE
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Estandar/FC2041_ZC_TQ_AE.scl
-387
View File
@@ -1,387 +0,0 @@
FUNCTION "FC2041_ZC_TQ_AE" : Void
TITLE = FC2041_ZC_TQ_AE
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : HCR
FAMILY : ZeusControl
VERSION : 1.0
VAR_INPUT
Pulso1seg : Bool;
Arranque : Bool;
Ack : Bool;
END_VAR
VAR_TEMP
for_i : Int;
t_N_MAX : Int;
t_Index : Int;
t_oldIndex : Int;
t_CambioDesdeHMI : Bool;
t_CambioDesdeMux : Bool;
END_VAR
BEGIN
REGION DESCRIPCION
//=======================================================================
// (C)Copyright ZeusControl 2024 - 2026
//=======================================================================
(*
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
### Descripción Funcional
Bloque de gestión de dispositivos `TQ Aire Estéril`. Realiza la lógica de control, supervisión, alarmas y trazabilidad de los tanques de aire estéril de la planta, así como el multiplexado de los dispositivos hacia los distintos clientes HMI/SCADA.
> **Restricciones:** Ninguna.
Acciones detalladas:
- Inicializa los índices de multiplexado a `0` en el arranque del PLC.
- Gestiona los límites del índice (`Index`) y el flag `MaxVisible` para cada cliente HMI/SCADA.
- Realiza la carga inicial del dispositivo seleccionado al detectar un cambio de índice.
- Sincroniza los datos de lectura del dispositivo hacia la estructura del multiplexado (`Mux[...]`).
- Sincroniza los datos de escritura desde el multiplexado hacia el dispositivo, marcando `ExisteCambio` cuando se modifica algún valor.
- Propaga los cambios realizados desde SCADA al resto de multiplexados que tengan seleccionado el mismo dispositivo.
- Resetea los flags `AlgunaAlarma` y `AlgunaEnManual` de las agrupaciones de alarma en cada ciclo.
- Gestiona los modos de trabajo `AutoMan` y la orden `Orden_Manual`.
- Gestiona las alarmas de configuración, presión baja y presión alta, con temporización de confirmación mediante `Pulso1seg`.
- Controla la válvula de ducha durante el ciclo CIP mediante lógica flip-flop temporizada.
- Controla la válvula de venteo, inhibida por las alarmas de presión.
- Controla la válvula de estéril de forma modulante en función de la presión de trabajo.
- Registra la trazabilidad de los cambios de modo Auto/Manual y de la activación/desactivación de la orden manual mediante `FC8_ZC_TRAZA_REGISTRO`.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | `FC8_ZC_TRAZA_REGISTRO` |
| FB | - |
| DB | `DB2041_ZC_TQ_AE` |
| UDT | `ZC_DISP_TQ_AE` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 00.00.01 | 15.10.2024 | (HCR) | Primera versión. |
| 00.00.02 | 28.01.2025 | (ABH) | Se añade estado AutoMan y orden manual. Se añade trazabilidad. Se añade multiplexado. |
| 00.00.03 | 26.03.2025 | (ABH) | Se añade variable grupo de alarma para separar los nuevos avisos por cuadro. |
| 00.00.04 | 24.04.2025 | (HCR) | Se añade gestión de idioma. |
| 00.00.05 | 11.09.2025 | (ABH) | Se eliminan las constantes de idioma dentro del FC. Se utilizan constantes globales para facilitar su traducción. |
| 00.00.06 | 17.12.2025 | (ABH) | Se eliminan los idiomas. Se utiliza códigos para trazabilidad. Se elimina entrada "Idioma". Se elimina nombre de UDT. |
| 01.00.00 | 08.07.2026 | (ABH) | Se extrae el multiplexado a FC independiente. |
*)
END_REGION DESCRIPCION
REGION LOGICA_DEL_DISPOSITIVO
// =============================================================================
// Resetear todas las alarmas para que se vuelvan a generar
FOR #for_i := 0 TO "N_MAX_DISP_AGRUP" DO
"DB2041_TQ_AE".Agrup[#for_i].AlgunaAlarma := FALSE;
"DB2041_TQ_AE".Agrup[#for_i].AlgunaEnManual := FALSE;
END_FOR;
// Numero maximo de dispositivos para limitar en HMI/Scada
"DB2041_TQ_AE".NumDispositivos := "N_MAX_DISP_TQ_AE";
REGION COMPROBACION_N_MAX
// Si no hay dispositivos declarados, salimos del bloque inmediatamente
IF "N_MAX_DISP_TQ_AE" <= 0 THEN
RETURN;
END_IF;
// Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
#t_N_MAX := "N_MAX_DISP_TQ_AE";
END_REGION COMPROBACION_N_MAX
FOR #for_i := 1 TO #t_N_MAX DO
IF "DB2041_TQ_AE".TQ_AE[#for_i].Config_Habilitar THEN
REGION MODOS_DE_TRABAJO
// =============================================================================
// MODO MANUAL
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan THEN
"DB2041_TQ_AE".Agrup["DB2041_TQ_AE".TQ_AE[#for_i].Config_GrupoAlarma].AlgunaEnManual := TRUE;
END_IF;
// =============================================================================
// MODO AUTO
IF NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual := FALSE;
END_IF;
END_REGION
REGION ALARMAS
IF "DB2041_TQ_AE".TQ_AE[#for_i].Config_HabilitarAlarmas THEN
// =============================================================================
// ALARMA DE CONFIGURACION
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion := TRUE;
IF ("DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinAlarma < "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinTrabajo) AND
("DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinTrabajo < "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxTrabajo) AND
("DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxTrabajo < "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxAlarma) THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion := FALSE;
END_IF;
// =============================================================================
// ALARMA MINIMA PRESION
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja := FALSE;
IF ("DB2041_TQ_AE".TQ_AE[#for_i].Estado_ValorPresion < "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinAlarma)
AND
NOT #Ack
THEN
IF ("DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMinPresion >= "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointAlarmaMinPresion) AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Vaciado THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja := TRUE;
ELSE
IF #Pulso1seg THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMinPresion += 1;
END_IF;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMinPresion := 0;
END_IF;
// =============================================================================
// ALARMA MAXIMA PRESION
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta := FALSE;
IF ("DB2041_TQ_AE".TQ_AE[#for_i].Estado_ValorPresion > "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxAlarma)
THEN
IF "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMaxPresion >= "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointAlarmaMaxPresion THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta := TRUE;
ELSE
IF #Pulso1seg THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMaxPresion += 1;
END_IF;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_AlarmaMaxPresion := 0;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja := FALSE;
END_IF;
END_REGION
REGION VALVULA_DUCHA
IF "DB2041_TQ_AE".TQ_AE[#for_i].Orden_CIP AND
("DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointFlipDucha > 0
OR
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointFlopDucha > 0)
THEN
IF "DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlanco = FALSE THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlop := TRUE;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlanco := TRUE;
END_IF;
// =============================================================================
// GESTION TIEMPO FLIP FLOP
IF #Pulso1seg THEN
// =============================================================================
// CUENTA FLIP
IF "DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlipActivo = TRUE THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlip += 1;
END_IF;
// =============================================================================
// CUENTA FLOP
IF "DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlopActivo = TRUE THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlop += 1;
END_IF;
// =============================================================================
// GESTION LOGICA Y SALIDAS FLIP
IF "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlip >= "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointFlipDucha THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlip := FALSE;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlop := TRUE;
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlip := 0;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlipActivo := false;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlopActivo := true;
END_IF;
// =============================================================================
// GESTION LOGICA Y SALIDAS FLOP
IF "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlop >= "DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_SetPointFlopDucha THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlip := TRUE;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlop := FALSE;
"DB2041_TQ_AE".TQ_AE[#for_i].Tiempos_DuchaTiempoFlop := 0;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlipActivo := true;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaFlopActivo := false;
END_IF;
END_IF;
END_IF;
// =============================================================================
// GESTION LOGICA SALIDA DUCHA
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaDucha :=
(
NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan
AND
(
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Produccion
OR
("DB2041_TQ_AE".TQ_AE[#for_i].Orden_CIP AND "DB2041_TQ_AE".TQ_AE[#for_i].Aux_DuchaSalidaFlip)
)
)
OR
("DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual);
END_REGION
REGION VALVULA_VENTEO
// =============================================================================
// GESTION LOGICA SALIDA VENTEO
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaVenteo :=
(
(NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Produccion)
OR
("DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual)
)
AND
NOT "DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja;
END_REGION
REGION VALVULA_ESTERIL
// =============================================================================
// GESTION LOGICA SALIDA ESTERIL
IF (NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Produccion)
OR
("DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual)
THEN
IF NOT "DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja THEN
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_ValorPresion <= "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMinTrabajo THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril := TRUE;
END_IF;
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_ValorPresion >= "DB2041_TQ_AE".TQ_AE[#for_i].Config_PresionMaxTrabajo THEN
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril := FALSE;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril := FALSE;
END_IF;
ELSE
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril := FALSE;
END_IF;
END_REGION
REGION TRAZABILIDAD_MANUALIZACION
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := "DB1_SYS".FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_20_DISP_TQ_AE",
User := "DB1_SYS".Usuario.Actual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_TQ_AE",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF NOT "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldAutoMan THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := "DB1_SYS".FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_20_DISP_TQ_AE",
User := "DB1_SYS".Usuario.Actual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_TQ_AE",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_AUTO",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldOrdenManual THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := "DB1_SYS".FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_20_DISP_TQ_AE",
User := "DB1_SYS".Usuario.Actual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_TQ_AE",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_ON",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
IF "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan AND NOT "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual AND "DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldOrdenManual THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora := "DB1_SYS".FechaHoraActual,
Registrar := 1,
Categoria := "TRZ_CAT_20_DISP_TQ_AE",
User := "DB1_SYS".Usuario.Actual,
CodInt_1 := "TRZ_SYS_DISP_TIPO_TQ_AE",
CodInt_2 := #for_i,
CodInt_3 := "TRZ_SYS_DISP_ACC_MAN_OFF",
CodInt_4 := 0,
CodInt_5 := 0,
CodReal_1 := 0.0,
CodReal_2 := 0.0);
END_IF;
END_REGION
// =============================================================================
// Estado anterior manual/automatico
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldOrdenManual := "DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual;
"DB2041_TQ_AE".TQ_AE[#for_i].Aux_oldAutoMan := "DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan;
ELSE
// =============================================================================
// INICIALIZACIÓN DE SALIDAS
"DB2041_TQ_AE".TQ_AE[#for_i].Estado_AutoMan :=
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Manual :=
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Produccion :=
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_CIP :=
"DB2041_TQ_AE".TQ_AE[#for_i].Orden_Vaciado :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_Configuracion :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionAlta :=
"DB2041_TQ_AE".TQ_AE[#for_i].Alarma_PresionBaja :=
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaDucha :=
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaEsteril :=
"DB2041_TQ_AE".TQ_AE[#for_i].Salida_ValvulaVenteo := FALSE;
END_IF;
END_FOR;
END_REGION
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Individuales/FC2926_ZC_FF_INDV.s7dcl
+204
View File
@@ -0,0 +1,204 @@
{
S7_Author := "ABH";
S7_BlockComment := "MLC_339";
S7_BlockNumber := "2926";
S7_BlockTitle := "MLC_4ir";
S7_EditorMode := "SCL";
S7_Family := "ZeusControl";
S7_Optimized := "TRUE";
S7_Version := "1.0"
}
FUNCTION "FC2926_ZC_FF_INDV" : Void
VAR_INPUT
{ S7_MLC := "MLC_4j6" }
Pulso1Seg : Bool;
END_VAR
VAR_IN_OUT
FF : _.UDT_ZC_DISP_FF;
END_VAR
VAR CONSTANT
REPOSO : SInt := 0;
FLOP : SInt := 10;
PARO1 : SInt := 20;
FLIP : SInt := 30;
PARO2 : SInt := 40;
END_VAR
{ S7_Language := "SCL" }
NETWORK
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2026 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo flip flop con funcion de paro entre cambios.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculos de tiempo de cambio entre ordenes Flip, Flop y paro.
- Adicionalmente, se gestiona tambien la posibilidad de pausar el contaje del tiempo, para evitar su reinicializacion en caso de pausa.
- En los cambios entre ´flip´ <--> ´flop´, se activa tambien la marca ´paro´ para poder gestionar los cambios y evitar golpes de ariete.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | `UDT_ZC_DISP_FF_PARO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 02.06.2026 | (ABH) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
// ==========================================================================================================
REGION COMPROBACIONES_INICIALES
// Si no hay orden o faltan tiempos, reseteamos valores y salimos de la funcion
IF NOT #FF.Orden_Activar OR (#FF.Config_SetPointTiempoFlip <= 0 AND #FF.Config_SetPointTiempoFlop <= 0) THEN
#FF.Estado_Flip := FALSE;
#FF.Estado_Flop := FALSE;
#FF.Estado_Paro1 := FALSE;
#FF.Estado_Paro2 := FALSE;
#FF.Aux_Tiempo := 0;
#FF.Estado_Etapa := #REPOSO;
#FF.Aux_Inicializado := FALSE;
RETURN;
END_IF;
END_REGION COMPROBACIONES_INICIALES
// ==========================================================================================================
REGION INICIALIZACION
// Arranque inicial forzado a Flop si no hay estado activo
IF NOT #FF.Aux_Inicializado THEN
#FF.Estado_Etapa := #FLOP;
#FF.Aux_Inicializado := TRUE;
END_IF;
END_REGION INICIALIZACION
// ==========================================================================================================
REGION LOGICA_DE_ESTADOS
CASE #FF.Estado_Etapa OF
#FLOP:
// Salidas
#FF.Estado_Flip := FALSE;
#FF.Estado_Flop := TRUE;
#FF.Estado_Paro1 := FALSE;
#FF.Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT #FF.Orden_Pausa THEN
#FF.Aux_Tiempo += 1;
END_IF;
// Transición
IF #FF.Aux_Tiempo >= #FF.Config_SetPointTiempoFlop THEN
#FF.Aux_Tiempo := 0;
// Si no tenemos tiempo de paro configurado, saltamos a FLIP
IF #FF.Config_SetPointTiempoParo <= 0 THEN
#FF.Estado_Etapa := #FLIP;
ELSE
#FF.Estado_Etapa := #PARO1;
END_IF;
END_IF;
#PARO1:
// Salidas
#FF.Estado_Flip := FALSE;
#FF.Estado_Flop := FALSE;
#FF.Estado_Paro1 := TRUE;
#FF.Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT #FF.Orden_Pausa THEN
#FF.Aux_Tiempo += 1;
END_IF;
// Transición
IF #FF.Aux_Tiempo >= #FF.Config_SetPointTiempoParo THEN
#FF.Aux_Tiempo := 0;
#FF.Estado_Etapa := #FLIP;
END_IF;
#FLIP:
// Salidas
#FF.Estado_Flip := TRUE;
#FF.Estado_Flop := FALSE;
#FF.Estado_Paro1 := FALSE;
#FF.Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT #FF.Orden_Pausa THEN
#FF.Aux_Tiempo += 1;
END_IF;
// Transición
IF #FF.Aux_Tiempo >= #FF.Config_SetPointTiempoFlip THEN
#FF.Aux_Tiempo := 0;
// Si no tenemos tiempo de paro configurado, saltamos a FLOP
IF #FF.Config_SetPointTiempoParo <= 0 THEN
#FF.Estado_Etapa := #FLOP;
ELSE
#FF.Estado_Etapa := #PARO2;
END_IF;
END_IF;
#PARO2:
// Salidas
#FF.Estado_Flip := FALSE;
#FF.Estado_Flop := FALSE;
#FF.Estado_Paro1 := FALSE;
#FF.Estado_Paro2 := TRUE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT #FF.Orden_Pausa THEN
#FF.Aux_Tiempo += 1;
END_IF;
// Transición
IF #FF.Aux_Tiempo >= #FF.Config_SetPointTiempoParo THEN
#FF.Aux_Tiempo := 0;
#FF.Estado_Etapa := #FLOP;
END_IF;
ELSE
#FF.Estado_Etapa := #REPOSO;
END_CASE;
END_REGION LOGICA_DE_ESTADOS
END_REGION GESTION_DISPOSITIVO
END_NETWORK
END_FUNCTION
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Individuales/FC2926_ZC_FF_INDV.s7res
+7
View File
@@ -0,0 +1,7 @@
MultiLingualTexts:
- id: MLC_4ir
es-ES: FC2926_ZC_FF
- id: MLC_339
es-ES: Funcion para gestion de flip flop
- id: MLC_4j6
es-ES: Pulso de 1 segundo
PLC/Bloques de programa/ZC_Estandar_Alimentacion/200_Dispositivos/200_Individuales/FC2926_ZC_FF_INDV.scl
-201
View File
@@ -1,201 +0,0 @@
FUNCTION "FC2926_ZC_FF_INDV" : Void
TITLE = FC2926_ZC_FF
{ S7_Optimized_Access := 'TRUE' }
AUTHOR : ABH
FAMILY : ZeusControl
VERSION : 1.0
//Funcion para gestion de flip flop
VAR_INPUT
Pulso1Seg : Bool; // Pulso de 1 segundo
END_VAR
VAR_IN_OUT
FF : "UDT_ZC_DISP_FF";
END_VAR
VAR CONSTANT
REPOSO : SInt := 0;
FLOP : SInt := 10;
PARO1 : SInt := 20;
FLIP : SInt := 30;
PARO2 : SInt := 40;
END_VAR
BEGIN
REGION DESCRIPCION
(*
###### (C)Copyright ZeusControl 2026 - 2026
---
### Información del Sistema
| Hardware Compatible | Entorno de Ingeniería |
|---------------------|-----------------------|
| PLC serie 1200/1500 | TIA Portal 18 |
---
> **Restricciones:** Ninguna.
---
### Descripción Funcional
Función encargada de gestionar un dispositivo flip flop con funcion de paro entre cambios.
Las tareas que realiza son las siguientes:
- Gestionar la activacion y calculos de tiempo de cambio entre ordenes Flip, Flop y paro.
- Adicionalmente, se gestiona tambien la posibilidad de pausar el contaje del tiempo, para evitar su reinicializacion en caso de pausa.
- En los cambios entre ´flip´ <--> ´flop´, se activa tambien la marca ´paro´ para poder gestionar los cambios y evitar golpes de ariete.
---
### Dependencias Requeridas
| Tipo | Elementos |
|------|-----------|
| FC | - |
| FB | - |
| DB | - |
| UDT | `UDT_ZC_DISP_FF_PARO` |
---
### Historial de Cambios
| Versión | Fecha | Técnico | Cambios |
|----------|------------|---------|---------|
| 01.00.00 | 02.06.2026 | (ABH) | Primera version. |
*)
END_REGION DESCRIPCION
// ==========================================================================================================
REGION GESTION_DISPOSITIVO
// ==========================================================================================================
REGION COMPROBACIONES_INICIALES
// Si no hay orden o faltan tiempos, reseteamos valores y salimos de la funcion
IF NOT #FF.Orden_Activar OR (#FF.Config_SetPointTiempoFlip <= 0 AND #FF.Config_SetPointTiempoFlop <= 0) THEN
#FF.Estado_Flip := FALSE;
#FF.Estado_Flop := FALSE;
#FF.Estado_Paro1 := FALSE;
#FF.Estado_Paro2 := FALSE;
#FF.Aux_Tiempo := 0;
#FF.Estado_Etapa := #REPOSO;
#FF.Aux_Inicializado := FALSE;
RETURN;
END_IF;
END_REGION COMPROBACIONES_INICIALES
// ==========================================================================================================
REGION INICIALIZACION
// Arranque inicial forzado a Flop si no hay estado activo
IF NOT #FF.Aux_Inicializado THEN
#FF.Estado_Etapa := #FLOP;
#FF.Aux_Inicializado := TRUE;
END_IF;
END_REGION INICIALIZACION
// ==========================================================================================================
REGION LOGICA_DE_ESTADOS
CASE #FF.Estado_Etapa OF
#FLOP:
// Salidas
#FF.Estado_Flip := FALSE;
#FF.Estado_Flop := TRUE;
#FF.Estado_Paro1 := FALSE;
#FF.Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT #FF.Orden_Pausa THEN
#FF.Aux_Tiempo += 1;
END_IF;
// Transición
IF #FF.Aux_Tiempo >= #FF.Config_SetPointTiempoFlop THEN
#FF.Aux_Tiempo := 0;
// Si no tenemos tiempo de paro configurado, saltamos a FLIP
IF #FF.Config_SetPointTiempoParo <= 0 THEN
#FF.Estado_Etapa := #FLIP;
ELSE
#FF.Estado_Etapa := #PARO1;
END_IF;
END_IF;
#PARO1:
// Salidas
#FF.Estado_Flip := FALSE;
#FF.Estado_Flop := FALSE;
#FF.Estado_Paro1 := TRUE;
#FF.Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT #FF.Orden_Pausa THEN
#FF.Aux_Tiempo += 1;
END_IF;
// Transición
IF #FF.Aux_Tiempo >= #FF.Config_SetPointTiempoParo THEN
#FF.Aux_Tiempo := 0;
#FF.Estado_Etapa := #FLIP;
END_IF;
#FLIP:
// Salidas
#FF.Estado_Flip := TRUE;
#FF.Estado_Flop := FALSE;
#FF.Estado_Paro1 := FALSE;
#FF.Estado_Paro2 := FALSE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT #FF.Orden_Pausa THEN
#FF.Aux_Tiempo += 1;
END_IF;
// Transición
IF #FF.Aux_Tiempo >= #FF.Config_SetPointTiempoFlip THEN
#FF.Aux_Tiempo := 0;
// Si no tenemos tiempo de paro configurado, saltamos a FLOP
IF #FF.Config_SetPointTiempoParo <= 0 THEN
#FF.Estado_Etapa := #FLOP;
ELSE
#FF.Estado_Etapa := #PARO2;
END_IF;
END_IF;
#PARO2:
// Salidas
#FF.Estado_Flip := FALSE;
#FF.Estado_Flop := FALSE;
#FF.Estado_Paro1 := FALSE;
#FF.Estado_Paro2 := TRUE;
// Conteo de tiempo
IF #Pulso1Seg AND NOT #FF.Orden_Pausa THEN
#FF.Aux_Tiempo += 1;
END_IF;
// Transición
IF #FF.Aux_Tiempo >= #FF.Config_SetPointTiempoParo THEN
#FF.Aux_Tiempo := 0;
#FF.Estado_Etapa := #FLOP;
END_IF;
ELSE
#FF.Estado_Etapa := #REPOSO;
END_CASE;
END_REGION LOGICA_DE_ESTADOS
END_REGION GESTION_DISPOSITIVO
END_FUNCTION

Some files were not shown because too many files have changed in this diff Show More