FiveTech Software tech support forums

... que responda con el peso. NI en el manual de la balanza viene esa indicación... tuve que ponerme en contacto con el equipo SAT del fabricante. WriteComm( nComm, '$' ) ) <= 0 Mil gracias, por todo!! saludos. LORENZO.

... return .f. endif                    && <-------- HASTA AQUÍ TODO PERFECTO !!!        ncomand="chr(0X44)"  if ( nBytes := WriteComm( nComm, ncomand +Chr( 10 ) )) < 0      && <------- HE PROBADO TAMBIEN INSERTANDO CHR(13) Y CHR(13)+CHR(10). ...

Hello, I have been able to compile most of the sample linux prg's OK and have written a few of my own that compile and run OK. I have a need to do some serial communications (RS232). These are the linking errors I get when trying to compile. vend@v1:~/fivelinux/samples$ ./build.sh qibixx compiling.....

Hello, I have been able to compile most of the sample linux prg's OK and have written a few of my own that compile and run OK. I have a need to do some serial communications (RS232). These are the linking errors I get when trying to compile. vend@v1:~/fivelinux/samples$ ./build.sh qibixx compiling.....

Maurizio, do you mean this? FUNCTION MAIN()LOCAL nHandle LOCAL cBufLOCAL nLennHandle  := FOPEN( "COM1" , 1 )? nHandle cBuf := "ATDT161"nLen := LEN( cBuf )? FWRITE( nHandle , @cBuf , nLen )FCLOSE( nHandle )         &...

Can I write to Com1 as a file ?
Maurizio

Miloš,

WriteComm( nComPos, Chr(0x02)+Chr(0x02)+Chr(0x30)+Chr(0x36)+Chr(0x03)+Chr(0x05) ) ??

Please explain it better, thanks

... len(alltrim(hb_NumToHex(nMen))) = 1 mLcr="0"+alltrim(hb_NumToHex(nMen)) else mLcr=alltrim(hb_NumToHex(nMen)) endif The value is: mLcr=05 WriteComm( nComPos, Chr(0x02)+Chr(0x02)+Chr(0x30)+Chr(0x36)+Chr(0x03)+ Chr(0x01) ) How to change the value 01 Chr(0x01) to 05 (mLcr) Chr(0x05)? Best ...

... + Chr( 0x34 ) + Chr( 0x03 ) /* De suma importancia que el largo de la cadena sea de acorde */ nByteslargo:= Len( cTrIngPuerta001 ) If ( nWBytes := WriteComm( nComm,cTrIngPuerta001,nByteslargo ) ) <= 0 MsgStop( "Error al enviar datos la Puerto 485","Error" ) Return " ...

... + Chr( 0x34 ) + Chr( 0x03 ) /* De suma importancia que el largo de la cadena sea de acorde */ nByteslargo:= Len( cTrIngPuerta001 ) If ( nWBytes := WriteComm( nComm,cTrIngPuerta001,nByteslargo ) ) <= 0 MsgStop( "Error al enviar datos la Puerto 485","Error" ) Return " ...

... LOCAL cString:="02 30 30 30 31 31 33 30 30 31 34 03", nByteslargo:= Len( cString ) retorno = .t. FOR mcont := 1 TO 10 IF ( nBytes := WriteComm( port,cString,nByteslargo)) <= 0 MsgAlert("Mando mal ENQ") retorno := .f. ELSE retorno := .t. exit ENDIF MsgWait("Enviando ...

Karina Gracias.
No te agradezco tu respuesta pero ando buscando el problema de WriteComm que no me funciona.
Gracias

... de maravillas, envia y lee perfectamente. (utilizo el mismo seteo de COM2) Mi problema se da en la siguiente instruccion. if ( BitesSend := WriteComm( nComm, "02 30 30 30 31 31 33 30 30 31 34 03" )) > 0 msgwait('Sen han enviado'+str(BitesSend,5),'',.900) ENDIF Donde este string ...

... parameters are ignored and the queue size is set to zero. Sample: SAMPLES\\TestComm.prg Source Code: SOURCE\\WINAPI\\Comm.c See also: CloseComm() WriteComm() ReadComm() BuildCommDcb() SetCommState() FlushComm() GetCommError()

... de totalizar el ticket esta es la instrucción que le mando a la caja: nComm := OpenComm( "COM1", 1024, 128 ) cVar:="1"+chr(13) WriteComm(nComm,cVar) El Valor : "1" = Codigo del Plu o Codigo de Barra interno de la caja El Valor : CHR(13) = Es como si le oprimiera intro ...