Visual Basic - Conversor USB a RS-232

Hola todos,

Tengo un instrumento conectado a una placa basic stamp bs2px24 la cual sólo tiene puerto serial de comunicación. Mi lap-top sólo tiene puertos USB, por lo que compre un conversor USB a RS-232 Prolific PL-2303 Hx para hacer la adquisición de datos que envia la placa.

La hiperterminal que trae el editor de códigos de la placa para adquirir los datos y funciona bien.

Con vb6 hago la conexión por medio del control MSCOMM pero no pasa nada de nada. Reconoce que hay algo en el puerto pero nada más. No hay adquisición de datos.

Alguna sugerencia.

gracias.

P.D.: Aquí val código

Private Sub Form_Load()




com1.CommPort = 2 ' comm port no.

com1.Settings = "1200,e,7,2"

com1.RThreshold = 24 'no. of chr to recive

com1.InputLen = 0 ' no. of chr on which oncomm event fires



com1.PortOpen = True 'open comm port


End Sub




Public Sub Com1_OnComm()

Dim txtBuf

Dim i As Integer

Dim c As Integer

Dim buffer

Dim stable

Dim EVMsg$

Dim ERMsg$

buffer = ""

txtweight.Text = ""

With com1



Select Case .CommEvent

Case comEvReceive

buffer = .Input

For i = 1 To Len(txtBuf)

c = Asc(Mid$(txtBuf, i, 1))

If (c < 32 Or c > 126) Then

txtweight = txtweight & "" & Hex(c) & ""

Else

txtweight = txtweight & Chr(c)

End If



Next i

'***************************************************************



' Error messages.

Case comBreak

ERMsg$ = "Break Received"



Case comFrame

ERMsg$ = "Framing Error"

Case comOverrun

ERMsg$ = "Overrun Error"

Case comRxOver

ERMsg$ = "Receive Buffer Overflow"

Case comRxParity

ERMsg$ = "Parity Error"



Case Else

ERMsg$ = "Unknown error or event"

'***************************************************************

End Select

End Width

End Sub