Работа с COM портом в Delphi (Реле времени)

Программно зажигаем светодиод на определенное время.

Интересный пример работы с COM портом из Delphi. Программа, которая будет управлять светодиодом, будет включать светодиод и выключать через определенное время,… (Простое реле времени своими руками).

Нам понадобятся: 

  • Компьютер или ноутбук с OS Windows, оснащенный COM портом. Можно воспользоваться специальным переходником — конвертером USB/COM например таким:

COM-порт-Дельфи-1 Работа с COM портом в Delphi (Реле времени)

  • Девятиконтактный комовский разьем — «мама»;                                     
  • Собственно сам светодиод;
  • Паяльник, флюс, припой;

-флюс-припой Работа с COM портом в Delphi (Реле времени)

  • Берем комовский разьем «мама» и припаиваем к его контактам №3 и №5 светодиод, (плюсовую ножку диода к контакту №3, минусовую к №5), должно получиться примерно как на картинке ниже:

COM-порт-Дельфи-2 Работа с COM портом в Delphi (Реле времени)

  • Вставляем получившийся девайс в имеющийся на вашей машинке COM порт и переходим к программной части;
  • Запускаем Delphi, создаем новый проект и размещаем на форме следующие компоненты: 1 компонент Сombobox, 1 Edit и 1 Button, и настраиваем примерно так:

-светодиод-на-Дельфи Работа с COM портом в Delphi (Реле времени)

  • В разделе Var создаем глобальную переменную JRHandle тип Thandle (JRHandle: Thandle);
  • В строки items компонента Combobox, вбиваем цифры от 1 до 9, по одной в каждую строку, при помощи него мы будем выбирать номер COM порта для подключения;
  • Дважды кликнув на Button1, создаем для него обработчик событий, где между, прописываем следующий код:

  • Заходим в диспетчер устройств Windows (Мой компьютер-Свойства-Диспетчер устройств) находим раздел Порты (COM и LPT).

-устройств-Delphi Работа с COM портом в Delphi (Реле времени)

  • Кликаем на нем и запоминаем номер который присвоен системой нашему COM порту (в моем случае это COM6), после мы будем выбирать его из списка портов нашего Combobox.
  • Запускаем наш проект, выбираем из списка номер нашего порта, в Edit вбиваем время задержки в миллисекундах, например 20000, нажимаем «OK». Светодиод ярко засияет, и погаснет ровно через 20 секунд.