Penerapan Inheritance pada Visual Basic

Konsep Inheritance Sebuah kelas baru dapat di bentuk dari kelas lainnya yang diturunkan atau diwariskan melalui interface oleh kelas asal.


Fungsi Inheritance

• Membuat kelas (class)  dengan penggunaan berulang methods, properties, events dan variable dari kelas lain.
• Membuat kelas dengan berbagai fungsi dasar yang dapat digunakan untuk membentuk kelas yang lebih rinci 

Methods. Merupakan function atau subrutin yang tersedia pada sebuah class, structure, interface. Pada sebuah method terdapat parameter atau argumen yang dapat dikirimkan by value atau by reference..


Properties. Property dapat didefi nisikan untuk class, structure, dan interface. Umumnya property dapat dibaca (readable) dan ditulis (writable), walaupun dapat juga diperlakukan read-only atau write-only.


Events. Event merupakan sebuah function yang dipanggil untuk merespon kejadian/event tertentu, seperti klik mouse, penekanan tombol keyboard, perubahan nilai field pada database, dan lain-lain. Umumnya event mengirimkan dua parameter, yaitu object yang mengindikasikan sender/pengirim event, dan object yang menyediakan informasi pada event tersebut.

Implementasi :
Person.vb
Public Class Person
    Private mstrName As String

    Private mtdBirthDate As Date

    Public Property Name() As String

        Get

            Return mstrName

        End Get

        Set(ByVal value As String)

            mstrName = value

        End Set

    End Property

    Public Property BirthDate() As Date

        Get

            Return mtdBirthDate

        End Get

        Set(ByVal value As Date)

            mtdBirthDate = value

        End Set

    End Property

End Class

Employee.vb

Public Class Employee

    Private mdtHireDate As Date

    Private mdblSalary As Double

    Public Property HireDate() As Date

        Get

            Return mdtHireDate

        End Get

        Set(ByVal value As Date)

            mdtHireDate = value

        End Set

    End Property

    Public Property Salary() As Double

        Get

            Return mdblSalary

        End Get

        Set(ByVal value As Double)

            mdblSalary = value

        End Set

    End Property

End Class

MainProgram.vb

Public Class MainProgram

    Dim person As Person

    Dim employee As Employee

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

        person.Name = TextBox1.Text

        person.BirthDate = CDate(MonthCalendar1.SelectionStart.ToShortDateString)

        employee.HireDate = CDate(MonthCalendar2.SelectionStart.ToShortDateString)

        employee.Salary = CDbl(TextBox2.Text)

        MessageBox.Show("Nama : " & person.Name & vbNewLine &

                        "Birth Date : " & person.BirthDate & vbNewLine &

                        "Hire Date : " & employee.HireDate & vbNewLine &

                        "Salary : " & employee.Salary,

                        "Output", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

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

        person = New Person()

        employee = New Employee()

    End Sub

End Class