Inheritance di Vb.Net

Inheritance adalah cara untuk membentuk kelas baru menggunakan kelas yang telah ditetapkan. Kelas – kelas yang baru terbentuk disebut kelas turunan. Manfaat penting dari Inheritance adalah pemakaian kode ulang dan pengurangan kompleksitas program.

Buatlah sebuah projek baru dan beri nama dengan “Pewarisan”, kemudian buatlah dua buah
Class dengan nama Class “TV” dan Class “Program” yang akan mewarisi sifat dari Class “TV”

• Berikut adalah scrip untuk Class “TV“ Pada class ini kita jadikan sebagai induk class untuk class turunanya yaitu Class “Program”.

Public Class TV
Private merek As String
Private ukuran As String
Public Property Nama_TV() As String
Get
Return merek
End Get
Set(ByVal value As String)
merek = value
End Set
End Property
Public Property ukuran_TV() As String
Get
Return ukuran
End Get
Set(ByVal value As String)
ukuran = value
End Set
End Property
End Class

• Kelas ini mewarisi sifat dari kelas induk ,untuk melakukan ini  perlu menuliskan listing Inherits TV agar dapat agar dapat mewarisi class induk. Kelas ini kita namai dengan Class “Program”

Public Class Program
Inherits TV
Private Chanel As String
Private Program As String
Public Property saluran() As String
Get
Return Chanel
End Get
Set(ByVal value As String)
Chanel = value
End Set
End Property
Public Property Judul_program() As String
Get
Return Program
End Get
Set(ByVal value As String)
Program = value
End Set
End Property
End Class

• Kemudian silakan buatlah desain pada mainform atau Form1.vb[design]

• Kemudian double klik pada button dan masukan script berikut.

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim salurantv As New Program
With salurantv
.Nama_TV = “POLITRON”
.ukuran_TV = “29 Inchi”
.saluran = “WMA”
.Judul_program = “ANGGUN GOES TO WMA”
End With
ListBox1.Items.Add(“Ali mempunyai TV baru dengan merek ” & salurantv.Nama_TV)
ListBox1.Items.Add(“Ukuran Tv baru Ali yaitu ” & salurantv.ukuran_TV)
ListBox1.Items.Add(“Saat ini Ali sedang menonton TV barunya dengan Chanel ” & salurantv.saluran)
ListBox1.Items.Add(“Acara yang ditonton berjudul ” & salurantv.Judul_program)
End Sub
End Class
Finaly, Silakan jalankan program……..