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:
