Show do Zecão - Um Jogo de perguntas e respostas

Você conhece o jogo Show do milhão ? Sabia que foi feito em Visual Basic ? (pelo menos até a versão 2). Temos ai um exemplo bem sucedido de uma aplicação feita em Visual Basic.

Tudo bem , o jogo não tem muitos recursos gráficos e, é, em sua essência, até um jogo muito simples. Mas foi um sucesso de vendas, mostrando que agradou o público e que atingiu o objetivo.

Já pensou se você tivesse a mesma ideia ( e o mesmo marketing) $$$ ? 

Bem, não fique frustrado.

Vou mostrar como criar um jogo igualzinho ao Show do Milhão  e aproveitar para abordar alguns tópicos importantes como: 

• O uso de números aleatórios (viu como eles servem para alguma coisa);
• A utilização de Timers ( controle Timer );
• A barra de progresso;
• Como gerenciar o  banco de dados(as perguntas estão armazenadas em um banco de dados access);
• Usar arquivos de configuração INI
• Como tocar arquivos Wav de forma contínua.(música de fundo).

Veja agora as principais telas(na verdade todas as telas) do sensacional jogo - Show do Zecão :

O funcionamento do jogo  - Show do Zecão - é idêntico ao jogo Show do Milhão e será dissecado neste artigo (o jogo foi feito em algumas horas).

Por isso não espere por recursos gráficos de primeira , nem efeitos com animação (eu não usei...). Os arquivos de som também foram gerados  no gravador de som do windows.

Apesar de tudo isto, o jogo funciona bem, mostrando que você pode desenvolver sistemas comerciais  sem ser um mestre em VB,  e, se você tiver um bom conhecimento geral poderá ganhar - Um milhão de reais...

A lógica do jogo

Bem a lógica do jogo e responder as perguntas e a medida que você for acertando você vai em frente avançado para fase seguinte  até alcançar a última fase com a pergunta que vale 1.000.000,00 de reais.  Mas o que interessa para nós é o seguinte: 

1. Onde estão armazenadas essas perguntas ? 

2. Como o programa seleciona cada pergunta e exibe as opções de resposta ?

3. Como o sistema verifica se a pergunta esta certa ou errada ?

Vamos responder todas essas perguntas explicando-as em detalhes. A primeira é fácil: As perguntas estão armazenadas em um banco de dados Access . A estrutura da tabela que contém as perguntas é muito importante e você logo vai saber por que.

Temos um banco de dados Access chamado Perguntas.mdb que contém uma tabela chamada Perguntas com a seguinte estrutura:

Assim uma pergunta será visualizada na tabela assim:

Percebeu que com esta estrutura basta posicionar o ponteiro no registro para extrair a Pergunta , as opções de Resposta e a coluna com a Resposta Certa para comparar com a resposta indica pelo usuário. 

As colunas pergunta , resposta1, resposta2,  resposta3 e  resposta4 , você preenche quando cadastra a pergunta no banco de dados . O nosso jogo já tem algumas perguntas cadastradas e também permitirá a você cadastrar mais perguntas.

A  coluna - respostacerta - irá armazenar o número da questão correta, desta forma , para saber se o usuário escolheu a opção correta basta comparar a opção clicada com o número da coluna correspondente a Pergunta. 

A coluna - ja_utilizada - indica se a pergunta já foi utilizada ou não , desta forma nunca repetiremos a mesma pergunta duas vezes no mesmo jogo. Quando o jogo começa todas as  colunas  referentes ao campo - ja_utilizada  - possuem o valor N e após o usuário acertar a pergunta o campo - ja_utilizada - é atualizado para S , com isto esta pergunta não será mais selecionada no jogo em curso.

A coluna - tipo -  indica a que fase a pergunta pertence , com isto podemos filtrar perguntas referentes a uma determinada fase . Fazemos isto utilizando as consultas Seleção  SQL.

Assim para filtrar as perguntas por fase podemos usar uma consulta com a seguinte sintaxe:

Esta consulta seleciona as perguntas , opções de resposta , resposta certa e o tipo da pergunta da tabela Perguntas quando a pergunta for do tipo A ( perguntas da primeira fase) e as ordena por número da pergunta.

Obs: Basta alterar a letra na cláusula Where para B , C ou D para obter consultas para outras fase ; cada uma corresponde a fase 2 , 3 e 4. Teremos portanto quatro consultas nomeadas como : Fase1 , Fase2 , Fase3 e Fase4 que selecionarão as perguntas referentes a cada fase do jogo.

Agora que você tem uma visão geral vamos passear pelas telas do jogo e abordar os aspectos mais importantes utilizados para criar o Show do Zecão.

A Introdução 

Ao iniciar o projeto a tela de introdução será exibida e cada linha da mensagem será exibida compassadamente na tela . Quando a última mensagem (Boa Sorte) for exibida , após alguns segundos o formulário - frmintroducao - será fechado e será exibido o formulário , vemos abaixo o formulário em tempo de desenho do projeto. Como disse eu não me preocupei com os efeitos visuais , por isso usei recursos simples apenas para ilustrar as possibilidades. 

Neste formulário foram usados controles: 1-) Timers - Para controlar a exibição das mensagens. 2-) Labels - Contém os dizeres de cada frase 3-) Image - Para exibir o logo Show do Zecão.

Você vai perceber que ao iniciar o projeto uma música começa a tocar continuamente conforme as frases vão sendo exibidas na tela.

Como obtemos este recurso ?

Estamos usando arquivos do tipo WAV , portanto , para obter o recurso de tocar um arquivo WAV continuamente usaremos uma API declarada em um módulo . Eis a declaração:

Então para tocar um arquivo wav basta chamar a função informando sua localização e nome, assim:

Call sndPlaySound("c:\ashowzecao\certa.wav", 0)

Isto irá tocar o arquivo certa.wav localizado no diretório c:\ashowzecao uma única vez, para que o arquivo seja continuamente tocado devemos usar as constantes :

Const SND_ASYNC = &H1          'modo assíncrono. toca musica sem parar
Const SND_LOOP = &H8            

Você deve declarar estas constantes na seção General Declarations do formulário. A chamada da função , nestes casos, deverá ser feita usando estas constantes, assim:

Call sndPlaySound("c:\show do zecao\entrada.wav", SND_ASYNC + SND_LOOP)

Assim o código que exibe toca a música para o formulário frmintroducao é:

Estamos usando o controle Timer - Timer2  -  para acionar o arquivo entrada.wav .  Um controle Timer é usado para processar tarefas em um determinado intervalo de tempo. 

O arquivo é acionado  após  quase um segundo da carga do formulário. Este tempo é definido na propriedade Interval do controle Timer2 . A  propriedade Interval é definida em milisegundos , assim cada 1000 corresponde a 1 segundo.

Atribuímos o valor a propriedade assim:

Timer2.interval = 500       ´ou definimos a propriedade no próprio controle  assim:

Após a chamada a função SndPlaySound desabilitamos o controle Timer2 - ( Timer2.enabled= False ) , evitamos assim que a função seja chamada novamente após decorrido o tempo definido em Interval.

O outro controle Timer - Timer1 - foi usado para , da mesma forma , exibir na tela as frases em intervalos de tempo distintos. O código é o seguinte:

Observe que usamos a variável contador , que é incrementada a intervalos de tempo definido em Timer1.interval . Usamos o arquivo chamado semsom.wav para interromper a musica acionada em entrada.wav.

Demos uma possibilidade de o usuário interromper a exibição de todas as frases na tela e a música exibindo o formulário frmSplash . Basta ele clicar no formulário para que isto ocorra. O código é:

Agora observe o código do evento Load do formulário.

Este código além de inicializar o contador, também procura pelo arquivo Show.ini lendo o seu conteúdo e atribuindo os valores definidos no arquivo a variáveis  de configuração.

Os arquivos INI eram muito usados no Windows 3.X e ainda podem ser utilizados para determinadas tarefas.

No nosso jogo usamos o arquivo Show.INI para configurar algumas preferências do usuário . São Elas :

• O tempo de resposta - valortempo - O usuário poderá alterar o tempo que ele tem para responder a uma pergunta

• Quantas vezes a ajuda pode ser acionada - valorajuda - O usuário poderá definir quantas vezes ele poderá recorrer a Ajuda. (usando os agentes Microsoft)

• Atualizar o conteúdo do campo ja_utilizado - atualizarperguntas - O usuário poderá definir se deseja ( S) ou não ( N) que o arquivo de perguntas seja atualizado para exibir novamente as perguntas já utilizadas ou não.

O que é um arquivo INI ?

Um arquivo INI é um arquivo texto usado para armazenar/fornecer configurações pessoais para sistemas/usuários;

Um arquivo INI é um arquivo com dados externo ao programa principal e esta formatado em : Seções(FileName) , Entradas e Valores :

[Seçao1]
entrada=valor
entrada=valor
entrada=valor
[Seção2]
entrada=valor
entrada=valor

• A Seção identifica um conjunto de entradas e valores e esta relacionado a um determinado programa. Como muitos programas podem usar o mesmo arquivo INI ( Ex: o arquivo WIN.INI ) geralmente uma seção trazia o nome do programa que iria usá-la.

• Uma Entrada funciona como um identificador para variáveis.

• Os Valores são usados , como o próprio nome diz , para atribuir valores as entradas , e , sempre estão no formato Strings , mesmo sendo números.

Um exemplo de arquivo INI é o WIN.INI cuja estrutura mostramos em parte a seguir:

No nosso caso estamos usando o arquivo SHOW.INI para guardar algumas preferências do usuário. Sua estrutura é a seguinte:

[Geral]
Tempo=50
Ajuda=2
Atualiza=SIM

Como fazemos para acessar e/ou alterar os valores em um arquivo INI ?

Boa pergunta !

Para fazer isto usamos duas API's do Windows , vamos apresentá-las:

1-) API usada para ler os arquivos INI . Geralmente você faz esta declaração em um módulo:

2-) API usada para escrever em uma arquivo INI. Geralmente você faz esta declaração em um módulo

Agora basta escrever duas funções que usam estas API´s , uma para ler e outra para escrever. Elas estão prontas abaixo:

1-) Função - ReadINI - lê um arquivo INI. Precisa de três parâmetros : O nome da Seção , o nome da Entrada e o nome do Arquivo INI.

2-) A função - WriteINI - escreve em um arquivo INI. Precisa de quatro parâmetros : o nome da Seção , o nome da Entrada ,  o nome do Texto ( Valor ) e o nome do arquivo INI.

No nosso caso para Ler os valores do arquivo SHOW.INI usamos o seguinte código:

As variáveis valortempo, valorajuda e atualizaperguntas irão armazenar os valores lidos do arquivo Show.ini através da função ReadINI.

Para escrever em um arquivo INI alterando os valores das entradas: Tempo, Ajuda e Atualiza , usamos o seguinte código:

Os valores são informados nas caixas de texto txttempo.txt , txtajuda.text e txtatualiza.text . Como isso lemos e escrevemos em arquivos INI.

O formulário de perguntas e respostas

Para não tornar o artigo muito longo e enfadonho vamos direto ao módulo mais importante do projeto : o arquivo frmperguntas.

É na carga deste formulário que geramos as perguntas, aguardamos a resposta do  usuário, verificamos se o tempo não acabou, solicitamos a ajuda, verificamos se a resposta esta correta, se o usuário resolveu parar, enfim as principais ações do jogo.

Então vamos por partes...

A seção General Declarations do formulário frmperguntas é a seguinte: Nele definimos as variáveis que serão visíveis em todo o formulário.

1-) Exibindo a barra de progresso e o valor das variáveis globais

O código do evento Load do formulário frmperguntas é os seguinte:

As variáveis NomeUsuario , selecao , valortempo  e tempo são variáveis globais definidas no nosso arquivo de módulo show.bas.

Progbar1 é o nome da nossa barra de progresso que indica o tempo que resta para responder a pergunta.

Como implementamos essa barra de progresso ?

Como queremos que a barra de progresso reflita o tempo restante usamos um controle Timer com propriedade interval definida como sendo igual a  1000 ( 1000 = 1 segundo ), com isso , a cada segundo o evento Timer é acionado. Incluímos então no evento Timer o código a seguir:

Com ele incrementamos o valor da barra de progresso - progbar1 - em uma unidade ( progbar1.Value + 1) e decrementamos o valor da variável tempo de 1 ( tempo - 1 ) exibindo assim o valor número decrescendo .

Se o valor da barra de progresso for igual ao tempo máximo definido ( valortempo )  um aviso sonoro é emitido , o formulário é descarregado e o formulário frmparar exibe quanto o usuário ganhou até aquele instante.

2-) Gerando as perguntas 

Como já dissemos as perguntas do nosso jogo estão armazenadas em um banco de dados Access ( usei a versão 2000 ). O nome do banco de dados é - Perguntas.mdb.  A tabela que contém as questões chama-se Perguntas. 

Quando o formulário frmperguntas for chamado, o banco de dados já deverá ter sido aberto. Na verdade ele foi aberto  quando o usuário forneceu o nome e clicou no botão Jogar. O código é o seguinte:

Já deu para perceber que estamos usando DAO . Por que ? Por que é mais simples e rápido.

Temos também armazenadas no banco de dados quatro consultas referentes as perguntas de cada fase do jogo. Assim para a fase 1 temos a consulta :

Para a fase 2 temos a consulta :

ate a fase 4. Então basta selecionarmos as perguntas de cada fase usando cada consulta pertinente. Como não queremos repetir uma pergunta iremos selecionar somente as perguntas que ainda não foram utilizadas ( ja_utilizada="N"). 

A seguir geramos um recordset do tipo Dynaset chamado rsperg com a consulta sql . Usamos as propriedades MoveLast e MoveFirst para movermos o ponteiro do para fim do arquivo e para o inicio de forma a obter um valor correto para a quantidade de registros ( Recordcount ) do recordset.

Sabendo a quantidade de registros , na verdade estou sabendo a quantidade de perguntas que tenho. Agora podemos gerar as questões. 

3 -) Como gerar perguntas Aleatórias ?

Para gerar perguntas aleatórios utilizamos a função Rnd em conjunto com a instrução Randomize.

A função Rnd gera números pseudo aleatórios. Pseudo aleatórios por que parece que são aleatórios mas na verdade não são.  Para um número ser aleatório ele não pode ser previsível e isto não ocorre com a função Rnd. 

 Esta função tem a seguinte sintaxe:

Rnd[(numero)]               -   Número é um valor do tipo Single. Os valores retornados são:

1. A função Rnd gera um valor menor que 1 e maior que ou igual a zero.
2. O Valor do número determina como a função Rnd gera o número aleatório.
3. Para qualquer número usado como semente inicial a sequência gerada será sempre a mesma. 
4. A instrução Randomize se um argumento , inicializa o gerador aleatório com uma semente(seed) baseada no relógio do sistema.

Cada vez que a função Rnd é chamada,  um novo valor é gerado. Este valor é sempre menor que 1 mas maior ou igual a zero , temos então que :    0 <= Rnd < 1

Então para gerar números em uma faixa que você deseja, é o só usar a fórmula:

Int((MaiorValor - MenorValor + 1) * Rnd) + MenorValor

Exemplo:

• Para gerar números aleatórios entre 100 e 200 fazemos :   Int( 101 * Rnd ) + 100

• Para gerar números aleatórios entre 1 e 10 fazemos      :  Int( 10 * Rnd ) + 1

Isto teria um efeito indesejável não é mesmo ? Como contornar este problema ?

Para evitar isto usamos a instrução Randomize. Ela inicializa o gerador de números aleatórios com base no relógio do sistema(pois não usamos argumentos na instrução).

Portanto para evitar gerar a mesma sequência usamos a instrução Randomize antes de chamar a função Rnd.  Podemos fazer isto somente uma vez.(Por isso colocamos a instrução Randomize no evento do formulário) 

Se você precisar repetir uma determinada sequência de números , basta chamar a função Rnd com um argumento negativo e imediatamente usar  a instrução  Randomize com um argumento numérico indicando a semente que deseja usar. Assim :

'Faz o VB iniciar usando um parâmetro em Randomize.
Rnd -1
'Faz o VB usar o valor 123 como ponto de partida ( seed ).
Randomize 123

Vejamos então o código da rotina que irá gerar as perguntas:

Logo no início temos a montagem da instrução SQL que irá gerar o recordset com as perguntas. Como temos 4 fases , conforme a fase do jogo iremos selecionar perguntas usando as consultas armazenadas no banco de dados . Então montamos a instrução assim:

 sql = "Select * from Fase1 where ja_utilizada='N'"

Aqui selecionamos todos os registros gerados pela consulta Fase1 quando a pergunta ainda foi utilizada. Fazemos isto para cada fase do jogo.

A seguir geramos o recordset e movimentamos o ponteiro para o final do arquivo retornando ao inicio logo a seguir. Com isto teremos a quantidade de registro deste recordset.

Set rsperg = db.OpenRecordset(sql, dbOpenDynaset)
rsperg.MoveLast
rsperg.MoveFirst

A seguir apenas verificamos se realmente existem perguntas no recordset gerado , se não houver perguntas avisamos o usuário e saímos da rotina:

If rsperg.RecordCount > 0 Then
   posicao = rsperg.RecordCount
Else
    msgbox 'Não há perguntas cadastradas para esta fase ! "  

    exit sub

End If

Agora vamos gerar um número aleatório entre 1 e a quantidade de registros que existe no recordset ( posição). Com isto sempre estaremos trabalhando com as perguntas existentes no arquivo. Com o número gerado movemos a ponteiro para o registro com este número.

questao = Int((posicao * Rnd) + 1)
Move questao

Finalmente com o ponteiro no registro , extraímos os campos referentes a pergunta e as opções de resposta. Usamos o objeto Fields , onde rsperg.Fields(1) refere-se ao segundo campo do recordset ( o indíce zero é o primeiro campo ). 

lblpergunta.Caption = rsperg.Fields(1)

For i = 0 To 3
   lblresp(i).Caption = rsperg.Fields(i + 2)
Next

4-) Pedindo Ajuda

O usuário pode pedir Ajuda durante o jogo ( a quantidade de vezes que ele pode pedir ajuda você configura no arquivo SHOW.INI , lembra ? ) . Aqui usamos os agentes microsoft - Genie e Merlin. (Você pode usar outros...). 

Então quando o usuário clica no botão ajuda temos o seguinte código:

Se o botão estiver exibindo a palavra Ajuda , então , a primeira coisa que verificamos é a fase do jogo em que estamos.

Se a fase do jogo não for a última fase ( if fase < 4 ) então verificamos se o agente já esta carregado (if Not estacarregado ); 

Se o agente não estiver carregado incrementamos a variável ajuda de uma unidade e verificamos se o agente ainda pode ser carregado ( if genio then/ if magico then ).  

As variáveis públicas genio e magico são variáveis boleanas definidas no módulo do projeto e de início possuem o valor True ;

Quando o número de vezes que o usuário pediu ajuda for maior que a quantidade de ajuda definida no arquivo Show.ini ( If ajuda > valorajuda Then ) então genio ou magico recebem o valor False não podendo ser mais carregados.

O código para carga do agente é o seguinte:

            Agent1.Characters.Load "Genie", DataAtor    'carrega o ator
            Set Genie = Agent1.Characters("Genie")        'define o ator que vai atuar
            estacarregado = True
            Genie.LanguageID = &H409                          'define a linguagem
            Genie.MoveTo 590, 240
            Genie.Show                                               'faz o ator aparecer

Para recebe Ajuda você deve clicar no agente desejado para ele 'falar' a resposta correta para você (você pode implementar o efeito sonoro de voz para  agente ... ). O código é o seguinte:

Ao clicar em um agente , verificamos qual o agente que você clicou ( CharacterID = "Merlin" ) e , se o número de ajudas solicitado for maior que o permitido definimos a variável magico ou genio , conforme o agente , para False de forma que este agente não poderá ser mais carregado.

A seguir  fazermos o agente 'falar' ( Genie.Speak fala ) a resposta correta. A resposta correta é o sétimo campo do recordset rsperg ( rsperg.fields(6) ) . 

5-) Verificando a resposta correta

Quando o usuário seleciona uma opção e clica no botão SIM , o código a seguir entra em ação :

Ao clicar no botão SIM , verificamos se a seleção é igual a resposta correta (selecao =  rsperg.fields(6)) ; se a resposta for correta atualizamos o registro marcando-o como já utilizado através da rotina:

Private Sub atualiza_registro()
   rsperg.Edit
  rsperg!ja_utilizada = "S"
  rsperg.Update
End Sub

A  seguir  emitimos o aviso sonoro (Call sndPlaySound("c:\ashowzecao\certa.wav", 0) ) , incrementamos a variável pergunta de uma unidade ( pergunta = pergunta + 1 )  , verificamos se estamos na última fase ( em caso positivo descarregamos o formulário e o jogo é encerrado ). 

Se a variável pergunta for maior que 5 ,  retornamos ao valor 1 e mudamos de fase :

             If Pergunta > 5 Then
                     Fase = Fase + 1
                     Pergunta = 1
              End If

Se o usuário errar ou escolher parar o jogo , o código a seguir é executado:

              lblresp(rsperg(6) - 1).ForeColor = vbWhite
              lblresp(selecao - 1).ForeColor = vbYellow
              Refresh
              Call sndPlaySound("c:\ashowzecao\errada.wav", 0)
              Sleep 4000
              Unload Me
              frmparar.Show vbModa

Mostramos qual a resposta correta (   lblresp(rsperg(6) - 1).ForeColor = vbWhite ) ,  emitimos o aviso sonoro ,  usamos uma pausa de 4 segundos ( sleep 4000 ) - declarada no módulo do projeto) e o jogo é encerrado.

Com isso vou terminando por aqui as explicações sobre este jogo.( O código dos demais formulários não apresentam nada de novo).

A intenção foi mostrar as principais rotinas envolvidas na criação de um projeto de um jogo usando banco de dados e alguns efeitos . Se você quiser e tiver tempo pode incrementar o jogo com telas , sons e efeitos tornando-o um mais amigável  e mais eficiente.

Se não quiser pode jogar a vontade com a vantagem que você pode cadastrar as suas perguntas e respostas  e alterar alguns parâmetros como tempo de resposta e quantidade de ajudas. 

Percebeu que não é preciso muito para você um criar um projeto viável comercialmente e  ganhar uns trocados... ?

Agora é com você...

Obs: Eu vou disponibilizar somente os códigos fontes do jogo , os arquivos de som você vai ter que gerar para poder usar. Infelizmente os arquivos WAV ocupam muito espaço , que para mim é precioso.

O jogo completo esta no   Super DVD Visual Basic. 

Para baixar os fontes clique aqui :   Show do Zecão  ( 154 KB )

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

• Seção VB .NET do Site Macoratti.net

• Super DVD .NET - A sua porta de entrada na plataforma .NET

• Super DVD Vídeo Aulas - Vídeo Aula sobre VB .NET, ASP .NET e C#

• Seção C# do site Macoratti.net

• Super DVD C#

• Super DVD Visual Basic

• Curso Básico VB .NET - Vídeo Aulas

• Curso C# Básico - Vídeo Aulas

• VB .NET - O jogo PacMan (Come-Come) - Macoratti.net

• C# - Jogo Blaster (Space Invaders) - Macoratti.net

• C# - Jogo de Xadrez - Macoratti.net

• VB6 - Jogo de damas - Macoratti.net

• Jogo - Quem sabe mais ?

• SUDOKU

• Jogo de Xadrez on/off line

• Show do Zecão

• O famoso jogo da velha

• VB 2005 - O jogo paciência

• Uma variação do jogo Solitaire

• Batalha Naval

• SimVBCity

• Tetris

• PacMan (come-come)

• VB .NET - Jogo da Memória (Genius)

• VB6 - Jogo de Damas

• VB .NET - Jogo de Quebra-cabeças com o Bob Esponja

• VB .NET - Jogo de Xadrez

• VB .NET - Um jogo de batalha aérea

• VB .NET - Quebra-Cabeça Numérico

• VB6 - O jogo Donkey Kong

• VB .NET - O jogo da Velha

José Carlos Macoratti