PAS CHER : 4 détecteurs IR, 4 relais, 1 Arduino : 2 boucles de retournement

/*
***********************************************************************
**  Programme ARDUINO pour deux boucles de retournement à l'aide de  **                                        
**  détecteurs infrarouge                                            **
***********************************************************************
*/

// L'utilisation de #define permet de definir un mnemonique qui sera remplacé par sa valeur à la compilation
// Cela permet de minimiser le nombre de variable non utilisées
#define LED         13 // Definit la led interne
#define Relais1     9  // définit la broche du relais 1
#define Relais2     10 // définit la broche du relais 2
#define Relais3     11 // définit la broche du relais 3
#define Relais4     12 // définit la broche du relais 4

#define Occupation1 3  // définit la broche de l'interface IR 1
#define Occupation2 4  // définit la broche de l'interface IR 2
#define Occupation3 5  // définit la broche de l'interface IR 3
#define Occupation4 6  // définit la broche de l'interface IR 4

// On definit des variables si leur valeur évolue lors de l'execution du programme.
int IR1 ;              // définit la variable de lecture de l'état de l'interface IR 1
int IR2 ;              // définit la variable de lecture de l'état de l'interface IR 2
int IR3 ;              // définit la variable de lecture de l'état de l'interface IR 3
int IR4 ;              // définit la variable de lecture de l'état de l'interface IR 4

unsigned long tempoBoucle1;
unsigned long tempoBoucle2;

#define antirebond 500 // permet d'eviter les rebonds dus au materiel (en ms)

// ============================================
// Initialisations
// ============================================
void setup (){
  Serial.begin(9600);
  while(!Serial);
  // Initialisation des Capteurs IR
  pinMode(Occupation1,INPUT_PULLUP);
  pinMode(Occupation2,INPUT_PULLUP);
  pinMode(Occupation3,INPUT_PULLUP);
  pinMode(Occupation4,INPUT_PULLUP);
  
  // Initialisation de la LED en sortie
  pinMode (LED, OUTPUT) ;            
  
  // Initialisation des Relais
  pinMode (Relais1, OUTPUT);         // initialise la broche en sortie 9
  pinMode (Relais2, OUTPUT);         // initialise la broche en sortie 10
  pinMode (Relais3, OUTPUT);         // initialise la broche en sortie 11
  pinMode (Relais4, OUTPUT);         // initialise la broche en sortie 12
  
  Serial.begin(9600);                // Permet d'utiliser le Monitor pour comprendre ce qui se passe (debug)
}

// ============================================
// Gestion Boucle :
//   Teste les 2 capteurs d'occupations de la boucle
//   et positionne les relais correspondant
// L'utilisation du else if permet de voir tous les cas possibles.
// ============================================
void Gest_inversion(int Ir1, int Ir2, int R1, int R2, long tempoBoucle) {

  if ((Ir1 == LOW) || (Ir2 == LOW)) // Un train est detecté en entrée de la boucle (au moins une occupations)=> on ferme les relais
  {
    Serial.println("Un train est detecte en entrée de la boucle");
    digitalWrite (R1, LOW);    // ferme le relais 1
    digitalWrite (R2, LOW);    // ferme le relais 2
    tempoBoucle1=millis();     // Remise a zero de la temporisation de la boucle
  }
  else if ((Ir1 == HIGH) && (Ir2 == HIGH) && (millis()-tempoBoucle> antirebond)) // Passé le delais antirebond, il n'y a plus de train face aux 2 capteurs => on ouvre les relais
  {
    Serial.println("Passe le delais antirebond, il n'y a plus de train face aux 2 capteurs");
    digitalWrite (R1, HIGH);   // ouvre le relais 1
    digitalWrite (R2, HIGH);   // ouvre le relais 2
  }
  else if (Ir1 == HIGH) {
    Serial.println(String(Ir1) + " est encore occupe");  
  }
  else if (Ir2 == HIGH) {
    Serial.println(String(Ir2) + " est encore occupe");  
  }
  else {
    Serial.println("Le delais n'est pas encore passe");  
  }  
}

// ============================================
// boucle
// ============================================
void loop (){

  // lecture et memorisation des occupations
  IR1 = digitalRead (Occupation1) ; // lit la valeur de l'état de l'interface IR 1 et la mémorise dans la variable
  IR2 = digitalRead (Occupation2) ; // lit la valeur de l'état de l'interface IR 2 et la mémorise dans la variable
  IR3 = digitalRead (Occupation3) ; // lit la valeur de l'état de l'interface IR 3 et la mémorise dans la variable
  IR4 = digitalRead (Occupation4) ; // lit la valeur de l'état de l'interface IR 4 et la mémorise dans la variable

  delay(antirebond);                // antirebond pour la detection
  
// Les sous programmes permettent une meilleur comprehension du code.
  Gest_inversion(IR1, IR2, Relais1, Relais2, tempoBoucle1);
  Gest_inversion(IR3, IR4, Relais3, Relais4, tempoBoucle2);

  // mise a jour de la led
  if ((IR3 == HIGH) && (IR4 == HIGH) && (IR1 == HIGH) && (IR2 == HIGH))
    digitalWrite (LED , LOW);       // éteint la led si aucune occupation
  else
    digitalWrite (LED, HIGH);       // allume la led si au moins une occupation
}