Postupy: Jak vytáčet modemy připojené k sériovým portům v jazyce Visual Basic

Článek
08/11/2011

Toto téma popisuje způsob použití My.Computer.Ports k vytáčení modemu v Visual Basic.

Obvykle je modem připojen k jednomu ze sériových portů v počítači. Pokud chce vaše aplikace komunikovat s modem, musí zasílat příkazy na vhodný sériový port.

Vytáčet modemem

Určete na který sériový port je modem připojen. Tento příklad předpokládá, že je modem na portu COM1.
Použijte metodu My.Computer.Ports.OpenSerialPort chcete-li získat odkaz na port. Další informace naleznete v tématu OpenSerialPort.

Blok Using povolí aplikaci uzavření sériového portu i v případě, že vygeneruje výjimka. Všechen kód, který manipuluje s sériovými port, by se měl nacházet v rámci tohoto bloku nebo v rámci bloku Try...Catch...Finally.
```
Using com1 As IO.Ports.SerialPort = 
        My.Computer.Ports.OpenSerialPort("COM1", 9600)
End Using
```
Nastavte vlastnost DtrEnable k označení, že je počítač připraven k přijetí příchozího přenosu z modemu.
```
com1.DtrEnable = True
```
Odešlete příkaz vytáčet a telefonní číslo do modemu pomocí sériových port s použitím metody 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é dostupný jako IntelliSense fragment kódu. V dialogu pro výběr fragment kódu je umístěn v Možnosti připojení a sítě. Další informace naleznete v tématu How to: Insert IntelliSense Code Snippets.

Probíhá kompilace kódu

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

Robustní programování

Tento příklad předpokládá, že je modem připojen k portu COM1. Doporučujeme, aby váš kód umožnil uživateli výběr požadovaného sériového portu z seznamu portů, které jsou k dispozici. Další informace naleznete v tématu Postupy: Jak zobrazit dostupně sériové porty v jazyce Visual Basic.

V tomto příkladu je použit blok Using k zajištění toho, že aplikace zavře port i v případě, že nastane výjimka. Další informace naleznete v tématu Using Statement (Visual Basic).

V tomto příkladu aplikace odpojí sériový port po vytočení modemu. V reálně případě můžete chtít přenést data do a z modemu. Další informace naleznete v tématu Postupy: Jak načíst řetězce ze sériových portů v jazyce Visual Basic.