Gogo Board + Delphi: Beep – III

delphi2

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.

Anúncios

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