puerto pAralelo

Declaración del puerto serial en VB .Net, Visual C#, Matlab y comandos asociados.

Visual Basic .Net

‘Declaración del Puerto 
Public WithEvents SP as New IO.Ports.SerialPort

‘Parámetros delPuerto
Control.CheckForIllegalCrossThreadCalls = False
SP.BaudRate = 300 'Velocidad = 300bps
SP.PortName = "COM1" 'Nombre del Puerto
SP.Parity = IO.Ports.Parity.None 'Paridad = ningunaSP.StopBits = IO.Ports.StopBits.One 'Bit de parada = 1
SP.Handshake = IO.Ports.Handshake.None 'Habilita en pin RTS
SP.DataBits = 8 'Bits de datos= 8
SP.NewLine = "$"'caracter terminadorSP.ReceivedBytesThreshold = 3 'Umbral de recepción en 3
SP.Encoding = System.Text.Encoding.GetEncoding(1252) 'Codificación occidental
Try
SP.Open() 'Se adueña del puerto
Catch ex As Exception
MsgBox("Error en elPuerto. " & ex.Message) 'Muestra el error
End Try

'Recepción del mensaje: Rutina que se activa al recibir 3 bytes por el puerto
Private Sub recepcion(ByVal sender As System.Object, ByVal e AsSystem.IO.Ports.SerialDataReceivedEventArgs) Handles SP.DataReceived
Dim Ndata, Dato, k, Mensj
Mensj = ""
Ndata = SP.BytesToRead 'Obtiene el número de bytes de datos en el búfer de recepción
For k = 0To Ndata - 1
Dato = SP.ReadChar 'Lee sincrónicamente un carácter en el búfer de entrada
Mensj = Mensj + Chr(Dato)
Next
Label8.Text = Mensj
End Sub




Visual C#


‘Declaración del PuertoSystem.IO.Ports.SerialPort SP = New system.IO.Port.SerialPort();


‘Configuración de los Parámetros del Puerto
SP.PortName = "COM2"; //Nombre del puerto
SP.Parity = System.IO.Ports.Parity.None;//Paridad Par (.even), impar (.odd), ninguna (.none)
SP.BaudRate = 300; //Velocidad de trasmisión (300bps)
SP.StopBits = System.IO.Ports.StopBits.One; //Bit de parada (1)
SP.DataBits = 8; //Númerode bits de datos (8)
SP.ReceivedBytesThreshold = 3; //Umbral de datos recibidos
SP.NewLine = "$"; //Caracter terminador
SP.DiscardInBuffer(); //Descarta los datos del búfer de recepción del...