LO ULTIMO
Publicado por HUGO (207 intervenciones) el 13/04/2010 00:49:41
Amigos de la web les pido la ultima ayuda con este codigo:
Es referente al comando MSCOMM32.OCX
este es el codigo de la linea:
thisform.peso = thisform.peso + thisform.oComm.input
esta instruccion al interrumpirla da como resultado el peso que manda la basucla (thisform.oComm.input) , si yo coloco el puntero del mouse me da el PESO de la bascula porque no se acumula en la variable que se le asigno :
thisform.peso
este ees el codigo completo del MSCOMM32.OCX y programo en VISUAL FOX V-7
ThisForm.OComm.commPort= 3
thisform.oComm.Settings= "9600,n,8,1"
thisform.Ocomm.InputLen= 7
thisform.oComm.Portopen= .t.
thisform.oComm.Output= CHR(80)
for i=1 to 350
** ESTA INSTRUCCION NO GRABA EL PESO DE LA BASCULA AUN TENIEDO LA INFORMACION)--
thisform.peso = thisform.peso + thisform.oComm.input
endfor
ThisForm.Txt1Peso.Refresh
LO ULTIMO PORFAVOR AYUDA
GRACIAS
Es referente al comando MSCOMM32.OCX
este es el codigo de la linea:
thisform.peso = thisform.peso + thisform.oComm.input
esta instruccion al interrumpirla da como resultado el peso que manda la basucla (thisform.oComm.input) , si yo coloco el puntero del mouse me da el PESO de la bascula porque no se acumula en la variable que se le asigno :
thisform.peso
este ees el codigo completo del MSCOMM32.OCX y programo en VISUAL FOX V-7
ThisForm.OComm.commPort= 3
thisform.oComm.Settings= "9600,n,8,1"
thisform.Ocomm.InputLen= 7
thisform.oComm.Portopen= .t.
thisform.oComm.Output= CHR(80)
for i=1 to 350
** ESTA INSTRUCCION NO GRABA EL PESO DE LA BASCULA AUN TENIEDO LA INFORMACION)--
thisform.peso = thisform.peso + thisform.oComm.input
endfor
ThisForm.Txt1Peso.Refresh
LO ULTIMO PORFAVOR AYUDA
GRACIAS
Valora esta pregunta


0