Поделиться через

Практическое руководство. Подключение модемов к последовательным портам в Visual Basic

В этом разделе описывается, как использовать My.Computer.Ports для набора модема в Visual Basic.

Как правило, модем подключен к одному из последовательных портов на компьютере. Для взаимодействия приложения с модемом он должен отправлять команды в соответствующий последовательный порт.

Для набора модема

  1. Определите последовательный порт, к которому подключен модем. В этом примере предполагается, что модем находится на COM1.

  2. My.Computer.Ports.OpenSerialPort Используйте метод для получения ссылки на порт. Дополнительные сведения см. в разделе OpenSerialPort.

    Блок Using позволяет приложению закрыть последовательный порт, даже если он создает исключение. Весь код, который управляет последовательным портом, должен отображаться в этом блоке или в блоке Try...Catch...Finally .

    Using com1 As IO.Ports.SerialPort =
        My.Computer.Ports.OpenSerialPort("COM1", 9600)
End Using

  3. DtrEnable Задайте свойство, чтобы указать, что компьютер готов принять входящие передачи из модема.

    com1.DtrEnable = True

  4. Отправьте команду набора и номер телефона модему через последовательный порт с помощью Write метода.

    com1.Write("ATDT 555-0100" & vbCrLf)

Пример

Sub DialModem()
    ' Dial a number via an attached modem on COM1.
    Using com1 As IO.Ports.SerialPort =
            My.Computer.Ports.OpenSerialPort("COM1", 9600)
        com1.DtrEnable = True
        com1.Write("ATDT 555-0100" & vbCrLf)
        ' Insert code to transfer data to and from the modem.
    End Using
End Sub

Этот пример кода также доступен в виде фрагмента кода IntelliSense. В элементе выбора фрагмента кода он находится в разделе "Подключение" и "Сеть". Дополнительные сведения см. в фрагментах кода .

Компиляция кода

В этом примере требуется ссылка на System пространство имен.

Надежное программирование

В этом примере предполагается, что модем подключен к COM1. Рекомендуется разрешить пользователю выбрать нужный последовательный порт из списка доступных портов. Дополнительные сведения см. в разделе "Практическое руководство. Показать доступные последовательные порты".

В этом примере используется Using блок, чтобы убедиться, что приложение закрывает порт, даже если происходит выбрасывание исключения. Дополнительные сведения см. в разделе Оператор using.

В этом примере приложение отключает последовательный порт после вызова модема. Фактически вы захотите передавать данные в модем и из него. Дополнительные сведения см. в разделе "Практическое руководство. Получение строк из последовательных портов".

См. также