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 = CStr(Chave(2))
 txtChave3.Text = CStr(Chave(3))
 txtChave4.Text = CStr(Chave(4))
 txtChave5.Text = CStr(Chave(5))
 txtChave5.Text = CStr(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