=== FB 6190: LPtoHW_Sensoren  [STL] ===
INTERFACE:
  Input:
  Output:
  InOut:
  Static:
    An_BG3323 : "MSensoren"                             // Trolley am Sensor BG3323
    Sack_BG3324 : "MSensoren"                           // Sack erkannt
    Stau_BG3343 : "MSensoren"                           // Stau am Sensor Einfahrt MA0065
    An_BG3343 : "MSensoren"                             // Stau am Sensor Einfahrt MA0065
    Stau_BG3344 : "MSensoren"                           // Stau am Sensor Einfahrt MA0065
    An_BG3344 : "MSensoren"                             // Stau am Sensor Einfahrt MA0065
    Stau_BG3326 : "MSensoren"                           // Stau am Sensor Einfahrt MA0066
    Stau_BG4220 : "MSensoren"                           // Stau am Sensor Einfahrt MA0264
    Sack_BG4222 : "MSensoren"                           // Sack erkannt
    Stau_BG4224 : "MSensoren"                           // Stau am Sensor Einfahrt MA0265
    Stau_BG4226 : "MSensoren"                           // Stau am Sensor Einfahrt MA0266
    Stau_BG4231 : "MSensoren"                           // Stau am Sensor Einfahrt MA0267
    Stau_BG4233 : "MSensoren"                           // Stau am Sensor Einfahrt MA0270
    Stau_BG4234 : "MSensoren"                           // Stau am Sensor Mitte MA0270
    Stau_BG3720 : "MSensoren"                           // Stau am Sensor hinter BST2
    Stau_BG3721 : "MSensoren"                           // Stau am Sensor Einfahrt MA0203
    Stau_BG3723 : "MSensoren"                           // Stau am Sensor Ausfahrt MB3722
    Fährt_zu_UH06 : "MSensoren"
  Temp:
    T_Ein : Int                                         // Vorgabe Einschaltverzögerung
    T_Aus : Int                                         // Zwischenspeicher Ausschaltverzögerung
    F1 : Bool                                           // Geschwindigkeit 1 aktiviert
    F2 : Bool                                           // Geschwindigkeit 2 aktiviert
    F3 : Bool                                           // Geschwindigkeit 3 aktiviert
    ESensor : Bool                                      // Sensoren
    Antrieb : Bool
    VReal : Real                                        // GeschwindigkeitinReal
    Zeit : Int                                          // Zeit für Ausschaltverzögerung LT1100
    Aktiv : Bool                                        // Zeit aktivieren
  Constant:

--- NW 1: Sensoren entprellen ---
      A      "BG3323"
      AN     "MB3323"
      =      ESensor

CALL FB "None" ,  (ESensor:=ESensor, T_Ein:=1, T_Aus:=300, tein_aktiv:=1, taus_aktiv:=1)   // Falls Trolley entnommen wurde

      A      "MB3323"                                        // Beim Öffnen löschen
      A      "MA0065"
      R      "DLPtoHW_Sensoren".An_BG3323.Stat.B_Akt


--- NW 2: Sensoren entprellen ---
      AN     "MB3323"                                        // Alt-Trolley noch beim Ausfahren
      A(
      O      "MA0065"
      O      "BG3323"
      )
      =      Aktiv

CALL FB "None" ,  (ESensor:="BG3324", T_Ein:=10, T_Aus:=0, tein_aktiv:=Aktiv, taus_aktiv:=1)


--- NW 3: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG3343", T_Ein:=80, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 4: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG3343", T_Ein:=1, T_Aus:=200, tein_aktiv:=TRUE, taus_aktiv:="MA0065")


--- NW 5: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG3344", T_Ein:=80, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 6: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG3344", T_Ein:=1, T_Aus:=200, tein_aktiv:=TRUE, taus_aktiv:="MA0065")


--- NW 7: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG3326", T_Ein:=1, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 8: Sensoren entprellen ---
      AN     "BG4221"
      =      Aktiv

CALL FB "None" ,  (ESensor:="BG4220", T_Ein:=80, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=Aktiv)   // Trolley wieder aus Schleuse 4221


--- NW 9: Sensoren entprellen ---
      AN     "MB4221"                                        // Alt-Trolley noch beim Ausfahren
      A(
      O      "MA0264"
      O      "BG4221"
      )
      =      Aktiv

CALL FB "None" ,  (ESensor:="BG4222", T_Ein:=1, T_Aus:=11, tein_aktiv:=Aktiv, taus_aktiv:="MB4221")


--- NW 10: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG4224", T_Ein:=80, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 11: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG4226", T_Ein:=80, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 12: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG4231", T_Ein:=1, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 13: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG4233", T_Ein:=1, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 14: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG4234", T_Ein:=1, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 15: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG3720", T_Ein:=1, T_Aus:=30, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 16: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG3721", T_Ein:=80, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 17: Sensoren entprellen ---
CALL FB "None" ,  (ESensor:="BG3723", T_Ein:=80, T_Aus:=11, tein_aktiv:=TRUE, taus_aktiv:=TRUE)


--- NW 18: Sensoren entprellen ---
      A      "MB3722"
      O      "BG3723"
      =      ESensor

      A      "MA0203"
      A      "DSchnittstelle_zu_AMR".From_UH06.MA0203_aktiv
      =      Aktiv

CALL FB "None" ,  (ESensor:=ESensor, T_Ein:=1, T_Aus:=300, tein_aktiv:=TRUE, taus_aktiv:=Aktiv)   // 30s Nachlauf


--- NW 19: Ende ---
      BE

