Membuat Project Menggunakan Must Override dalam VB .NET

Kali ini saya membuat tutorial membuat pembatasan umur menggunakan perintah must override dengan bahasa VB .NET. sebelum saya melanjutkan tutorial ini untuk anda yang baru pertama mempelajari pemrograman untuk memahami algoritma terlebih dahulu dikarenakan tanpa anda memahami algoritma coding anda akan lebih lama dan lebih kacau..untuk sedikit tutorial dari saya tentang algoritma silahkan masuk ke CODING. Untuk tutorial ini saya tidak akan menampilkan gambar tapi saya hanya akan memberikan contoh coding saja, jadi silahkan anda meng implementasikannya sendiri.. happy coding.. :D

Public Class Class1

    Private nama As String
    Private alamat As String
    Private kota As String
    Private tanggal As Date

    Public Property nm() As String
        Get
            Return nama
        End Get
        Set(ByVal value As String)
            nama = value
        End Set
    End Property

    Public Property almt() As String
        Get
            Return alamat
        End Get
        Set(ByVal value As String)
            alamat = value
        End Set
    End Property

    Public Property town() As String
        Get
            Return kota
        End Get
        Set(ByVal value As String)
            kota = value
        End Set
    End Property

    Public Overridable Property tgl() As Date
        Get
            Return tanggal
        End Get
        Set(ByVal value As Date)
            tanggal = value
        End Set
    End Property
End Class

 Ini adalah sub class yang mendeklarasikan perintah dan batas umur

Public Class Class2
    Inherits Class1
    Private lahir As Date
    Private selisih As Int16

    Public Overrides Property tgl() As Date
        Get
            Return MyBase.tgl
        End Get
        Set(ByVal value As Date)
            selisih = DateDiff(DateInterval.Year, value, Now())
            If selisih >= 19 Then
                lahir = value
            Else
                MsgBox("Usia Murid ( " & selisih & " tahun ) jadi tidak " & " memenuhi syarat", MsgBoxStyle.Exclamation, "Perhatian")
            End If
        End Set
    End Property

End Class

 dan ini adalah isi dari tombol proses pada form1.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click
        Dim obj_syarat As New Class2

        With obj_syarat
            .nm = "Andi"
            .almt = "sampangan"
            .town = "semarang"
            .tgl = #8/12/1991#

            TextBox1.Text = .nm
            TextBox2.Text = .almt
            TextBox3.Text = .town
            TextBox4.Text = .tgl
        End With
    End Sub

 Happy Coding... :D