/*   проект taho
 простейший автомат селектор количества импульсов в секунду
 диапазон контроля от 0 до 200 импульсов в секунду (120 км/час)
 ориентировочный порог (уставка) 33 импульса в секунду
 решение для ардуино нано в рамках средств референса
 параметры входных импульсов не известны, но
 оговорено:
 1. отсутствие дребезга фронтов (аппаратный антидребезг в источнике сигнала)
 2. длительность активной части импульса не менее 2 милисекунд
 3. длительность паузы не менее 3 милисекунд
 точность сработки +/- 2 импульса    */


// линия водного сигнала
const byte Taho = 4; // D4
// активный уровень входного сигнала
byte AlTaho = LOW;
// линия выходного сигнала
const byte RelOut = 8; // D8
// активный уровень выходного сигнала
byte AlRelOut = LOW;
// флаг захвата фронта начала импульса или начала паузы
byte Fl = 0;
// флаг начала окна измерительного интервала
byte Fw = 0;
// счетик - накопитель импульсов
byte cntTaho = 0;
// пороговое значение контрольной уставки количества импульсов
const byte MaskTaho = 33;
// контрольный накопитель текущего времени в милисекундах
unsigned long tmslot = 0;

//----------

void setup() {
  // put your setup code here, to run once:

  pinMode(Taho, INPUT);
  digitalWrite(RelOut, !AlRelOut);
  pinMode(RelOut, OUTPUT);
  Fl = 0; Fw = 0;
  cntTaho = 0; tmslot = 0;
 
}


void loop() {
  // put your main code here, to run repeatedly:
  while(AlTaho == (digitalRead(Taho)))
   {
    if(!Fl)
     {
      Fl = 1;
      if(!Fw){ Fw = 1; cntTaho = 0; tmslot = millis(); }
     }
   }
  Fl = 0;
  while(AlTaho != (digitalRead(Taho)))
   {
    if(!Fl)
     {
      Fl = 1;
      if(Fw)
       {
        cntTaho++;
       
        unsigned long tmp1 = millis();
        if(1000 <= (tmp1 - tmslot))
         {
          if(cntTaho < MaskTaho){ digitalWrite(RelOut, !AlRelOut); }
          else{digitalWrite(RelOut, AlRelOut);}
          cntTaho = 0; Fw = 0;
         }
       
       }
     }
   }
  Fl = 0;
}

/*   проект taho
 простейший автомат селектор количества импульсов в секунду
 диапазон контроля от 0 до 200 импульсов в секунду (120 км/час)
 ориентировочный порог (уставка) 33 импульса в секунду
 решение для ардуино нано в рамках средств референса
 параметры входных импульсов не известны, но
 оговорено:
 1. отсутствие дребезга фронтов (аппаратный антидребезг в источнике сигнала)
 2. длительность активной части импульса не менее 1.1 милисекунд
 3. длительность паузы не менее 1.15 милисекунд
 точность сработки +/- 2 импульса    */


// линия водного сигнала
#define Taho 6 // D6
// активный уровень входного сигнала исключительно LOW
//byte AlTaho = LOW;
// линия выходного сигнала
#define RelOut 8 // D8
// активный уровень выходного сигнала
byte AlRelOut = LOW;
// выход тактового сигнала на формирователь счетного окна
#define tonout 4 // D4
// вход тактового сигнала на формирователь счетного окна
#define toninp 2 // D2 (= INT0)
// флаг захвата фронта начала импульса или начала паузы
byte Fl = 0;
// флаг начала окна измерительного интервала
byte Fw = 0;
// счетик - накопитель импульсов
int cntTaho = 0;
// пороговое значение контрольной уставки количества импульсов
#define MaskTaho 33
// контрольный накопитель формирователя счетного окна
byte tmslot = 0;
// пороговое значение контрольной уставки накопителя формирователя счетного окна
#define MaskCtms 50
// функция бработчика прерывания формирователя счетного окна
void timeslot();

//----------

void setup() {
  // put your setup code here, to run once:

  pinMode(toninp, INPUT_PULLUP);
  digitalWrite(tonout, HIGH); pinMode(tonout, OUTPUT);
  pinMode(Taho, INPUT_PULLUP);
  digitalWrite(RelOut, !AlRelOut); pinMode(RelOut, OUTPUT);
  Fl = 0; Fw = 0; cntTaho = 0; tmslot = 0;
  noInterrupts();
  attachInterrupt(digitalPinToInterrupt(toninp), timeslot, FALLING);
  interrupts();
 
}


void loop() {
  // put your main code here, to run repeatedly:
  while(LOW == digitalRead(Taho))
   {
    if(!Fl)
     {
      Fl = 1;
      if(!Fw){ Fw = 1; tone(tonout, 50); } //cntTaho = 0;
     }
   }
  Fl = 0;
  while(HIGH == digitalRead(Taho))
   {
    if(!Fl)
     {
      Fl = 1;
      if(Fw){ cntTaho++; }
     }
   }
  Fl = 0;
}


//----------
// функция бработчика прерывания формирователя счетного окна
void timeslot()
{
  tmslot++;
  if(tmslot == MaskCtms)
  {
    noTone(tonout); digitalWrite(tonout, HIGH);
    if(cntTaho < MaskTaho){ digitalWrite(RelOut, !AlRelOut); }
    else{digitalWrite(RelOut, AlRelOut);}
    tmslot = 0; cntTaho = 0; Fw = 0;
  }
}

//----------