Saludos
Usuario con balanza (bascula de Pesaje) puerto serial, reporta este mensaje esporádicamente: abnornal program termination.
Usuario con balanza (bascula de Pesaje) puerto serial, reporta este mensaje esporádicamente: abnornal program termination.
PROCEDURE Main( cPortName )
LOCAL cBuff:=SPACE(8000)
Local cCom :=cPortName
LOCAL I
Local nBaudeRate:=9600
Local ndatabits :=8
Local nparity :=0 //0NONE, 1 Odd, 2Even
Local nstopbit :=1
Local cRead :=""
Local cBuffer :=SPACE(512)
Local cRes :=""
DEFAULT cPortName:="COM3"
IF !Init_Port( cPortName, nBaudeRate , nDatabits , nParity , nStopbit , cBuffer )
MSGALERT("Balanza no conectada","No puedo abrir "+cPortName)
RETURN NIL
ENDIF
cRead:=INCHR(64)
UNINT_PORT()
oDp:=cRead
// ? cRead
RETURN cRead
