Sdílet prostřednictvím

Postupy: Vytáčení modemů připojených k sériovým portům v jazyce Visual Basic

  • Článek

Toto téma popisuje, jak pomocí My.Computer.Ports vytočit modem v jazyce Visual Basic.

Modem je obvykle připojený k jednomu ze sériových portů v počítači. Aby vaše aplikace komunikuje s modemem, musí odesílat příkazy na příslušný sériový port.

Vytáčení modemu

  1. Určete, ke kterému sériovému portu je modem připojen. Tento příklad předpokládá, že modem je na com1.

  2. Použijte metodu My.Computer.Ports.OpenSerialPort k získání odkazu na port. Další informace najdete na webu OpenSerialPort.

    Blok Using umožňuje aplikaci zavřít sériový port, i když vygeneruje výjimku. Veškerý kód, který manipuluje se sériovým portem, by se měl objevit v rámci tohoto bloku nebo v Try...Catch...Finally bloku.

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

  3. DtrEnable Nastavte vlastnost, která označuje, že počítač je připraven přijmout příchozí přenos z modemu.

    com1.DtrEnable = True

  4. Pomocí metody odešlete vytáčecí příkaz a telefonní číslo modemu přes sériový port Write .

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

Příklad

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

Tento příklad kódu je také k dispozici jako fragment kódu IntelliSense. V nástroji pro výběr fragmentu kódu se nachází v Připojení ivitě a sítích. Další informace najdete v tématu Fragmenty kódu.

Probíhá kompilace kódu

Tento příklad vyžaduje odkaz na System obor názvů.

Robustní programování

Tento příklad předpokládá, že modem je připojený k modelu COM1. Doporučujeme, aby váš kód uživateli umožnil vybrat požadovaný sériový port ze seznamu dostupných portů. Další informace naleznete v tématu Postupy: Zobrazení dostupných sériových portů.

Tento příklad používá Using blok, aby se zajistilo, že aplikace port zavře, i když vyvolá výjimku. Další informace naleznete v tématu Using – příkaz.

V tomto příkladu aplikace po vytočení modemu odpojí sériový port. Realisticky budete chtít přenášet data do a z modemu. Další informace naleznete v tématu Postupy: Příjem řetězců ze sériových portů.

Viz také