PC Toledo

Código: Selecionar todos

*----------------------
Function Busca_Peso (nCom)
*----------------------
Local nBuffer := 2400, nPar   := "N", nDados := 8, nStop := 1
Local nIOn := "", nIRQ := "", Inicia := "", nCont := 0, cInput := ""
Local nPeso := "", nTenta := 1

*** Inicializacao da porta ***

if nCom = 1          &&  Buscar em: Gerenciador de Disp - Porta COM(x) - Recursos
  nIO  := "03F8"     &&  -> Intervalo de ES
  nIRQ := 04         &&  -> Pedido de Interrup
elseif nCom = 2
  nIO  := "02F8"
  nIRQ := 03
elseif nCom = 3
  nIO  := "02F8"     ???
  nIRQ := 03         ???
elseif nCom = 4
  nIO  := "02F8"     ???
  nIRQ := 03         ???
endif

do while nTenta <= 3
  Com_Close(nCom)
  Com_SetIO(nCom,nIO)
  Com_SetIRQ(nCom,nIRQ)
  Com_Open(nCom,1000)
  nInicia:=Com_Init(nCom,nBuffer,nPar,nDados,nStop)

  nCont=0
  do while nCont < 7          // * aguarda 7 bytes na porta
     inkey()
     if l()
       Return 0
     endif
     Com_Send(nCom,5)         // * Envia ENQ
     nCont = Com_Count(nCOM)
  enddo

  cInput := Com_Read(nCom)    //* lê a porta
  nPeso = Subst(cInput,2,5)
  nPeso = round( val(nPeso)/1000 ,3)
  if nPeso > 0
    exit
  endif
    
  nTenta++
enddo

Return (nPeso)

Código: Selecionar todos

procedure peso
local comando,tentra,bytes,lidos,buf,temp
comando=chr(5)
comwrite(hdlbalanca,comando,len(comando),1)
tentra=time()
bytes=""
do while val(right(elaptime(tentra,time()),2))<=6
   secondssleep(5)
   if com_buffersize(hdlbalanca)<=0
      loop
   end if
   buf=space(com_buffersize(hdlbalanca))
   lidos=comread(hdlbalanca,@buf,len(buf),1)
   if lidos>0
      bytes+=buf
   end if
   if chr(3)$bytes
      temp=substr(bytes,2,len(bytes)-2)
      temp=left(temp,2)+"."+right(temp,3)
      if isnum(temp)
         return val(temp)
      else
         return 0
      end if
      bytes=""
   end if
enddo
return 0