MSCOMM, URGENTE gracias de antemano
Publicado por Bea (1 intervención) el 21/09/2006 17:06:20
Hola a todos resulta que tengo una balanza de la que deseo recibir los datos para guardarlos en una base de datos, mi problema es:
tengo este Codigo
1. If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
tempo = Timer
2. Do
buffer = MSComm1.Input
Loop Until (tempo + 0.5) < Timer
MSComm1.PortOpen = False
y lo que pasa es que si no interfiere el usuario entre los pasos 1 y 2 no realiza ninguna lectura del puerto es decir, si entre 1 y 2 pongo por ejemplo un msgbox o si realizo una traza de la ejecución, lo hace todo perfectamente, pero si lo dejo a su aire, ahi ya al señor pues no le apetece hacer nada.
POR FAVOR ME PUEDEN AYUDAR
ESTOY TOTALMENTE DESESPERADA
GRACIAS
tengo este Codigo
1. If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
tempo = Timer
2. Do
buffer = MSComm1.Input
Loop Until (tempo + 0.5) < Timer
MSComm1.PortOpen = False
y lo que pasa es que si no interfiere el usuario entre los pasos 1 y 2 no realiza ninguna lectura del puerto es decir, si entre 1 y 2 pongo por ejemplo un msgbox o si realizo una traza de la ejecución, lo hace todo perfectamente, pero si lo dejo a su aire, ahi ya al señor pues no le apetece hacer nada.
POR FAVOR ME PUEDEN AYUDAR
ESTOY TOTALMENTE DESESPERADA
GRACIAS
Valora esta pregunta
0