Principales Mandatos Para Utilizar El Puerto Serie, Del Espacio System.Io.Ports

Estos son los mandatos e instrucciones mas frecuentes para utilizar el puerto serie:



Private Sub EjemploDeLasPrincipalesInstruccionesDeSystem.IO.Port()

Dim Contador As IntegerSerie = My.Computer.Ports.OpenSerialPort("COM1") 'Llamar al constructor

'

'Definir las caracteristicas de la comunicacion

Serie.BaudRate = 19200'Fijar velocidad de comunicaciones

Serie.DataBits = 8 'Longitud en bits para Byte de datos

Serie.Parity = Parity.Even 'Asignarparidad(enumeracion parity)

Serie.StopBits = StopBits.Two 'Bits parada despues byte de datos

'

'Abrir/Control/Liberar Puerto

Serie.Open() 'Abrirel puerto Serie

Serie.Close() 'Cerrar el Puerto Serie

Serie.Dispose() 'Liberar objecto

Dim SiNo As Integer

SiNo =Serie.IsOpen 'El Puerto esta abierto?

Dim Puerto As String

Puerto = Serie.PortName 'Nombre del puerto

'

'Manejo y Control deseñales

Dim Estado As Boolean 'True=Activa / False=Inactiva

Estado = Serie.CDHolding 'Estado de la señal carrier detect

Estado = Serie.CtsHolding'Señal Clear to Send

Estado = Serie.DsrHolding 'Señal Data Set Ready

Serie.DtrEnable = True 'Activar de Data Terminal ReadySerie.RtsEnable = True 'Activar Request To Send

'

'Control Transmission/Recepcion

Serie.ReadBufferSize = 1024 'Dimensionar tamaño buffer recepcionSerie.WriteBufferSize = 1024 'Dimensionar tamaño buffer envio

Serie.ReadTimeout = 10 'Fuera de tiempo para las lecturas

Serie.WriteTimeout = 10...