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