Visual Basictavares/ensino/CFAC/Downloads/... · 2011-09-12 · @2009 - João Manuel R. S. Tavares CFAC: Visual Basic: III - Procedimentos 3. O que é a Modularização? Dividir o

Visual Basic

III – Procedimentos

João Manuel R. S. Tavares

CFAC – Concepção e Fabrico Assistidos por Computador

@2009 - João Manuel R. S. Tavares CFAC: Visual Basic: III - Procedimentos 2

Sumário

1) Criar Subrotinas em Visual Basic;

2) Criar Funções;

3) Mecanismo de passagem de parâmetros;

4) Modularização em Linguagens de Programação.


O que é a Modularização?

Dividir o programa em subtarefas.

Uma subrotina, ou uma função, executa um tarefa bem definida.

Aumento da facilidade de testar, depurar (debug) e corrigir, um programa.


Porque utilizar Subrotinas e Funções?

Prover operações abstractas.

Torna os programas mais simples de escrever, depurar e manter.


Modularização de Programas em Visual Basic

No Visual Basic, existem dois tipos de procedimentos (além dos procedimentos de eventos): – Subrotinas (Sub procedures);– Funções (Functions).

Nota: Para distinguir estes tipos procedimentos dos procedimentos associados a eventos, Subrotinas e Funções são referidos comoprocedimentos gerais (general procedure).

Como regra, uma subrotina ou função executa apenas uma tarefa, ou várias tarefas fortemente relacionadas, e deverá ser relativamente pequena.


Modularização de Programas em Visual Basic

Os procedimentos gerais, funções ou subrotinas, são activados pelo próprio programador via código.

Os procedimentos de eventos são sempre activados a partir de uma acção executada pelo utilizador ou então pelo sistema operativo (ex: Windows).


Passagem de Argumentos para subrotinas:

Quando uma subrotina é definida é por vezes necessário transferir variáveis utilizadas em subrotinas diferentes. Tal é designado, nas linguagens de programação, por passagem.


Propriedades das Subrotinas:

Podem ser chamadas;

Podem receber dados, designados por argumentos (por passagem);

Podem retornar valores ao programa/módulo chamador;

Podem alterar o valor de uma variável recebida.


Componentes de uma Subrotina:

Nome: utilizado para identificar a subrotina;

Parâmetros: uma subrotina aceita valores a partir do módulo chamador através dos seus parâmetros; também pode devolver valores através dos seus parâmetros.


Nome das Subrotinas

As regras para nomear as subrotinas são as mesmas para nomear as variáveis.

Geralmente, os nomes das subrotinas começam com letras maiúsculas de forma a serem distinguidos dos nomes das variáveis.


Sintaxe de uma Subrotina

Private Sub NomeDaSubrotina (lista de parâmetros)declaração/declarações

End Sub

A lista de parâmetros pode ser vazia; nestes casos, devesse manter os parênteses curvos nas designações das subrotinas mas omiti-los nas chamadas.


Criar Subrotinas no Visual Basic:

1. Activar a janela de código;

2. Seleccionar Add Procedure no menu Tools;

3. Escrever na caixa respectiva o nome da subrotina ;

4. Clicar em Private para o alcance (por exemplo);

5. Carregar na tecla Enter ou clicar no botão OK;

6. Escrever as declarações da subrotina na janela de código.


Exemplo de Chamada de uma Subrotina:Private Sub cmdCompute_Click()

Dim num As Singlenum = Val(InputBox("Enter a number:"))Call Triple(num)

End SubSubrotina Triple:

Private Sub Triple(num As Single)' Multiply the value of the number by 3picResult.Print "The number is"; 3 * num

End Sub

chamada


Passagem de Argumentos para Subrotinas

Argumentos: variáveis ou expressões colocadas entre parênteses numa declaração Call.

Não é apenas o valor do argumento passado para o parâmetro mas também (no final) o valor do parâmetro é devolvido para o argumento.


Exemplo de ArgumentosCall Triple(num)

ParâmetrosVaráveis colocadas entre parênteses depois do

nome da Subrotina.

Quando a subrotina é chamada, os valores dos correspondentes argumentos são transferidos para os seus parâmetros.


Exemplo de ParâmetrosPrivate Sub Triple(num As Single)

Passagem de argumentos para parâmetros

Call Triple(num )

Private Sub Triple (num As Single)

Argumento

Parâmetro


Passagem de Argumentos para Parâmetros

Call Add (x, y )

Private Sub Add ( num1 As Single, num2 As Single)

Parâmetros

Argumentos


Passagem de Argumentos

A subrotina recebe a localização dos argumentos na memória, a subrotina pode utilizar e modificar o valor dos argumentos.

Dois sentidos: de entrada e de saída da subrotina.



Private Sub cmdDisplay_Click()Dim amt As Singleamt = 2picResults.Print amt;Call Triple(amt)picResults.Print amt

End Sub


Subrotina Triple

Private Sub Triple(num As Single)' Triple a numberpicResults.Print num;num = 3 * numpicResults.Print num;

End Sub



Call Triple(amt)

Private Sub Triple (num As Single)

amt

num


Passagem de Dados - por Referência

2 2 6 6

amt amt amt amt

num num

Subrotina Triple


Passagem de Argumentos por Valor e por Referência

A passagem de argumentos para subrotina pode ser feita por Valor ou por Referência.

Na passagem por valor, a subrotina recebe apenas uma cópia do argumento; sendo assim, qualquer alteração no argumento dentro da subrotina não terá efeito no dado real (após o retorno da subrotina assumirá o valor anterior que tinha no módulo chamador).


Passagem de Argumentos por Valor e por Referência

Já na passagem por referência, a subrotina recebe o endereço que realmente contém o dado; assim sendo, qualquer alteração no argumento alterará o dado de verdade.

O Visual Basic, por defeito, passa argumentos por referência. Para passar argumentos por valor, utiliza-se a palavra chave ByVal na lista de parâmetros, ou então coloca-se o argumento entre parênteses na chamada da subrotina.


Regras Importantes para a Passagem de Argumentos para uma Subrotina

O número de argumentos e parâmetros deve coincidir.

O tipo de dado de cada argumento deve ser igual ao do correspondente parâmetro.


Variáveis Locais:

Uma variável que é apenas utilizada no interior de um procedimento especifico (subrotina ou função).

O alcance de uma variável local é a zona do procedimento no qual essa variável foi definida.

Quando a mesma variável aparece em dois procedimentos diferentes o Visual Basic atribui às varáveis identidades distintas de tal modo que são tratadas como variáveis diferentes e independentes.


Variáveis Locais:

Declaradas no interior da definição de um procedimento;

Privadas à definição do procedimento;

Variáveis em procedimentos diferentes são totalmente independentes;

Procedimentos diferentes podem ter variáveis com nomes iguais; contudo, cada variável terá a sua locação de memória própria.


Vantagens na utilização de Variáveis Locais

Extremamente úteis na programação em equipa;

Evitam efeitos colaterais (nos quais existe uma alteração acidental do valor da variável).


Exemplo de Variáveis Locais

Private Sub cmdButton_Click()

Dim var1 As Integer, var2 As Integer, num As Integervar1 = 2var2 = 4Call Add(num)picBox.Print num

End SubAs variáveis var1, var2 e num, são locais ao procedimento; o valor da variável num é passado para a subrotina Add.


Subrotina Add

Private Sub Add(num As Integer)Dim var1 As Integer, var2 As Integernum = var1 + var2

End Sub

As variáveis var1 e var2 são locais à subrotina Add; no retorno, a variável num terá valor igual à soma de var1com var2.


Variáveis a nível de Formulário

Variáveis a nível de formulário (form-level variables) são visíveis a todos os procedimentos (são variáveis Globais) do formulário.

Variáveis a nível de formulário aparecem no topo da janela de código do formulário.

Trata-se de uma solução para tornar visíveis a todos os procedimentos de um formulário variáveis sem recorrer ao mecanismo de passagem.


Como criar Variáveis a nível do Formulário?

1. Activar a janela de código;

2. Clicar na seta de queda na zona direita da caixa de listagem dos objectos;

3. Clicar em General;

4. Clicar em Declaration na caixa de listagem dosprocedimentos;

5. Escrever as declarações Dim para as variáveis a nível de formulário.


Exemplo

' Na secção Declaration do objecto GeneralDim num1 As Single, num2 As Single

num1 e num2 são duas variáveis globais ao nível do formulário do tipo single.


Revisão

O Visual Basic tem dois tipos de procedimentos gerais:

– Subrotinas;– Funções

Cada subrotina/função executa uma tarefa distinta.

A instrução Call provoca com que uma subrotina seja executada.


Revisão

Uma subrotina pode receber muitos valores

Subrotina

Uma subrotina pode devolver muitos valores


Revisão

Valores podem ser passados entre o programa/módulo chamador e a subrotina através da passagem de argumentos.

O número e o tipo de argumentos no programa/módulo chamador e na subrotina devem ser compatíveis.


Revisão

Variáveis que são usadas (definidas) num procedimento particular são designadas por variáveis locais.

Valores atribuídos a este tipo de variáveis não são retornados ao módulo chamador.


Revisão

Diagramas de estrutura são úteis na determinação da divisão de um programa em procedimentos gerais (subrotinas/funções).

A programação modularizada oferece vantagens significativas:

– Facilidade de manutenção;– Extremamente útil na programação em equipa;– Podem ser evitados efeitos colaterais.


Erros Frequentes

Passar tipos de dados incorrectos.

Não devolver o resultado da computação ao programa/módulo chamador.

A única maneira de uma subrotina devolver um valor, ou vários valores, é por intermédio dos seus argumentos.


Revisão

Um procedimento geral é como uma caixa preta; sabe-se o que entra e o que sai; mas não é necessário saber o que acontece no seu interior (para quem o utiliza).

Numa subrotina o(s) resultado(s) da computação no seu interior apenas pode ser devolvido através dos seus argumentos.


Um outro Exemplo

Private Sub cmdDisplay_Click()' Demonstra que as variaveis numa subrotina nao mantem' os seus valores nas chamadas subsequentesCall ThreeCall Three

End Sub


Subrotina Three

Private Sub Three()Dim num As Single' Mostra o valor de num e atribui-lhe o valor 3picResults.Print num;num = 3

End SubSaída:

0 0


O que é uma função?

Uma função também é desenvolvida para realizar uma tarefa especifica.

Uma função é desenvolvida para devolver um único valor ao programa chamador.

Tipos de Funções: Funções Standards (built-in);

Funções definidas pelo programador.


Funções Definidas pelo Programador

Uma função é desenvolvida para devolver um único valor.

O valor é devolvido pela utilização do nome da função.

Os argumentos de uma função não devem ser alterados no seu interior.

Se um subprograma necessita de devolver mais do que um valor devesse utilizar, em vez de uma função, uma subrotina.


Sintaxe para Funções

Private Function NomeDaFuncao(lista de parâmetros) As tipoDeDadodeclaracão/declarações ………..NomeDaFuncao = ……..

End Function

Tal como para as subrotinas a lista de parâmetros pode ser vazia.


Exemplo de uma Função(utiliza um função para converter de graus Fahrenheit para graus Celsius)

Private Sub cmdConvert_Click()picTempC.ClspicTempC.Print FtoC(Val(txtTempF.Text))

End Sub

Private Function FtoC(t As Single) As Single‘ Convert Fahrenheit temperature to CelsiusFtoC = (5 / 9) * (t - 32)

End Function


Regras para Definir e Chamar Funções

No interior da função definida pelo programador deve existir uma atribuição do valor a retornar ao nome da função.

Funções definidas pelo programador são chamadas da mesma forma que as funções predefinidas.

Uma função definida pelo programador pode ser chamada no interior de uma expressão.


Retorno de um Valor

Uma função pode receber muitos valores

Função

Apenas um valor pode ser devolvido directamente


Exemplo de uma Função

Private Sub cmdDetermine_Click()Dim nom As String' Determine a person's first namenom = txtFullName.TextpicFirstName.ClspicFirstName.Print "The first name is "; FirstName(nom)

End Sub


Função FirstName

Private Function FirstName(nom As String) As StringDim firstSpace As Integer' Extract the first name from a full namefirstSpace = InStr(nom, " ")FirstName = Left(nom, firstSpace - 1)

End Function


Erros Frequentes

Passagem de tipos de dados incorrectos;

A não especificação do tipo de dado para o valor de retorno;

Esquecimento do tipo de dado de uma parâmetro da função;

Não atribuição do valor de retorno ao nome da função no seu interior;

Escrita errada do nome da função;

Evocação errada da função no interior de uma expressão.


Exemplos

Private Sub cmdDisplay_Click ()' Compute Volume of a CylinderDim r As Single, h As Singler =1 h = 2Call DisplayVolume (r, h)r =3h = 4Call DisplayVolume (r, h)

End Sub


Função AreaPrivate Function Area (r As Single) As Single

' Compute area of a circle of radius rArea = 3.14159 * r ^ 2

End Function

Subrotina DisplayVolume

Private Sub DisplayVolume ( r As Single, h As Single)PicOutput.Print "Volume of cylinder having base area"; Area( r)PicOutput.Print "and height"; h; "is"; h * Area (r )

End Sub


Outro Exemplo

Private Sub cmdDisplay_Click()Dim a As String' Demonstrates local variablesa = “Choo “picOutput.Print = TypeOfTrain()

End Sub


Função TypeOfTrain

Private Function TypeOf Train( ) As StringDim a As Stringa = a & aTypeOfTrain = a & “train”

End Function


Último Exemplo

Private Sub cmdDisplay_Click ( )Dim num As Single' Triple a numbernum = 5picOutput.Print Triple (num)picOutput.Print num

End Sub


Função Triple

Private Function Triple(x As Single) As Single Dim num As Singlenum = 3Triple = num * x

End Function

Documents

Visual Basictavares/ensino/CFAC/Downloads/... · 2011-09-12 · @2009 - João Manuel R. S. Tavares CFAC: Visual Basic: III - Procedimentos 3. O que é a Modularização? Dividir o