Visual Basic - salir del ciclo

Life is soft - evento anual de software empresarial
   
Vista:

salir del ciclo

Publicado por roberto (9 intervenciones) el 03/05/2008 23:01:38
estoy haciendo un reloj a traves de tarjetas rfdi y tengo la informacion en una base deatos cuando quiero hacer una consulta se cicla el programa, como salgo del ciclo
idt = id
MSComm1.PortOpen = True
MSComm1.Output = Chr(13) + "001400" + Chr(13)
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, vbCrLf)
id = Mid(buffer$, 6, Len(buffer$) - 7)
MSComm1.PortOpen = False
If id <> "94" Then
If id <> idt Then
While dataids.Recordset.EOF = True
If dataids.Recordset.Fields("tagid") = id Then
Text1.Text = dataids.Recordset.Fields("nombre")
End If
Wend
End If
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:salir del ciclo

Publicado por Matías Freire (421 intervenciones) el 06/05/2008 18:15:44
Es que en realidad, en lugar de hacer un bucle Loop en el mismo lugar donde envías la solicitud de datos (le llamo solicitud de datos a "MSComm1.Output = Chr(13) + "001400" + Chr(13) ") , tendrías que utilizar el evento "OnComm" del control MSComm.

Dicho evento se ejecuta cada vez que llega un dato al puerto serie.

NOTA: para que este evento funcione correctamente, tendrás que poner en la propiedad "RThreshold" del control la cantidad de bytes que vas a querer recibir en cada llamada del evento OnComm.

Saludos!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar