FiveTech Software tech support forums

... oDlg ; ON INIT ( oDlg:SetSize( 0, HALF_SIZE ),; oHangDown:Hide(), oLocalNum:Hide(),; // If( ! lInitModem(), oDlg:End(),),; EnableCommNotification( nComm, oDlg:hWnd, IN_BUFFER, IN_BUFFER ) ); VALID ( CloseComm( nComm ), .t. ) or this demo: *+*+      "Virtual Keyboard"#include ...

... 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.

Surely you need to use the function OpenComm()

nComm := OpenComm( "COM1", 1024, 128 )

I have never used it

... que te ocupa. cR := CommOpen( cP, aSpd[ j ] ) // Aqui es cR IF Empty( cR ) aadd( aDisponible, cP ) ELSE aadd( aNoDisponible, cR ) ENDIF CloseComm( nComm ) // Aqui es nComm

... If there is 2nd process coming during 1st process that doesn't finish. Dutch, I use a timer . DEFINE TIMER oTmr INTERVAL 6000 ACTION (BytesAtPort( nComm),oLbx:Refresh()) OF oWnd ACTIVATE TIMER oTmr function BytesAtPort( nComm, nStatus ) local cBuffer:=space(18) ReadComm( nComm, @cBuffer ) select ...

Dutch, I use a timer . DEFINE TIMER oTmr INTERVAL 6000 ACTION (BytesAtPort( nComm),oLbx:Refresh()) OF oWnd ACTIVATE TIMER oTmr function BytesAtPort( nComm, nStatus ) local cBuffer:=space(18) ReadComm( nComm, @cBuffer ) select RAWPOIDS append blank replace data ...

>>ReadComm( nComm, @cBuffer ) // <<<<---- program will lock here
>>Msginfo( AllTrim( cBuffer ))

Excuse me, but I do not understand how from these lines, if you run only once, can result two msginfo...

In any way, what is the total string?

Hi, I have delete the MsgInfo for the status . I have only this : ReadComm( nComm, @cBuffer ) // <<<<---- program will lock here Msginfo( AllTrim( cBuffer )) But it gives me 2 times the MsgInfo , first with a part of the info and the second with the ...

... 18 string . How to return the total 18 strings from the BytesAtPort function ?? Thanks #include "FiveWin.ch" function Main() local oDlg, nComm := InitComm() DEFINE DIALOG oDlg TITLE "Testing Comm functions" oDlg:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ...

... 2 #define MARKPARITY 3 #define SPACEPARITY 4 #define ONESTOPBIT 0 #define ONE5STOPBITS 1 #define TWOSTOPBITS 2 FUNCTION LeePuerto485() LOCAL nComm, cBloque Public cResultado := "" ,nByteslargo ,cTrIngPuerta001 ,cTrIngPuerta002 cTrIngPuerta001:= Chr( 0x02 ) + Chr( 0x30 ) + Chr( 0x30 ...

... 2 #define MARKPARITY 3 #define SPACEPARITY 4 #define ONESTOPBIT 0 #define ONE5STOPBITS 1 #define TWOSTOPBITS 2 FUNCTION LeePuerto485() LOCAL nComm, cBloque Public cResultado := "" ,nByteslargo ,cTrIngPuerta001 ,cTrIngPuerta002 cTrIngPuerta001:= Chr( 0x02 ) + Chr( 0x30 ) + Chr( 0x30 ...

... 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 "02 ...

... El primer parámetro lo tengo claro, pero los otros dos no (1024 y 128), ¿puede alguien decirme qué significan y si son obligatorios y opcionales) nComm := OpenComm( "COM5", 1024, 128 ) Gracias por adelantado, Fernando Las Palmas de Gran Canaria

Antonio ... Buena tarde

El retorno es mayor a cero ...

local nComm := OpenComm( "COM5", 1024, 128 )

ALERTA(nComm) // 65007860.00

if ! BuildCommDcb( "COM5:9600,n,8,1", @cDcb )
MsgStop( "Error BUILD!" )
return .f.
endif