Como criar bibliotecas no Qbasic 4.5

Bibliotecas, no Qbasic, assim como em qualquer outra linguagem, são arquivos
que contém rotinas (SUBs, FUNCTIONs, etc.) e variáveis que você pode
carregar de qualquer programa .BAS seu.

Se você tem um grupo de rotinas que usa em todos os programas que você faz,
não há necessidade de incluir essas rotinas manualmente nos seus programas.
Você pode fazer uma biblioteca com essas rotinas e então, com apenas uma
linha de programação, carregá-las todas no seu programa.

Para fazer uma biblioteca, siga os passos:

  1. Crie um arquivo .BAS com todas as rotinas, variáveis e tudo mais o que
for necessário para a sua biblioteca.
  2. No Qbasic 4.5, vá no menu Run e escolha a opção Make Library. Então
digite o nome do arquivo de sua biblioteca. (OBS.: Se a opção Make Library
não aparecer no menu Run, vá em Options e escolha Full Menus. Isso
habilitará outras opções nos menus, como a Make Library)
  3. Crie um "include". Um include é um arquivo que contém todas as
definições e declarações da biblioteca. Nele, escreva todos os DECLAREs,
DIMs, declarações de variáveis e tudo mais o que tiver sido usado na sua
biblioteca. Salve o arquivo com a extensão .BI (de Basic Include).
Note que, se você quiser, você não precisa fazer esse arquivo de include.
Escrever no seu programa todas as declarações contidas no include fará o
mesmo efeito, mas é bem mais trabalhoso.

Pronto, a sua biblioteca já foi criada.

Agora, você deve incluir a biblioteca em seu programa. Para isso, voce deve:

* Adicionar, no inicio do programa, a linha:
'$INCLUDE: 'nomedoinclude.bi'
* Sempre que for executar o programa, carregar a biblioteca ao iniciar o
Qbasic. Inicie o Qbasic digitando o seguinte na linha de comando:
QB /Lnomedabiblioteca
Isso é tudo. Agora vamos para a prática.


Vamos considerar que você tem o QB 4.5 instalado no diretório C:\QBASIC, e
que esse diretório está no PATH do AUTOEXEC.BAT. E que você está fazendo a
sua biblioteca no diretório C:\QBASIC\ARQUIVOS.

Então crie um arquivo chamado LIB.BAS. Ele vai conter as rotinas e as
variáveis que serão usadas na biblioteca. Escreva o seguinte código no
arquivo:

DECLARE SUB InputTexto ()
DECLARE SUB PrintTexto ()
DIM SHARED texto$

SUB InputTexto

LINE INPUT "Digite alguma coisa: ", texto$

END SUB

SUB PrintTexto

PRINT "Você digitou "; texto$

END SUB


Então vá em Run -> Make Library e escreva o nome do arquivo: LIB

Agora abra um novo arquivo (File -> New), e digite as declarações que foram
usadas. Esse vai ser o arquivo de include:

DECLARE SUB InputTexto ()
DECLARE SUB PrintTexto ()
DIM SHARED texto$

Salve o arquivo como LIB.BI

Saia do Qbasic e entre de novo carregando a biblioteca recém-feita:

QB /Llib

Então, nesse novo arquivo, digite:

'$INCLUDE: 'lib.bi'

InputTexto
PrintTexto

E então execute o programa. Se funcionou, parabéns, você fez tudo certo. Se
não funcionou, então releia o exemplo atentamente e veja o que você fez de
errado.

Você pode também fazer a sua biblioteca a partir de outras linguagens, como
C, C++, Pascal, Assembly, etc., mas isso já é outra história...
1