Problemas al capturar un puerto

No entiendo muy bien el problema, supongo que necesitas leer del puerto
serie usando el objeto MScomm y no sabes como detectar el fin del registro,
si es asi a ver si este codigo te sirve

dim chr10 as boolean
dim chr13 as boolean
dim gDatoRecibido as string

' *** Analizo la informacion que entro ***
Do While (MSComm.InBufferCount > 0) And (chr10 = False) And
(chr13 = False)

' *** Leo Un byte y Analizo
ASCentrada = Asc(MSComm.Input)

Select Case ASCentrada
Case 10
chr10=true
Case 13
chr13=true
Case Else
gDatoRecibido = gDatoRecibido +
Chr$(ASCentrada)
End Select
Loop

Un saludo, Víctor Koch.


"ELLA-LARAÑA" escribió en el mensaje
news:

Buenas a to2
Tengo un problema que no soy capaz de solucionar..
Estoy haciendo una apli. que se conecta con un "cacharro" por el puerto
com... la comunicación es relativamente sencilla... tiene una serie de
comandos y todas las cadenas (tanto input como output) terminan con unos
caracteres en concreto (Chr(13) & Chr(10)).. el problema es que no consigo
"meter" en una variable la cadena de respuesta he probado con el

buffer,

con el CommEvent, con paradas etc... pero naaa que no hay forma...
¿Algun alma caritativa que tenga experiencia con esto y me pueda

orientar??

(lo mejor un ejemplillo XD)

Gracias a to2 de antemano

Gracias, lo intento (es que ahora no tengo el "cacharro" en cuestion) y te
digo algo..
Zankiu ;)



"Victor Koch" escribió en el mensaje
news:OaVY$

No entiendo muy bien el problema, supongo que necesitas leer del puerto
serie usando el objeto MScomm y no sabes como detectar el fin del

registro,

si es asi a ver si este codigo te sirve

dim chr10 as boolean
dim chr13 as boolean
dim gDatoRecibido as string

' *** Analizo la informacion que entro ***
Do While (MSComm.InBufferCount > 0) And (chr10 = False) And
(chr13 = False)

' *** Leo Un byte y Analizo
ASCentrada = Asc(MSComm.Input)

Select Case ASCentrada
Case 10
chr10=true
Case 13
chr13=true
Case Else
gDatoRecibido = gDatoRecibido +
Chr$(ASCentrada)
End Select
Loop

Un saludo, Víctor Koch.


"ELLA-LARAÑA" escribió en el mensaje
news:
> Buenas a to2
> Tengo un problema que no soy capaz de solucionar..
> Estoy haciendo una apli. que se conecta con un "cacharro" por el puerto
> com... la comunicación es relativamente sencilla... tiene una serie de
> comandos y todas las cadenas (tanto input como output) terminan con unos
> caracteres en concreto (Chr(13) & Chr(10)).. el problema es que no

consigo

> "meter" en una variable la cadena de respuesta he probado con el
buffer,
> con el CommEvent, con paradas etc... pero naaa que no hay forma...
> ¿Algun alma caritativa que tenga experiencia con esto y me pueda
orientar??
> (lo mejor un ejemplillo XD)
>
> Gracias a to2 de antemano
>
>

nada, que se me "escapa" la respuesta del aparato... lo explico de nuevo mas
arriba, para refrescarlo...



"Victor Koch" escribió en el mensaje
news:%

Tenes razón, tendría que haber escrito:

"supongo que necesitas leer los datos del "cacharro" conectado al puerto
serial ..
jeje.

Un saludo, Víctor Koch.


"ELLA-LARAÑA" escribió en el mensaje
news:O#
> Gracias, lo intento (es que ahora no tengo el "cacharro" en cuestion) y

te

> digo algo..
> Zankiu ;)
>
>
>
> "Victor Koch" escribió en el mensaje
> news:OaVY$
> > No entiendo muy bien el problema, supongo que necesitas leer del

puerto

> > serie usando el objeto MScomm y no sabes como detectar el fin del
> registro,
> > si es asi a ver si este codigo te sirve
> >
> > dim chr10 as boolean
> > dim chr13 as boolean
> > dim gDatoRecibido as string
> >
> > ' *** Analizo la informacion que entro ***
> > Do While (MSComm.InBufferCount > 0) And (chr10 = False) And
> > (chr13 = False)
> >
> > ' *** Leo Un byte y Analizo
> > ASCentrada = Asc(MSComm.Input)
> >
> > Select Case ASCentrada
> > Case 10
> > chr10=true
> > Case 13
> > chr13=true
> > Case Else
> > gDatoRecibido = gDatoRecibido +
> > Chr$(ASCentrada)
> > End Select
> > Loop
> >
> > Un saludo, Víctor Koch.
> >
> >
> > "ELLA-LARAÑA" escribió en el mensaje
> > news:
> > > Buenas a to2
> > > Tengo un problema que no soy capaz de solucionar..
> > > Estoy haciendo una apli. que se conecta con un "cacharro" por el
puerto
> > > com... la comunicación es relativamente sencilla... tiene una serie

de

> > > comandos y todas las cadenas (tanto input como output) terminan con
unos
> > > caracteres en concreto (Chr(13) & Chr(10)).. el problema es que no
> consigo
> > > "meter" en una variable la cadena de respuesta he probado con el
> > buffer,
> > > con el CommEvent, con paradas etc... pero naaa que no hay forma...
> > > ¿Algun alma caritativa que tenga experiencia con esto y me pueda
> > orientar??
> > > (lo mejor un ejemplillo XD)
> > >
> > > Gracias a to2 de antemano
> > >
> > >
> >
> >
>
>