Ваш браузер устарел. Рекомендуем обновить его до последней версии.




 



 


Delphi

 

 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Функция генерации звука tone()

Воспроизведение мелодии по твоей программе возможно на громкоговоритель включенный последовательно с резистором 220 Ом. На фото громкоговоритель подключен к девятому пину и к земле GND. Функция генерации звука tone() имеет три параметра пин, частота, длительность. Ниже приведен скетч мелодии "Нас утро встречает рассветом". Скетч взял с какого-то форума. Добавил светодиод, который горит во время звучания мелодии. При желании можно устроить трехполосную цветомузыку. Здесь понадобятся три светодиода, например красный, зеленый и синий. Каждый из них должен зажигаться в зависимости от частот звука – низкие, средние, высокие. Цветомузыка будет более эффектной если на каждый цвет поставить по два или светодиода. На каждый цвет задействуй один отдельный пин. И наконец можно устроить семиканальную цветомузыку. Понадобится семь светодиодов – красный, оранжевый, желтый, зеленый, голубой, синий, фиолетовый.

 

void setup()
{
pinMode(9, OUTPUT);  // громкоговоритель 9 пин
pinMode(10, OUTPUT);  // светодиод 10 пин
}

void loop()
{

digitalWrite(10, HIGH);
tone(9, 700, 300);
delay(600);
tone(9, 700, 300);
delay(600);
tone(9, 780, 150);
delay(300);
tone(9, 700, 150);
delay(300);
tone(9, 625, 450);
delay(600);
tone(9, 590, 150);
delay(300);
tone(9, 520, 150);
delay(300);
tone(9, 460, 450);
delay(600);
tone(9, 350, 450);
delay(600);
delay(600);
tone(9, 350, 450);
delay(600);
tone(9, 460, 450);
delay(600);
tone(9, 520, 150);
delay(300);
tone(9, 590, 150);
delay(300);
tone(9, 625, 450);
delay(600);
tone(9, 590, 150);
delay(300);
tone(9, 520, 150);
delay(300);
tone(9, 700, 1350);
delay(1800);

tone(9, 700, 300);
delay(600);
tone(9, 700, 300);
delay(600);
tone(9, 780, 150);
delay(300);
tone(9, 700, 150);
delay(300);
tone(9, 625, 450);
delay(600);
tone(9, 590, 150);
delay(300);
tone(9, 520, 150);
delay(300);
tone(9, 460, 450);
delay(600);
tone(9, 350, 450);
delay(600);
delay(600);
tone(9, 350, 450);
delay(600);
tone(9, 625, 450);
delay(600);
tone(9, 590, 150);
delay(300);
tone(9, 520, 150);
delay(300);
tone(9, 700, 450);
delay(600);
tone(9, 590, 150);
delay(300);
tone(9, 520, 150);
delay(300);
tone(9, 460, 1350);
delay(1350);
digitalWrite(10, LOW);
delay(5000);
}

 

Просьба, кто встретит скетч красивой мелодии, пришлите этот скетч или ссылку на него.

Flag Counter
Яндекс.Метрика
200stran.ru: показано число посетителей за сегодня, онлайн, из каждой страны и за всё время
Besucherzahler russain brides
счетчик посещений

Выбери лучшее!

allbest