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.