Algumas vezes é conveniente atribuir mais de um valor relacionado a uma única variável. Para isso, pode-se criar uma variável que contém uma série de valores, uma variável do tipo array, ou vetor.
Para declarar uma variável explicitamente, utiliza-se o comando Dim. A declaração de um array utiliza parênteses contendo sua dimensão.
Exemplo:
Dim A(10)
Pode-se atribuir dados a cada um dos elementos de um array usando-se um índice começando do zero e terminando no tamanho declarado (o número de elementos do array é sempre o número mostrado nos parênteses mais um).
Exemplo:
A(0) = 256
A(1) = 324
A(2) = 100
…
A(10) = 55
Também é possível criar um array utilizando o método Array(arglist) do VBScript. Este comando retorna uma variável do tipo Variant que contém um array. Os valores deverão ser separados por vírgula.
Exemplo:
A = Array(10,20,30)
MsgBox A(0)
MsgBox A(1)
MsgBox A(2)
Split(expression, [delimiter], [count], [compare])
Retorna um array unidimensional baseada em zero, contendo um número especificado de substrings.
Expression: Obrigatório. Expressão de String contendo subseqüências e delimitadores.
Delimiter: Opcional. Qualquer caractere singular usado para identificar limites subseqüência de caracteres. Se Delimiter for omitido, o caractere de espaço (” “) é assumido como o delimitador.
Count: Opcional. Número máximo de substrings no qual a seqüência de caracteres de entrada deve ser dividida. O padrão, – 1, indica que a seqüência de caracteres de entrada deve ser dividida em cada ocorrência da seqüência Delimiter.
Compare: Opcional. Valor numérico indicando a comparação para usar ao avaliar substrings.
Exemplo:
MyString = "Os que muito falam, pouco fazem de bom"
MyArray = Split(MyString, " ")
' MyArray(0) contem "Os"
' MyArray(1) contem "que"
' MyArray(2) contem "muito"
' MyArray(3) contem "falam,"
' MyArray(4) contem "pouco"
' MyArray(5) contem "fazem"
' MyArray(6) contem "de"
' MyArray(7) contem "bom."
for i=0 to 7
MsgBox MyArray(i)
Next
UBound(arrayname)
Retorna a dimensão do array (arrayname).
Exemplo:
Dim MyArray(3)
MsgBox UBound(MyArray)
Aparece uma caixa de mensagem com o valor 3.
Configuração de Driver em execução
Para modificar em execução qualquer propriedade do dialog do driver de comunicação deve ser criado um array com os parâmetros que deseja alterar. Os mais comuns são:
Figura 13
Exemplo:
Dim arr(6)
'configura os elementos do array
arr(1) = "IO.Type"
arr(2) = "Serial"
arr(3) = "IO.Serial.Port"
arr(4) = 1
arr(5) = "IO.serial.BaudRate"
arr(6) = 19200
Um jeito mais elegante de escrever seria:
Dim arr(3)
arr(1) = Array("IO.Type", "Serial")
arr(2) = Array("IO.Serial.Port", 1)
arr(3) = Array("IO.serial.BaudRate", 19200)
Exercícios:
1. Ao clique de um botão, crie um array com todos os dias da semana. Guarde o array em um tag interno.
2. Ao clicar em um botão, leia cada posição do array criado no exercício anterior e exiba cada um em uma caixa de mensagem. Para saber o tamanho do array, use o comando UBound.
3. Insira uma lista (Listbox). No OnStartRunning digite o seguinte script:
'Preenche a ListBox
Clear()
AddItem "Manhã,Tarde,Noite"
AddItem "violeta;anil;azul;verde;amarelo;laranja;vermelho"
AddItem "1;2;3;4"
4. Crie um botão que separe cada palavra e exiba-as em uma caixa de mensagem. Cuidado que cada linha contém uma quantidade diferente de palavras.
5. Escreva o array necessário para configurar o driver com os seguintes parâmetros:
a) Ethernet / 127.0.0.1 / Porta 502
b) Serial / COM1 / Baudrate 19200
Anexos:
