ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и модем
2 сообщений из 2, страница 1 из 1
VB и модем
    #32417557
Георгий2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Георгий2
Гость
Я в общем то новичок в VB, никогда не имел дела с модемом и телефонными линиями, помогите кто может. Задача такова – мой домашний комп через модем соединен с телефонной линией, я звоню к себе домой на телефонный номер ХХХ-ХХ-ХХ . После скажем третьего гудка трубка поднимается и я набираю какую нибудь цифру (от 0 до 9). Программа определяет какая цифра набрана и для проверки правильности выдает в линию запись некоторого голосового сообщения типа «повтори,с#@а» в ответ я еще раз набираю цифру и в случае совпадения обеих цифр в зависимости от набранной цифры программа предпринимает какие то дальнейшие действия. Обязательно нужно чтоб я мог звонить и с тонального телефона и с пульсового, то есть чтоб программа расшифровывала оба типа сигналов.
Всем спасибо
...
Рейтинг: 0 / 0
20.02.2004, 22:08
| Ответить | Цитировать | Написать  
VB и модем
    #32417667
Фотография Green2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Green2Привилегированный пользователь
Участник
Посмотри AT команды своего модема. Это уже не Visual Basic.

Для связи с модемом в примерах к MSDN есть программа на VB,

базовый пример

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub Form_Load ()
   ' Buffer to hold input string
   Dim Instring As String
   ' Use COM1.
   MSComm1.CommPort =  1 
   ' 9600 baud, no parity, 8 data, and 1 stop bit.
   MSComm1.Settings = "9600,N,8,1"
   ' Tell the control to read entire buffer when Input
   ' is used.
   MSComm1.InputLen = 0
   ' Open the port.
   MSComm1.PortOpen = True
   ' Send the attention command to the modem.
   MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that 
   ' the modem responds with "OK".
   ' Wait for data to come back to the serial port.
   Do
      DoEvents
   Buffer$ = Buffer$ & MSComm1.Input
   Loop Until InStr(Buffer$,  "OK"  & vbCRLF)
   ' Read the "OK" response data in the serial port.
   ' Close the serial port.
   MSComm1.PortOpen = False
End Sub


В общем, это тяжелое дело.
...
Рейтинг: 0 / 0
21.02.2004, 11:32
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и модем
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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