Júlio Battisti Livros e Cursosa sua sala de aula na internet

Fazendo cálculos e comparações com o VBScript – Operadores

Para realizarmos cálculos e comparações entre variáveis, podemos utilizar operadores. Neste item trataremos sobre operadores aritméticos e operadores de comparação.

Fazendo cálculos com os Operadores aritméticos.
Podemos realizar cálculos no VBA, utilizamos operadores aritméticos. Na Tabela a seguir, temos uma descrição dos operadores que podemos utilizar:

TABELA - Operadores Aritméticos do VBA

Exemplo: Vamos abrir o formulário Teste, do banco de dados Northwind.mdb e criar um botão chamado ExOperadores. Vamos criar um procedimento associado a esse botão, onde exemplificamos o uso dos diversos operadores aritméticos.

Para criar o exemplo proposto faça o seguinte:

• Abra o banco de dados Nothwind.mdb;
• Abra o formulário teste em modo design;
• Crie um botão de comando com o nome de ExOperadores;
• Associe o seguinte código ao evento Ao Clicar, deste botão de comando:

• Após digitar o código Feche o Ambiente de Desenvolvimento;
• Salve o Formulário;
• Vá para o modo Formulário e dê um clique no botão "ExOperadores";
• Será exibida a seguinte mensagem:

Figura 144 – Mensagem.

• Dê um clique no botão OK.
• Será exibida a seguinte mensagem:

Figura 145 – Mensagem.

• Dê um clique no botão OK.
• Será exibida a seguinte mensagem:

Figura 146 – Mensagem.

• Dê um clique no botão OK.
• Será exibida a seguinte mensagem:

Figura 147 – Mensagem.

• Dê um clique no botão OK.
• Será exibida a seguinte mensagem:

Figura 148 – Mensagem.

• Dê um clique no botão OK.
• Você estará de volta ao formulário Teste.
• Mantenha este formulário carregado. Iremos utilizá-lo nos próximos exemplos.

Neste exemplo utilizamos os operadores aritméticos, para realizar uma série de operações com os valores atribuídos às variáveis “a” e “b”. Depois utilizamos a função MsgBox, para exibir os resultados obtidos. O uso da função MsgBox, merece alguns comentários. Primeiro, utilizamos a função MsgBox, para exibir mensagens em uma pequena janela, chamada de Janela Pop-Up. Podemos exibir texto e também valores de variáveis. Quando temos que exibir diversos componentes, como um pouco de texto, em seguida o valor de uma variável, depois mais texto, e assim por diante, devemos utilizar o operador de concatenação &. Este operador permite que as diversas partes sejam exibidas como uma única mensagem. Considere o exemplo da seguinte linha de código:

MsgBox "Os números são: " & a & " e " & b & Chr(13)

Neste exemplo, primeiro é exibido o texto: "Os números são:" , logo em seguida o valor da variável a. Observe que as duas partes são concatenadas com o operador &. Depois concatenamos o valor da variável b, e finalmente utilizamos a função Chr(13). A função Chr(número), envia o caracter correspondente ao número digitado entre parênteses. Este número, é o número do caracter no padrão ASCII (American Standard Caracter Interchange Information). No código ASCII, cada caracter possui um número associado. No caso o número 13, é associado ao <ENTER>. Com isso estamos enviando um <ENTER>, para a caixa de mensagem, o que equivale a uma troca de linha. Com isso, utilizamos o Chr(13), para simular um <ENTER>, de tal maneira que os dados não saiam todos “emendados”, na mesma linha.

Com o uso de operadores, podemos realizar uma série de operações sobre as variáveis existentes no Script.

Comparando valores com os Operadores de comparação.

Em determinadas situações, existe a necessidade de efetuarmos comparações entre os valores de duas ou mais variáveis ou expressões. Com base no resultado da comparação – Verdadeiro ou Falso -, a execução do código VBA pode seguir caminhos diferentes. Normalmente utilizamos comparações, nas estruturas de controle do código, também conhecidas como laços de controle. Para que possamos estudar os operadores de comparação, vamos apresentar uma das estruturas de controle mais simples que existem no VBA, a estrutura If Then Else. A seguir temos um exemplo do funcionamento da estrutura If Then Else:

If x>y Then
     ‘ Comandos a serem executados quando x for maior do que y
     Comando 1
            Comando 2
            ...
            Comando n
Else
     ‘ Comandos a serem executados quando x for menor ou igual a y
     Comando 1
            Comando 2
            ...
            Comando n
End If

Conforme podemos ver, a estrutura If Then Else, é bastante simples. Fazemos um teste no início da estrutura. Se o valor do teste for verdadeiro, executamos os comandos na seqüência, caso contrário, executamos os comandos após o Else. Note que utilizamos o operador de comparação “maior do que: >”, no caso x>y, estamos testando se x é maior do que y.

Podemos utilizar laços If Then Else mais complexos, como os do exemplo:

If x>y Then
     ‘ Comandos a serem executados quando x for maior do que y
     Comando 1
            Comando 2
            ...
            Comando n
ElseIf x=y Then
     ‘ Comandos a serem executados quando x for igual a  y
     Comando 1
            Comando 2
            ...
            Comando n
Else
     ‘ Comandos a serem executados quando x for menor do que y
     Comando 1
            Comando 2
            ...
            Comando n
End If

Podemos utilizar tantos ElseIf, quantos forem necessários.

Na Tabela a seguir temos uma descrição dos operadores de comparação.

Tabela - Operadores de comparação do VBA.

Exemplo: Com o formulário teste aberto vá para o modo design, do banco de dados Northwind.mdb e crie um botão chamado ExOperadoresComparação. Vamos criar um procedimento associado a esse botão, onde exemplificamos o uso dos diversos operadores de comparação do VBA.

Para criar o exemplo proposto faça o seguinte:

• Vá para o modo design do formulário Teste;
• Crie um botão de comando com o nome de ExOperadoresComparação;
• Associe o seguinte código ao evento Ao Clicar, deste botão de comando:

• Após digitar o código Feche o Ambiente de Desenvolvimento;
• Salve o Formulário;
• Vá para o modo Formulário e dê um clique no botão "ExOperadoresAritméticos";
• Será exibida a seguinte mensagem:

Figura 149 – Mensagem.

• Dê um clique no botão OK.
• Será exibida a seguinte mensagem:

Figura 150 – Mensagem.

• Dê um clique no botão OK.
• Será exibida a seguinte mensagem:

Figura 151 – Mensagem.

• Dê um clique no botão OK.
• Será exibida a seguinte mensagem:

Figura 152 – Mensagem.

• Dê um clique no botão OK.
• Você estará de volta ao formulário teste.
• Mantenha-o aberto para os próximos exemplos.

O uso de Operadores de comparação, amplia o leque de possibilidades para nossos programas em VBA. Devemos ter alguns cuidados quando comparamos variáveis que possuem valores de tipos diferentes, como por exemplo, número e texto. A Tabela a seguir descreve o que acontece, quando comparamos variáveis com valores de tipos diferentes.

Tabela - Comparando valores de tipos diferentes.