Управление модулем Ke-USB24A из Excel. Энциклопедия радиоэлектроники и электротехники

Энциклопедия радиоэлектроники и электротехники / Компьютеры

 Комментарии к статье

Первая часть

Всю прелесть программирования USB модуля Ke-USB24A можно оценить когда встает вопрос о необходимости написания программы на каком-либо не очень широко распространенном языке или для какой-либо среды, которая, казалось бы не предусматривает возможность работы с USB устройствами. Как тут быть? - разбираться с подключением библиотек, вызовами системных функци и т.д.? Все это зачастую бывает сложно. Модуль Ke-USB24A совсем другое дело! Благодаря тому что программный интерфейс реализован в виде последовательного порта, можно программировать модуль практически на любом языке. Продемонстрируем это на примере. В этой статье мы рассмотрим как можно управлять выводами модуля из программы Excel! Да-да, именно из нее, где Вы обычно составляете таблицы и строите графики.

Для того чтобы Excel могла общаться с COM портом нам потребуется установить в системе специальный компонент от Microsoft - ActiveX элемент MSComm. Для этого скачайте файлы к этой статье. Там находиться папка ActiveX.

Для инсталляции компонента достаточно выполнить файл Instal.bat - он сам выполнит всю необходимую работу по установке и регестрации компонента в системе. В процессе его выполнения Вам будет задан вопрос такого вида:

Нажимайте "Да". Появится сообщение об успешной установке. Нажимаем "Ok".

Все компонент установлен, можно браться непосредственно за Excel. Запускаем программу. Нам необходимо следующим шагом разрешить выполнение макросов Excel, т.к. по умолчанию они скорее всего выключены. Для этого заходите в меню Сервис -> Макрос -> Безопасность...

Установите вариант низкой безопастности - ведь мы то уверены в том наша собственная программа безопасна.

Теперь определимся что мы собственно хотим получить от Excel: Пусть на листе будут размещены элементы управления, которые позволят нам открывать доступ к устройству и записывать на указанную нами линию ввода/вывода низкий или высокий уровень напряжения.

Займемся расстановкой элементов управления. Для этого вызовите соответствующее окно, например, щелкнув правой кнпкой мыши по главному меню программы и выбрав в появившемся спискеЭлементы управления".

Перетаскиваем необходимые элементы управления на лист: три надписи, три окошка ввода и две кнопки. Изменить текст элементов можно нажав правую кнопку мыши в редакторе свойств элемента. В результате должно получиться например вот так:

Теперь пора взяться собственно за программирование. Программа Excel, как в прочем и другие офисные программы от Microsoft (например, Word, Acsess и т.д.) имеют встроенную поддержку языка программирования VBA (Visual Basic For Application). Он представляет из себя несколько расширенный Visual Basic. Чтобы перейти в редактор программы дважды щелкните по кнопкеОткрыть порт", ведь именно с нее начнется процесс выполнения программы.

Мы попадаем в редактор VBA, где перед нами появляется пустая заготовка кода для обработки события нажатия кнопки.

Прежде чем мы начнем непосредственно писать программу нам еобходимо подключить компонент MSComm (тот самый который мы чуть выше только что устанавливали в системе). Для этого в редакторе VBA в меню выбираем Tools -> References....

Нажимаем кнопку Browse.... В появившемся окне выбора файлов отыскиваем наш компонент MSCOMM32.OCX - он должен находится в директории C:\Windows\system32\. Нажимаем Открыть, затем кнопку Ok.

Пишем следующий код. Что он делает? Содаем экземпляр компонента для работы с портом, настраиваем его параметры и в конце открываем порт.

'Создаем экземпляр компонента для работы с портом
Dim KeUSB As New MSCommPrivate Sub CommandButton1_Click()
'Настраиваем порт
KeUSB.CommPort = Val(TextBox1.Value)
KeUSB.Settings =9600,N,8,1"
KeUSB.Handshaking = comNone
KeUSB.InputLen = 0
KeUSB.InBufferSize = 40
KeUSB.OutBufferSize = 40
KeUSB.RThreshold = 0
'Открываем порт
KeUSB.PortOpen = True
End Sub
 

Далее возвращаемся на лист Excel. Дважды щелкаем на кнопку Записать. Добавляем следующий код:

Private Sub CommandButton2_Click()
'Формируем команду $KE,WR
KeUSB.Output =$KE,WR," & TextBox2.Value &," & TextBox3.Value & Chr(13) & Chr(10)
End Sub

Все, с программированием закончили. Можно закрывать редактор VBA (незабываем сохранить перед выходом). Теперь нам необходимо на листе Excel перейти из режима редактора элементов управления в режим выполнения. Для этого на конеЭлементы управления" необходимо нажать соответсвующую кнопку в виде линейки-треугольника, чтобы она стала неактивной (не подствеченной).

Теперь можно собрать схему - я тут ни чего не меняю, использую как и в прошлой статье: ко всем линиям ввода/вывода модуля Ke-USB24A подключены светодиоды. Все линии настроены на выход. Вот собственно и вся схемотехника.

Итак, указываем номер COM порта модуля, нажимаем кнопку Открыть порт. Затем, указываем номер нужной линии и значение для записи (0 или 1). Нажимаем кнопку Записать - моргаем светодиодами.

А вот и фотография конструкции. Схема набрана на макетной плате - очень удобно, паять ни чего не нужно. Здесь установлены не все 24 светодиода а меньше.

Итак, указываем номер COM порта модуля, нажимаем кнопку Открыть порт. Затем, указываем номер нужной линии и значение для записи (0 или 1). Нажимаем кнопку Записать - моргаем светодиодами.

Программу конечно необходимо модернизировать - мы здесь ни как не анализируем ни ошибок выполнения, ни сами введенные данные. Однако не смотря на простоту данный пример показывает что с модулем Ke-USB24A можно работать практически из любой среды, в которой есть поддержка ActiveX компонент и хоть какой-либо язык программирования (даже скриптовый). Например, работу с модулем можно интегрировать в программу Microsoft Acsess и вести базу данных, можно интегрировать данную концепцию в программу 1С, например, и проводить какие-либо действия по внешним событиям с датчиков (ключей) и т.д. - возможности неисчерпаемы. А можно продолжать развивать тему с Excel - например, использовать ее для автоматического построения графиков по данным получаемым с АЦП модуля.

Автор: Дмитрий Иванов (Grirog); Публикация: cxem.net

Смотрите другие статьи раздела Компьютеры.

Читайте и пишите полезные комментарии к этой статье.

<< Назад

Последние новости науки и техники, новинки электроники:

Стерильного нейтрино не существует 15.01.2026

В физике элементарных частиц поиск новых, пока не обнаруженных объектов играет ключевую роль в понимании устройства Вселенной. Иногда такие поиски приводят к громким открытиям, а иногда - к не менее важным отрицательным результатам, которые позволяют отбросить неверные направления. Именно к таким случаям относится недавний вывод ученых о судьбе стерильного нейтрино - одной из самых интригующих гипотетических частиц последних десятилетий. Исследователи из американской лаборатории Fermilab официально сообщили, что им не удалось найти доказательства существования стерильного нейтрино. К такому выводу пришла команда эксперимента MicroBooNE после многолетнего анализа столкновений нейтрино, которые ранее рассматривались как возможный намек на существование четвертого типа этих частиц. Предполагалось, что стерильное нейтрино взаимодействует с материей исключительно через гравитацию, что делало его крайне трудным объектом для обнаружения. В рамках современной физики нейтрино известны в т ...>>

Беспроводные наушники и колонки Fender 15.01.2026

Музыкальная индустрия постепенно адаптируется к цифровым технологиям, и известный производитель музыкальных инструментов Fender расширяет свое присутствие за пределы гитар и усилителей, представляя современные решения для прослушивания музыки. Новые беспроводные наушники и Bluetooth-колонки Fender объединяют богатый звук, модульность и удобство использования как для дома, так и для профессиональной работы. Флагманской новинкой стали наушники Fender Mix, отличающиеся модульной конструкцией. Динамики подключаются к оголовью через порт USB Type-C и могут быть сняты вместе с амбушюрами, что облегчает уход и транспортировку. Один из динамиков оснащен встроенным адаптером USB Type-C для подключения к источнику звука без потерь, поддерживая кодеки LDHC и Fire, а также функцию Auracast. На другом динамике размещен съемный аккумулятор, который обеспечивает до 100 часов работы без активного шумоподавления; при включении ANC время работы сокращается до 52 часов. Наушники доступны по цене $299 ...>>

Польза белкового завтрака 14.01.2026

Правильное питание по утрам играет ключевую роль в поддержании здоровья и контроле веса. Многочисленные исследования подтверждают, что состав завтрака может влиять на аппетит в течение всего дня и качество употребляемой пищи. Австралийские ученые провели масштабный эксперимент, который показал, что употребление белковой пищи с утра помогает дольше чувствовать сытость и предотвращает переедание. В исследовании участвовали более 9 тысяч человек среднего возраста 46 лет. В период с 2011 по 2012 год специалисты анализировали рационы респондентов, оценивая долю основных макронутриентов. В среднем участники потребляли 43% углеводов, 31% жиров, 18% белков, 2% клетчатки и 4% алкоголя. Такой рацион позволил ученым проследить взаимосвязь между утренним приемом пищи и пищевым поведением в течение дня. Выяснилось, что участники, чей завтрак содержал недостаточное количество белка, ощущали повышенный аппетит в течение дня. Они ели больше, чем необходимо, и часто выбирали продукты с высоким со ...>>

Случайная новость из Архива Подслащенные напитки вызывают ожирение и износ зубов 06.11.2019 Ученые из Королевского колледжа Лондона обнаружили, что избыточный вес или ожирение, несомненно, были связаны с износом зубов. Примечательно, что они также обнаружили, что повышенное потребление сладких безалкогольных напитков может быть основной причиной эрозии зубной эмали и дентина у пациентов с ожирением. Опираясь на данные Национального обследования здоровья и питания, проведенного в 2003-2004 годах, ученые проанализировали репрезентативную выборку участников опроса из 3541 пациента в Соединенных Штатах. ИМТ пациента и уровень износа зубов были измерением воздействия и результатов в анализе. Потребление подслащенных кислыми напитками с сахаром регистрировалось в двух непоследовательных 24-часовых опросах, в течение которых пациентов просили предоставить информацию о рационе питания в течение этих двух дней. "Именно кислотная природа некоторых напитков, таких как газированные напитки и кислые фруктовые соки, приводит к износу зубов", - говорит ведущий автор доктор Saoirse O'Toole из лондонского King's College. Износ зубов считается третьим по значимости состоянием зубов, после кариеса и заболеваний десен, и потребление кислой пищи и напитков является основной причиной этого. У пациентов с ожирением также есть другие факторы риска, такие как повышенная вероятность желудочной рефлюксной болезни (изжога), которая контролировалась в этом исследовании. "Это важное сообщение для пациентов, страдающих ожирением, которые потребляют калории из кислых напитков, подслащенных сахаром. Эти напитки могут нанести вред их телу и зубам. Также есть важное сообщение для стоматологов. Мы должны задавать вопросы нашим пациентам, страдающим ожирением и имеющим износ зубов, о том, какие напитки они пьют, поскольку это может влиять на их тело в целом, а не только на зубы", - добавил доктор О'Тул.

Другие интересные новости:

▪ Смартфон Samsung Galaxy S

▪ Гравитационные лампы работают без электросети

▪ Электроны текут подобно жидкости

▪ MESO вместо КМОП

▪ Комаров отучат пить кровь

Лента новостей науки и техники, новинок электроники

Интересные материалы Бесплатной технической библиотеки:

▪ раздел сайта Электрик в доме. Подборка статей

▪ статья Беседка под шатром. Советы домашнему мастеру

▪ статья В каком храме можно помолиться о том, чтобы получить визу и эмигрировать? Подробный ответ

▪ статья Микроэлектродрель. Домашняя мастерская

▪ статья Установки для получения биодизельного топлива из биомассы. Энциклопедия радиоэлектроники и электротехники

▪ статья Мощный импульсный блок питания, 220/2х50 вольт 800 ватт. Энциклопедия радиоэлектроники и электротехники

Оставьте свой комментарий к этой статье:

www.diagram.com.ua
2000-2026