=== FB 183: MHMÜbergang_ohne_Schleuse  [STL] ===
INTERFACE:
  Input:
    ErrQuit : Bool
    B_Anfang : Bool
    B_Am_Übergang : Bool
    B_Stau_Antrieb_plus : Bool
    Antrieb_aktiv : Bool
    Antrieb_plus_aktiv : Bool
  Output:
  InOut:
    Antrieb_vor : Bool
    Antrieb_start : Bool
    Antrieb_stop : Bool
    Antrieb_plus_vor : Bool
    Antrieb_plus_start : Bool
  Static:
    Am_Übergang : "MSensoren"
    Stau_Antrieb_plus : "MSensoren"
  Temp:
    Antrieb : Bool
    Antrieb_gestoppt : Bool
  Constant:

--- NW 1: Antrieb ansteuern ---
      SET
      R      Antrieb_gestoppt                                // Falls bei Aufruf nicht gestoppt wird!

// Antrieb starten:
      A      ErrQuit
      O      B_Anfang
      S      Antrieb_start
      S      Antrieb_vor

// Trolley am Übergang:
      AN     "Am_Übergang".Stat.B_Akt
      JC     Nix

// Antrieb stoppen:
      A      Stau_Antrieb_plus.Stat.B_Akt
      S      Antrieb_stop                                    // Trolley stoppen
      S      Antrieb_gestoppt                                // Falls bei Aufruf nicht gestoppt wird!
      JC     Nix

      AN     Stau_Antrieb_plus.Stat.B_Akt
      S      Antrieb_plus_vor                                // Antrieb plus einschalten

      SET
      S      Antrieb_plus_start                              // Antrieb plus zeitlang starten

      AN     Antrieb_plus_aktiv
      S      Antrieb_stop                                    // Trolley stoppen
      S      Antrieb_gestoppt                                // Falls bei Aufruf nicht gestoppt wird!
      JC     Nix

// Antrieb einschalten:
      SET
      S      Antrieb_vor                                     // Trolley weiterfahren

Nix:  NOP 0


--- NW 2: Antrieb plus zusätzlich ansteuern ---
// Antrieb plus starten:
      A      B_Stau_Antrieb_plus                             // Sensor
      O      ErrQuit
      S      Antrieb_plus_start                              // Antrieb plus zeitlang starten

// Antrieb plus einschalten:
      A      B_Stau_Antrieb_plus
      AN     Stau_Antrieb_plus.Stat.B_Akt
      CLR                                                    // Nicht mehr!
      S      Antrieb_plus_vor                                // Antrieb plus einschalten


--- NW 3: Trolley ist am Übergang ---
      A      Antrieb_aktiv
      A      Antrieb_plus_aktiv
      AN     Antrieb_gestoppt                                // Falls bei Aufruf nicht gestoppt wird!
      =      Antrieb

CALL FB "None" ,  (ESensor:="B_Am_Übergang", T_Ein:=1, T_Aus:=50, tein_aktiv:=1, taus_aktiv:=Antrieb)


--- NW 4: Stau im Förderer plus ---
CALL FB "None" ,  (ESensor:=B_Stau_Antrieb_plus, T_Ein:=100, T_Aus:=50, tein_aktiv:=1, taus_aktiv:=1)


--- NW 5: Ende ---
      BE

