Sdílet prostřednictvím

Postupy: Odesílání řetězců na sériové porty v jazyce Visual Basic

  • Článek

Toto téma popisuje, jak odesílat My.Computer.Ports řetězce na sériové porty počítače v jazyce Visual Basic.

Příklad

Tento příklad odešle řetězec sériovému portu COM1. Možná budete muset v počítači použít jiný sériový port.

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 zobrazit v rámci tohoto bloku nebo v Try...Catch...Finally bloku.

Metoda WriteLine odešle data do sériového portu.

Sub SendSerialData(ByVal data As String)
    ' Send strings to a serial port.
    Using com1 As IO.Ports.SerialPort =
            My.Computer.Ports.OpenSerialPort("COM1")
        com1.WriteLine(data)
    End Using
End Sub

Probíhá kompilace kódu

  • Tento příklad předpokládá, že počítač používá COM1.

Robustní programování

Tento příklad předpokládá, že počítač používá COM1; pro větší flexibilitu by měl kód umožnit uživateli 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.

Viz také