Tutorial Instruções Do…Loop / Select…Case

Novamente, nós definiremos uma condição e uma ou mais instruções a serem executadas enquanto a condição for válida.

<%
varVezes=0
Do While varVezes<10

    response.write(“Olá


“)
varVezes=varVezes+1

Loop
%>

Neste exemplo, a condição “varVezes<10” e as instruções definem um texto de resposta e um incremento da variável “varVezes”. No exemplo, varVezes será incrementada até que alcance um valor de 10. Então o loop será encerrado. Várias instruções podem ser usadas dentro do loop.

Do Until….Loop

Identica à instrução anterior, esta também inclui uma codição e uma ou mais instruções:

<%
varVezes=0
Do Until varVezes=10

    response.write(“Olá


“)
varVezes=varVezes+1

Loop
%>

Neste exemplo, a condição é “varVezes=10”, assim varVezes será incrementada até que se torne igual a 10, e então o loop será encerrado.

Vamos ver um exemplo usando Do Until … Loop:

<%
varPriNumero=0
varSegNumero=0

Do Until varPriNumero=15

     Do Until varSegNumero=15
response.write(“X”)
varSegNumero=varSegNumero+1
Loop
Response.write (”
“)
varPriNumero=varPriNumero+1
varSegNumero=varPriNumero

Loop

Response.write (“END”)
%>

O resultado do script acima é este:

 

XXXXXXXXXXXXXXX
XXXXXXXXXXXXXX
XXXXXXXXXXXXX
XXXXXXXXXXXX
XXXXXXXXXXX
XXXXXXXXXX
XXXXXXXXX
XXXXXXXX
XXXXXXX
XXXXXX
XXXXX
XXXX
XXX
XX
X
END

Select Case….End Select

Esta é uma instrução muito útil no caso que necessitarmos testarmos diferentes valores para uma mesma variável. Vejamos um exemplo:

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

<%
varNumero=3
Select Case varNumero
Case 1
Response.write (“Numero 1”)
Case 2
Response.write (“Numero 2”)
Case 3
Response.write (“Numero 3”)
Case 4
Response.write (“Numero 4”)
Case 5
Response.write (“Numero 5”)
Case Else
Response write (“Numero é maior que 5”)
End Select
%>

No exemplo acima, varNumero foi definida com o valor de 3, assim serão executadas as instruções correspondentes ao caso da linha 8 (neste caso apenas uma instrução será executada, mas poderia haver várias instruções). A cláusula Case Else não é obrigatória.

Vejamos um segundo exemplo:

 

1
2
3
4
5
6
7
8
9
10
11
12
13

<%
usuario=request.form(“usuario”)
Select Case usuario
Case “Pedro”
Response.write (“Ola, Pedro”)
Case “Joao”
Response.write (“Ola, Joao”)
Case “Jose”
Response.write (“Ola, Jose”)
Case Else
Response write (“Eu nao o conheco”)
End Select
%>

Vejamos um exemplo diferente: 

backgroundform.html


<div id=HOTWordsTxt name=HOTWordsTxt>Escolha uma cor de fundo

Que cor voce prefere usar como cor de fundo?

Cor Definida
Branco Vermelho Verde Azul

Cor Personalizada

backgroundresponse.asp

<%
tipodecor=Request.form(“tipodecor”)

Select Case tipodecor
case “Definida”
cordefundo=Request.form(“cordefinida”)
Select Case cordefundo
case “#FFFFFF”
textoaexibir=”Branco”
case “#FF0000″
textoaexibir=”Vermelho”
case “#00FF00″
textoaexibir=”Verde”
case “#0000FF”
textoaexibir=”Azul”
End select
case “Personalizada”
cordefundo=Request.form(“minhacor”)
textoaexibir=”Cor Personalizada”
End select
%>


Escolha uma cor de fundo

 

<% =textoaexibir %>

Você pode experimentar este exemplo:

 

Qual a cor que voce prefere como cor de fundo?
Cor Definida BrancoVermelhoVerdeAzul
Cor Personalizada

Faça o primeiro comentário a "Tutorial Instruções Do…Loop / Select…Case"

Comentar

O seu endereço de email não será publicado.


*