Vetor - Procedimento - Função


Introdução:

O formulário para cálculo de contas que foi criado na disciplina de Fundamentos de Bancos de Dados foi o seguinte:

 

Neste formulário, como se bem sabe, o usuário informa o valor de interurbano gasto no mês.

Uma alteração que podemos fazer neste formulário é permitir que o usuário informe o valor do interurbano gasto diariamente durante o mês (não necessariamente haveria valor para todos os dias do mês) e, ao final, o programa calcularia o Valor Interurbano do mês.

Para que isto seja possível, precisamos ter um vetor para armazenar o valor de interurbano de cada dia do mês no qual cada posição do vetor representaria um dia do mês. A solução para isto pode ser assim representada em um novo formulário:

 

 

 

Desta forma, cada vez que o usuário clicar no botão Inserir no vetor, o valor do interurbano é inserido no vetor, na posição do dia que foi informado. Quando terminar, o usuário clica no botão Calcular Interurbano e, com isto, o programa deve percorrer o vetor, somar todos os valores lá inseridos e armazenar esta soma no campo de texto Valor Interurbano, que será o valor do interurbano daquele mês.

 

Para que isto seja possível, o vetor deve ser uma variável que tem escopo PRIVATE, ou seja, ele deve ser criado no formulário e não no botão, porque se ele for criado no botão Inserir no Vetor não poderá ser usado no botão Calcular Interurbano e vice-versa.  No formulário que já possuímos temos variáveis criadas como PRIVATE.

Para isto, precisaremos de alguns conceitos de programação em VB que ainda não vimos:

a) Vetor no VB

No Visual Basic (VB) a sintaxe para criação de vetor é:

PRIVATE  nome_do_vetor(tamanho) as tipo

Exemplo:

PRIVATE meuvetor(5) as Double

No exemplo acima, será criado um vetor com posições de 0 até 4.

Para armazenar um valor em vetor, a sintaxe é parecida com a sintaxe usada em Portugol. Exemplo:

Meuvetor(3) = 100.80

No caso acima, a posição 3 recebe o valor 100.80.

Para armazenar o conteúdo de um textbox em um vetor, basta usar a propriedade text (como já vimos antes).

Exemplo:

Meuvetor(3) = txtValor.text

No exemplo acima, o conteúdo do textbox que tem o nome txtValor será armazenado na posição 3 do vetor chamado Meuvetor.

 

b) Estrutura de repetição com o comando PARA no VB

No VB o comando para é assim:

For variável = valorinicial to valorfinal

     ..... comandos....

Next

 

Exemplo:

X = 0

For  I=1 to 10

     X = X + 1

Next

No exemplo acima a variável X vai receber mais 1 dez vezes.

 

 


Tarefa:

Primeira parte da tarefa (em dupla)

A tarefa consiste em criar os campos que ainda não existem no formulário, criar um vetor para armazenar o valor diário e programar os dois novos botões da seguinte forma:

a) O botão Inserir no Vetor  deve armazenar no vetor o valor do interurbano daquele dia, conforme descrito no item INTRODUÇÃO.

b) O botão Calcular Interurbano deve ser programado para percorrer o vetor, calcular a soma dos interurbanos no mês e armazenar este valor no campo de texto Valor Interurbano.

Data de entrega:

Matutino: 27/06/2013

Noturno: 25/06/2013

Forma de entrega: enviar os arquivos .frm e .frx do formulário (obtidos a partir da exportação do mesmos) para o email This email address is being protected from spambots. You need JavaScript enabled to view it.

 

Segunda parte da tarefa (individual)

 

Atividade individual 1:

Fazer o mesmo processo para o número de pulsos, ou seja, a quantidade de pulsos vai ser digitada por dia e no final será armazenado no banco de dados somente o total de pulsos.

Entretanto, além disto, o programa deve mostrar na tela (utilize dois objetos do tipo label para mostrar estes valores):

a) A média de pulsos no mês.

b) O dia e o valor de pulsos que houve mais pulsos.

 

Atividade individual 2:

O professor Alexandre Agustini possui um material desenvolvido por outro professor, no qual ele apresenta Procedimentos e Funções (clique aqui) no Visual Basic.

A partir da leitura deste material, transforme os comandos do botão calcular em uma função, de tal forma que o botão vai apenas chamar a função.

Faça o mesmo para o botão gravar, mas este terá seus comandos transformados em um procedimento e o botão vai fazer chamada ao procedimento.


Processo:

Os passos são os seguintes:

a)Crie os novos campos  (labels, textboxes e botões de comando) no formulário.

b) Crie o vetor no formulário e não no botão, ou seja, o vetor será PRIVATE.

c) Programe os botões conforme solicitado no item TAREFA.


Fontes de Informação:

A sintaxe e os exemplos que foram apresentados no item INTRODUÇÃO desta webquest são suficientes para fazer a atividade.

Mas, ainda assim, se houver dúvidas, um bom material disponível online sobre vetores em VB é do professor Alexandre Agustini (clique para acessar).


Avaliação:

Os seguintes indicadores de aprendizagem serão avaliados nesta atividade:

16.Implementa estruturas de dados em um algoritmo para suprir as necessidades de manipulação de volumes de dados.

17.Definir, construir e recuperar os dados em estruturas de dados homogêneas e heterogêneas.

 18.Implementa sub-algoritmos (funções e procedimentos) para a solução modular de problemas.


Conclusão:

Para programar em qualquer linguagem de programação é fundamental desenvolver raciocínio lógico e entender a sintaxe básica de criação e manipulação de variáveis, com as estruturas básicas de programação, tais como estrutura de repetição, vetor, matriz, procedimentos e funções. A partir deste conhecimento fica fácil programar em qualquer linguagem, pois basta fazer a transposição didática dos comandos em uma linguagem, ainda que seja em pseudocódigo, para outra.


Créditos:

Desenvolvido por Jaqueline Stumm

Turma: 1º. semestre do Curso Superior de Tecnologia em Gestão da Tecnologia da Informação

Ano/semestre: 2013/1