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
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.
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.
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.
Mundo da Robótica 