Noções de VBScript no Software Elipse E3: Lição 5 – Controle de Fluxo.

Comando For…Next

Repete um bloco de instruções um determinado número de vezes, do <ínicio> ao < fim >:

For < contador > = < início > To < fim >
< bloco de instruções > 
Next

Exemplos:

'Zera os displays
For i=1 to 5
Screen.Item("Display"&i).Value = 0
next

Exercícios:

1. Crie três tags de demonstração.
2. Insira na tela um gráfico.
3. Ao clicar em um botão (Adicionar), cria uma pena para cada tag.
4. Ao clicar em um botão (Remover), remove todas as penas.

Comando For Each … Next

Um laço For Each … Next é similar a um laço For … Next. Ao invés de repetir as instruções de um bloco um número específico de vezes, um laço For Each … Next repete um grupo de comandos para cada item numa coleção. Esse comando é bastante útil quando não sabemos a quantidade de elementos.

For each < objeto > in < Colecao > 
< bloco de instruções > 
Next

Exemplos:

'Exibe o nome de todas as tags
For each tag in Application.GetObject("Dados")
MsgBox tag.Name
next

Exercícios:

5. Crie três tags de demonstração.
6. Insira na tela um gráfico.
7. Ao clicar em um botão (Adicionar), cria uma pena para cada tag.

Comando While…Wend

Executa um bloco de instruções enquanto uma determinada condição é verdadeira:

While < condição >
< bloco de instruções >
Wend

Exemplos:

‘Soma 1 enquanto for menor que 10
While Tag.Value < 10
Tag.Value = Tag.Value + 1
Wend

Exercícios:

8. Crie na tela um retângulo horizontal para ser uma barra de progresso.
9. Faça a propriedade HorizontalPercentFill do retângulo variar de 0 a 100 dentro de um comando while. Dica: Para atualizar a tela, utilize o comando Refresh do Frame.

Anexos:

Licao5.zip

Este artigo foi útil? Was this post helpful?
Yes2
No0

Deixe seu Comentário

Seu endereço de e-mail não será publicado. Campos marcados com asterisco são obrigatórios *