11.- Estrutura CASE
O Teu Mundo - Muito mais do que possas imaginar... :: Actualidade :: Informática :: Programação e Desenvolvimento :: Visual Basic
Página 1 de 1
11.- Estrutura CASE
0 votosCom a estrutura de controle CASE podemos avaliar uma variável e realizar ações dependendo do valor desta. A diferença com o IF consiste em que o número de possibilidades da avaliação desta variável não tem porque ser sim ou não, podendo fazer coisas para um número indeterminado de valores.
A sintaxe é a seguinte:
Funciona assim, primeiro se avalia a variável, se essa variável tiver como valor o valor1 realizamos as ações associadas ao valor1. Se tiver o valor2, executamos as ações relacionadas com este valor3. Assim com quantos valores desejarmos. Por último temos um ELSE para realizar ações no caso de que não tivessem sido nenhum dos valores anteriores. Este ELSE é opcional.
Vejamos com um exemplo esta sentença muito simples. O primeiro que faz é solicitar um número e logo informa o dia da semana com o que corresponde. Se o número não for do um ao sete, informa isso também.
Pode-se ver em funcionamento este script.
A sintaxe é a seguinte:
- Código:
SELECT CASE (variavel)
CASE (valor1):
(acao para caso valor1)
CASE (valor3):
(acao para caso valor2)
CASE (valor3):
(acao para caso valor3)
CASE ELSE:
(acao em caso de que nao se cumpra nenhum anterior caso)
END SELECT
Funciona assim, primeiro se avalia a variável, se essa variável tiver como valor o valor1 realizamos as ações associadas ao valor1. Se tiver o valor2, executamos as ações relacionadas com este valor3. Assim com quantos valores desejarmos. Por último temos um ELSE para realizar ações no caso de que não tivessem sido nenhum dos valores anteriores. Este ELSE é opcional.
Vejamos com um exemplo esta sentença muito simples. O primeiro que faz é solicitar um número e logo informa o dia da semana com o que corresponde. Se o número não for do um ao sete, informa isso também.
- Código:
dim dia
dia = inputbox ("diz um dia da semana")
SELECT CASE dia
CASE 1:
msgbox("O dia é SEGUNDA")
CASE 2:
msgbox("O dia é TERÇA")
CASE 3:
msgbox("O dia é QUARTA")
CASE 4:
msgbox("O dia é QUINTA")
CASE 5:
msgbox("O dia é SEXTA")
CASE 6:
msgbox("O dia é SABADO")
CASE 7:
msgbox("O dia é DOMINGO")
CASE ELSE:
msgbox("Tem que ser um dia da semana em número, do 1 ao 7")
END SELECT
Pode-se ver em funcionamento este script.
Miguel Rocha- Mensagens : 692
Pontos : 25924
Reputação : 11
Idade : 32
Localização : Porto
O Teu Mundo - Muito mais do que possas imaginar... :: Actualidade :: Informática :: Programação e Desenvolvimento :: Visual Basic
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|