|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2009, 20:00 | #1 |
Пользователь
Регистрация: 13.09.2009
Сообщений: 53
|
опрос порта по расписанию
Есть код:
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) Private Sub CommandButton1_Click() [a1] = (Inp(&H378)) End Sub т.е. по щелчку, в ячейку а1 заноситься значение ПИНов LPT порта. Необходимо, что бы значения туда заносились не по щелчку а автоматически раз в 5 секунд. как это сделать ? Как сделать так, что бы код заноса в ячейку активировался при открытии книги, а не при запуска кода в VBA ? |
03.12.2009, 21:04 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
В модуль ЭтаКнига
Код:
Код:
(добавлено) Чтобы в ячейке отображались значения отдельных битов, используйте такой вариант кода: Код:
Пример файла: http://excelvba.ru/XL_Files/Sample__...__23-15-07.zip
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 03.12.2009 в 21:13. |
03.12.2009, 21:17 | #3 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
Здравствуйте Joslen_bomon.
ещё один вариант: Код:
Евгений. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как запустить макрос по расписанию? | zander | Microsoft Office Excel | 4 | 19.11.2009 22:50 |
Выполнение скрипта по расписанию | Sparky | PHP | 7 | 30.10.2009 16:33 |
опрос порта ЛПТ | shide | Общие вопросы Delphi | 2 | 08.10.2009 19:27 |
Запуск файлов по расписанию | Roll1n | Софт | 6 | 22.01.2009 20:45 |
Как получить данные с COM-порта или другого любого порта? | DeLure | Общие вопросы C/C++ | 5 | 20.09.2007 00:50 |