Автор Тема: Генератор для изучения азбуки морзе  (Прочитано 1872 раз)

Оффлайн Мельников Тимур

  • Administrator
  • Member
  • *****
  • Сообщений: 21
  • Репутация: +1/-0
    • E-mail
    • Личное сообщение (Оффлайн)
Для этого проекта потребуется:
 
  • Плата ардуино
  • Пьезоизлучатель
  • Кнопка
  • Резистор(10кОм)
Код программы:

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

void loop()
{
 if (digitalRead( 8 ) == HIGH) //Если на 8 пину высокое напряжение, то:
 {
 digitalWrite(13, HIGH); //на 13 пину высокое напряжение
 delay(1); //пауза 0,001 миллисекунда
 digitalWrite(13, LOW); //на 13 пину низкое напряжение
 delay(1); //пауза 0,001 миллисекунда
 }

 else //Иначе
 {
 digitalWrite(13, LOW); //на 13 пину низкое напряжение
 }
}

Заливаем скетч в ардуино и теперь при нажатии кнопки будет воспроизводится звук.
« Последнее редактирование: Май 11, 2015, 00:14:11 от electroGhost »

Оффлайн Мельников Тимур

  • Administrator
  • Member
  • *****
  • Сообщений: 21
  • Репутация: +1/-0
    • E-mail
    • Личное сообщение (Оффлайн)
Генератор для изучения азбуки морзе 2
« Ответ #1 : Май 10, 2015, 22:13:36 »
Вариант с использованием подпрограммы:

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

void loop()
{
 if (digitalRead( 8 ) == HIGH) //Если на 8 пину высокое напряжение, то:
 {
 tone(); //Вызов подпрограммы "tone"
 }

 else //Иначе
 {
 digitalWrite(13, LOW);на 13 пину низкое напряжение
 }
}

void tone()
{
 digitalWrite(13, HIGH); //на 13 пину высокое напряжение
 delay(1); //пауза 0,001 миллисекунда
 digitalWrite(13, LOW); //на 13 пину низкое напряжение
 delay(1); //пауза 0,001 миллисекунда
}

Заливаем скетч в ардуино и теперь при нажатии кнопки будет воспроизводится звук.
« Последнее редактирование: Май 11, 2015, 00:24:23 от john »

 

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

[Наука] Re: Новости науки и технологии от Новичёк Январь 18, 2020, 20:44:00
[Наука] Re: Новости науки и технологии от Новичёк Январь 18, 2020, 19:40:58
[Наука] Re: Новости науки и технологии от Новичёк Январь 18, 2020, 19:37:27
[Наука] Re: Новости науки и технологии от Новичёк Январь 18, 2020, 19:34:56
[Экономика] Re: Истоки коррупции от Новичёк Январь 18, 2020, 19:25:21
[Windows. Обмен опытом] Re: Windows 10 от Новичёк Январь 18, 2020, 18:11:03
[Автолюбителям] Re: Технологии автоматизированного вождения от Новичёк Январь 18, 2020, 18:05:56
[Наука] Re: Новости науки и технологии от Новичёк Январь 17, 2020, 23:00:05
[Наука] Re: Новости науки и технологии от Новичёк Январь 17, 2020, 22:57:01
[Наука] Re: Новости науки и технологии от Новичёк Январь 17, 2020, 22:54:50
[Наука] Re: Новости науки и технологии от Новичёк Январь 17, 2020, 22:51:57
[Наука] Re: Новости науки и технологии от Новичёк Январь 17, 2020, 22:49:22
[Политика] Re: Противостояние: Россия - США от Новичёк Январь 17, 2020, 22:42:30
[Политика] Re: Противостояние: Россия - США от Новичёк Январь 17, 2020, 22:40:08
[Политика] Re: Противостояние: Россия - США от Новичёк Январь 17, 2020, 22:37:08
[Автолюбителям] Re: Будущее автомобилей от Новичёк Январь 17, 2020, 22:34:25
[Политика] Re: Противостояние: Россия - США от Новичёк Январь 17, 2020, 22:29:47
[Экономика] Экономика и мобильные приложения от Новичёк Январь 17, 2020, 22:26:21
[Автолюбителям] Re: Будущее автомобилей от Новичёк Январь 17, 2020, 22:12:40
[Политика] Re: Свобода в Интернете заканчивается от Новичёк Январь 17, 2020, 22:08:58
 Rambler's Top100