Comunicacion Serial

Comunicación Serial.
Primero se añade a la forma el componente “serial Port”, con este componente se puede personalizar las propiedades de comunicación así como también el nombre del puerto y demáscaracterísticas.
El nombre del componente previamente puesto en la forma, en nuestro caso es SerialPort1, seguido por un punto y la instrucción a ejecutar.
A continuación se muestran el conjunto deinstrucciones para el “Serial Port”.
“Definir las características de comunicación”
Serial.BaudRate = 19200 Fijar velocidad de comunicación
Serie.DataBits = 8 'Longitud en bitspara Byte de datos
Serie.Parity = Parity.Even 'Asignar paridad (enumeracion parity)
Serie.StopBits = StopBits.Two 'Bits parada despues byte de datos
“Abrir/Control/Liberar PuertoSerie.Open() 'Abrir el puerto Serie
Serie.Close() 'Cerrar el Puerto Serie
Serie.Dispose() 'Liberar objeto
Dim SiNo As Integer
SiNo =Serie.IsOpen 'El Puerto esta abierto?
Dim Puerto As String
Puerto = Serie.PortName 'Nombre del puerto
“Manejo y control de señ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 Ready
Serie.RtsEnable = True 'Activar Request To Send
Control/Transmisión/Recepción
Serie.ReadBufferSize= 1024 'Dimensionar tamaño buffer recepción
Serie.WriteBufferSize = 1024 'Dimensionar tamaño buffer envió
Serie.ReadTimeout = 10 'Fuera de tiempo para las lecturasSerie.WriteTimeout = 10 'Fuera de tiempo para las escrituras
Serie.Handshake = Handshake.XOnXOff 'Tipo control para recepción/envió
Serie.DiscardInBuffer() 'Borrar el buffer...