Електрични тјунер за гитару заснован на Ардуину

<пре> / *
 * Ардуино тјунер гитаре
 * ауторка Ницоле Гримвоод
 *
 *
 * На основу:
 * Ардуино детекција фреквенције
 * креирано 7. октобра 2012
 * ауторка Аманда Гхассаеи
 *
 * Овај код је у јавном домену.
* /


// променљиве података
бите невДата = 0;
бите превДата = 0;
унсигнед инт тиме = 0; // чува време и повремено шаље валес да га чувају у тајмеру]
инт тајмер [10]; // меморија за тајминг догађаја
инт нагиб [10]; // складиште за нагиб догађаја
унсигнед инт тоталТимер; // користи се за израчунавање периода
унсигнед инт период; // складиштење за период таласа
бите индек = 0; // тренутни индекс за похрану
флоат фреквенција; // меморија за прорачун фреквенција
инт макСлопе = 0; // користи се за израчунавање мак нагиба као окидачке тачке
инт невСлопе; // складиште за долазне податке о падинама

// променљиве за одлучивање да ли имате подударање
бајт ноМатцх = 0; // броји колико неискупавања сте добили за ресетирање променљивих ако је предуго
бите слопеТол = 3; // толеранција нагиба - подесите ово ако вам је потребно
инт тимерТол = 10; // толеранција тајмера - подесите ово ако вам је потребно

// променљиве за детекцију појачала
непотписани инт ампТимер = 0;
бајт макАмп = 0;
бите цхецкМакАмп;
бите ампТхресхолд = 30; // повисите ако имате јако бучан сигнал

// променљиве за подешавање
инт цоррецтФрекуенци; // тачна фреквенција за низ који се репродукује

воид сетуп () {
  
  Сериал.бегин (9600);
  
  // ЛЕД пинови
  пинМоде (7, ИЗЛАЗ);
  пинМоде (6, ИЗЛАЗ);
  пинМоде (5, ИЗЛАЗ);
  пинМоде (4, ИЗЛАЗ);
  пинМоде (3, ИЗЛАЗ);
  пинМоде (2, ИЗЛАЗ);
  пинМоде (А3, ИЗЛАЗ);
  пинМоде (А4, ОУТПУТ);
  пинМоде (А5, ИЗЛАЗ);
  пинМоде (А1, ОУТПУТ);
  пинМоде (А2, ИЗЛАЗ);
  пинМоде (8, ИЗЛАЗ);
  пинМоде (9, ИЗЛАЗ);
  
  
  // Почетни ЛЕД низ
  дигиталВрите (7.1);
  дигиталВрите (6.1);
  дигиталВрите (5.1);
  дигиталВрите (4.1);
  дигиталВрите (3.1);
  дигиталВрите (2.1);
  дигиталВрите (8.1);
  аналогВрите (А1,255);
  кашњење (500);
  дигиталВрите (9.1);
  аналогВрите (А2,255);
  кашњење (500);
  дигиталВрите (А5,255);
  аналогВрите (А3,255);
  кашњење (500);
  аналогВрите (А4,255);
  кашњење (500);
  
  
  
  цли (); // онемогући прекиде
  
  // подесите континуирано узорковање аналогног пина 0 на 38,5кХз
 
  // јасни регистри АДЦСРА и АДЦСРБ
  АДЦСРА = 0;
  АДЦСРБ = 0;
  
  АДМУКС | = (1 << РЕФС0); // поставите референтни напон
  АДМУКС | = (1 << АДЛАР); // лево поравнајте АДЦ вредност - тако да можемо прочитати највише 8 бита само из АДЦХ регистра
  
  АДЦСРА | = (1 << АДПС2) | (1 << АДПС0); // подесите АДЦ сат са 32 пресцалера - 16мХз / 32 = 500кХз
  АДЦСРА | = (1 << АДАТЕ); // омогућавање аутоматског покретања
  АДЦСРА | = (1 << АДИЕ); // омогућити прекиде када је мерење завршено
  АДЦСРА | = (1 << АДЕН); // омогућити АДЦ
  АДЦСРА | = (1 << АДСЦ); // започните АДЦ мерења
  
  сеи (); // омогућити прекиде
}

ИСР (АДЦ_вецт) {// када је нова АДЦ вредност спремна
  
  ПОРТБ & = Б11101111; // поставите иглу 12 на ниску
  превДата = невДата; // похрани претходну вриједност
  невДата = АДЦХ; // добити вредност од А0
  иф (превДата <127 && невДата> = 127) {// ако се повећава и прелази средња тачка
    невСлопе = невДата - превДата; // израчунати нагиб
    иф (абс (невСлопе-макСлопе) <слопеТол) {// ако су нагиби ==
      // снимање нових података и ресетовање времена
      нагиб [индекс] = новиСлопе;
      тајмер [индекс] = време;
      време = 0;
      иф (индекс == 0) {// нови макс. нагиб се само ресетира
        ПОРТБ | = Б00010000; // поставите пин 12 високо
        ноМатцх = 0;
        индекс ++; // прираст индекса
      }
      елсе иф (абс (тимер [0] -тимер [индекс]) <тимерТол && абс (нагиб [0] -невСлопе) <слопеТол) {// ако се трајање тајмера и нагиби подударају
        // збирне вредности тајмера
        тоталТимер = 0;
        фор (бајт и = 0; и <индекс; и ++) {
          тоталТимер + = тимер [и];
        }
        период = тоталТимер; // постављен период
        // ресетујте нове нулте вредности за упоређивање са
        тимер [0] = тајмер [индекс];
        нагиб [0] = нагиб [индекс];
        индек = 1; // поставите индекс на 1
        ПОРТБ | = Б00010000; // поставите пин 12 високо
        ноМатцх = 0;
      }
      елсе {// прелази средину, али се не подудара
        индекс + +; // прираст
        иф (индекс> 9) {
          ресетирати ();
        }
      }
    }
    иначе ако (невСлопе> макСлопе) {// ако је нови нагиб много већи од мак нагиба
      макСлопе = невСлопе;
      тиме = 0; // ресетује сат
      ноМатцх = 0;
      индек = 0; // ресетирати индекс
    }
    елсе {// падина није довољно стрма
      ноМатцх ++; // прираст без бројача подударања
      ако (ноМатцх> 9) {
        ресетирати ();
      }
    }
  }
  
  тиме ++; // тајмер прираста при брзини од 38,5кХз
  
  ампТимер ++; // тајмер амплитуде прираста
  иф (абс (127-АДЦХ)> макАмп) {
    макАмп = абс (127-АДЦХ);
  }
  ако (ампТимер == 1000) {
    ампТимер = 0;
    цхецкМакАмп = макАмп;
    макАмп = 0;
  }
  
}

воид ресет () {// очистити неке променљиве
  индек = 0; // ресетирати индекс
  ноМатцх = 0; // ресетирај кунер за подударање
  макСлопе = 0; // ресетирати нагиб
}

// Искључите 5 ЛЕД диода за жице гитаре
неважећиЛЕДсОфф (инт ЛЕД1, инт ЛЕД2, инт ЛЕД3, инт ЛЕД4, инт ЛЕД5) {
  дигиталВрите (ЛЕД1,0);
  дигиталВрите (ЛЕД2,0);
  дигиталВрите (ЛЕД3,0);
  дигиталВрите (ЛЕД4,0);
  дигиталВрите (ЛЕД5.0);
}

// Одредите исправну фреквенцију и осветлите
// одговарајући ЛЕД за низ који се репродукује
воид стрингЦхецк () {
  ако (фреквенција> 70 и фреквенција <90) {
    осталоЛЕДсОфф (2,3,5,6,7);
    дигиталВрите (2.1);
    коректна фреквенција = 82.4;
  }
  ако (фреквенција> 100 и фреквенција <120) {
    осталоЛЕДсОфф (2,3,4,5,6);
    дигиталВрите (3.1);
    Исправна фреквенција = 110;
  }
  ако (фреквенција> 135 и фреквенција <155) {
    осталоЛЕДсОфф (2,3,4,6,7);
    дигиталВрите (4.1);
    ИсправнаФреквенција = 146,8;
  }
  ако (фреквенција> 186 и фреквенција <205) {
    осталоЛЕДсОфф (2,3,5,6,7);
    дигиталВрите (5.1);
    ИсправнаФреквенција = 196;
  }
  ако (фреквенција> 235 и фреквенција <255) {
    осталоЛЕДсОфф (2,4,5,6,7);
    дигиталВрите (6.1);
    Исправна фреквенција = 246,9;
  }
  ако (фреквенција> 320 и фреквенција <340) {
    осталоЛЕДсОфф (3,4,5,6,7);
    дигиталВрите (7.1);
    Исправна фреквенција = 329,6;
  }
}

// Упоредите улаз фреквенције са тачним
// фреквенција и осветлити одговарајуће ЛЕДС
воид фрекуенциЦхецк () {
  иф (фреквенција> труеФрекуенци + 1) {
    аналогВрите (А3,255);
  }
  иф (фреквенција> труеФрекуенци + 4) {
    аналогВрите (А2,255);
  }
  иф (фреквенција> труеФрекуенци + 6) {
    аналогВрите (А1,255);
  }
  ако (фреквенција <исправна фреквенција-1) {
    аналогВрите (А5,255);
  }
  ако (фреквенција <исправна фреквенција-4) {
    дигиталВрите (9.1);
  }
  ако (фреквенција <исправна фреквенција-6) {
    дигиталВрите (8.1);
  }
  ако је (фреквенција> исправна фреквенција-1 и фреквенција <исправна фреквенција + 1) {
    аналогВрите (А4,255);
  }
}

воид аллЛЕДсОфф () {
  дигиталВрите (2.0);
  дигиталВрите (3.0);
  дигиталВрите (4.0);
  дигиталВрите (5.0);
  дигиталВрите (6.0);
  дигиталВрите (7.0);
  дигиталВрите (8.0);
  дигиталВрите (9.0);
  аналогВрите (А1,0);
  аналогВрите (А2,0);
  аналогВрите (А3,0);
  аналогВрите (А4,0);
  аналогВрите (А5,0);
}

воид лооп () {
  
  аллЛЕДсОфф ();
  
  иф (цхецкМакАмп> ампТхресхолд) {
    фреквенција = 38462 / флоат (период); // израчунати брзину / период тајмера фреквенције
  }
  
  стрингЦхецк ();
  фрекуенциЦхецк ();
  
  кашњење (100);
 
}