Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Tomando decisões, fazendo o seu micro pensar

Aula 15

No módulo passado, criamos um projeto na qual exemplificamos os processos de repetição através do comando FOR, porém temos um problema no projeto gerado:

1. Se o sistema estiver pronto para uma contagem progressiva e o usuário inserir o número inicial maior que o número final, nada será executado;

2. Se o sistema estiver pronto para uma contagem regressiva e o usuário inserir o número inicial menor que o número final, nada será executado.

Como fazer para que o sistema, de forma automática, se utilize de um FOR progressivo ou regressivo, de acordo com a diferença entre os números inicial e final? A resposta é simples:

Iremos gerar um teste que, se o número inicial for maior que o número final, a contagem será regressiva, caso contrário, a contagem será progressiva.

Observe que vinculamos um teste condicional a duas situações possíveis e, para este procedimento, temos no VB6 um comando que serve como uma luva ... A sintaxe básica deste comando é a seguinte:

If <teste> then
comandos a serem executados caso teste seja verdadeiro
Else
comandos a serem executados caso o teste seja falso
End If

Observe em linguagem simples, como seria nosso código para a condição exposta:

If número_inicial > número_final then
realize uma contagem regressiva
Else
realize uma contagem progressiva
End if

Vamos então na forma de código VB, alterar o botão "Inicia contagem", que foi criado no projeto do módulo passado e inserir o código que segue:

Private Sub Command1_Click()
numi = Val(Text1.Text)
numf = Val(Text2.Text)
If numi > numf Then
    For contador = numi To numf Step -1
    List1.AddItem (Str(contador))
    Next
Else
    For contador = numi To numf
    List1.AddItem (Str(contador))
    Next
End If
End Sub

Observe que geramos duas rotinas distintas, cada uma para um dos casos (verdadeiro ou falso) e através deste mecanismo, conseguimos fazer com que o nosso sistema seja "inteligente" e esteja pronto para agir em diversas situações.

O procedimento de "fazer o sistema pensar" é de grande utilidade em aplicativos comerciais, pois nunca sabemos como o usuário irá agir.

Execute agora o projeto e faça entradas com números iniciais maiores que os finais e da forma inversa também.

No próximo módulo iremos estudar outras estruturas de repetição oferecidas pelo VB.

Voltar