powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с USB модемом
18 сообщений из 18, страница 1 из 1
Работа с USB модемом
    #38084452
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго дня!

Немогу найти инфу о работе с USB портами, а именно - определить на каком порту находится модем и как посылать на него АТ команды и считывать приходящие на него смс.

Мне необходимо написать программу для работы с симочным gprs usb модемом alcatel.
Суть программы - смс автоинформатор.
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084462
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А почему USB-то? Интерфейс у всех таких модемов - на виртуальном COM-порте...
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084489
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Достаточно-ли для этого Microsoft Comm Control?
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084498
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как мне определить на каком виртуальном com порте повис модем?
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084527
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hulimontana,

Опросить все порты, или посмотреть в реестре. На форуме обсуждалось, ищите. Также читал, что MSComm не поддерживает номер порта > 16. В гугле находил неплохой класс для работы с COM портами, используя API CreateFile, WriteFile, ReadFile etc
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084544
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Определил COM порт 3.
Открываю порт:
Код: vbnet
1.
MSComm1.PortOpen = True


Посылаю команду:
Код: vbnet
1.
2.
MSComm1.Output = "ATI"
Text1.Text = MSComm1.Input



В поле Text1.Text - пустота...
Подскажите пожалуйста что я сделал не правильно?
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084554
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
HulimontanaОпределил COM порт 3.
Открываю порт:
Код: vbnet
1.
MSComm1.PortOpen = True


Посылаю команду:
Код: vbnet
1.
2.
MSComm1.Output = "ATI"
Text1.Text = MSComm1.Input



В поле Text1.Text - пустота...
Подскажите пожалуйста что я сделал не правильно?нужно проверять инпут не один раз и немедленно, а по таймеру
данные в порту появляются не сразу, это присоединенное устройство решает что и когда отдать
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084559
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добавил таймер с интервалом 500, в нем код:
Код: vbnet
1.
Text1.Text = MSComm1.Input



Результат не изменился, в текстовом поле - пусто.
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084571
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Возможна ли ситуация, что вы не заметили, как текст появился и затёрся на следующем тике таймера, когда вернулся пустой инпут?
Используйте для отладки
Код: vbnet
1.
Debug.Print Timer, MSComm1.Input

так текст не исчезнет бесследно.
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084577
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если в этом смысле все в порядке, попробуйте опросить модем из панели управления.
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084582
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Снова безрезультатно.

Из панели управления модем опрашивается нормально. Там-же в дополнительных настройках модема я повесил его на 11 COM порт. Это не могло стать причиной ошибки?
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084584
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hulimontana,

"ATI" & vbCr
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084588
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
точно, crlf же
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38084598
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Успех! Спасибо за помощь, думаю дальше не сложно.
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38085299
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hulimontana,
Дмитрий77На тебе мой древний проект от 2002г. целиком,
Отправка и получение смс сообщений через com порт.

Дерзай.
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38088970
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Правильно-ли я понял - для того чтобы отправить смс на русском языке, за место обычного текста типо - "Привет", мне нужно перевести каждый символ в другую кодировку, к примеру в юникод "041F04400438043204350442" (Так выглядит "Привет" в Unicode). Верный алгоритм?

Если так то - в какую именно кодировку нужно переводить для симочного usb модема? PDU?
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38088975
Hulimontana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подойдет-ли мне данный метод перекодировки?
http://www.edgemodem.ru/forum/viewtopic.php?p=1423&sid=14cf47d84f89cdd9375b31226733a1ea#p1423
...
Рейтинг: 0 / 0
Работа с USB модемом
    #38089096
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hulimontana,

Подойдёт
...
Рейтинг: 0 / 0
18 сообщений из 18, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с USB модемом
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]