Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и модем / 2 сообщений из 2, страница 1 из 1
20.02.2004, 22:08:54
    #32417557
Георгий2
Георгий2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и модем
Я в общем то новичок в VB, никогда не имел дела с модемом и телефонными линиями, помогите кто может. Задача такова – мой домашний комп через модем соединен с телефонной линией, я звоню к себе домой на телефонный номер ХХХ-ХХ-ХХ . После скажем третьего гудка трубка поднимается и я набираю какую нибудь цифру (от 0 до 9). Программа определяет какая цифра набрана и для проверки правильности выдает в линию запись некоторого голосового сообщения типа «повтори,с#@а» в ответ я еще раз набираю цифру и в случае совпадения обеих цифр в зависимости от набранной цифры программа предпринимает какие то дальнейшие действия. Обязательно нужно чтоб я мог звонить и с тонального телефона и с пульсового, то есть чтоб программа расшифровывала оба типа сигналов.
Всем спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2004, 11:32:51
    #32417667
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и модем
Посмотри 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и модем / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 414ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2170039]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 168ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 19ms
get tp. blocked users:
 1ms
others: 202ms
total:  414ms
x
x
Закрыть


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