Для начала нам нужно создать новый проект. Добавляем компонент “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 - импульсный набор номера




Это сообщение отредактировал(а) Programmer - 27.2.2004, 15:13

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

Цитата

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

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

Это сообщение отредактировал(а) U-Boot - 6.3.2004, 14:05