// контакт вывода на "ключевание"
#define CW_PIN 13
// контакт вывода звука 
#define CW_AUDIO_KEYER_PIN 10
// частота звука для контроля
#define CW_AUDIO_FREQUENCY 880
// базова длина "точки", определяет скорость передачи сообщения
#define CW_TICK_TIME_MILLISECONDS 70
// контакт PTT
#define CW_PTT_PIN 9
// контакт для подключения датчика температуры DS18B20
#define TMP_PIN A1
// контакт для подключения реле управления вентилятором обдува радиостанции
#define FAN_PIN 5
// контакт для подключения реле управления питанием радиостанции
#define TRX_PIN 6
// температура включения вентилятора обдува
#define TMP_FAN_ON 40
// предельная температура передатчика, при которой прекращается передача
#define TMP_MAX 70
// температура передатчика, при которой разрешается работа на передачу, после отключения
#define TMP_MIN 50
// время повтора сообщения, секунды
#define TIME_RPT 180

  int t_tick = CW_TICK_TIME_MILLISECONDS;

  // Length of dot, dash, between characters, between words
  // Динна точки, тире, между символами, между словами
  int t_dot = t_tick * 1;
  int t_dash = t_tick * 3;
  int t_between_char = t_tick * 3;
  int t_between_words = t_tick * 7;
  
  String st_beacon;
  unsigned long last_time;
  boolean fan_on, trx_off;
  int current_temp;
  
void setup() {
// раздел начальных "динамических" установок
  last_time = 0;
  current_temp = 20;
// переменные по умолчанию переводим в "безопасное" состояние  
  fan_on = true;
  trx_off = true;
// строка, которую будет выдавать маяк
  st_beacon = "CQ CQ CQ DE BEACON UN8FF LOC MO82JM BAND 4M";
}

void loop() {

// вся обработка ограничений по температуре вначале
// так как возможно выключение контроллера и включение при горячем передатчике

// считываем показания датчика температуры
  current_temp = 20;

// проверяем условие для включения вентилятора обдува
// и обозначаем переменную, в дальнейшем для индикации и прочего
  if (current_temp > TMP_FAN_ON) {
    fan_on = true;
  } else {
    fan_on = false;
  }

// управление выводом включения вентилятора обдува
  if (fan_on) {
    digitalWrite(FAN_PIN, HIGH);
  } else {
    digitalWrite(FAN_PIN, LOW);
  }

// проверяем условие для отключения передатчика
// если перегрелся, то отключаем и запрещаем работу на передачу
  if (current_temp > TMP_MAX) {
    trx_off = true;
  }
// если температура передатчика ниже разрешенной после перегрева, то разрешаем включать передатчик
  if (current_temp < TMP_MIN) {
    trx_off = false;
  }
  
// управление выводом отключения передатчика
  if (trx_off) {
    digitalWrite(TRX_PIN, HIGH);
  } else {
    digitalWrite(TRX_PIN, LOW);
  }
      
// если прошло достаточно времени, то начинаем передавать сообщение
  if ((millis() - last_time) > (TIME_RPT*1000) || last_time == 0 )
  {
    last_time = millis();

// если передатчик еще не остыл, после перегрева, то не разрешаем передачу
    if (!trx_off) 
    {
      
// включаем режим передачи
// для радиостанций с необходимостью нажатия PTT
      digitalWrite(CW_PTT_PIN, HIGH);

// выдаем строку текста посимвольно кодом Морзе
      int st_len = st_beacon.length();
      for (int i=0; i<st_len; i++) {
        keyCwForCharacter(st_beacon[i]);
      }
  
// выключаем режим передачи
// для радиостанций с необходимостью нажатия PTT
      digitalWrite(CW_PTT_PIN, LOW);
      
    }
    
  }
    
}

// Функция преобразования символа в строку кода Морзе
// Написано примитивненько, но работает
// можно дополнить любыми символами
char *morseForSymbol(char symbol) {
  char *morse = NULL;

  if (symbol == '.') {
    morse = ".-.-.-";
  } else if (symbol == 'a' || symbol == 'A') {
    morse = ".-";
  } else if (symbol == 'b' || symbol == 'B') {
    morse = "-...";
  } else if (symbol == 'c' || symbol == 'C') {
    morse = "-.-.";
  } else if (symbol == 'd' || symbol == 'D') {
    morse = "-..";
  } else if (symbol == 'e' || symbol == 'E') {
    morse = ".";
  } else if (symbol == 'f' || symbol == 'F') {
    morse = "..-.";
  } else if (symbol == 'g' || symbol == 'G') {
    morse = "--.";
  } else if (symbol == 'h' || symbol == 'H') {
    morse = "....";
  } else if (symbol == 'i' || symbol == 'I') {
    morse = "..";
  } else if (symbol == 'j' || symbol == 'J') {
    morse = ".---";
  } else if (symbol == 'k' || symbol == 'K') {
    morse = "-.-";
  } else if (symbol == 'l' || symbol == 'L') {
    morse = ".-..";
  } else if (symbol == 'm' || symbol == 'M') {
    morse = "--";
  } else if (symbol == 'n' || symbol == 'N') {
    morse = "-.";
  } else if (symbol == 'o' || symbol == 'O') {
    morse = "---";
  } else if (symbol == 'p' || symbol == 'P') {
    morse = ".--.";
  } else if (symbol == 'q' || symbol == 'Q') {
    morse = "--.-";
  } else if (symbol == 'r' || symbol == 'R') {
    morse = ".-.";
  } else if (symbol == 's' || symbol == 'S') {
    morse = "...";
  } else if (symbol == 't' || symbol == 'T') {
    morse = "-";
  } else if (symbol == 'u' || symbol == 'U') {
    morse = "..-";
  } else if (symbol == 'v' || symbol == 'V') {
    morse = "...-";
  } else if (symbol == 'w' || symbol == 'W') {
    morse = ".--";
  } else if (symbol == 'x' || symbol == 'X') {
    morse = "-..-";
  } else if (symbol == 'y' || symbol == 'Y') {
    morse = "-.--";
  } else if (symbol == 'z' || symbol == 'Z') {
    morse = "--..";
  } else if (symbol == '0') {
    morse = "-----";
  } else if (symbol == '1') {
    morse = ".----";
  } else if (symbol == '2') {
    morse = "..---";
  } else if (symbol == '3') {
    morse = "...--";
  } else if (symbol == '4') {
    morse = "....-";
  } else if (symbol == '5') {
    morse = ".....";
  } else if (symbol == '6') {
    morse = "-....";
  } else if (symbol == '7') {
    morse = "--...";
  } else if (symbol == '8') {
    morse = "---..";
  } else if (symbol == '9') {
    morse = "----.";
  } else if (symbol == '?') {
    morse = "..--..";
  } else if (symbol == '=') {
    morse = "-...-";
  } else if (symbol == '/') {
    morse = "-..-.";
  } else if (symbol == '+') {
    morse = ".-.-.";
  } else if (symbol == ',') {
    morse = "--..--";
  } else {
    // For anything else, return a question mark
    morse = "..--.."; 
  }
  return morse;
}

// функция вывода символа азбукой Морзе, в качестве параметра передается символ
void keyCwForCharacter(char symbol) {

  if (symbol == ' ') {
    delay(t_between_words);
  } else {
    char *symbol_in_morse = morseForSymbol(symbol);
    int j_len = strlen(symbol_in_morse);
    int j = 0;

    for (j=0; j<j_len; j++) {
      char dotdash = *(symbol_in_morse + j);
      int t_delay = 0;
      if (dotdash == '.') {
        t_delay = t_dot;
      } else if (dotdash == '-') {
        t_delay = t_dash;
      } else {
        t_delay = t_tick;
      }
  
// нажимаем "ключ"      
      digitalWrite(CW_PIN, HIGH);
// включаем звуковой тон
      tone(CW_AUDIO_KEYER_PIN, CW_AUDIO_FREQUENCY);
// задержка длительности звука/нажатия ключа      
      delay(t_delay);
// выключаем звуковой тон      
      noTone(CW_AUDIO_KEYER_PIN);
// "отпускаем" ключ
      digitalWrite(CW_PIN, LOW);
// выдерживаем паузу между точками/тире      
      delay(t_tick);
    }
// выдерживаем паузу между символами
    delay(t_between_char);
  }
}