Consulta: bucle de lectura puerto COM

[fernandomoralesdr]

Hola a todos.
Tengo un autómata que envía información periódicamente al puerto serie. ¿Podría alguien indicarme qué debo hacer para leer la información de dicho puerto y enviarla a un fichero de texto? Se supone que este programa debería estar en un bucle permanente escuchando dicho puerto.
He visto los programas de ejemplo de FWH\SAMPLES pero no lo tengo muy claro, así que algún programa de ejemplo me facilitaría bastante las cosas.
Gracias por adelantado.

[JmGarcia]

Code: Select all  Expand view

lOkSalir:=.F.
nComm:=OpenComm("COM1:9600,N,8,1",2048,512)
**************************************************************
do while .not. lOkSalir
   nBytes :=2048
   cBuffer:=space(nBytes)
   nBytes:=ReadComm(nComm,@cBuffer)
   cDatosRecibidos:=left(cBuffer,nBytes)
enddo
**************************************************************
CloseHandle(nComm)

La variable lOkSalir puedes usarla para salir del bucle.

Por ejemplo con un boton de "Parar":
REDEFINE BUTTON oBoton ID 100 OF oDlg ACTION {lOkSalir:=.T.}

[benjiben143]

hola

yo tengo asi instalado en una bascula
1.-abro el puerto con este codigo

Code: Select all  Expand view

  nComm := OpenComm( "COM4",1024,128)
   if ! BuildCommDcb( "COM4:9600,e,8,1", @cDcb )
      nError = GetCommError( nComm )
      MsgInfo( "ERROR DE BASCULA: " + Str( nError ) )
     // ? "no hay bascula se cieera"
     // quit
   ELSE
   ENDIF

 

ya estando abierto el puerto
metes un ciclo en un do while o en un meter como gustes

2.- pongo el ciclo

Code: Select all  Expand view

DO WHILE .T.
       
        pp:=space(80)
        for i:= 1 to 2000
        next i
             
        READCOMM(NCOMM,@PP)
       
        datos:=ObtenV(PP)
       
       
       
       
        IF datos>=40
           ? "tomate la foto we jiji",
           SELECT BASCU
           BASCU->(DBAPPEND())
           REPLACE BASCU->REGI WITH "PRIMER WE"
           REPLACE BASCU->PESO WITH PENDE
           BASCU->(DBUNLOCK())
           bASCU->(dbcommit())
         
        ENDIF
         
        pp:=space(60)
     
   Enddo
 

3.- la funcion obtenv lo que hace es tomar el dato leeido que queda pp y hago x conversion a como manda la informacion el readcom

4.- el dato pp lo puedes mandar a un achivo con fcreate y fwrite

5.- en este ejemplo es para un sistema que tengo que toma la lectura del camion que esta pasando por la bascula
si el pesador no toma el peso el sistema en automatica detecta que si paso algo por la bascula mas de 40 kilos ,, me toma una foto de lo que esta en la buscula ,, lo guarda en archivo dbf,,, y al final en pocas palabras con esto hemos corrido a pesadores jijiji


saludos

[fernandomoralesdr]

Amigos, muchas gracias por el par de ejemplos que me han mandado y que me servirán de mucho para el programa.