ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обратиться к модему?
25 сообщений из 132, страница 5 из 6
  5  все
Как обратиться к модему?
    #37529452
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
если какая-либо программа уже открыла ком-порт и работает с ним, то MSCOMM выдаст именно вашу ошибку при попытке его открытия
...
Рейтинг: 0 / 0
16.11.2011, 15:30
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37529558
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One
Konst_Oneчто значит?
Ципихович Эндрюа как же то, что я опрашиваю com2 вручную с Панели управления и получаю ответ - Успешно

значит, следующее Пуск Панель Управления Телефон и модемы Модемы
Выбрал из списка модем который сидит на com2, диагностика, опросить Опрашиваю, получаю ответ Успешно

Konst_Oneесли какая-либо программа уже открыла ком-порт и работает с ним, то MSCOMM выдаст именно вашу ошибку при попытке его открытия
так может изначально его сначала закрыть
????
...
Рейтинг: 0 / 0
16.11.2011, 16:02
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37529834
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
если открыт порт другой программой, то mSCOMM этот порт закрыть не может, это надо делать именно в той программе, которая порт и открыла.
...
Рейтинг: 0 / 0
16.11.2011, 17:37
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37529890
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, ок, верится с трудом, чтобы я перезагрузил комп и враз уже прога какая-то начала его использовать, тогда я ставлю проверку, в коде
If MSComm1.PortOpen = True Then MsgBox$ "MSComm1.PortOpen = True"
и завтра Вам говорю результат, будет о чём поговорить, ОК? или может надо ещё что-то предпринять, чтобы все точки над И расставить??

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
 Dim MSComm1 As MSComm
    Set MSComm1 = New MSComm

    Dim q As Byte
    Dim Количество_портов As Byte
    Dim MSComm1CTSHolding As Boolean

    For q =  1  To  254 
        'номер COM порта
        MSComm1.CommPort = q
        If MSComm1.PortOpen = True Then MsgBox$ "MSComm1.PortOpen = True"
        'открыть порт
        MSComm1.PortOpen = True 'когда q = 2, ошибка 8002
        '1й Beep
        If MSComm1.PortOpen = True Then Beep
        'устанавливаем\опрашиваем 0 или 1 присутствует на выводе CTS, состояние False или True
        MSComm1CTSHolding = MSComm1.CTSHolding
        '2й Beep
        If MSComm1CTSHolding = True Then Количество_портов = Количество_портов +  1 
        
         'закрыть порт
        MSComm1.PortOpen = False

    Next q

    MsgBox$ _
            "Количество портов" & Chr( 13 ) & _
                                Количество_портов
...
Рейтинг: 0 / 0
16.11.2011, 17:54
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37530047
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_Oneесли какая-либо программа уже открыла ком-порт и работает с ним, то MSCOMM выдаст именно вашу ошибку при попытке его открытия
1то есть ошибку 8002?
2интересено откуда Вы это знаете, есть топик http://www.sql.ru/forum/actualthread.aspx?tid=894848, микрософтовцы пока не ответили, в этом топике не подскажете?
...
Рейтинг: 0 / 0
16.11.2011, 18:58
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37531973
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
как я и говорил когда q = 2
на строке MSComm1.PortOpen = True 'ошибка 8002
но перед этим я не получил сообщения MSComm1.PortOpen = True, вот код:

Код: plaintext
1.
2.
  If MSComm1.PortOpen = True Then MsgBox$ "MSComm1.PortOpen = True"
        'открыть порт
        MSComm1.PortOpen = True 'когда q =  2 , ошибка  8002
1Значит он закрыт!!??, а ошибку при его открытии получаю!!??
2Что это значит?
3Что предпринимать дальше??
...
Рейтинг: 0 / 0
17.11.2011, 17:07
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37532017
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
http://www.vb-helper.com/howto_dialer.html
...
Рейтинг: 0 / 0
17.11.2011, 17:33
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37532024
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
http://support.microsoft.com/kb/194922

на русском
...
Рейтинг: 0 / 0
17.11.2011, 17:35
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37532065
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, спасибо!!!!!!!, буду проверять завтра на работе
...
Рейтинг: 0 / 0
17.11.2011, 17:57
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37533806
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One,

ОК, смотрю код первый на странице ИНФОРМАЦИЯ: Получение данных с помощью события OnComm элемента управления MSComm, что вижу, каков функционал?
показать форму с надписью … - Form1.Caption = "App1" – вещь!
с надписью кнопки Command1 - "&Send" – вещь!
с текстом в текстбоксе Text1 текста "Test string from App1 " – вещь!
При нажатии на кнопку Command1 показать то, что в текстбоксе Text1 – вещь!
Хоть занажимайся на эту кнопку, всё предрешено, какое здесь отношение имеет MSComm кроме того, что есть о нём упоминания?? или я что-то не допонял??

смотрю код второй на этой же странице
на строке .PortOpen = True также получаю ошибку 8002 – Invalid PortNumber
Что предпринимать дальше???
Напомню мою основную цель на этом этапе
Так как у меня в системе, например два com порта
получить сообщение следующего содержания
У Вас, ЦЭ на компьютере имеются модемы:
1. Samsung 6712
2. SoftV 92 Data FaxModem

После того как я отсоединю сотовый телефон Samsung 6712, естественно это сообщение уже должно быть на один пункт меньше
Как этого добиться?????
...
Рейтинг: 0 / 0
18.11.2011, 16:11
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37533852
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Ципихович ЭндрюПосле того как я отсоединю сотовый телефон Samsung 6712, естественно это сообщение уже должно быть на один пункт меньше


вот это видимо вы делаете неправильно. (я так понимаю, что этот модем у вас на COM2 висит?)
...
Рейтинг: 0 / 0
18.11.2011, 16:29
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37533862
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, нет он висит на com4
а при чём тут это? это прога должна всё сама определить и мне рассазать, вдруг забуду :)
...
Рейтинг: 0 / 0
18.11.2011, 16:33
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37533871
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
mscomm не предназначен для мониторинга устройств на портах. об этом надо заботиться на другом уровне автоматизации, смотрите примеры по WMI
...
Рейтинг: 0 / 0
18.11.2011, 16:35
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37533901
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, понял, в гугле что забивать в поиск
мониторинг устройств на портах WMI, так?
...
Рейтинг: 0 / 0
18.11.2011, 16:44
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537545
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, на основе Вашего кода сделал себе проверку на завтра

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
    Dim MSComm1 As MSComm
    Set MSComm1 = New MSComm
    MSComm1.CommPort =  3 

    MsgBox$ MSComm1.CommEvent

    Select Case MSComm1.CommEvent

    Case comEventBreak
        Messeges = "1"
    Case comEventCDTO
        Messeges = "2"
    Case comEventCTSTO
        Messeges = "3"
    Case comEventDSRTO
        Messeges = "4"
    Case comEventFrame
        Messeges = "5"
    Case comEventOverrun
        Messeges = "6"
    Case comEventRxOver
        Messeges = "7"
    Case comEventRxParity
        Messeges = "8"
    Case comEventTxFull
        Messeges = "9"
    Case comEventDCB
        Messeges = "10"
    Case comEvCD
        Messeges = "11"
    Case comEvCTS
        Messeges = "12"
    Case comEvDSR
        Messeges = "13"
    Case comEvRing
        Messeges = "14"
    Case comEvReceive
        Messeges = "15"
    Case comEvSend
        Messeges = "16"
    Case comEvEOF
        Messeges = "17"
    End Select

    MsgBox$ Messeges
Скажите я правильно понимаю, что при подключенном и не подключенном телефон при снятой трубке или нет сообщения должны быть разные???
...
Рейтинг: 0 / 0
21.11.2011, 19:58
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537585
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
donpaulsЦипихович Эндрю,
если 2 симки, будет звонить с той, которая в данный момент активна
Два разных китайских телефона KT* пробовал на две симки и отклик идет только от первого модема. Второй не поддерживается. Так там даже видно без программирования что с другой карточки не поддерживается запись (диктофон)
...
Рейтинг: 0 / 0
21.11.2011, 20:42
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537591
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Андрей159, спасибо не до этого, мне пока надо это решить, потом двинусь дальше
...
Рейтинг: 0 / 0
21.11.2011, 20:50
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537629
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Ципихович Эндрю не до этого
там не так все просто как в справочнике типа прочитал и все... Нужно передать АТ команду, дождаться определенного статуса готовности или ответа. Можна делать через паузу, можно в таймере используя флаги. В основном если есть цель, занятия интересное. Например чтоб читать приходящие смс, нужно дать команду модему, который потом при приеме смс будеть давать ответ в какой ячейке сохранено сообщение. Дальше можно читать, декодировать SMS Декодирую PDU формат . Также без труда отлавливаются звонки "кто звонит". Если цель смс биллинг или что-то серёзное, тогда вперед! Если просто так - только времья убьете
...
Рейтинг: 0 / 0
21.11.2011, 21:20
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537637
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Андрей159,
ситуация, к компу подключено два телефона городской и сотовый
в Ворде и файле ХТМЛ кинуть кнопку, на ней указан номер телефона
юзер жмёт на кнопку
прога считывает сколько сейчас доступно модемов, если более одного, форма, спрашивает с какого звоним, юзер выбрал - нажал кнопку. Прога выясняет все нюансы снята ли трубка, нет ли разговора в линии и если есть проблемы выдаёт сообшение, какая именно проблема

Передавать команду? ОК, какую?
...
Рейтинг: 0 / 0
21.11.2011, 21:25
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537647
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
вот-вот. нужно научиться принимать Ответ и понимать к чему он относительно запроса. Я к тому клоню.
Потому что нет такой простой функции типа
Ответ = Запрос("Наша команда")
в том и сложность. Дерзайте
...
Рейтинг: 0 / 0
21.11.2011, 21:40
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537651
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Добавте текстовое поле, в которое Вы можете вбивать АТ команду для эксперемента и чтоб собитя возникало при нажатии кнопки 'Enter'
Код: plaintext
1.
2.
3.
4.
Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii =  13  Then
 'Посылаем на COM порт АТ команду .Send = Text1.Text
 End If
End Sub
Это позволит Вам свободно эксперементировать и разширит Ваши знания
...
Рейтинг: 0 / 0
21.11.2011, 21:46
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537660
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Андрей159, только команд этих около 100 штук, а мне надо 2-е
...
Рейтинг: 0 / 0
21.11.2011, 21:53
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37537662
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
и я не ленился перепробовал множество, сейчас не вспомню куда дел код, получил отлуп
...
Рейтинг: 0 / 0
21.11.2011, 21:54
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37538665
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
код от вчера, 19:58 - не взлетел, бог с ним, пойдём другим путём, прилагаю Файл http://files.mail.ru/BBQM0D, там указано Самсунг - Отсутствует, это можно программно узнать?? Если да то как?
...
Рейтинг: 0 / 0
22.11.2011, 14:34
| Ответить | Цитировать | Написать  
Как обратиться к модему?
    #37544569
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
пришлось написать в поддержку производителя модема, ответ получил
о подключенном последовательно телефоне к модему можно узнать: должен приходить DLE код H
Великолепно, как бы это в код перевести??
...
Рейтинг: 0 / 0
25.11.2011, 15:49
| Ответить | Цитировать | Написать  
25 сообщений из 132, страница 5 из 6
  5  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обратиться к модему?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37530047&tid=2158083]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 126ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 13ms
total:  234ms
созд. / загр.: 234ms
x
x
Закрыть


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