Files

205 lines
15 KiB
Plaintext

FUNCTION_BLOCK "PS3_OmniFahren"
{ 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
BG3331 : Word; // war "BG3331"
MB3322 : Byte; // war "MB3322"
END_VAR
VAR_OUTPUT
DPS4_OmniFahren : Word; // war "DPS4_OmniFahren"
PF0044 : Word; // war "PF0044"
PF3300 : Word; // war "PF3300"
END_VAR
VAR_IN_OUT
BG3270 : Word; // war "BG3270"
BG3293 : Word; // war "BG3293"
BG3294 : Word; // war "BG3294"
BG3302 : Word; // war "BG3302"
BG3303 : Word; // war "BG3303"
BG3305 : Word; // war "BG3305"
BG3311 : Word; // war "BG3311"
BG3315 : Word; // war "BG3315"
BG3320 : Word; // war "BG3320"
BG3321 : Word; // war "BG3321"
BG3322 : Word; // war "BG3322"
BG3323 : Word; // war "BG3323"
DAMR_Bereich : Word; // war "DAMR_Bereich"
DArbeitspl_tze_Antriebe : Word; // war "DArbeitsplätze_Antriebe"
DArbeitspl_tze_Sensoren : Word; // war "DArbeitsplätze_Sensoren"
DArbeitspl_tze_Zylinder : Word; // war "DArbeitsplätze_Zylinder"
DPS5_OmniFahren : Word; // war "DPS5_OmniFahren"
MA0076 : Bool; // war "MA0076"
MA0077 : Bool; // war "MA0077"
MA0080 : Bool; // war "MA0080"
MA0081 : Bool; // war "MA0081"
MA0082 : Bool; // war "MA0082"
MA0087 : Bool; // war "MA0087"
MB3293 : Byte; // war "MB3293"
MB3302 : Byte; // war "MB3302"
MB3303 : Byte; // war "MB3303"
MB3305 : Byte; // war "MB3305"
MB3311 : Byte; // war "MB3311"
MB3315 : Byte; // war "MB3315"
MB3321 : Byte; // war "MB3321"
MB3323 : Byte; // war "MB3323"
END_VAR
VAR
Schleuse_vor_Einfahrt { S7_SetPoint := 'False'} : "MHMOmniSchleuse";
Weiche_Einfahrt { S7_SetPoint := 'False'} : "MHMOmniWeiche";
Schleuse_Vorstau { S7_SetPoint := 'False'} : "MHMOmniSchleuse";
Sks_Arbeitsplatz { S7_SetPoint := 'False'} : "MHM_Arbeitsplatz";
Schleuse_Platz_1 { S7_SetPoint := 'False'} : "MHMOmniSchleuse";
Schleuse_Platz_2 { S7_SetPoint := 'False'} : "MHMOmniSchleuse";
Schleuse_Platz_3 { S7_SetPoint := 'False'} : "MHMOmniSchleuse";
Schleuse_Ausfahrt : "MHMOmniSchleuse";
Schleuse_vor_Ausfahrt { S7_SetPoint := 'False'} : "MHMOmniSchleuse";
Prio_Ausfahrt { S7_SetPoint := 'False'} : "MAusfahrPrio_ABP";
Vorfahrt_Ausfahrweiche : Struct
"Weiche_von_Haupt-Sep_belegt" : Bool;
"Weiche_von_Ausfahr-Sep_belegt" : Bool;
Haupstrecke_gefahren : Int;
AMR_gefahren : Int;
END_STRUCT;
END_VAR
VAR_TEMP
ErrQuit : Bool;
ErrAnz : Bool;
Stau_raus : Bool;
Start_ok : Bool;
B_aktiv : Bool;
B_AusSchleuse : Bool;
Antrieb_aktiv : Bool;
Antrieb_vor : Bool;
Antrieb_start : Bool;
Antrieb_PS : Bool;
Antrieb_stop : Bool;
Fahren_Ok : Bool;
END_VAR
BEGIN
REGION Systemzeug
#Schleuse_vor_Einfahrt.Dyn.Sk.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Weiche_Einfahrt.Dyn.Status.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Sks_Arbeitsplatz.Dyn.Sk_zum_Beladeplatz.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Schleuse_Vorstau.Dyn.Sk.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Schleuse_Platz_1.Dyn.Sk.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Schleuse_Platz_2.Dyn.Sk.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Schleuse_Platz_3.Dyn.Sk.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Sks_Arbeitsplatz.Dyn.Sk_aus_Beladeplatz.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Schleuse_Ausfahrt.Dyn.Sk.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Schleuse_vor_Ausfahrt.Dyn.Sk.Auto_akt := #DAMR_Bereich.A01_UH06.AnlageEin;
#Schleuse_vor_Einfahrt.Dyn.Sk.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Weiche_Einfahrt.Dyn.Status.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Sks_Arbeitsplatz.Dyn.Sk_zum_Beladeplatz.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Schleuse_Vorstau.Dyn.Sk.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Schleuse_Platz_1.Dyn.Sk.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Schleuse_Platz_2.Dyn.Sk.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Schleuse_Platz_3.Dyn.Sk.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Sks_Arbeitsplatz.Dyn.Sk_aus_Beladeplatz.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Schleuse_Ausfahrt.Dyn.Sk.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
#Schleuse_vor_Ausfahrt.Dyn.Sk.Bereich_ok := NOT (#DAMR_Bereich.A01_UH06.BereichErr);
END_REGION
REGION Störungen quittieren
#ErrQuit := #DAMR_Bereich.A01_UZ0613.StOk_aktiv;
IF #DAMR_Bereich.A01_UZ0613.StOk_aktiv THEN
#DArbeitspl_tze_Antriebe."MA _Einfahrt_PS3".Stat.A_start := TRUE;
#DArbeitspl_tze_Antriebe."MA _Nachstau1_PS3".Stat.A_start := TRUE;
#DArbeitspl_tze_Antriebe."MA _Nachstau2_PS3".Stat.A_start := TRUE;
#DArbeitspl_tze_Antriebe."MA _Ausfahrt_PS3".Stat.A_start := TRUE;
#DArbeitspl_tze_Antriebe.MA0082.Stat.A_start := TRUE;
#DArbeitspl_tze_Antriebe.MA0087.Stat.A_start := TRUE;
END_IF;
END_REGION
REGION Schleuse vor Einfahrt
#Schleuse_vor_Einfahrt(Schleusen_Nr := 3293, ErrQuit := #ErrQuit, B_VorSchleuse := #BG3270, B_InSchleuse := #BG3293, B_AusSchleuse := , B_Stau_raus := , Start_Ok := 1, Antrieb_Schleuse_aktiv := #MA0082, Antrieb_plus_aktiv := 1, Schleuse_geöffnet := #MB3293, Y_Schleuse_Auf := #DArbeitspl_tze_Zylinder.Schleuse_Vor_Einfahrt_PS3.Stat.Ast, Error := %DB608.DBW246, Antrieb_Schleuse_vor := #DArbeitspl_tze_Antriebe.MA0082.Stat.A_vor, Antrieb_Schleuse_start := #DArbeitspl_tze_Antriebe.MA0082.Stat.A_start, Antrieb_Schleuse_stop := #DArbeitspl_tze_Antriebe.MA0082.Stat.Stop_vor, Antrieb_Schleuse_PS := #DArbeitspl_tze_Antriebe.MA0082.Stat.A_PS, hStOk := #ErrAnz); // Über Weiche_Einfahrt | Über Weiche_Einfahrt | Über Weiche_Einfahrt
IF #MB3293 THEN #DArbeitspl_tze_Zylinder.Weiche_Ausfahrt_PS4.Stat.Ast := FALSE; END_IF;
IF #Schleuse_vor_Einfahrt.Dyn.Status.Trolley_draussen THEN #DPS4_OmniFahren.Vorfahrt_Ausfahrweiche."Weiche_von_Haupt-Sep_belegt" := FALSE; END_IF;
END_REGION
REGION Weiche Einfahrt
#Weiche_Einfahrt(Weichen_Nr := 3302, ErrQuit := #ErrQuit, Fahren_Ok := 1, B_Ziel_gerade := #DArbeitspl_tze_Sensoren.Stau_nach_Ausfahrt_PS4.Stat.B_Akt, B_Ziel_abzweig := #DArbeitspl_tze_Sensoren.Stau_Einfahrt_PS3.Stat.B_Akt, Antrieb_Weiche_aktiv := #MA0082, Antrieb_Gerade_aktiv := #MA0082, Antrieb_Abzweig_aktiv := #MA0076, Weiche_ist_AST := #MB3302, Y_Weiche_abzweig := #DArbeitspl_tze_Zylinder.Weiche_Einfahrt_PS3.Stat.Ast, Error := %DB608.DBW248, Antrieb_Weiche_vor := #DArbeitspl_tze_Antriebe.MA0082.Stat.A_vor, Antrieb_Weiche_stop := #DArbeitspl_tze_Antriebe.MA0082.Stat.Stop_vor, Antrieb_Weiche_gerade_vor := , Antrieb_Weiche_gerade_stop := , Antrieb_Weiche_abzweig_vor := #DArbeitspl_tze_Antriebe."MA _Einfahrt_PS3".Stat.A_vor, Antrieb_Weiche_abzweig_stop := #DArbeitspl_tze_Antriebe."MA _Einfahrt_PS3".Stat.Stop_vor, hStOk := #ErrAnz); // s.o. | s.o.
END_REGION
REGION Schrittketten Arbeitsplätze ver-/entsorgen
#Sks_Arbeitsplatz(Arbeitsplatz_Nr := 16#A300, ErrQuit := #ErrQuit, B_In_Schleuse_Vorstau := #BG3303, B_an_Platz_1 := #BG3305, B_an_Platz_2 := #BG3311, B_an_Platz_3 := #BG3315, B_Nachstau_Einfahrt := #DArbeitspl_tze_Sensoren.Stau_Ausfahrt_PS3.Stat.B_Akt, B_Nachstau_Ausfahrt := #BG3321, Y_Vorstau := #MB3303, Y_Platz_1 := #MB3305, Y_Platz_2 := #MB3311, Y_Platz_3 := #MB3315, Antrieb_Vorstau_aktiv := #MA0076, Antrieb_Nachstau_1_aktiv := #MA0077, Antrieb_Nachstau_2_aktiv := #MA0080, Antrieb_Nachstau_3_aktiv := #MA0081, Y_Weiche_zu_Platz_1 := #DArbeitspl_tze_Zylinder.Weiche_zu_Platz1_PS3.Stat.Ast, Y_Weiche_zu_Platz_2 := #DArbeitspl_tze_Zylinder.Weiche_zu_Platz2_PS3.Stat.Ast, Y_Weiche_von_Platz_1 := #DArbeitspl_tze_Zylinder.Weiche_von_Platz1_PS3.Stat.Ast, Y_Weiche_von_Platz_2 := #DArbeitspl_tze_Zylinder.Weiche_von_Platz2_PS3.Stat.Ast, Antrieb_Nachstau_1_vor := #DArbeitspl_tze_Antriebe."MA _Nachstau1_PS3".Stat.A_vor, Antrieb_Nachstau_2_vor := #DArbeitspl_tze_Antriebe."MA _Nachstau2_PS3".Stat.A_vor, Trolley_hat_ABS_erreicht := #Schleuse_Vorstau.B_AusSchleuse, Reset_Vorstau_Schleuse := #Schleuse_Vorstau.Dyn.Sk.Reset, Reset_Platz_1_Stopper := #Schleuse_Platz_1.Dyn.Sk.Reset, Reset_Platz_2_Stopper := #Schleuse_Platz_2.Dyn.Sk.Reset, Reset_Platz_3_Stopper := #Schleuse_Platz_3.Dyn.Sk.Reset, Error := %DB608.DBW104, Antrieb_Vorstau_vor := #DArbeitspl_tze_Antriebe."MA _Einfahrt_PS3".Stat.A_vor, Antrieb_Nachstau_3_vor := #DArbeitspl_tze_Antriebe."MA _Ausfahrt_PS3".Stat.A_vor, hStOk := #ErrAnz); // XY00: X=A(PS), X=B(MPS), Y= Nummer des Platzes
#PF0044 := #DAMR_Bereich.A01_UH06.AnlageEin AND #Sks_Arbeitsplatz.Dyn.Status.Arbeitsplatz_aktiviert;
#PF3300 := #Sks_Arbeitsplatz.Dyn.SS.Externe_Anzeige;
END_REGION
REGION Schleuse Vorstau
#Schleuse_Vorstau(Schleusen_Nr := 3303, ErrQuit := #ErrQuit, B_VorSchleuse := #BG3302, B_InSchleuse := #BG3303, Start_Ok := 1, Antrieb_Schleuse_aktiv := #MA0076, Antrieb_plus_aktiv := 1, Schleuse_geöffnet := #MB3303, Y_Schleuse_Auf := #DArbeitspl_tze_Zylinder.Schleuse_Vorstau_PS3.Stat.Ast, Error := %DB608.DBW250, Antrieb_Schleuse_vor := #DArbeitspl_tze_Antriebe."MA _Einfahrt_PS3".Stat.A_vor, Antrieb_Schleuse_start := #DArbeitspl_tze_Antriebe."MA _Einfahrt_PS3".Stat.A_start, Antrieb_Schleuse_stop := #DArbeitspl_tze_Antriebe."MA _Einfahrt_PS3".Stat.Stop_vor, Antrieb_Schleuse_PS := #DArbeitspl_tze_Antriebe."MA _Einfahrt_PS3".Stat.A_PS, hStOk := #ErrAnz);
END_REGION
REGION Schleuse Platz 1
#Schleuse_Platz_1(Schleusen_Nr := 3305, ErrQuit := #ErrQuit, B_InSchleuse := #BG3305, Start_Ok := 1, Antrieb_Schleuse_aktiv := 1, Antrieb_plus_aktiv := #MA0077, Schleuse_geöffnet := #MB3305, Y_Schleuse_Auf := #DArbeitspl_tze_Zylinder.Schleuse_Platz1_PS3.Stat.Ast, Error := %DB608.DBW252, Antrieb_plus_vor := #DArbeitspl_tze_Antriebe."MA _Nachstau1_PS3".Stat.A_vor, hStOk := #ErrAnz);
IF #Schleuse_Platz_1.Dyn.Status.Trolley_draussen THEN #Sks_Arbeitsplatz.Dyn.Platz_1.Trolley_hat_Arbeitsplatz_verlassen := TRUE; END_IF;
IF #Schleuse_Platz_1.Dyn.Status.Trolley_draussen THEN #Sks_Arbeitsplatz.Dyn.Platz_1.TrolleyID_ausgefahren := #Schleuse_Platz_1.Dyn.TrolleyID_ausgefahren; END_IF;
END_REGION
REGION Schleuse Platz 2
#Schleuse_Platz_2(Schleusen_Nr := 3311, ErrQuit := #ErrQuit, B_InSchleuse := #BG3311, Start_Ok := 1, Antrieb_Schleuse_aktiv := 1, Antrieb_plus_aktiv := #MA0080, Schleuse_geöffnet := #MB3311, Y_Schleuse_Auf := #DArbeitspl_tze_Zylinder.Schleuse_Platz2_PS3.Stat.Ast, Error := %DB608.DBW254, Antrieb_plus_vor := #DArbeitspl_tze_Antriebe."MA _Nachstau2_PS3".Stat.A_vor, hStOk := #ErrAnz);
IF #Schleuse_Platz_2.Dyn.Status.Trolley_draussen THEN #Sks_Arbeitsplatz.Dyn.Platz_2.Trolley_hat_Arbeitsplatz_verlassen := TRUE; END_IF;
IF #Schleuse_Platz_2.Dyn.Status.Trolley_draussen THEN #Sks_Arbeitsplatz.Dyn.Platz_2.TrolleyID_ausgefahren := #Schleuse_Platz_2.Dyn.TrolleyID_ausgefahren; END_IF;
END_REGION
REGION Schleuse Platz 3
#Schleuse_Platz_3(Schleusen_Nr := 3315, ErrQuit := #ErrQuit, B_InSchleuse := #BG3315, Start_Ok := 1, Antrieb_Schleuse_aktiv := 1, Antrieb_plus_aktiv := #MA0081, Schleuse_geöffnet := #MB3315, Y_Schleuse_Auf := #DArbeitspl_tze_Zylinder.Schleuse_Platz3_PS3.Stat.Ast, Error := %DB608.DBW256, Antrieb_plus_vor := #DArbeitspl_tze_Antriebe."MA _Ausfahrt_PS3".Stat.A_vor, hStOk := #ErrAnz);
IF #Schleuse_Platz_3.Dyn.Status.Trolley_draussen THEN #Sks_Arbeitsplatz.Dyn.Platz_3.Trolley_hat_Arbeitsplatz_verlassen := TRUE; END_IF;
IF #Schleuse_Platz_3.Dyn.Status.Trolley_draussen THEN #Sks_Arbeitsplatz.Dyn.Platz_3.TrolleyID_ausgefahren := #Schleuse_Platz_3.Dyn.TrolleyID_ausgefahren; END_IF;
END_REGION
REGION Schleuse Ausfahrt
#Schleuse_Ausfahrt(Schleusen_Nr := 3321, ErrQuit := #ErrQuit, B_VorSchleuse := #BG3320, B_InSchleuse := #BG3321, B_AusSchleuse := #BG3322, B_Stau_raus := #DArbeitspl_tze_Sensoren.Stau_nach_Ausfahrt_PS3.Stat.B_Akt, Start_Ok := 1, Antrieb_Schleuse_aktiv := #MA0081, Antrieb_plus_aktiv := #MA0087, Schleuse_geöffnet := #MB3321, Y_Schleuse_Auf := #DArbeitspl_tze_Zylinder.Schleuse_Ausfahrt_PS3.Stat.Ast, Error := %DB608.DBW258, Antrieb_Schleuse_vor := #DArbeitspl_tze_Antriebe."MA _Ausfahrt_PS3".Stat.A_vor, Antrieb_Schleuse_start := #DArbeitspl_tze_Antriebe."MA _Ausfahrt_PS3".Stat.A_start, Antrieb_Schleuse_stop := #DArbeitspl_tze_Antriebe."MA _Ausfahrt_PS3".Stat.Stop_vor, Antrieb_Schleuse_PS := #DArbeitspl_tze_Antriebe."MA _Ausfahrt_PS3".Stat.A_PS, Antrieb_plus_vor := #DArbeitspl_tze_Antriebe.MA0087.Stat.A_vor, Antrieb_plus_start := #DArbeitspl_tze_Antriebe.MA0087.Stat.A_start, hStOk := #ErrAnz);
IF #MB3321 THEN #DArbeitspl_tze_Zylinder.Weiche_Ausfahrt_PS3.Stat.Ast := TRUE; END_IF;
IF #Schleuse_Ausfahrt.Dyn.Status.Trolley_draussen THEN #Vorfahrt_Ausfahrweiche."Weiche_von_Ausfahr-Sep_belegt" := FALSE; END_IF;
IF (#MB3322 AND #BG3322) AND NOT (#BG3331) THEN #DArbeitspl_tze_Antriebe."MA _Ausfahrt_PS3".Stat.A_vor := TRUE; END_IF;
END_REGION
REGION Schleuse Hauptstrecke vor Ausfahrt
IF #Schleuse_vor_Ausfahrt.Dyn.Status.Trolley_fährt_in_Schleuse AND NOT (#BG3323) THEN #DArbeitspl_tze_Antriebe.MA0082.Stat.A_vor := TRUE; END_IF;
#Antrieb_vor := FALSE;
#Antrieb_start := FALSE;
#Antrieb_PS := FALSE;
#Schleuse_vor_Ausfahrt(Schleusen_Nr := 3323, ErrQuit := #ErrQuit, B_VorSchleuse := #BG3294, B_InSchleuse := #BG3323, B_AusSchleuse := #BG3322, B_Stau_raus := #DArbeitspl_tze_Sensoren.Stau_nach_Ausfahrt_PS3.Stat.B_Akt, Start_Ok := 1, Antrieb_Schleuse_aktiv := #MA0087, Antrieb_plus_aktiv := #MA0087, Schleuse_geöffnet := #MB3323, Y_Schleuse_Auf := #DArbeitspl_tze_Zylinder.Schleuse_Vor_Ausfahrt_PS3.Stat.Ast, Error := %DB608.DBW260, Antrieb_Schleuse_vor := #Antrieb_vor, Antrieb_Schleuse_start := #Antrieb_start, Antrieb_Schleuse_stop := #DArbeitspl_tze_Antriebe.MA0087.Stat.Stop_vor, Antrieb_Schleuse_PS := #Antrieb_PS, Antrieb_plus_vor := , Antrieb_plus_start := , hStOk := #ErrAnz); // s.o. | s.o.
IF #Antrieb_vor THEN
#DArbeitspl_tze_Antriebe.MA0087.Stat.A_vor := TRUE;
#DArbeitspl_tze_Antriebe.MA0082.Stat.A_vor := TRUE;
END_IF;
IF #Antrieb_start THEN
#DArbeitspl_tze_Antriebe.MA0087.Stat.A_start := TRUE;
#DArbeitspl_tze_Antriebe.MA0082.Stat.A_start := TRUE;
END_IF;
IF #Antrieb_PS THEN
#DArbeitspl_tze_Antriebe.MA0087.Stat.A_PS := TRUE;
#DArbeitspl_tze_Antriebe.MA0082.Stat.A_PS := TRUE;
END_IF;
IF #MB3323 THEN #DArbeitspl_tze_Zylinder.Weiche_Ausfahrt_PS3.Stat.Ast := FALSE; END_IF;
IF #Schleuse_vor_Ausfahrt.Dyn.Status.Trolley_draussen THEN #Vorfahrt_Ausfahrweiche."Weiche_von_Haupt-Sep_belegt" := FALSE; END_IF;
END_REGION
REGION Ausfahr-Priorität
#Prio_Ausfahrt(BG_Haupt_Schleuse := #BG3323, Haupt_Schleuse_geöffnet := #MB3323, BG_ABP_Schleuse := #BG3321, ABP_Schleuse_geöffnet := #MB3321, Aktive_ABP := #DPS5_OmniFahren.Aktivierte_ABPs);
END_REGION
REGION Störungen anzeigen
IF #ErrAnz THEN
#ErrAnz := FALSE;
#DAMR_Bereich.A01_UZ0613.StOk_blinken := TRUE;
END_IF;
END_REGION
REGION Ende
RETURN;
END_REGION
END_FUNCTION_BLOCK