António Roberto Software
a.roberto@mail.telepac.pt

Algoritmos e Estruturas de Dados
1º ano da Licenciatura em Informática de Gestão

Aula de 30 de Março de 2004

Introdução de uma Aposta de Totoloto e simulação do Sorteio         versão 2   com Control Arrays

Control Arrays: Alteração do projecto da aula anterior, com a substituição das TextBoxes isoladas por arrays de TextBoxes.

Benefícios da utilização de Control Arrays neste projecto:

Sem Control Arrays

Com Control Arrays

Aposta(1) = CInt(txtNumero1.Text)
Aposta(2) =
CInt(txtNumero2.Text)
Aposta(3) =
CInt(txtNumero3.Text)
Aposta(4) =
CInt(txtNumero4.Text)
Aposta(5) =
CInt(txtNumero5.Text)
Aposta(6) =
CInt(txtNumero6.Text)

For i = 1 To 6
   Aposta(i) =
CInt(txtNumero(i - 1).Text)
Next i

Sem Control Arrays

Com Control Arrays

txtChave1.Text = CStr(Chave(1))
txtChave2.Text = C
Str(Chave(2))
txtChave3.Text = C
Str(Chave(3))
txtChave4.Text = C
Str(Chave(4))
txtChave5.Text = C
Str(Chave(5))
txtChave5.Text = C
Str(Chave(5))

For i = 1 To 6
   txtChave(i - 1).Text = CStr(Chave(i))
Next i

Sem Control Arrays, uma subrotina por cada TextBox para responder ao evento Validate
    Sub txtNumero1_Validate(ByRef Cancel As Boolean)
    ...
    Sub txtNumero6_Validate(ByRef Cancel As Boolean)

Com Control Arrays, apenas uma subrotina para todas as TextBoxes de um array
    Sub txtNumero_Validate(Index As Integer, Cancel As Boolean)
    Resposta ao evento Validate ocorrido numa das TextBoxs do Control Array txtNumero.
    O parâmetro Index identifica a TextBox onde ocorreu o evento.

Proposta de exercício: aproveite o evento Validate para impedir que o utilizador introduza números repetidos na aposta.
 

Nome do Projecto

 Tipo

Código Fonte

Totoloto

Standard EXE

Totoloto