Controlo do fluxo do programa

Select..case

Uma variante de endereçamento, semelhante à sequência de ifs, é o select case. Este é útil se esperamos respostas definidas, que não estão dentro de um intervalo (como entre 3,4 e 6,7), mas assumem valores específicos (um, sete, nove, carro, mesa...)

Uma última cláusula, case else, processa todos os casos que não são apanhados pela previsão.

No exemplo abaixo usamos também exemplos de instruções para strings:

• ltrim(variavel): remove da string "variavel" os espaços em branco à esquerda
• rtrim(variavel): remove da string "variavel" os espaços em branco à direita
• (trim(variavel): ambas as coisas)
• ucase(variavel): converte o argumento para maiúscula (minúsculas: lcase())
• mid(string,m,n): refere, na string, uma sua parte que começa com o carácter em posição m e tem o comprimento de n caracteres.

' case.vbs 11:22 01-05-2008
' Exemplo de uso do select case

' Variável para obter a entrada
Cor=""

' Entrada
Cor= inputbox("Escolha uma cor: R, G ou B:")

' Remover da entrada espaços à direita e à esquerda
Cor= ltrim(rtrim(Cor))

' Passar a entrada a tudo maiúsculas
Cor= ucase(Cor)

' Dar a resposta
select case mid(Cor,1,1) ' Usar apenas o primeiro caracter
			 ' de "Cor"
	case "R"
		msgbox "Cor vermelha. A oposta é cião."
	case "G"
		msgbox "Cor verde. A oposta é magenta."
	case "B"
		msgbox "Cor azul. A oposta é amarelo."
	case else
		msgbox "Só podemos processar R, G e B."
end select

' FIM

Índice | Comente

Início: 25/4/2008

Última modificação: 18:43 06-05-2008