#include <MobaTools.h>
 
/* Demo: Wechselblinker
   Dieses Demo ist etwas komplexer und zeigt die Realisierung eines
   Wechselblinker, der per Schalter ein- und ausgeschaltet wird.
   Wie bei Wechselblinkern an einem BÜ üblich, starten die beiden Lampen
   gleichzeitig, um dann im Wechseltakt zu blinken
   Dieses Demo verwendet auch die 'Eieruhr' um Zeitverzögerungen zu realisieren
   Die 'Eieruhr' ist ein Zeitzähler, der aufgezogen werden kann und im loop kann
   abgefragt werden, ob er abgelaufen ist.
*/
 
// Festlegen der Ports
const int Blinker1P = 13 ;  // Die beiden Led's des
const int Blinker2P = 11 ;  // Wechselblinkers.
 
const int hallSensorPin2 = 2; // Gleis A  -  AN
const int hallSensorPin3 = 3; // Gleis A  -  AUS
const int hallSensorPin4 = 4; // Gleis B  -  AN
const int hallSensorPin5 = 5; // Gleis B  -  AUS
 
int hallSensorPIN2Status = 0;
int hallSensorPIN3Status = 0;
int hallSensorPIN4Status = 0;
int hallSensorPIN5Status = 0;
 
const int Relais_IN1 = 6;     // Gleis A
const int Relais_IN2 = 7;     // Gleis B
 
const int SchalterP =  8;   // Schalter, der den Wechselblinker ein und ausschaltet
 
// Weitere Konstante
const int wbZykl = 1100;    // Zykluszeit des Wechselblinkers
const int wbSoft = 400;     // Auf/Abblendzeit der Lampen
 
// Zustand des Wechselblinker
byte wblZustand = 0;        // In dieser Variable wird hinterlegt, in welchem Zustand
// sich der Wechselblinker gerade befindet
#define   WBL_AUS     0 	  // beide Lampen sind aus
#define   WBL_START   1   	// Startphase: beide Lampen sind an
#define   WBL_BLINKT  2   	// Die Lampen blinken normal im Wechsel
byte ledState;              // HIGH : Blinker1 ist an, LOW Blinker2 ist an
 
MoToSoftLed Blinker1;
MoToSoftLed Blinker2;
 
MoToTimer BlinkUhr;
 
void setup() {
  pinMode(SchalterP, INPUT_PULLUP);
  Blinker1.attach(Blinker1P);     // die Ausgänge werden automatisch auf OUTPUT gesetzt
  Blinker2.attach(Blinker2P);
  Blinker1.riseTime( wbSoft );    // Aufblendzeit in ms
  Blinker2.riseTime( wbSoft );    // Aufblendzeit in ms
  pinMode(hallSensorPin2, INPUT_PULLUP);
  pinMode(hallSensorPin3, INPUT_PULLUP);
  pinMode(hallSensorPin4, INPUT_PULLUP);
  pinMode(hallSensorPin5, INPUT_PULLUP);
  pinMode(Relais_IN1, OUTPUT);
  pinMode(Relais_IN2, OUTPUT);
}
 
void loop() {
 
  //digitalWrite (Relais_IN1, LOW); // low - eingeschaltet
  //digitalWrite (Relais_IN2, HIGH);
 
  // Status des Hall-Sensors auslesen
  hallSensorPIN2Status = digitalRead(hallSensorPin2);
  hallSensorPIN3Status = digitalRead(hallSensorPin3);
  hallSensorPIN4Status = digitalRead(hallSensorPin4);
  hallSensorPIN5Status = digitalRead(hallSensorPin5);
 
 if (hallSensorPIN2Status == LOW) {
    digitalWrite(SchalterP, HIGH); 
  }
 else {
   digitalWrite(SchalterP, LOW);
 }
  
  if (hallSensorPIN3Status == LOW) {
    digitalWrite(SchalterP, HIGH);
  }  
  else {
    digitalWrite(SchalterP, LOW);
  }  
 
  // Wechselblinker
  switch (wblZustand) {
    case WBL_AUS:
      // Beide Lampen sind aus, warten auf einschalten
      if ( digitalRead(SchalterP) == HIGH && BlinkUhr.running() == false ) {
        // Beide Leds einschalten, Timer für gemeinsames Startleuchten
        Blinker1.on();
        Blinker2.on();
        BlinkUhr.setTime( wbSoft );
        wblZustand = WBL_START;
      }
      break;
    case WBL_START:
      // Startphase: Nach Zeitablauf erste Led wieder aus
      if ( BlinkUhr.running() == false ) {
        // Die Startzeit ist abgelaufen, Übergang zur normalen Blinkphase
        ledState = HIGH;
        Blinker2.off();
        BlinkUhr.setTime(wbZykl / 2); // Zeitverzögerung setzen
        wblZustand = WBL_BLINKT;
      }
      break;
    case WBL_BLINKT:
      if ( BlinkUhr.running() == false ) {
        BlinkUhr.setTime(wbZykl / 2); // Zeitverzögerung setzen
        if ( ledState == LOW ) {
          Blinker1.on();
          Blinker2.off();
          ledState = HIGH;
        } else {
          ledState = LOW;
          Blinker2.on();
          Blinker1.off();
        }
      }
      if ( digitalRead(SchalterP) == LOW ) {
        // Wechselblinker abschalten
        Blinker1.off();
        Blinker2.off();
        wblZustand = WBL_AUS;
        BlinkUhr.setTime(wbZykl);   // minimale 'Aus' zeit des Blinkers
        //( schützt vor Schalterprellen )
      }
      break;
 
  } // Ende switch Wechselblinker
}
 
 

const int Gleis1onP  =  8;  // Gleis 1 Start-Kontakt
const int Gleis1offP =  9;  // Gleis 1 Ende-Kontakt
const int Gleis2onP  = 10;  // Gleis 2 Start-Kontakt
const int Gleis2offP = 11;  // Gleis 1 Ende-Kontakt
//const int SchalterP =  7;  // Schalter, der den Wechselblinker ein und ausschaltet
boolean SchalterP = false;  // Blinkschaltung on/off
boolean Gleis1    = false;  // Gleis 1 belegt/frei
boolean Gleis2    = false;  // Gleis 2 belegt/frei
 
void setup() {
    pinMode(Gleis1onP, INPUT_PULLUP); 
    pinMode(Gleis1offP, INPUT_PULLUP); 
    pinMode(Gleis2onP, INPUT_PULLUP); 
    pinMode(Gleis2offP, INPUT_PULLUP); 
//    pinMode(SchalterP, INPUT_PULLUP); 
}
 
void loop() {
 
   if ( digitalRead(Gleis1onP) == LOW ) { Gleis1 = true; }
   if ( digitalRead(Gleis1offP) == LOW ) { Gleis1 = false; }
   if ( digitalRead(Gleis2onP) == LOW ) { Gleis2 = true; }
   if ( digitalRead(Gleis2offP) == LOW ) { Gleis2 = false; }
   SchalterP = Gleis1 || Gleis2;    // Blinken, wenn Gleis 1 oder Gleis 2 belegt
  
    // Wechselblinker
    switch (wblZustand) {
      case WBL_AUS:
        // Beide Lampen sind aus, warten auf einschalten
        if ( SchalterP == true && BlinkUhr.running() == false ) {
        ...
        }
        if ( SchalterP == false ) {
            // Wechselblinker abschalten
            Blinker1.off();
            Blinker2.off();
            wblZustand = WBL_AUS;
            BlinkUhr.setTime(wbZykl);   // minimale 'Aus' zeit des Blinkers
                                        //( schützt vor Schalterprellen )
        }
        break;
            
    } // Ende switch Wechselblinker
}