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