aketza/ZC_ESTANDAR_ALIMENTACION
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
d551a132c04549f577e9e36896cb5fa458d8900e
ZC_ESTANDAR_ALIMENTACION/PLC/Bloques de programa/OB1_MAIN.s7dcl
T

421 lines
12 KiB
Plaintext
Raw Blame History

{
S7_IECCheck := "TRUE";
S7_Optimized := "TRUE";
S7_PreferredLanguage := "LAD";
S7_Version := "0.1"
}
ORGANIZATION_BLOCK "OB1_MAIN"
VAR_TEMP
t_TiempoSP : Int;
t_LitrosSP : Real;
for_i : Int;
END_VAR
{
S7_Language := "SCL";
S7_NetworkTitle := "MLC_X4"
}
NETWORK
IF "_borrar".traza THEN
"FC8_ZC_TRZ_REGISTRO"(FechaHora:="DB1_SYS".FechaHoraActual,
Registrar:=1,
Categoria:="TRZ_CAT_32_USER",
User:="DB1_SYS".Usuario.Actual,
CodInt_1:="_borrar".codigo,
CodInt_2:=0,
CodInt_3:=0,
CodInt_4:=0,
CodInt_5:=0,
CodReal_1:=0.0,
CodReal_2:=0.0);
"_borrar".traza := false;
END_IF;
END_NETWORK
{
S7_Language := "SCL";
S7_NetworkTitle := "MLC_3UH"
}
NETWORK
"FC1_ZC_SISTEMA"(CPU_MarcasCiclo := "Clock_Byte",
CPU_MarcasSistema := "System_Byte",
RedProfinet := "Local~PROFINET_IO-System");
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_3FX"
}
NETWORK
RUNG wire#powerrail
"FC5_ZC_PROCESO"(
Pulso1Seg := "DB1_SYS".Pulso1seg,
Usuario := "DB1_SYS".Usuario.Actual,
FechaHoraActual := "DB1_SYS".FechaHoraActual,
PrimerArranque := "DB1_SYS".ARRANQUE,
SeguridadOk := "_borrar".seguridadesok,
ComunicacionesOk := "_borrar".comunicacionesok,
HabilitacionErrores := TRUE,
HabilitacionErroresEntidades := TRUE,
HabilitacionErroresDispositivos := TRUE,
HabilitacionAbortarErrores := TRUE,
TiempoPulsadores := 2,
PRO := "_borrar".PROCESO
)
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_4zA"
}
NETWORK
RUNG wire#powerrail
"FC9_GESTOR_DISPOSITIVOS"()
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_3Bx"
}
NETWORK
RUNG wire#powerrail
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_4W3"
}
NETWORK
RUNG wire#powerrail
Contact( "_borrar".PROCESO.Estado.Finalizado )
I_Contact( "_borrar".PROCESO.Estado.Enclavado )
Contact( "_borrar".seguridadesok )
Coil( "_borrar".PROCESO.Pulsadores.Marcha.Permiso )
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_XX"
}
NETWORK
RUNG wire#powerrail
Contact( "_borrar".PROCESO.Estado.EnMarcha )
Coil( "_borrar".PROCESO.Pulsadores.Pausa.Permiso )
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_hs"
}
NETWORK
RUNG wire#powerrail
Contact( "_borrar".PROCESO.Estado.Pausado )
Coil( "_borrar".PROCESO.Pulsadores.Reanudar.Permiso )
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_4gi"
}
NETWORK
RUNG wire#powerrail
Contact( "_borrar".PROCESO.Estado.Pausado )
wire#w1
Coil( "_borrar".PROCESO.Pulsadores.Paro.Permiso )
END_RUNG
RUNG wire#powerrail
Contact( "_borrar".PROCESO.Estado.EnError )
END_RUNG wire#w1
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_4Ge"
}
NETWORK
RUNG wire#powerrail
Contact( "_borrar".PROCESO.Estado.EnError )
Coil( "_borrar".PROCESO.Pulsadores.ResetErrores.Permiso )
END_RUNG
END_NETWORK
{
S7_Language := "SCL";
S7_NetworkTitle := "MLC_RP"
}
NETWORK
"_borrar".PROCESO.Enclavamiento.Usuario[1] :=
"_borrar".PROCESO.Enclavamiento.Usuario[2] :=
"_borrar".PROCESO.Enclavamiento.Usuario[3] :=
"_borrar".PROCESO.Enclavamiento.Usuario[4] :=
"_borrar".PROCESO.Enclavamiento.Usuario[5] :=
"_borrar".PROCESO.Enclavamiento.Usuario[6] :=
"_borrar".PROCESO.Enclavamiento.Usuario[7] :=
"_borrar".PROCESO.Enclavamiento.Usuario[8] := FALSE;
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_rD"
}
NETWORK
RUNG wire#powerrail
Contact( "_borrar".PROCESO.Estado.Finalizado )
I_Contact( "_borrar".Enclavamiento )
S_Coil( "_borrar".PROCESO.Enclavamiento.Usuario[1] )
Move(
in := 20001,
out1 => "_borrar".PROCESO.Enclavamiento.Codigo
)
END_RUNG
END_NETWORK
{
S7_Language := "SCL";
S7_NetworkTitle := "MLC_3Fa"
}
NETWORK
"_borrar".PROCESO.Error.Usuario[1] :=
"_borrar".PROCESO.Error.Usuario[2] :=
"_borrar".PROCESO.Error.Usuario[3] :=
"_borrar".PROCESO.Error.Usuario[4] :=
"_borrar".PROCESO.Error.Usuario[5] :=
"_borrar".PROCESO.Error.Usuario[6] :=
"_borrar".PROCESO.Error.Usuario[7] :=
"_borrar".PROCESO.Error.Usuario[8] := FALSE;
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_3tc"
}
NETWORK
RUNG wire#powerrail
{ S7_Templates := "SrcType := Int" }
GE_Contact(
in1 := "_borrar".PROCESO.EtapaActual,
in2 := 5
)
Contact( "_borrar".Error )
S_Coil( "_borrar".PROCESO.Error.Usuario[1] )
Move(
in := 1,
out1 => "_borrar".PROCESO.Error.Codigo
)
END_RUNG
END_NETWORK
{
S7_Language := "SCL";
S7_NetworkTitle := "MLC_3En"
}
NETWORK
"_borrar".PROCESO.Aviso.Usuario[1] :=
"_borrar".PROCESO.Aviso.Usuario[2] :=
"_borrar".PROCESO.Aviso.Usuario[3] :=
"_borrar".PROCESO.Aviso.Usuario[4] :=
"_borrar".PROCESO.Aviso.Usuario[5] :=
"_borrar".PROCESO.Aviso.Usuario[6] :=
"_borrar".PROCESO.Aviso.Usuario[7] :=
"_borrar".PROCESO.Aviso.Usuario[8] := FALSE;
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_4GD"
}
NETWORK
RUNG wire#powerrail
Contact( "DB1_SYS"."ON" )
Contact( "_borrar".Aviso )
S_Coil( "_borrar".PROCESO.Aviso.Usuario[1] )
Move(
in := 10001,
out1 => "_borrar".PROCESO.Aviso.Codigo
)
END_RUNG
END_NETWORK
{
S7_Language := "SCL";
S7_NetworkTitle := "MLC_4LT"
}
NETWORK
//=====================================================================================
// Reset ventana de aviso
"_borrar".PROCESO.VentanaAviso.Mostrar := FALSE;
//=====================================================================================
// Nombre Proceso
//=====================================================================================
// ID Proceso
"_borrar".PROCESO.ID := 100;
//=====================================================================================
// Configuración secuencia
CASE "_borrar".PROCESO.EtapaActual OF
"FIN_PROCESO":
#t_TiempoSP := 1;
#t_LitrosSP := 0.0;
0:
#t_TiempoSP := 1;
#t_LitrosSP := 0.0;
1: //
#t_TiempoSP := 0;
#t_LitrosSP := 0.0;
5: //
#t_TiempoSP := 10;
#t_LitrosSP := 0.0;
10: //
#t_TiempoSP := 10;
#t_LitrosSP := 0.0;
ELSE
#t_TiempoSP := 1;
#t_LitrosSP := 0.0;
"_borrar".PROCESO.SaltoEtapa.CambioPosible := FALSE;
END_CASE;
//=====================================================================================
// Tiempo etapa y litros etapa
"_borrar".PROCESO.TiempoEtapa.SP := #t_TiempoSP;
"_borrar".PROCESO.LitrosEtapa.SP := #t_LitrosSP;
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_QE"
}
NETWORK
RUNG wire#powerrail
{ S7_Templates := "SrcType := Int" }
EQ_Contact(
in1 := "_borrar".PROCESO.EtapaActual,
in2 := 1
)
Contact( "_borrar".PROCESO.Aux.ErroresComprobados )
Contact( "_borrar".PROCESO.Aux.EntidadesCargadas )
Move(
in := 5,
out1 => "_borrar".PROCESO.EtapaSiguiente
)
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_3tR"
}
NETWORK
RUNG wire#powerrail
{ S7_Templates := "SrcType := Int" }
EQ_Contact(
in1 := "_borrar".PROCESO.EtapaActual,
in2 := 5
)
wire#w1
S_Coil( "_borrar".PROCESO.TiempoEtapa.Activar )
END_RUNG
RUNG wire#w1
Contact( "_borrar".PROCESO.TiempoEtapa.Cumplido )
Move(
in := 10,
out1 => "_borrar".PROCESO.EtapaSiguiente
)
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_Z8"
}
NETWORK
RUNG wire#powerrail
{ S7_Templates := "SrcType := Int" }
EQ_Contact(
in1 := "_borrar".PROCESO.EtapaActual,
in2 := 10
)
wire#w1
S_Coil( "_borrar".PROCESO.TiempoEtapa.Activar )
END_RUNG
RUNG wire#w1
Contact( "_borrar".PROCESO.TiempoEtapa.Cumplido )
Move(
in := "FIN_PROCESO",
out1 => "_borrar".PROCESO.EtapaSiguiente
)
END_RUNG
END_NETWORK
{ S7_Language := "LAD" }
NETWORK
RUNG wire#powerrail
"FC15151_ZC_MARCHA_PARO_SEC"(
Pulso1Seg := "DB1_SYS".Pulso1seg,
Seguridad := "_borrar".Seguridad,
Marcha := "_borrar".Marcha,
MP_SEC := "_borrar".MP[0]
)
END_RUNG
RUNG wire#powerrail
"FC15151_ZC_MARCHA_PARO_SEC"(
Pulso1Seg := "DB1_SYS".Pulso1seg,
Seguridad := "_borrar".Seguridad,
Marcha := "_borrar".Marcha,
MP_SEC := "_borrar".MP[1]
)
END_RUNG
END_NETWORK
{ S7_Language := "LAD" }
NETWORK
RUNG wire#powerrail
"FC2926_ZC_FF_INDV"(
Pulso1Seg := "DB1_SYS".Pulso1seg,
FF := "_borrar".FF_PARO
)
END_RUNG
END_NETWORK
{ S7_Language := "LAD" }
NETWORK
RUNG wire#powerrail
"FC2927_ZC_FF_SEC_INDV"(
Pulso1Seg := "DB1_SYS".Pulso1seg,
FF_SEC := "_borrar".FF_SEC
)
END_RUNG
END_NETWORK
{
S7_Language := "LAD";
S7_NetworkTitle := "MLC_Rg"
}
NETWORK
RUNG wire#powerrail
"FC15_ZC_GEST_PREAL"(
PrimerCiclo := "DB1_SYS".ARRANQUE,
FechaHora := "DB1_SYS".FechaHoraActual,
Usuario := "DB1_SYS".Usuario.Actual,
PReal := "_borrar".PReal,
IndexTraza := 0,
ValorAnterior := "_borrar".PReal_ValorAnterior
)
"FC16_ZC_GEST_PINT"(
PrimerCiclo := "DB1_SYS".ARRANQUE,
FechaHora := "DB1_SYS".FechaHoraActual,
Usuario := "DB1_SYS".Usuario.Actual,
PInt := "_borrar".PInt,
IndexTraza := 0,
ValorAnterior := "_borrar".PInt_ValorAnterior
)
END_RUNG
END_NETWORK
{ S7_Language := "SCL" }
NETWORK
"FC7_ZC_TRZ_GESTOR"("DB1_SYS".Pulso1seg);
END_NETWORK
END_ORGANIZATION_BLOCK
Reference in New Issue View Git Blame Copy Permalink