BASIC, que significa Beginner's All-Purpose Symbolic Instruction Code, ainda é a linguagem de programação mais conhecida para iniciantes absolutos, e QBasic é um interpretador simples para ele através do qual você pode escrever e executar programas. Ainda existe uma comunidade considerável de entusiastas do QBasic por aí, e aprender a fazer jogos QBasic ensina os fundamentos da programação e é muito divertido.
Introdução ao QBasic
Se você não tiver o QBasic em seu sistema, você pode baixar a versão original no site do Pete's QB (consulte Recursos), ou uma versão mais recente chamada QB64, projetada para ser compatível com o original. Depois de abri-lo, você verá uma tela azul. Digite o seguinte:
CLS PRINT "Olá, mundo!" INPUT "Qual é o seu nome?"; nome$ PRINT "Olá, "; nome$; "!" FIM
Em seguida, pressione Shift + F5 para executar o programa. Aqui está o que está acontecendo:
"CLS" significa "limpar tela" e garante que seu programa comece com uma tela em branco; caso contrário, você verá resquícios do programa anterior.
"PRINT" simplesmente imprime uma string de texto na tela. Se você está apenas imprimindo um número, não precisa das aspas.
"INPUT" é uma maneira de solicitar a entrada de um usuário. O final da linha, "name$", é uma variável:é onde a resposta do usuário será armazenada. Você pode chamá-lo como quiser; variáveis que contêm texto devem terminar com "$", e variáveis que contêm apenas números devem terminar com "%".
A segunda linha "PRINT" imprime o texto junto com o que o usuário digitou.
"END", previsivelmente, encerra o programa.
QBasic Jogos de Adivinhação
Digite o seguinte código no QBasic:
CLS chances% =1 TEMPORIZADOR RANDOMIZE number% =INT(RND * 10) + 1 PRINT "Estou pensando em um número de 1 a 10. Você tem três chances de acertar."
DO WHILE chances% <4 PRINT PRINT "Você tem chance #"; chances%; "." PRINT INPUT "Adivinhe o número"; palpite% SE palpite% =número% ENTÃO GOTO vocêganhou ELSEIF palpite%
number% ENTÃO IMPRIMIR "Muito alto." ELSE PRINT "Ocorreu um erro. Tente novamente." END IF chances% =chances% + 1 LOOP
IMPRIMIR IMPRIMIR "Você ficou sem chances! Desculpe!" FIM
youwin:PRINT PRINT "Você adivinhou o número! O número era"; número%; "!" FIM
Neste jogo, o programa cria um número aleatório de 1 a 10 e oferece três chances de acertar, dando pistas após as duas primeiras dicas. Inclui muitos conceitos de programação.
Depois de limpar a tela, "chances% =1" cria uma variável numérica e a define como 1. Isso rastreará todas as chances que o jogador tem de adivinhar o número.
As próximas duas linhas criam o número aleatório. "RANDOMIZE TIMER" é simplesmente o método que QBasic usa para criar aleatoriamente seus números. A próxima linha, "number% =INT(RND * 10) + 1", cria um número aleatório de 1 a 10 e o armazena na variável number%. Parece complicado, mas basicamente está apenas dizendo "Faça um dos dez primeiros números inteiros positivos". O "+ 1" no final garante que o número será de 1 a 10 e não de 0 a 9.
A linha "DO WHILE..." cria um loop. Sempre que você vir uma linha que começa com "DO", role um pouco para baixo até encontrar uma linha que diz "LOOP". Tudo entre essa linha continuará a fazer um loop repetidamente até que uma determinada condição seja atendida - neste caso, até que chances% não seja menor que quatro (ou "<4" em linguagem de programação).
O programa então pede um palpite com o comando INPUT, armazena-o em guess% e continua a processá-lo com o método "IF...THEN...ELSE". Como você pode ver, funciona logicamente:"SE uma afirmação for verdadeira, ENTÃO faça isso; ELSEIF outra afirmação for verdadeira, então faça isso;
O único aspecto extra é o comando GOTO. Neste caso, se o número estiver correto, o programa vai para a seção do documento chamada "youwin".
Logo antes do final do loop, há a linha "chances% =chances% + 1". Isso é para garantir que o loop seja executado apenas três vezes.
Se o loop for executado três vezes e o jogador nunca foi enviado para a seção "youwin", o jogador perde, então logo após o loop há uma linha informando o jogador da perda. Abaixo está a seção "youwin", declarada apenas escrevendo o nome da seção com dois pontos.
Mais ideias de jogos
Com PRINT, INPUT, IF...THEN...ELSE e GOTO, você tem tudo o que precisa para criar uma aventura de texto fácil de fazer. Aqui está algum código de exemplo:
casa:INPUT "Você está em uma casa. O que você gostaria de fazer"; escolha$ SE escolha$ ="subir" ENTÃO IR PARA O andar de cima ELSE GOTO casa
Tente torná-lo o mais complexo possível com base no que você sabe. E para mais inspiração, a web oferece muitos downloads gratuitos de jogos QBasic. Jogue-os e examine o código por trás deles para aprender novas técnicas e obter ideias.
