topic-26783

Board index FiveWin para Harbour/xHarbour Leer Peso de una bascula MAGELLAN 8100

Posts: 392

Joined: Tue Jul 29, 2008 01:55 PM

Leer Peso de una bascula MAGELLAN 8100
Posted: Fri Jul 12, 2013 04:21 PM

Hola Fivewinners.

Alguien conoce el truco para leer el peso de esta bascula ?

He usado esta rutina para ver con cual codigo me regresa el peso pero no he tenido exito.

Si alguien tiene una forma de hacerlo, agradeceria mucho su ayuda.

Code (fw): Select all Collapse

STATIC FUNCTION PR1A_mandar_codigo(port)
LOCAL nChars,lok,numBytes:=0,cDatos:=space(12)
lok = .t.
FOR nChars := 65 TO 122
    IF ( numBytes := WriteComm( port, CHR(nChars) )) <= 0
       MsgAlert("Caracter No enviado ",CHR(nChars))
       lok := .f.
    ELSE
       cDatos:=space(12)
       numBytes := ReadComm( port,@cDatos)
       IF ! EMPTY(cDatos)
          MSGINFO("[" + cDatos + "]")
       ENDIF
       MsgWait("Enviando datos...","caracter envido " + CHR(nChars),2)
       lok := .t.
       //EXIT
    ENDIF
   
NEXT
IF !EMPTY(cDatos)
   MSGINFO("[" + cDatos + "]")
ENDIF
RETURN cDatos

Visite Chiapas, el paraiso de México.

EBM

Posts: 147

Joined: Tue Oct 11, 2005 08:22 PM

Re: Leer Peso de una bascula MAGELLAN 8100
Posted: Mon Jul 15, 2013 07:27 PM

Hola

Te deje el codigo que yo utilice para resolver ese problema con una bascula torrey en el post que yo puse sobre el tema, espero y te sirva de base para solucionar tu problema.

Saludos !!

LCP Eduardo Borondón Muñiz

devtuxtla

Posts: 392

Joined: Tue Jul 29, 2008 01:55 PM

Re: Leer Peso de una bascula MAGELLAN 8100
Posted: Tue Jul 16, 2013 02:21 AM

Hola Eduardo.

Gracias por tu codigo.

Lo voy a probar y te comento. Espero resolver este problema como tu lo haces.

Saludos

Visite Chiapas, el paraiso de México.

FiveTech Support Forums

Continue the discussion