F�rum Como contar os dados recebidos de um microterminal #454259

04/09/2013

Boa noite amigos

Estou tentando implantar uma comanda eletr�nica usando um microterminal tcpip

Com aajudade um coega de do forum consegui implementar esse contador, mas preciso saber como fazer para contar os DADOS que recebo do micro terminal

Por exemplo: Digito 20 e dou enter no terminal ai o contador iria entender como 1 ai me mostraria a mensagem PRODUTO ai digitaria 162 dai ele finalizaria gravando os dados
E voltando para zero

PS: Nunca trabahei com microterminais entao estou quebrando a cabe�a se algu�m j� fez algo assim para panificadora ficaria grato com a ajuda

Begin
conjunto:=0;
canal:=100;
if (getcnt (  dado,canal,conjunto )) = 1 then
begin
inc(lnContador);
if lncontador = 1 then
begin
    Form1.edit1.text := 'Recebi: '+ dado + ' do canal:' + inttostr(canal);
    envtmsg (conjunto,canal,'PRODUTO' +inttostr(canal)+'!');
    envbeep (conjunto, canal, 1);
    Exit;
 end else if lnContador = 2 then
    Form1.edit1.text := 'Recebi: '+ dado + ' do canal:' + inttostr(canal);
    envtmsg (conjunto,canal,'QUANTIDADE' +inttostr(canal)+'!');
    envbeep (conjunto, canal, 1);

    lncontador := 0;

    exit;
end;
end;

Fabio 2013

Curtir t�pico

+ 0

Responder