Estruturas de controle

Parent Previous Next

ESTRUTURAS DE CONTROLE


A seguir as funções serão detalhadas.

Do

Descrição: repete um grupo de instruções enquanto as condições forem satisfeitas.

Sintaxe:

Do

      <instruções>

Loop While <condição>

Repete enquanto a condição for verdadeira


Exemplo:

Calcular o número de ocorrências de um caractere "p" ou de uma palavra em V1:

TextoAntes = V1

Caractere = "p"

NumVezes = 0

Indice = 1

ResultadoDesejado = 3

Do while Indice <> 0

    Indice = InStr(TextoAntes, Caractere)

    If Indice > 0 Then

       NumVezes = NumVezes + 1

       TextoAntes = Mid(TextoAntes,Indice)

    Endif

Loop

Select Case ResultadoDesejado

Case 1

   V = ResultadoDesejado

Case 2

   V = TextoAntes

Case 3

   V = Str(NumVezes) & ":" & TextoAntes

EndSelect


For

Descrição: repete um grupo de instruções o número de vezes indicado.

Sintaxe:

For <contador> = <primeiro> To <último> [Passo <passo>]

     <instruções>

Next [<contador>]

Repete enquanto a condição for verdadeira


If...Else...Endif

Descrição: executa um grupo de instruções em função de condições definidas.

Sintaxe:

If <condição1> Then

  <instrução1>

ElseIf <condição2> Then

  <instrução2>

Else <condição3> Then

  <instrução3>

Endif



Esta parte é opcional, pode conter "n" condições.


Esta parte é opcional, pode conter "n" condições.

Exemplo:

Exemplo

Comentário

If Idade < 18 Then

 v = "em avaliação"

Else

 v = "avaliado"

Endif

Caso a resposta para a variável Idade seja diferente de 18, então a nova variável que será criada terá valor "avaliado", ou então, se igual a 18, valor "em avaliação".

If Idade > 18 And Sexo In "Masculino" Then

  v = "Homem com habilitação"

Elseif Idade <>18 And Sexo In "Masculino" Then

  v = "Homem sem habilitação"

Elseif Idade > 18 And Sexo In "Feminino" Then

  v = "Mulher com habilitação"

Else

  v = "Mulher sem habilitação"

Endif

Neste exemplo, são verificadas duas condições, com a variável Sexo e Idade, trazendo respostas diferentes.


Select Case

Descrição: executa um grupo de instruções, caso as condições sejam verificadas.

Sintaxe:

Select Case <expressão>

Case

  <instrução1>

CaseElse

  <instrução2>

EndSelect


Esta parte é opcional, pode conter "n" condições.


Esta parte é opcional, pode conter "n" condições.

Exemplo:

Exemplo

Comentário

Select Case Nota

Case 5

   V = "Ótimo"

CaseElse

   V = "Em avaliação"

EndSelect

Primeiro a variável Nota é selecionada. Caso ela tenha valor 5, a nova variável terá valor "Ótimo", caso contrário, terá valor "Em avaliação".

referencia = 5

Select Case referencia

Case Nota

   V = "Ótimo"

CaseElse

   V = "Em avaliação"

EndSelect

Semelhante ao exemplo anterior, no entanto, é colocado um valor de referência e um comparativo da nota a partir dele.

Select Case Nota

Case 4

Case 5

   V = "Ótimo"

Case 3

   V = "Regular"

CaseElse

   V = "Em avaliação"

EndSelect

Neste exemplo, selecionamos a variável Nota e caso a função encontre como resposta 4 ou 5, assumirá o valor "Ótimo" como resposta, caso encontre o valor 3, assumirá "Regular" e, qualquer outro valor, "Em avaliação".

referencia = "Azul"

Select Case referencia

Case Caracteristica

   V = "Identificado"

CaseElse

   V = "Não identificado"

EndSelect

Aqui, busca em uma resposta o texto exato (aqui precisa ser a resposta completa e não apenas uma palavra, ou parte), assumirá o valor "Identificado", caso contrário "Não identificado".


Until

Descrição: executa um grupo de instruções, caso as condições sejam verificadas.

Sintaxe:

Do Until <condição>

  <instrução>

Loop


Repete enquanto a condição for verdadeira.


While

Descrição: executa um grupo de instruções, caso as condições sejam verificadas.

Sintaxe:

Do While <condição>

  <instrução>

Loop


Repete enquanto a condição for verdadeira.

Exemplo:

Exemplo

Comentário

T(1) = V1.Number

N(1) = V1.Title

T(2) = V2.Number

N(2) = V2.Title

T(3) = V3.Number

N(3) = V3.Title

T(4) = V4.Number

N(4) = V4.Title

T(5) = V5.Number

N(5) = V5.Title

permutacao = True

Do While permutacao = True

    permutacao = False

    For cpt = 1 To 4

    If T(cpt) < T(cpt+1) Then

       permutacao = True

       tmp = T(cpt)

       T(cpt) = T(cpt+1)

       T(cpt+1) = tmp

       tmpch = N(cpt)

       N(cpt) = N(cpt+1)

       N(cpt+1) = tmpch

    Endif

   Next cpt

Loop

V = N(1) & ";" & N(2) & ";" & N(3) & ";" & N(4) & ";" & N(5)



Created with the Personal Edition of HelpNDoc: Easily create Web Help sites