Gogo Board + Pascal: Beep

Temos duas formas de enviarmos dados à placa através do Turbo Pascal.

Primeiramente, após abrir o software, deveremos ir ao menu “file” e a seguir em “dos shell”. No prompt de comando deveremos digitar:

mode lpt1=com1

Feito isso, digitaremos “exit” e pressionaremos “enter”.

Desta forma configuramos a porta de impressão como sendo com1, ou aquela em que a placa estiver conectada.

Nosso código deverá ser o seguinte:

program HelloSerial;
var
DataFile: Text;
begin
Assign(DataFile,'LPT1');
Rewrite(DataFile);
Writeln(DataFile,'TþÄ^@');
Close(DataFile);
end.

Após compilarmos e executarmos o código, a placa deverá emitir o sinal sonoro bip.

Anúncios