Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Набираем номер с помощью модема => Учебник

Автор: Programmer 27.2.2004, 15:10

Для начала нам нужно создать новый проект. Добавляем компонент “Microsoft Comm control” он выглядит примерно вот так. Ставим его на форму вместе с Textbox и 2 кнопки CommandButton.
Свойства:

TEXTBOX COMMANDBUTTON_1
Name = ”TextNum” Name = ”Connect”
Caption = “Введите номер” Caption = “Набрать номер”

MsComm COMMANDBUTTON_2
Name = ” MSComm1” Name = ”HangUp”
Caption = “Положить трубку”
Приступим к самому главному.

Private Sub Connect _Click()
On Error GoTo 1
MSComm1.CommPort = 2 ‘ Сом порт модема – Допустимые значения: 1; 2;
MSComm1.Settings = "9600N81"
MSComm1.PortOpen = True
MSComm1.Output = "ATDT”+ TextNum .text + ”;" & Chr(13)
1
End Sub

Private Sub HangUp _Click()
On Error GoTo 1
MSComm1.PortOpen = False
1
End Sub

ATDT - тоновой набор номера
ATDP - импульсный набор номера

Автор: монах 2.3.2004, 15:30

Круто!!!
А по-подробней о работе с сом-портом можешь рассказать?

Автор: Mephisto 6.3.2004, 14:03

Цитата

Круто!!!
А по-подробней о работе с сом-портом можешь рассказать?

Уже была тема, смотри дальше.