Se puede cambiar la velocidad del puerto serie?

‘ Repondiendo a la pregunta sobre si
‘ Se puede cambiar la velocidad de Transmsion/Recepcion dinamicamente

‘..     Dim MiPuerto As New System.IO.Ports.SerialPort
‘..     MiPuerto = My.Computer.Ports.OpenSerialPort(“COM1”)

‘En este ejemplo enviamos una trama “Hola” a una velocidad diferente
‘cada vez que invoquemos el procedimiento EnviarTrama

‘Evidentemente podeis asociarlo a un combo, de manera que utilice la
‘velocidad asociada a la selección del mismo

… Sub EnviarTrama …
        Select Case MiPuerto.BaudRate
            Case 19200
                MiPuerto.BaudRate = 9600
            Case 9600
                MiPuerto.BaudRate = 4800
            Case 9600
                MiPuerto.BaudRate = 2400
            Case Else
                MiPuerto.BaudRate = 19200
        End Select
        MiPuerto.WriteLine(“Hola… enviando a :” + MiPuerto.BaudRate.ToString)

Saludos;
Pep Lluis,

Leave a Reply

Your email address will not be published. Required fields are marked *