PC Toledo

Código: Selecionar todos

function chamabal() 
 com_close(1) 
 com_open(1, 1024, 1024) 
 com_init(1, 9600, "n", 8, 1) 
 com_hard(.f.) 
 conta=0 
 cappeso=.f. 
 peso=0 
do while conta<50 
    cinput := com_read(1) 
    if empty(cinput) 
       inkey(.1) 
       conta++ 
    else 
       if substr(cinput,1,1)=chr(2) 
          peso=val(substr(cinput,2,6)) 
          cappeso=.t. 
          exit 
       endif 
       inkey(.1) 
       conta++ 
    endif 
 enddo 
 com_close(1) 
 itqtd=peso 
 if cappeso=.t. 
     return(.t.) 
 else 
    msg("falha na captura do peso !",1,2) 
    return(.f.) 
 endif 
 return(.t.)