Aula 8 - VBS - Comando If...Then...Else

Caro internauta...

Esta aula é continuação da aula 7, caso seja sua primeira leitura no blog, pode ser muito necessário que você leia a aulta anterior, clicando abaixo:

Aula 7 - VBS - Comando If...Then...Else

Já expliquei parte da teoria sobre o condicional: " If... then ... else... end if " , inclusive, foi falado que podemos utilizá-lo de duas maneiras (a grosso modo), estudamos um exemplo da primeira maneira, nesta postagem estudaremos um exemplo da segunda maneira.

Contextualizando:

Ao criar um programa/aplicativo/jogo, o programador tem que prever todas as ações do futuro usuário, isso nem sempre é fácil... para cada ação do usuário é interessante ter uma instrução para a máquina executar... este é o papel do programador.

Já estudamos que o condicional cumpre esta tarefa, aliás, é um dos comandos que nos ajuda nesta tarefa de previsão.

No primeiro exemplo, tínhamos, aparentemente, duas opções: clicar nos botões SIM ou NÃO, mas se tívessemos o Botão CANCELAR??? Ou, se o Usuário ao invés de clicar nos botões SIM ou NÃO resolvesse fechar o programinha??? 

A ideia é fazer você pensar... 

Outros exemplos: 

1 - Você criou um programa que pede para digitar um número, mas a pessoa digita uma letra? Se o programador não prever isto, seu programinha terá um BUG/DEFEITO.

2 -Você cria um programinha para classificar um número em PAR ou ÍMPAR, mas esquece que o número ZERO "0" não é nem PAR e nem ÍMPAR... outro bug...

Então a dica é: Cuidado e Atenção na hora de usar o condicional... 

Vamos ao exemplo, com três opções:

1. if    [primeira-condição]    then
2.      [instrução 1]
3. elseif   [segunda-condição]   then
4.     [instrução 2]
5. else
6.    [instrução 3]
7. end if

Agora com quatro opções:

1. if    [primeira-condição]    then
2.      [instrução 1]
3. elseif   [segunda-condição]   then
4.     [instrução 2]
5. elseif   [terceira-condição]   then
6.     [instrução 3]
7. else
8.    [instrução 4]
9. end if

E daí por diante... ou seja, você pode usar com quantas condições forem necessárias, basta repetir a parte: 

elseif   [segunda-condição]   then
    [instrução 2]

Dica importantíssima:
Sempre deixe a última parte do comando para os casos não previstos, chamarei aqui de resíduos, ou seja aquilo que não é esperado, exemplo da pessoa que digita uma letra, onde era para digitar um número, você não conseguirá prever todas as letras que a pessoa digitará...

Nosso exemplo computacional:

Criar um programinha que pede para pessoa digitar um dos números 1, 2 ou 3.

Para cada número digitado, o computador retorna o número em Inglês e em algarismos romanos.

Resíduo: Números diferentes de 1,2 e 3, qualquer letra ou qualquer ação que não seja digitar 1, 2 ou 3.


 Segue o código...(copie e cole no bloco de notas, salve com a extensão VBS):

dim perg, um, dois, tres, res

perg = inputbox("Digite 1, 2 ou 3: ","Condicional -If")

if perg = "1" then 

    um = msgbox ("Número 1: Em inglês - ONE, Algarimos Romanos -I ",0+48, "Resposta para um") 

elseif perg = "2" then 

    dois = msgbox ("Número 2: Em inglês - TWO, Algarimos Romanos -II ",0+48, "Resposta para dois")

elseif perg = "3" then

    dois = msgbox ("Número 3: Em inglês - THREE, Algarimos Romanos -III ",0+48, "Resposta para dois")

else

    res = msgbox ("Você não digitou 1, 2 ou 3. Tente novamente ",0+16, "Resposta para dois")

end if


Ilustação:

 

Atenção: Qualquer coisa que a pessoa digitar diferente de 1,2 ou 3 será acionada a última instrução, por isto a chamo de residual.