Reflexão M11

Ao longo deste módulo, nas aulas de Programação de Sistemas de Informação, vim a abordar/recordar as classes. Para mim não foi um módulo muito dificil pois já conhecia estes conceitos do Pascal e a forma de trabalhar as classes e práticamente igual à do Pascal.
Por estas razões foi um módulo que eu gostei bastante pois permitui relembrar alguns conceitos que já não utilizava à muito tempo.

Construtores e classes derivadas

 
Construtores:

  Public Sub New(ByVal C As Single, ByVal L As Single)
        Comprimento = C
        Largura = L
    End Sub
Vejamos um exemplo de utilização desta versão:
        Dim R1 As New Retangulo(10, 5)
Este objeto R1 foi criado com o valor 10 no seu campo Comprimento e 5 no seu campo Largura.

Classes derivadas:

Inherits funcionario significa que a classe medico é derivada da classe funcionario.

Definição de propriedades

    Public Property comp() As Single
        Get 
            Return Comprimento
        End Get
        Set(ByVal value As Single)
            Comprimento = value
        End Set
    End Property

Get - uma função que permite obter (get) o valor do campo de dados visado;

Set - um procedimento para definir (set) ou modificar o valor do mesmo campo de dados.

Nota: Ao escrevermos Get e teclarmos Enter, o Visual Basic define todo o resto da estrutura da propriedade, incluindo também a parte Set.

O código da função Get da propriedade Comp() consiste, neste caso, apenas em:
           Return Comprimento
- trata-se, simplesmente, de devolver o valor que estiver no campo Comprimento.

O cabeçalho do procedimento Set:
           Set(ByVal value As Single)
- inclui o parâmetro value que se destina a fazer passar um valor (ByVal) para atribuir ao campo visado (neste caso, comprimento).
Isoo é feito com a instrução: Comprimento=value.

Criar objetos a partir de uma classe

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim r1 As New Retangulo
        r1.Comprimento = 20
        r1.Largura = 10
        MsgBox(r1.Area)
    End Sub
End Class

Tratando-se de variáveis do tipo objeto, é necessário utilizar a palavra New* para criar efetivamente um novo objeto.

*New é um método construtor de uma classe.

Criação de Classes em Visual Basic

Classe Retângulo

Atributos:
    Comprimento
    Largura
Métodos:
    Área=Comprimento*Largura


Criação da classe retângulo

Public Class Retangulo
        Public Comprimento As Single
        Public Largura As Single
        Public Function Area() As Single
            Return Comprimento * Largura
        End Function
End Class

Basicamente isto é uma revisão das classes que abordei na linguagem Pascal.

Reflexão Módulo 10

Ao longo deste módulo relembrei as estruturas de controlo, os procedimentos e as funções, as estruturas de dados e aprendi a trabalhar com módulos. Dentro das estruturas de controlo temos as estruturas de decisão e as estruturas de repetição. Relativamente aos procedimentos e às funções tenho a dizer que são praticamente iguais em pascal só muda a forma de os declarar-mos e o mesmo acontece com as estruturas de dados, ou seja, com os vetores e as matrizes.

A parte que achei mais interessante foi a dos procedimentos e funções pois permitem poupar bastantes linhas de código. 

Passagem por Valor e passagem por Referência

Passagem de parâmetros por Valor – ByVal:

Este é o método padrão, ou seja, ao declarar os argumentos de uma função/procedimento, não é preciso usar a palavra ByVal, pois automaticamente, os argumentos assumem a opção ByVal.

Exemplo:

Sub NomeP (ByVal x As Tipo)

.

.

.

.

End Sub

Passagem de parâmetros por Referencia – ByRef:

Para poder atuar/alterar o valor original, a função/procedimento, tem que receber o parâmetro por referência – ByRef, ou seja, a função/procedimento tem que receber uma referência ao endereço de memória da variável passada como parâmetro e não uma simples cópia do valor da variável (que é o que acontece na passagem ByVal). 

Exemplo:

Sub NomeP (ByRef x As Tipo)

.

.

.

.

End Sub