66 lines
5.2 KiB
Plaintext
66 lines
5.2 KiB
Plaintext
FUNCTION_BLOCK "EntnahmePufferStrecken"
|
|
{ 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_IN_OUT
|
|
BG4504 : Word; // war "BG4504"
|
|
BG4505 : Word; // war "BG4505"
|
|
BG4506 : Word; // war "BG4506"
|
|
BG4507 : Word; // war "BG4507"
|
|
DOutbound_Bereich : Word; // war "DOutbound_Bereich"
|
|
END_VAR
|
|
|
|
VAR
|
|
EntnahmePuffer_01 : "MHMEntnahmepuffer"; // COPYRIGHT by Ingenieurbüro A.EmmertOrtsstr.33, D-869925 Fuchstal (Germany)Tel.: 0049(0)8243-960629Version: H&M Entnahmepuffer / 10.2025Version: Omniflow 2100 / 10.2024Schritt 0: Warten auf TrolleySchritt 1: Betriebsart ok/angegeben?Schritt 5: Mit Scanner fahren: Defaultziel ?Schritt 6: Scanner triggernSchritt 7: "DREQ" an PC sendenSchritt 8: Warten auf PC-Antwort Schritt 9: PC-Antwort auswerten Schritt 10: Fahrtrichtung ermittelnSchritt 11: Ausfahren ok ?Schritt 12: Warten auf Pin-Signal Schritt 13: Weichenbereich raus bereit ? Schritt 14: Daten an Rausweiche übergebenSchritt 15: Schleuse Mindestzeit öffnen Schritt 16: Trolley ausgefahren ? Schritt 17: Trolley ist draussen Schritt 18: BM wurde vereinzeltSchritt 19: Beladezustand checkenSchritt 20: Schleuse resettenSchritt 21: Reset ist zu Ende
|
|
EntnahmePuffer_02 : "MHMEntnahmepuffer"; // COPYRIGHT by Ingenieurbüro A.EmmertOrtsstr.33, D-869925 Fuchstal (Germany)Tel.: 0049(0)8243-960629Version: H&M Entnahmepuffer / 10.2025Version: Omniflow 2100 / 10.2024Schritt 0: Warten auf TrolleySchritt 1: Betriebsart ok/angegeben?Schritt 5: Mit Scanner fahren: Defaultziel ?Schritt 6: Scanner triggernSchritt 7: "DREQ" an PC sendenSchritt 8: Warten auf PC-Antwort Schritt 9: PC-Antwort auswerten Schritt 10: Fahrtrichtung ermittelnSchritt 11: Ausfahren ok ?Schritt 12: Warten auf Pin-Signal Schritt 13: Weichenbereich raus bereit ? Schritt 14: Daten an Rausweiche übergebenSchritt 15: Schleuse Mindestzeit öffnen Schritt 16: Trolley ausgefahren ? Schritt 17: Trolley ist draussen Schritt 18: BM wurde vereinzeltSchritt 19: Beladezustand checkenSchritt 20: Schleuse resettenSchritt 21: Reset ist zu Ende
|
|
EntnahmePuffer_03 : "MHMEntnahmepuffer"; // COPYRIGHT by Ingenieurbüro A.EmmertOrtsstr.33, D-869925 Fuchstal (Germany)Tel.: 0049(0)8243-960629Version: H&M Entnahmepuffer / 10.2025Version: Omniflow 2100 / 10.2024Schritt 0: Warten auf TrolleySchritt 1: Betriebsart ok/angegeben?Schritt 5: Mit Scanner fahren: Defaultziel ?Schritt 6: Scanner triggernSchritt 7: "DREQ" an PC sendenSchritt 8: Warten auf PC-Antwort Schritt 9: PC-Antwort auswerten Schritt 10: Fahrtrichtung ermittelnSchritt 11: Ausfahren ok ?Schritt 12: Warten auf Pin-Signal Schritt 13: Weichenbereich raus bereit ? Schritt 14: Daten an Rausweiche übergebenSchritt 15: Schleuse Mindestzeit öffnen Schritt 16: Trolley ausgefahren ? Schritt 17: Trolley ist draussen Schritt 18: BM wurde vereinzeltSchritt 19: Beladezustand checkenSchritt 20: Schleuse resettenSchritt 21: Reset ist zu Ende
|
|
EntnahmePuffer_04 : "MHMEntnahmepuffer"; // COPYRIGHT by Ingenieurbüro A.EmmertOrtsstr.33, D-869925 Fuchstal (Germany)Tel.: 0049(0)8243-960629Version: H&M Entnahmepuffer / 10.2025Version: Omniflow 2100 / 10.2024Schritt 0: Warten auf TrolleySchritt 1: Betriebsart ok/angegeben?Schritt 5: Mit Scanner fahren: Defaultziel ?Schritt 6: Scanner triggernSchritt 7: "DREQ" an PC sendenSchritt 8: Warten auf PC-Antwort Schritt 9: PC-Antwort auswerten Schritt 10: Fahrtrichtung ermittelnSchritt 11: Ausfahren ok ?Schritt 12: Warten auf Pin-Signal Schritt 13: Weichenbereich raus bereit ? Schritt 14: Daten an Rausweiche übergebenSchritt 15: Schleuse Mindestzeit öffnen Schritt 16: Trolley ausgefahren ? Schritt 17: Trolley ist draussen Schritt 18: BM wurde vereinzeltSchritt 19: Beladezustand checkenSchritt 20: Schleuse resettenSchritt 21: Reset ist zu Ende
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
ErrQuit : Bool;
|
|
ErrAnz : Bool;
|
|
Antrieb : Bool;
|
|
Stau : Bool;
|
|
Start_Ok : Bool;
|
|
SorterReset : Bool;
|
|
A_Err : Char;
|
|
B_Err : Char;
|
|
C_Err : Char;
|
|
D_Err : Char;
|
|
END_VAR
|
|
|
|
BEGIN
|
|
REGION Störung quittieren UZ7402
|
|
#ErrQuit := #DOutbound_Bereich.A01_UZ7402.StOk_aktiv;
|
|
END_REGION
|
|
|
|
REGION EntnahmePuffer 01
|
|
#ErrAnz := FALSE;
|
|
#EntnahmePuffer_01(EntnahmePuffer_Nr := 201, B_LeerpufferEinfahrt := #BG4504, Error := %DB708.DBW164, hStOk := #ErrAnz);
|
|
END_REGION
|
|
|
|
REGION EntnahmePuffer 02
|
|
#EntnahmePuffer_02(EntnahmePuffer_Nr := 202, B_LeerpufferEinfahrt := #BG4505, Error := %DB708.DBW166, hStOk := #ErrAnz);
|
|
END_REGION
|
|
|
|
REGION EntnahmePuffer 03
|
|
#EntnahmePuffer_03(EntnahmePuffer_Nr := 203, B_LeerpufferEinfahrt := #BG4506, Error := %DB708.DBW168, hStOk := #ErrAnz);
|
|
END_REGION
|
|
|
|
REGION EntnahmePuffer 04
|
|
#EntnahmePuffer_04(EntnahmePuffer_Nr := 204, B_LeerpufferEinfahrt := #BG4507, Error := %DB708.DBW170, hStOk := #ErrAnz);
|
|
END_REGION
|
|
|
|
REGION Störungen anzeigen UZ7402
|
|
IF #ErrAnz THEN #DOutbound_Bereich.A01_UZ7402.StOk_blinken := TRUE; END_IF;
|
|
END_REGION
|
|
|
|
REGION Ende
|
|
RETURN;
|
|
END_REGION
|
|
|
|
END_FUNCTION_BLOCK
|