Fórum Dúvidas com Microterminal #446841

Boa noite, amigos:

O microterminal é um colleter TC100 de 16 teclas, consigo enviar e receber informações básicas, mas estou apanhando para
saber como usa-lo em meu sistema para implantar comanda eletrônica, como fazer o teclado pesquisar comanda e produtos pelo microterminal.
E como se dá no caso multiplos microterminais conectados?



No exemplo que baixei no site http://www.colleter.com.br/monta.asp?link=home têm um exeplo usando um timer assim:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for conjunto:=0 to 0 do
begin

canal:=100;

if (getcnt ( dado,canal,conjunto ))=1 then
begin

if dado='ABC..123' THEN
BEGIN

dado:='123456789A123456789B123456789C123456789'+chr(10)+chr(13);
//dado:=dado+'Linha p/ impressora Linha p/ impressora'+chr(10)+chr(13);
//dado:=dado+'Linha p/ impressora Linha p/ impressora'+chr(10)+chr(13);
//dado:=dado+'Linha p/ impressora Linha p/ impressora'+chr(10)+chr(13);
//dado:=dado+'Linha p/ impressora Linha p/ impressora'+chr(10)+chr(13);

x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,dado);
x:=envtimp (0,canal,chr(10)+chr(13));
x:=envtimp (0,canal,chr(10)+chr(13));
x:=envtimp (0,canal,chr(10)+chr(13));
x:=envtimp (0,canal,chr(10)+chr(13));
x:=envtimp (0,canal,chr(10)+chr(13));
x:=envtimp (0,canal,chr(10)+chr(13));
x:=envtimp (0,canal,chr(10)+chr(13));
x:=envtimp (0,canal,chr(10)+chr(13));
x:=envtimp (0,canal,chr(10)+chr(13));

dado:=' ';

END;


str ( canal,scanal );
str ( conjunto,sconjunto );

form1.edit2.text := dado +'- Canal: '+ scanal+ ' - Conjunto: '+sconjunto ;

str (canal,stcan);
{envtmsg (conjunto,canal,'Recebido-Canal '+stcan);}
{envbeep (conjunto,canal,1);}

if ted[canal+1]=4 then
begin
if dado='1' then envtmsg (conjunto,canal,'Coca-cola')
else if dado='2' then envtmsg (conjunto,canal,'Guarana')
else if dado='3' then envtmsg (conjunto,canal,'Fanta-uva')
else
begin



// envbeep (conjunto,canal,1);
// envtmsg (conjunto,canal,'Obrigatorio. 1.Cliente ');


envtmsg (conjunto,canal,'Nao cadastrado');
envbeep (conjunto,canal,3);
envcldisp (conjunto,canal);
envtmsg (conjunto,canal,(mensagem[ted[canal+1]-1]));
exit;
end
end;

if ted[canal+1]=3 then
begin
if dado='1' then envtmsg (conjunto,canal,'Tom Jobim')
else if dado='2' then envtmsg (conjunto,canal,'Baden Powell')
else if dado='3' then envtmsg (conjunto,canal,'Chico Buarque')
else
begin

envtmsg (conjunto,canal,'Nao cadastrado');
envbeep (conjunto,canal,3);
envtmsg (conjunto,canal,(mensagem[ted[canal+1]-1]));
exit;
end

end;


Alguém já programou para microterminal, se alguém já fez isso me ajude por gentileza.