// Rotina para controle de motor. (110v ou 220v)
// Partida suave
// Uso didático
// Rui  09/05/2015

//***************  Variaveis e constantes  *************
  const int Motor = A0;      // Pino de disparo do Triac
  const int Start = 4;       //  Entrada switch start
  const int Stop = 5;        //  Entrada switch stop
  const int EPO = 6;         //  Entrada switch EPO
  const int Sensor = 7;      //  Entrada switch sensor
  const int Reset = 8;       //  Entrada switch reset

  unsigned int debounceDelay = 5;    // Tempo de debounce

  unsigned int FlagMotor;
  unsigned int FlagStart;
  unsigned int FlagEPO;
  unsigned int FlagSensor;
  unsigned int FlagSoftStart;

  unsigned int dimming = 115;

 long Told, Tgasto, Tnew;

// boolean libera = false;

//***********************  Setup ********************
  void setup()
  {
    Serial.begin(9600);                        // Inicializa a serial a 9600 bps para Debug

    pinMode(Motor, OUTPUT);                      // Port como saída
    digitalWrite(Motor, LOW);                    // Desliga motor

    pinMode(Start, INPUT);                       // Port como entrada
    pinMode(Stop, INPUT);
    pinMode(EPO, INPUT);
    pinMode(Sensor, INPUT);
    pinMode(Reset, INPUT);

    digitalWrite(Start, HIGH);                   // Puul-Up Entrada
    digitalWrite(Stop, HIGH);
    digitalWrite(EPO, HIGH);
    digitalWrite(Sensor, HIGH);
    digitalWrite(Reset, HIGH);
  }
//******************** Soft Start ****************
 void SoftStart()     // De 0 a 100% em 5 segundos
  {
    if (FlagSoftStart == 0)
    {

      FlagSoftStart = 1;
      dimming = 6000;                       // Inicia com 10% da velocidade
      for (unsigned int i = 0; i< 40; i ++)    // vai de 10% a 100% da velocidade
      {
        delay(50);                      // Fica em um valor por 0,5 seg
        dimming = dimming - 100;           // Increma 10% da velocidade
      }
      digitalWrite(Motor, HIGH);          // Mantem o motor a 100%
    }
    detachInterrupt(0);
  }

//******************** Zero_Cross_Int ****************
  void zero_cross()                               // Rotina chamada à cada interrupt causada pelo zero cross do AC
  {
      delayMicroseconds(dimming);                 // Restardo calculado
      digitalWrite(Motor, HIGH);                  // Dispara o Triac
      delayMicroseconds(8.33);                    // Duração do pulso de disparo
      digitalWrite(Motor, LOW);                   // Desliga pulso de disparo
  }
//***********************  Loop ********************
  void loop()
  {
// =================  Star deboucing  ===================
    if(!digitalRead(Start) && FlagEPO ==0 && FlagSensor == 0)
    {
       // libera = true;
        delay(debounceDelay);
        if(!digitalRead(Start))
        {
          FlagStart = 1;
          attachInterrupt(0, zero_cross, RISING);       // Enable interrupt no pino D2
          while(!digitalRead(Start))         // Espera pela liberação do switch
            delayMicroseconds(1);
        }
     }
// =================  Stop deboucing  ===================
    if(!digitalRead(Stop))
    {
     //  libera = false;
        delay(debounceDelay);
        if(!digitalRead(Stop))
        {
          FlagStart = 0;
          FlagSoftStart = 0;
          while(!digitalRead(Stop))         // Espera pela liberação do switch
            delayMicroseconds(1);
        }
     }
// =================  EPO deboucing  ===================
    if(!digitalRead(EPO))
    {
     // libera = false;
        delay(debounceDelay);
        if(!digitalRead(EPO))
        {
          FlagStart = 0;
          FlagEPO = 1;
          FlagSoftStart = 0;
          digitalWrite(Motor, LOW);
          while(!digitalRead(EPO))         // Espera pela liberação do switch
            delayMicroseconds(1);
        }
     }
// =================  Sensor deboucing  ===================
    if(!digitalRead(Sensor))
    {
     // libera = false;
        delay(debounceDelay);
        if(!digitalRead(Sensor))
        {
          FlagStart = 0;
          FlagSensor = 1;
          FlagSoftStart = 0;
          digitalWrite(Motor, LOW);
          while(!digitalRead(Sensor))         // Espera pela liberação do switch
            delayMicroseconds(1);
        }
     }
// =================  Reset deboucing  ===================
    if(!digitalRead(Reset))
    {
     // libera = true;
        delay(debounceDelay);
        if(!digitalRead(Reset))
        {
      //    FlagStart = 0;
          FlagEPO = 0;
          FlagSensor = 0;
          FlagSoftStart = 0;
         // digitalWrite(Motor, LOW);
          while(!digitalRead(Reset))         // Espera pela liberação do switch
            delayMicroseconds(1);
        }
     }
// ================= Controle   ===========================
   /*     //------------------    Para Debug  -----------------
        Serial.print   ("FlagStart ");
        Serial.println (FlagStart);
        Serial.print   ("FlagEPO ");
        Serial.println (FlagEPO);
        Serial.print   ("FlagSensor ");
        Serial.println (FlagSensor);
     */   //------------------    Para Debug  -----------------

    if ((FlagEPO == 0)&&(FlagSensor == 0))
    {
       if (FlagStart == 1)   SoftStart();
       else  digitalWrite(Motor, LOW);
    }
  /*        FlagMotor = digitalRead(Motor);  // Para Debug
            Serial.println   (FlagMotor);    // Para Debug
            Serial.println   (" ");          // Para Debug
            delay(500);                      // Para Debug
   */
  }