Como contar os dados recebidos de um microterminal
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
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
Curtidas 0