António Roberto Software

a.roberto@mail.telepac.pt

Aula de 25 de Março de 2004

Introdução de uma Aposta de Totoloto e simulação do Sorteio         mais um exercício de treino de arrays

O utilizador introduz 6 números inteiros que representam a sua Aposta do Totoloto. O computador gera uma chave aleatória simulando o Sorteio. Calcula quantos números o utilizador acertou.

Divisão do programa em partes. Arrays como parâmetros de subrotinas e funções.  

Diagrama de Estrutura

• Sub GerarAposta(ByRef Aposta() As Integer)
  Gera uma aposta do totoloto, aleatória, sem números repetidos, e sem os números ordenados. O código do corpo da subrotina foi copiado da aula de 23 de Março

• Function Existe(ByVal n As Integer, ByRef a() As Integer) As Boolean
  Verifica se o número passado no parâmetro n é igual a algum dos números do array passado no 2º parâmetro. Executa uma procura sequencial no array. Repare que no VB 6 não é permitido passar arrays por valor.

  Repare como é que a subrotina GerarAposta e a função Existe são usadas em cmdSorteio_Click:

  ' Simular o sorteio e guardar os valores na Chave
  GerarAposta Chave
  

  ' Comparar os números da Aposta com os números da Chave
  NrCertos = 0
  Certos = ""
  For i = 1 To 6
      If Existe(Aposta(i), Chave) Then
          NrCertos = NrCertos + 1
          Certos = Certos + " " + CStr(Aposta(i))
      End If
  Next i

   

• Sub txtNumero1_Validate(ByRef Cancel As Boolean)
  Resposta ao evento Validate ocorrido na TextBox txtNumero1. Apresentação do evento Validate. Validação dos dados introduzidos pelo utilizador. Apresentação da instrução On Error Resume Next. Tratamento de erros e excepções.

 

Nome do Projecto	Tipo	Código Fonte
Totoloto	Standard EXE	Totoloto