Gogo Board + QBasic: Beep – IV

Para facilitar ainda mais o uso do QBasic para enviarmos informações à placa, será interessante trabalharmos diretamente com valores numéricos, aos invés de ASCII.

Desta forma, nosso programa poderá ter este conteúdo:

SHELL "MODE LPT1=COM1"

BIP$ = CHR$(84) + CHR$(254) + CHR$(196) + CHR$(0)

OPEN "LPT1:" FOR RANDOM AS #1

PRINT #1, BIP$

CLOSE #1

Anúncios

Gogo Board + QBasic: Beep – III

Outra forma de executarmos o envio de dados, seria definindo uma variável e utilizando-a, sempre que necessário:

SHELL "MODE LPT1=COM1"

BEEP$ = "TþÄ^@"

OPEN "LPT1:" FOR RANDOM AS #1

PRINT #1, BEEP$

CLOSE #1

Desta forma, ficará mais fácil utilizarmos e atualizarmos o conteúdo do comando bip.

Gogo Board + QBasic: Beep – II

Para enviarmos comandos à GoGo Board através da linguagem QBasic, recorreremos ao recurso de impressão de dados, já que nas versões mais recentes do Windows, não é possível acessar a porta serial diretamente.

O primeiro passo será definirmos a porta de impressão LPT1 como sendo a COM1, a seguir, enviar os dados. Desta forma:

SHELL "MODE LPT1=COM1"

OPEN "LPT1:" FOR RANDOM AS #1

PRINT #1, "TþÄ^@"

CLOSE #1

Neste exemplo, a placa emitirá o sinal sonoro de bip.

Gogo Board + QBasic: Beep

Abaixo temos um exemplo do que seria a comunicação com a placa utlizando o Qbasic, porém, nos dias atuais, é cada vez mais difícil utilizar linguagens de programação baseadas no sistema DOS.

OPEN "com11:9600,n,8,1,DS," FOR RANDOM AS #3
WRITE #3, beep$
CLOSE #3
SYSTEM

Existem formas de ainda utilizar este tipo de programação, utilizando emuladores, etc, porém, este não será o objetivo no momento.