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

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

Оффлайн R8ABB

  • Новичок
  • *
  • Сообщений: 4
  • Карма: +0/-0
Для этого проекта нам понадобится:
  • Плата Ардуино
  • Клавиатура PS/2
  • Входной разьем PS/2

Программа:
#include <PS2Keyboard.h>

int S = 13;      //Номер пина на который выводится звук
int P = 80;      //Длительность точки
int D = P*2.5;   //Длительность тире
int F = 1000;  //Частота, Hz

const int DataPin = 2;
const int IRQpin =  3;

PS2Keyboard keyboard;

void setup() {
  delay(1000);
  keyboard.begin(DataPin, IRQpin);
}

void loop() {
  if (keyboard.available()) {
    char c = keyboard.read();
    if (c == 'q') {
      Dash();
      Dash();
      Point();
      Dash();
      delay(D);
    }
      else {
        if (c == 'w') {
        Point();
        Dash();
        Dash();
        delay(D);
        }
       else {
       if (c == 'e') {
       Point();
       delay(D);
       }
       else { if (c == 'r') {
       Point();
       Dash();
       Point();
       delay(D);
       } else { if (c == 't') {
       Dash();
       delay(D);
       } else { if (c == 'y') {
       Dash();
       Point();
       Dash();
       Dash();
       delay(D);
       } else { if (c == 'u') {
       Point();
       Point();
       Dash();
       delay(D);
       } else { if (c == 'i') {
       Point();
       Point();
       delay(D);
       } else { if (c == 'o') {
       Dash();
       Dash();
       Dash();
       delay(D);
       } else { if (c == 'p') {
       Point();
       Dash();
       Dash();
       Point();
       delay(D);
       } else { if (c == 'a') {
       Point();
       Dash();
       delay(D);
       } else { if (c == 's') {
       Point();
       Point();
       Point();
       delay(D);
       } else { if (c == 'd') {
       Dash();
       Point();
       Point();
       delay(D);
       } else { if (c == 'f') {
       Point();
       Point();
       Dash();
       Point();
       delay(D);
       } else { if (c == 'g') {
       Dash();
       Dash();
       Point();
       delay(D);
       } else { if (c == 'h') {
       Point();
       Point();
       Point();
       Point();
       delay(D);
       } else { if (c == 'j') {
       Point();
       Dash();
       Dash();
       Dash();
       delay(D);
       } else { if (c == 'k') {
       Dash();
       Point();
       Dash();
       delay(D);
       } else { if (c == 'l') {
       Point();
       Dash();
       Point();
       Point();
       delay(D);
       } else { if (c == 'z') {
       Dash();
       Dash();
       Point();
       Point();
       delay(D);
       } else { if (c == 'x') {
       Dash();
       Point();
       Point();
       Dash();
       delay(D);
       } else { if (c == 'c') {
       Dash();
       Point();
       Dash();
       Point();
       delay(D);
       } else { if (c == 'v') {
       Point();
       Point();
       Point();
       Dash();
       delay(D);
       } else { if (c == 'b') {
       Dash();
       Point();
       Point();
       Point();
       delay(D);
       } else { if (c == 'n') {
       Dash();
       Point();
       delay(D);
       } else { if (c == 'm') {
       Dash();
       Dash();
       delay(D);
       }
       else { if (c == '0') {
       Dash();
       Dash();
       Dash();
       Dash();
       Dash();
       delay(D);
       } else { if (c == '1') {
       Point();
       Dash();
       Dash();
       Dash();
       Dash();
       delay(D);
       }
        else { if (c == '2') {
       Point();
       Point();
       Dash();
       Dash();
       Dash();
       delay(D);
       } else { if (c == '3') {
       Point();
       Point();
       Point();
       Dash();
       Dash();
       delay(D);
       } else { if (c == '4') {
       Point();
       Point();
       Point();
       Point();
       Dash();
       delay(D);
       } else { if (c == '5') {
       Point();
       Point();
       Point();
       Point();
       Point();
       delay(D);
       } else { if (c == '6') {
       Dash();
       Point();
       Point();
       Point();
       Point();
       delay(D);
       } else { if (c == '7') {
       Dash();
       Dash();
       Point();
       Point();
       Point();
       delay(D);
       } else { if (c == '8') {
       Dash();
       Dash();
       Dash();
       Point();
       Point();
       delay(D);
       } else { if (c == '9') {
       Dash();
       Dash();
       Dash();
       Dash();
       Point();
       delay(D);
       } else { if (c == PS2_PAGEUP) {
       P -=10;
       } else { if (c == PS2_PAGEDOWN) {
       P +=10;
       }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
    }
  }
}
 
void Dash() {
  tone(S,F,D);
  delay(D+P);
}

void Point() {
  tone(S,F,P);
  delay(P*2);
}

Вот и все теперь при нажатии любой клавиши будет воспроизодиться ее код в азбуке морзе. И при нажатии PAGE DOWN или PAGE UP будет уменьшаться скорость передачи или увеличиваться соответственно

 



Последние сообщения на форуме:
[Новости] Re: Вспышки наСолнце2024 от R8AFS Сегодня в 07:44:41
[Доска частных объявлений] Re: продам ICOM 706 MK2G от R8ABD 07 Апреля 2024, 17:18:55
[Программы для радиолюбителей] Re: Кто каким логом пользуется для УКВ тестов от MO05 02 Апреля 2024, 19:44:02
[Беседка] Re: Радио Анекдоты от R8AFS 01 Апреля 2024, 07:22:12
[Доска частных объявлений] FT-817ND куплю за разумную цену от UA9ARM 02 Марта 2024, 15:04:30
[Программы для радиолюбителей] Re: CAT4Web - синхронизация трансивера и WebSDR от Vladok 01 Марта 2024, 17:40:18
[Доска частных объявлений] Продаётся от ra9aaa 12 Февраля 2024, 00:38:00
[Доска частных объявлений] Продаётся р/л оборудование от ra9aaa 06 Февраля 2024, 19:43:13
[Новичкам] Re: Как оценить Аврору от MO05 04 Февраля 2024, 05:48:08
[Новости] Re: Маяк 1296 от R8AHC 23 Декабря 2023, 14:02:48
[Новости] Re: Вспышки наСолнце2023год от R8AFS 17 Декабря 2023, 21:26:50
[Доска частных объявлений] Детальки от igor68 12 Декабря 2023, 14:27:57
[Доска частных объявлений] Продаю ICOM -7300 от ra9aaa 09 Декабря 2023, 16:00:36
[Маяки, репитеры, эхолинки и их частоты] Re: R4 Миасский от UB8AGA 18 Ноября 2023, 16:57:20
[Доска частных объявлений] Re: Продаются коленья мачты от Сергей 12 Ноября 2023, 03:02:25
[Дипломы] Большой сравочник по радиолюбительским дипломам от ua3pno 20 Октября 2023, 17:15:20
[Новости] Re: Новое в получении категории от RA8AL 17 Сентября 2023, 14:59:44
[Доска частных объявлений] Подарю корпус от ПК. от Сергей 11 Сентября 2023, 09:07:08
[Беседка] Re: Помощь от ra9avl 13 Июля 2023, 11:58:47
[Доска частных объявлений] ТА-57 от RT8A 22 Июня 2023, 20:42:44