Actions.cpp

// ********************
// Gestion des Actions
// ********************
#include <Arduino.h>
#include "Actions.h"
#include "EEPROM.h"
#include <WiFiClient.h>



//Class Action
Action::Action() {
  Gpio = -1;
}
Action::Action(int aIdx) {
  Gpio = -1;  // si le n° de pin n'est pas valid, on ne fait rien
  Idx = aIdx;
  T_LastAction = int(millis() / 1000);
  On = false;
  Actif = 0;  //0=Inactif,1=Decoupe ou On/Off, 2=Multi, 3= Train , 4=PWM
  Kp = 10;
  Ki = 10;
  Kd = 10;
  PID = false;
  OutOn = 1;
  OutOff = 0;
  ForceOuvre = 100;
  Tempo = 0;
  Repet = 0;
  tOnOff = 0;
  H_Ouvre = 0;
  ExtSelAct = 255;
  ExtValide = 0;  //Condition Action externe
  ExtHequiv = 0;  //Duree heure *100 action externe
  ExtOuvert = 0;  //Pourcent ouverture
  for (int i = 0; i < 8; i++) {
    Type[i] = 0;  //0=NO(pas utilisé),1=OFF,2=ON,3=PW,4=Triac
    Hdeb[i] = 0;
    Hfin[i] = 0;
    Vmin[i] = 0;  //Seuil Pw On ou decoupe
    Vmax[i] = 0;  //Seuil Pw Off ou ouverture max triac
    ONouvre[i] = 100;
    Tinf[i] = -1600;  //Temperarure * 10
    Tsup[i] = -1600;
    Hmin[i] = 0;  //Heure deci *100 Min pour actif. 0=non utilisé
    Hmax[i] = 0;  //Heure deci *100 Max pour actif
    CanalTemp[i] = -1;
    SelAct[i] = 255;  //Ref ESP/Action. 255=pas exploité
    Ooff[i] = 0;      //Ouvre Min Action pour Actif. 0 non utilisé
    O_on[i] = 0;
    Tarif[i] = 0;
  }
}



void Action::Arreter() {
  int Tseconde = int(millis() / 1000);
  if ((Tseconde - T_LastAction) >= Tempo || Idx == 0 || Actif != 1) {
    if (Gpio > 0) {
      if (Actif == 4) {  //PWM
        ledcWrite(Gpio, OutOff * 255);
      } else {
        digitalWrite(Gpio, OutOff);
      }
      T_LastAction = Tseconde;
    } else {
      if (On || ((Tseconde - T_LastAction) > Repet && Repet != 0)) {
        if (Actif > 0) CallExterne(Host, OrdreOff, Port);
        T_LastAction = Tseconde;
      }
    }
    On = false;
  }
}
void Action::RelaisOn() {
  int Tseconde = int(millis() / 1000);
  if ((Tseconde - T_LastAction) >= Tempo) {
    if (Gpio > 0) {
      if (Actif == 4) {  //PWM
        ledcWrite(Gpio, OutOn * 255);
      } else {
        digitalWrite(Gpio, OutOn);
      }
      T_LastAction = Tseconde;
      On = true;
    } else {
      if (Actif == 1) {
        if (!On || ((Tseconde - T_LastAction) > Repet && Repet != 0)) {
          CallExterne(Host, OrdreOn, Port);
          T_LastAction = Tseconde;
        }
        On = true;
      }
    }
  }
}
void Action::Prioritaire() {
  int tempo_ = Tempo;
  if (tOnOff != 0) {
    Tempo = 0;
    if (tOnOff > 0) {
      RelaisOn();
    } else {
      Arreter();
    }
    Tempo = tempo_;
  }
}


int16_t Action::CanalTempEnCours(int Heure) {
  int16_t CanalEnCours = -1;
  for (int i = 0; i < NbPeriode; i++) {
    if (Heure >= Hdeb[i] && Heure <= Hfin[i]) {
      CanalEnCours = CanalTemp[i];
    }
  }
  return CanalEnCours;
}

Action::ParaPeriode Action::ParaEnCours(int Heure, float Temperature, int Ltarfbin, int Retard) {  //Retourne type d'action  active à cette heure , test temperature OK et seuils
  ParaPeriode P;
  P.Type = 1;                                 //Off
  int16_t Tempx10 = int(Temperature * 10.0);  //Température en dixième de degré                                                                  //Equivalent à Action Off
  bool ConditionsOk;
  for (int i = 0; i < NbPeriode; i++) {
    if (Heure >= Hdeb[i] && Heure <= Hfin[i]) {
      ConditionsOk = true;
      if (Temperature > -100.0) {
        if (Tinf[i] < 1500 && Tsup[i] < 1500 && Tinf[i] < Tsup[i]) {  // on applique un hystérésis dont les valeurs sont Tinf et Tsup
          if (Tempx10 > Tinf[i] && Tempx10 > Tsup[i]) Tseuil = Tinf[i];
          if (Tempx10 < Tinf[i] && Tempx10 < Tsup[i]) Tseuil = Tsup[i];
          if (Tempx10 > Tseuil) { ConditionsOk = false; }
        } else {
          if (Tinf[i] <= 1000 && Tempx10 > Tinf[i]) { ConditionsOk = false; }
          if (Tsup[i] <= 1000 && Tempx10 < Tsup[i]) { ConditionsOk = false; }
        }
      }
      if (Ltarfbin > 0 && (Ltarfbin & Tarif[i]) == 0) ConditionsOk = false;
      if (SelAct[i] != 255) {  //On conditionne à une autre action
        if (Hmin[i] != 0 && (Hmin[i] > ExtHequiv || ExtValide == 0)) ConditionsOk = false;
        if (Hmax[i] != 0 && (Hmax[i] < ExtHequiv || ExtValide == 0)) ConditionsOk = false;
        if (Ooff[i] != 0 && ((int(Ooff[i]) >= ExtOuvert && Retard != 100) || ExtValide == 0)) ConditionsOk = false;  //Inferieur au seuil bas
        if (O_on[i] != 0 && ((int(O_on[i]) > ExtOuvert && Retard == 100) || ExtValide == 0)) ConditionsOk = false;   //Inferieur au seuil haut et pas encore ouvert
      }
      if (ConditionsOk) P.Type = Type[i];
      P.Vmin = Vmin[i];
      P.Vmax = Vmax[i];
      if (P.Type==2) P.Vmax=ONouvre[i] ;
    }
  }

  if (tOnOff > 0) {
    P.Type = 2;  // Force On prioritaire
    P.Vmax = ForceOuvre; //Ouverture Force prioritaire
  }
  if (tOnOff < 0) P.Type = 1;  // Force Off

  return P;  //0=NO (pas utilisé),1=OFF,2=ON,3=PW,4=Triac
}
byte Action::TypeEnCours(int Heure, float Temperature, int Ltarfbin, int Retard) {  //Retourne type d'action  active à cette heure et test temperature OK
  byte S = 1;                                                                       //Off
  int16_t Tempx10 = int(Temperature * 10.0);                                        //Température en dixième de degré                                                                  //Equivalent à Action Off
  bool ConditionsOk;
  for (int i = 0; i < NbPeriode; i++) {
    if (Heure >= Hdeb[i] && Heure <= Hfin[i]) {
      ConditionsOk = true;
      if (Temperature > -100.0) {
        if (Tinf[i] < 1500 && Tsup[i] < 1500 && Tinf[i] < Tsup[i]) {  // on applique un hystérésis dont les valeurs sont Tinf et Tsup
          if (Tempx10 > Tinf[i] && Tempx10 > Tsup[i]) Tseuil = Tinf[i];
          if (Tempx10 < Tinf[i] && Tempx10 < Tsup[i]) Tseuil = Tsup[i];
          if (Tempx10 > Tseuil) { ConditionsOk = false; }
        } else {
          if (Tinf[i] <= 1000 && Tempx10 > Tinf[i]) { ConditionsOk = false; }
          if (Tsup[i] <= 1000 && Tempx10 < Tsup[i]) { ConditionsOk = false; }
        }
      }
      if (Ltarfbin > 0 && (Ltarfbin & Tarif[i]) == 0) ConditionsOk = false;
      if (SelAct[i] != 255) {  //On conditionne à une autre action
        if (Hmin[i] != 0 && (Hmin[i] > ExtHequiv || ExtValide == 0)) ConditionsOk = false;
        if (Hmax[i] != 0 && (Hmax[i] < ExtHequiv || ExtValide == 0)) ConditionsOk = false;
        if (Ooff[i] != 0 && ((int(Ooff[i]) >= ExtOuvert && Retard != 100) || ExtValide == 0)) ConditionsOk = false;  //Inferieur au seuil bas
        if (O_on[i] != 0 && ((int(O_on[i]) > ExtOuvert && Retard == 100) || ExtValide == 0)) ConditionsOk = false;   //Inferieur au seuil haut et pas encore ouvert
      }
      if (ConditionsOk) S = Type[i];
    }
  }

  if (tOnOff > 0) S = 2;  // Force On prioritaire
  if (tOnOff < 0) S = 1;  // Force Off
  return S;               //0=NO (pas utilisé),1=OFF,2=ON,3=PW,4=Triac
}
byte Action::SelActEnCours(int Heure) {
  int S = 255;
  for (int i = 0; i < NbPeriode; i++) {
    if (Heure >= Hdeb[i] && Heure <= Hfin[i]) {
      S = SelAct[i];
    }
  }
  return S;
}
int Action::Valmin(int Heure) {  //Retourne la valeur Vmin (ex seuil Triac) à cette heure
  int S = 0;
  for (int i = 0; i < NbPeriode; i++) {
    if (Heure >= Hdeb[i] && Heure <= Hfin[i]) {
      S = Vmin[i];
    }
  }
  return S;
}
int Action::Valmax(int Heure) {  //Retourne la valeur Vmax (ex ouverture du Triac) à cette heure
  int S = 0;
  for (int i = 0; i < NbPeriode; i++) {
    if (Heure >= Hdeb[i] && Heure <= Hfin[i]) {
      S = Vmax[i];
    }
  }
  return S;
}

void Action::InitGpio(int FreqPWM) {  //Initialise les sorties GPIO pour des relais
  int p;
  String S;
  String IS = "|";  //Input Separator

  if (Idx > 0) {
    T_LastAction = 0;
    Gpio = -1;
    p = OrdreOn.indexOf(IS);
    if (p >= 0) {
      Gpio = OrdreOn.substring(0, p).toInt();
      OutOn = OrdreOn.substring(p + 1).toInt();
      OutOff = (1 + OutOn) % 2;
      if (Gpio > 0) {
        if (Actif == 4) {                            //PWM
          ledcAttachChannel(Gpio, FreqPWM, 8, Idx);  //Affectation des  channels
        } else {
          pinMode(Gpio, OUTPUT);
          digitalWrite(Gpio, OutOff);
        }
      }
    }
  }
}
void Action::CallExterne(String host, String url, int port) {
  if (url != "") {
    // Use WiFiClient class to create TCP connections
    WiFiClient clientExt;
    char hostbuf[host.length() + 1];
    host.toCharArray(hostbuf, host.length() + 1);
    if (!clientExt.connect(hostbuf, port, 3000)) {
      clientExt.stop();
      delay(500);
      if (!clientExt.connect(hostbuf, port, 3000)) {
        delay(100);  //Necessaire
        StockMessage("connection to :" + host + " failed");
        delay(100);
        return;
      }
    }
    clientExt.print(String("GET ") + url + " HTTP/1.1\r\n" + "Host: " + host + "\r\n" + "Connection: close\r\n\r\n");
    unsigned long timeout = millis();
    while (clientExt.available() == 0) {
      if (millis() - timeout > 5000) {
        StockMessage(">>> clientESP_Ext Timeout ! : " + host);
        clientExt.stop();
        return;
      }
    }

    // Read all the lines of the reply from server
    while (clientExt.available()) {
      String line = clientExt.readStringUntil('\r');
    }
  }
}