Visual Basic - Utilizar los puertos para leer datos

Quisiera saber como puedo hacer para leer y escribir datos, desde y hacia un puerto serie o paralelo.

Disculpa no te puedo colaborar con eso, pero si es muy importante saber si alguna persona te ha colaborado con eso para que por favor me ayudes a contactarla...

Te agradece Ricardo...

Select Case MSComm1.CommEvent
´ Handle each event or error by placing
´ code below each case statement

´ Errors
Case comEventBreak ´ A Break was received.
´ Label4.Caption = "eventBreak"
Case comEventCDTO ´ CD (RLSD) Timeout.
´ Label4.Caption = "CDTO"
Case comEventCTSTO ´ CTS Timeout.
´ Label4.Caption = "eventCTSTO"
Case comEventDSRTO ´ DSR Timeout.
´ Label4.Caption = "eventDSRTO"
Case comEventFrame ´ Framing Error
´ Label4.Caption = "eventFrame"
Case comEventOverrun ´ Data Lost.
´ Label4.Caption = "eventOverru"
Case comEventRxOver ´ Receive buffer overflow.
´ Label4.Caption = "eventRXOver"
Case comEventRxParity ´ Parity Error.
´ Label4.Caption = "eventRxParyty"
Case comEventTxFull ´ Transmit buffer full.
´ Label4.Caption = Label4.Caption & "eventTxFull"
Case comEventDCB ´ Unexpected error retrieving DCB]
´ Label4.Caption = "eventDCB"
´ Events
Case comEvCD ´ Change in the CD line.
´ Label4.Caption = "eventCD"
Case comEvCTS ´ Change in the CTS line.
´ Label4.Caption = "eventCTS"
Case comEvDSR ´ Change in the DSR line.
Exit Sub
´ Label4.Caption = "eventDSR"
Case comEvRing ´ Change in the Ring Indicator.
´ Label4.Caption = "eventRing"
Case comEvReceive ´ Received

Lo malo de este foro tan corto.
´ Lo anterior y la sig. linea van el el evento OnCOmm
CodigoLeido = MSComm1.Input
´ESTA instruccion es la que lle la informacion que llega, pero aguas porque una vez que la lees se vacia por ello debes asignarlo a una variable.
Propiedades que debes asignarle al control:
With MSComm1
.CommPort = 1 ´ Establece el Puerto Serial
.Settings = "9600,n,8,1" ´ Baud 9600, Sin Paridad, 8 Bits Datos, 1 Parada
.ParityReplace = "" ´ Elimina el Caracter de Remplazo de la Paridad
.RThreshold = 25 ´ Cada cuantos caracteres recibidos en el Buffers se activara el suceso
´.PortOpen = True ´ Abre el Puerto Serial
End With
Yo lo trabaje con la lectura de unos transponders y una antena de radiofrecuencia conectado al puerto serie y funciono bien.
Saludos

Puedes utilizar la libreria InpOut32.dll, esta es una libreria gratuita la cual te permite manipular los puertos de entrada y salida, como si los estuvieras manejando desde Basic para MS-DOS (te agrega los comandos Inp y Out respectivamente). Si te interesa escribeme y te la mando por e-mail.

Hola Cesar a mi me interesa mucho,estoy intentando leer unos datos de temperatura por el puerto serie,hasta ahora lo controlaba con un programa en basic DOS.Si pudieras mandarme um e-mail.gracias de antemano.