PC Toledo

Código: Selecionar todos

Busca_Peso(1,1200,8,1,,,8,400,0) // balança Muller

Function Busca_Peso(PORTA,BAUD,WORDBIT,STOPBIT,vENVIA1,vENVIA2,vTotalbit,vMileseg,vDivisor)

LOCAL cIn_Msg,cPESO:="",NSIZE

comok:= INIT_PORT( "COM"+STR(PORTA,1),BAUD, WORDBIT, 3, StopBit,4000)

If ISWORKING(comok)=.T.  // Conexão com a porta serial
   OutBufClr(comok) // Limpa o Buffer de Saida
   IF !EMPTY(vENVIA1)
      OutChr( comok,vENVIA1 ) // Envia O CODIGO para a balança
   ENDIF
   IF !EMPTY(vENVIA2)
      OutChr( comok,vENVIA2 ) // Envia O CODIGO para a balança
   ENDIF
   cIn_msg:=space(vTotalbit)
   cPESO := ""
   NSIZE := ""

   Millisec(vMileseg)  // tempo obrigatorio de espera

   NSIZE:=INBUFSIZE( comok )    // Obter a contagem dos bytes que esta Aguardaabdo no buffer de entrada
   if nsize > 0
      inchr(comok,nsize,@cIn_msg)  // Buscando Peso
      cPESO   := cIn_Msg
   else
      cpeso:="0"
   endif
   OutBufClr(comok) // Limpa o Buffer de Saida
ELSE
   UNINT_PORT( comok )   // FECHA A PORTA DE COMUNICAÇÃO
   MsgStop("Problemas na Inicialização da Porta Serial, Favor Verificar a Porta COM"+str(PORTA),"Aviso do Sistema")
   cpeso:="0"
EndIf
vPeso := VAL(Subs(cPESO,AT("D",cPESO)+2,6))
cPeso :=""
UNINT_PORT( comok )
liq=vPeso/vDivisor          // resultado para o liquido