Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Excel и серийный порт

Ответить
Настройки темы
Excel и серийный порт

Аватара для Guest

Guest

Профиль | Цитировать

Кто может помочь?
Нужен небольшой скриптик для передачи команды на серийный порт (Com1) в виде набора символов " sta,s,4 " (без кавычек)...
использую библиотеку *RSAPI.DLL

накатал, но не работает

Declare Function OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) As Integer
Declare Function CLOSECOM Lib "RSAPI.DLL" () As Integer
Declare Function READSTRING Lib "RSAPI.DLL" (ByVal Rein$) As Integer
Declare Function STRLENGTH Lib "RSAPI.DLL" (ByVal l%) As Integer
Declare Sub STRREAD Lib "RSAPI.DLL" (ByVal Anzeige$)
Declare Function TIMEOUT Lib "RSAPI.DLL" (ByVal ms%) As Integer
Declare Function SENDSTRING Lib "RSAPI.DLL" (ByVal S As String) As Integer

Private Sub Send()
OPENCOM ("COM1:9800,N,8,1"
SENDSTRING "STA,S,4" + Chr$(13)
CLOSECOM
End Sub

Пожалуйста ответы попроще ...я в VBA пока ещё чайник



Отправлено: 10:46, 10-09-2004

 

Аватара для hasherfrog

Старый параноик


Сообщения: 2423
Благодарности: 85

Профиль | Отправить PM | Цитировать

Вопрос действительно оказался сложным
Работа через rs232 описывается в 2-х видах: через dll и через ocx. MSDN делает упор на MSCommPort. То что Вы приводите - скорее хак, чем "нормальное" программирование.
Просмотрите следующие публикации:
http://www.yes-tele.com/mscomm.html
http://www.nickles.de/c/a/forum2-537623514.htm
http://www.cpcug.org/user/clemenzi/t...s/SerialIO.htm

Кроме того, хотелось бы уточнить, Что именно "не работает". Кто ругается, ругается ли вообще, или вроде работает, но ничего не происходит...

Отправлено: 15:55, 10-09-2004 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Guest

Guest

Профиль | Цитировать

Спасибо за ответ..
Вобщем всё заработало вот в этой строчке была ошибочка

OPENCOM ("COM1,9600,N,8,1"

то есть посылаю на прибор текстовые комманды , которые дублируют механическое нажатие кнопок
теперь нужно научится считывать показания прибора

считывание происходит по такому же принципу...посылаю комманду ...в качестве ответа посылаются данные ввиде чисел...Но пока безуспешно...

Отправлено: 13:34, 13-09-2004 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Excel и серийный порт

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Сменить серийный номер Ser6720 Хочу все знать 7 21-12-2009 14:37
не подходит серийный помер продукта snowkam Автоматическая установка Windows 2000/XP/2003 2 04-03-2009 16:17
серийный номер материнки в WIN2K Donec Microsoft Windows NT/2000/2003 3 07-08-2007 10:16
Как изменить серийный номер Windows XP Rufat1975 Лицензирование продуктов Microsoft 2 04-06-2007 12:59
Серийный номер Butunin Klim Microsoft Windows NT/2000/2003 1 02-05-2007 22:40


« Предыдущая тема | Следующая тема »


 
Переход