Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как отловить приход данных на COM-порт? без применения контролов 
V
    Опции темы
cardinal
Дата 18.6.2011, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Цитата(RA3PKJ @  18.6.2011,  08:03 Найти цитируемый пост)
После закрытия порта следует обнулить переменную ComNum, т.е. вписать ComNum = 0. Ни кто за нас это не сделает.

Зачем?


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
ZeroNull
Дата 25.3.2017, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 25.3.2017

Репутация: нет
Всего: нет



Цитата(JusTalionis @ 20.5.2008,  14:00)
Во исполнение моего обещания, здесь данного cardinalу, рассказываю, как я все-таки добил задачу, и выкладываю готовый проект.

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

Я , конечно ,  извиняюсь за некрофилию но  у меня малость проблема с работой этого кода

данный код не хочет работать если номер компорта больше 9 

в строке
 
Код

   ComNum = CreateFile(("COM" + Trim(Str$(com))), &HC0000000, 0, 0&, &H3, 0, 0)



ComNum  возврашщает -1 при  com>9 
 smile 
 ой, туплю, все .. smile  топик выше прочитал ))

Это сообщение отредактировал(а) ZeroNull - 25.3.2017, 13:43
PM MAIL   Вверх
Guest45
Дата 21.5.2017, 18:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 24.5.2009

Репутация: нет
Всего: нет



После того, как порт закрыт,  число, хранимое в ComNum теряет всякую ценность.
Хочешь его обнуляй, хочешь не обнуляй, это ни на что уже не влияет.
smile

Добавлено через 5 минут и 13 секунд
Цитата(ZeroNull @ 25.3.2017,  13:37)
 ComNum  возвращает -1 при  com>9 
 Там где-то в середине разбиралось. Когда номер порта двузначный, Микрософт предлагает использовать написание его имени со слэшами.

Добавлено через 13 минут и 45 секунд
А про начальный вопрос темы все как-то и забыли.
Ведь автор хотел организовать событие по приходу данных?
(без контрола)

PM MAIL   Вверх
Google
  Дата 20.8.2019, 18:56 (ссылка)  





  Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0765 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.