Gogo Board + Delphi: Beep – III

Poderemos utilizar a programação em Delphi para enviarmos informações à placa, no entanto, desta vez não utilizaremos componentes.

Após abrirmos um novo projeto, deveremos alterar no “Unit1.pas” o “uses”, acrescentando “ShellApi,”.

Feito isso, deveremos inserir um botão no formulário e em seu comando utilizar:

procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('cmd.exe /c type beep.txt > COM1 & pause', sw_show);
end;


Desta forma, a placa emitirá o sinal sonoro de bip.

Gogo Real + Delphi + Componenente: Beep

Diferente do artigo anterior, há como usar componentes do Delphi, neste caso, o que permitirá a comunicação com a porta USB da placa via protocolo rs232.

Este artigo do RogerCom, serve como referência da implementação.

O componente TComport para acessar a Porta Serial no Delphi 4 ou 5, esta disponível aqui.

O código principal alterado, segue abaixo:

delphi-componente

Foto: Internet

Gogo Real + Delphi + API: Beep

Com base no código de comunicação rs232, publicado por Cirilo J. Veloso em seu site “http://www.veloso.adm.br/download.asp”, podemos nos comunicar com a placa e faze-la emitir um beep.

Este tipo de implementação não utiliza componentes adicionais, como por exemplo, o commport, mas acessa diretamente algumas bibliotecas do Windows.

O código principal segue abaixo:

delphi-api

Foto: Internet