Files

127 lines
5.5 KiB
Plaintext

FUNCTION_BLOCK "EPtoLP_Antriebe"
{ S7_Optimized_Access := 'FALSE' }
// Mechanische AWL->SCL-Konvertierung (awl2scl.py). Kontrollfluss per GOTO,
// wo im Original mit Sprungmarken gearbeitet wurde. Vor Uebernahme in TIA
// Portal pruefen/kompilieren (siehe SCL-Export/README.md).
VAR_INPUT
DOutbound_Bereich : Word; // war "DOutbound_Bereich"
SGes : Word; // war "SGes"
T194 : Word; // war "T194"
T197 : Word; // war "T197"
END_VAR
VAR_IN_OUT
g_7_HMI_Err_UH07_OB : Word; // war "7_HMI_Err_UH07_OB"
FC0062 : Word; // war "FC0062"
FC0063 : Word; // war "FC0063"
FC0064 : Word; // war "FC0064"
FC0326 : Word; // war "FC0326"
FC0327 : Word; // war "FC0327"
FC0330 : Word; // war "FC0330"
FC0331 : Word; // war "FC0331"
FC0332 : Word; // war "FC0332"
FC0333 : Word; // war "FC0333"
MA0062 : Bool; // war "MA0062"
MA0063 : Bool; // war "MA0063"
MA0064 : Bool; // war "MA0064"
MA0326 : Bool; // war "MA0326"
MA0327 : Bool; // war "MA0327"
MA0330 : Bool; // war "MA0330"
MA0331 : Bool; // war "MA0331"
MA0332 : Bool; // war "MA0332"
MA0333 : Bool; // war "MA0333"
END_VAR
VAR
MA0326 : "MAntrieb_PowerSave";
MA0327 : "MAntrieb_PowerSave";
MA0330 : "MAntrieb_PowerSave";
MA0331 : "MAntrieb_PowerSave";
MA0332 : "MAntrieb_PowerSave";
MA0333 : "MAntrieb_PowerSave";
MA0062 : "MAntrieb_PowerSave";
MA0063 : "MAntrieb_PowerSave";
MA0064 : "MAntrieb_PowerSave";
END_VAR
VAR_TEMP
Auto : Bool; // Automatik Linie ist aktiv
Hand : Bool; // Hand Linie ist aktiv
BereichErr : Bool; // Bereichsstörung -> Antrieb stoppen
QKontroll : Bool; // Frequenzumrichter schon 3s Netz EIN
FuKontroll : Bool; // Frequenzumrichter schon 3s Netz EIN
Quit : Bool; // Motorschutz-Störung quittieren
Qok : Bool; // Motorschutz ok
Jog1 : Bool; // Geschwindigkeit 1
Jog2 : Bool; // Geschwindigkeit 2
Betrieb : Bool; // Betriebsart aktiv
FC105_RET : Word; // Returnwert von FC105
Antrieb1 : Bool; // Antrieb dazuschalten
Antrieb2 : Bool; // Antrieb dazuschalten
F1 : Bool; // Geschwindigkeit 1 aktiviert
F2 : Bool; // Geschwindigkeit 2 aktiviert
F3 : Bool; // Geschwindigkeit 3 aktiviert
END_VAR
BEGIN
REGION Übergabe des Bereichstatus System UC074/A01
#Auto := #DOutbound_Bereich.A01_UH07.Automatik AND NOT (#DOutbound_Bereich.A01_UH07.Handbetrieb);
#Hand := FALSE;
#BereichErr := #DOutbound_Bereich.A01_UC074.BereichErr AND NOT (#SGes.Simulation_ohne_HW_aktiv);
#QKontroll := #T194;
#FuKontroll := #T194;
#Quit := #DOutbound_Bereich.A01_UC074.StOk_aktiv;
END_REGION
REGION MA0326
#MA0326(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0326, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0326, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0326);
END_REGION
REGION MA0327
#MA0327(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0327, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0327, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0327);
END_REGION
REGION MA0330
#MA0330(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0330, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0330, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0330);
END_REGION
REGION MA0331
#MA0331(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0331, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0331, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0331);
END_REGION
REGION MA0332
#MA0332(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0332, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0332, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0332);
END_REGION
REGION MA0333
#MA0333(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0333, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0333, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0333);
END_REGION
REGION Übergabe des Bereichstatus System UH07/A01
#Auto := #DOutbound_Bereich.A01_UH07.Automatik AND NOT (#DOutbound_Bereich.A01_UH07.Handbetrieb);
#Hand := FALSE;
#BereichErr := #DOutbound_Bereich.A01_UH07.BereichErr AND NOT (#SGes.Simulation_ohne_HW_aktiv);
#QKontroll := #T197;
#FuKontroll := #T197;
#Quit := #DOutbound_Bereich.A01_UH07.StOk_aktiv;
END_REGION
REGION MA0062
#MA0062(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0062, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0062, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0062);
END_REGION
REGION MA0063
#MA0063(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0063, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0063, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0063);
END_REGION
REGION MA0064
#MA0064(Automatik := #Auto, Handbetrieb := #Hand, BereichErr := #BereichErr, Q := #FC0064, Ptc := TRUE, QKontroll := #QKontroll, ErrQuit := #Quit, Antriebvor := #MA0064, QErr := #g_7_HMI_Err_UH07_OB.QErr.MA0064);
END_REGION
REGION Ende
RETURN;
END_REGION
END_FUNCTION_BLOCK