Reflexão global

Este Modulo fala sobre classes, foi um modulo importante na aprendizagem de classes. Eu colocei os objectos deste modulo, o que são classes, classes derivadas e colocei o um programa como exemplo.

Programa do Hospital 

Parte Gráfica

Parte do Código

Public Class form1

    Dim r1 As New medico

    Dim r2 As New assistente

    Dim r3 As New pessoalauxiliar

    Dim r4 As New limpeza

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1.nomep = InputBox("Introduza o nome do médico")

        r1.idadep = InputBox("idade")

        r1.moradap = InputBox("morada")

        r1.telemp = InputBox("telemóvel")

        r1.especilidadep = InputBox("especialidade")

        r1.bip = InputBox("CARTAO DE CIDADAO")

        r1.turnop = InputBox("Turno")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        r2.nomep = InputBox("Introduza o nome do médico")

        r2.idadep = InputBox("idade")

        r2.moradap = InputBox("morada")

        r2.telemp = InputBox("telemóvel")

        r2.tipop = InputBox("tipo")

        r2.bip = InputBox("CARTAO DE CIDADAO")

        r2.turnop = InputBox("Turno")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        r3.nomep = InputBox("Introduza o nome do médico")

        r3.idadep = InputBox("idade")

        r3.moradap = InputBox("morada")

        r3.telemp = InputBox("telemóvel")

        r3.especilidadep = InputBox("especialidade")

        r3.bip = InputBox("CARTAO DE CIDADAO")

        r3.turnop = InputBox("Turno")

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        r4.nomep = InputBox("Introduza o nome do médico")

        r4.idadep = InputBox("idade")

        r4.moradap = InputBox("morada")

        r4.telemp = InputBox("telemóvel")

        r4.tipop = InputBox("especialidade")

        r4.bip = InputBox("CARTAO DE CIDADAO")

        r4.seccaop = InputBox("Turno")

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Label2.Text = ("nome:" & r1.nomep)

        Label3.Text = ("idade:" & r1.idadep)

        Label4.Text = r1.moradap

        Label5.Text = r1.telemp

        Label6.Text = r1.bip

        Label7.Text = r1.especilidadep

        Label8.Text = r1.turnop

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Label2.Text = r2.nomep

        Label3.Text = r2.idadep

        Label4.Text = r2.moradap

        Label5.Text = r2.telemp

        Label6.Text = r2.bip

        Label7.Text = r2.tipop

        Label8.Text = r2.turnop

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Label2.Text = r3.nomep

        Label3.Text = r3.idadep

        Label4.Text = r3.moradap

        Label5.Text = r3.telemp

        Label6.Text = r3.bip

        Label7.Text = r3.especilidadep

        Label8.Text = r3.turnop

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Label2.Text = r4.nomep

        Label3.Text = r4.idadep

        Label4.Text = r4.moradap

        Label5.Text = r4.telemp()

        Label6.Text = r4.bip

        Label7.Text = r4.tipop

        Label8.Text = r4.seccaop

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        Dim y As Integer

        y = MsgBox("deseja mesmo sair", MsgBoxStyle.YesNo)

        If y = vbYes Then

            Close()

        End If

    End Sub

    Private Sub form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Reflexão: Este é um programa(Hospital) que faz a inscrição de uma fixa  e pede o nome, a idade entra varias coisas.Eu escolhi este programa porque tem class derivadas e acho que é um bom exemplo para colocar no e-portefólio.

Classes derivadas

Reflexão:  Está aqui um exemplo de uma classe derivada, com a função predefinida chamada inherits, que vai chamar todos os campos da class base.Por isso vai ter os campos da class base e do médico.

Classes e Propriedades

Reflexão: Esta aqui um exemplo de um programa com dois campos(Nome e dataN) privados e usei a propriedade "Public Property " para aceder aos campos privados colocados.

Classes

Uma classe é uma unidade de código que reúne ao mesmo tempo:

-> Membros de dados ou atributos

->Métodos(Procedimentos e/ou funções)

Exemplo de uma criação de uma classe:

Class Rectângulo

Public Comprimento as Single

Public Largura as Single

  Public Function area() as Single

          Return Comprimento * Largura 

  End function

End class

Reflexão:  Achei crucial colocar um exemplo de uma class pois é a matéria que nos estamos a dar, pois eu achei  importante colocar isto:

Modulo 11

Classes e Componentes

Objectivos do modulo 11:

-> Criar e utilizar correctamente classes

-> Criar e utilizar correctamente objectos

-> Criar classes derivadas de outros objectos

-> Criar e utilizar bibliotecas de classes

-> Conhecer diferentes tipos de componentes

-> Criar e instalar um componente  do tipo User Control 

-> Gerir bibliotecas de classes e componentes