Генератор для изучения азбуки морзе с изменением тональности

Автор R8ABB, 24 декабря 2015, 20:57:57

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

R8ABB

В продолжение темы:     Генератор для изучения азбуки морзе

Для этого проекта понадобится:

  • Плата ардуино
  • Пьезоизлучатель
  • Кнопка
  • Резистор(10кОм)2шт.
  • Переменный резистор(10кОм)



void setup()
{
pinMode(8, INPUT);  //8 пин работает на вход
pinMode(13, OUTPUT); //13 пин работает на выход
}

void loop()
{
int frequency, val; //Объявляются переменные"val","frequency"
val = analogRead(A0); //Переменная "val" равняется значению на нулевом аналоговом пину
frequency = map(val, 0, 1023, 500, 1200); //Переменная "frequency" равняется значению "val" перенесенному в диапозон от 500 до 1200
if (digitalRead( 8 ) == HIGH) //Если на 8 пину высокое напряжение, то:
{
tone(13,frequency,1); //Воспроизводится тональный звук
}
else //Иначе
{
digitalWrite(13, LOW); //Звук на 13 пину останавливается
}
}
Заливаем программу в ардуино и теперь когда мы крутим ручку переменного резистора, тональность изменяется.

Последние сообщения на форуме:

[Новости] Re: Вспышки наСолнце2026 от R8AFS 01 ноября 2026, 14:05:16
[Беседка] Re: Кубок Урала-2026 от RM9C 20 октября 2026, 19:23:14
[Беседка] Re: спасибо всем от Влад 13 октября 2026, 22:57:52
[Доска частных объявлений] Re: IC-7300 от ra9aaa 02 октября 2026, 19:46:27
[Доска частных объявлений] SPEAKER ICOM SP-23 от ra9aaa 21 сентября 2026, 17:50:49
[Доска частных объявлений] Блок питания от ra9aaa 19 сентября 2026, 17:16:14
[Новичкам] Re: посильная помощь от Влад 19 сентября 2026, 16:02:00
[Беседка] срочно продам от Влад 17 сентября 2026, 15:22:30
[Доска частных объявлений] Редуктор МЭО от ra9aaa 07 сентября 2026, 18:33:09
[Маяки, репитеры, эхолинки и их частоты] Re: Маяк R8ACZ/B 1296.900 от R8ACZ 16 августа 2026, 23:00:39
[Программы для радиолюбителей] Re: CAT4Web - синхронизация трансивера и WebSDR от R8ACC 03 августа 2026, 18:58:52
[Доска частных объявлений] Re: Редуктор от Владимир 16 июня 2026, 07:50:38
[Новости] Защита Элекросетей от Магнитных бурь от R8AFS 24 апреля 2026, 08:40:23
[Беседка] Re: Радио Анекдоты от R8AFS 01 апреля 2026, 09:15:54
[Соревнования] Кубок А.С. Попова Свердловской обл. УКВ от R8AFS 21 марта 2026, 19:13:57
[Соревнования] Пермские УКВ соревнования им. А.С.Попова. от R8AFS 18 марта 2026, 20:42:03