


Baud-Rate = 19200 Baud
Anzahl Daten-Bits = 8
Parity = No parity
Anzahl Stopp-Bits = 1
FlowControl: Hardware flow control


QUELLTEXT:

' Gambas class file

Public hRS232 As SerialPort

Public Sub Form_Open()

  FMain.Resizable = False

  hRS232 = New SerialPort 'As "hRS232"

  ShowRS232TransmissionParameters()

End

Private Sub ShowRS232TransmissionParameters()

  Print "Speed = "; hRS232.Speed; " Baud"
  Print "Anzahl Daten-Bits = "; hRS232.DataBits
  Select Case hRS232.Parity
    Case 0
      Print "Parity = No parity"
    Case 1
      Print "Parity = Even parity"
    Case 2
      Print "Parity = Odd parity"
  End Select
  Print "Anzahl Stopp-Bits = "; hRS232.StopBits
  Select Case hRS232.FlowControl
    Case 0
      Print "FlowControl: No flow control"
      Case 1
        Print "FlowControl: Hardware flow control"
      Case 2
        Print "FlowControl: Software flow control"
      Case 3
        Print "FlowControl: Hardware and software control"
  End Select

End

