Encapsulasi di Vb.Net

Enkapsulasi menyembunyikan rincian implementasi dari sebuah kelas dari objek lain. Program berinteraksi dengan objek dengan cara mengirimkan pesan kepada objek yang mengindikasikan method atau property yang mungkin akan dilibatkan. Enkapsulasi sebenarnya merupakan sebuah metode untuk menyembunyikan elemen tertentu dari sebuah class sehingga tidak dapat dikses penuh atau full control oleh kelas lain, ini memungkinkan pengguna lain hanya sebatas dapat membacanya saja atau read saja.
Enkapsulasi mengizinkan kita untuk menyembunyikan detail implementasi internal suatu class. Hal ini berarti suatu objek harus memiliki data yang dibutuhkan secara lengkap, termasuk juga seluruh kode yang dibutuhkan untuk memanipulasi data . Sebelum lebih jauh mengenal  mengenai Encapsulation ada baiknya anda baca kembali pada halaman sebelumnya yang membahas mengenai Access Modifier karena dalam bahasa pemrogramanpun biasanya tidaklah lepas dari namanya Access Modifier yang memungkinkan atau tidaknya sebuah pengguna dapat mengakses properti yang akan digunakan.

Ada beberapa Access Modifier yang sering digunakan diantaranya adalah :

1. Public

Public ini berarti  bahwa anggota class tersebut (attribut/method/property) dapat diakses oleh siapa saja atau class yang lain.

1. Private

Private berarti  bahwa anggota class tersebut hanya boleh diakses oleh class itu sendiri

1. Protected

Protected berarti bahwa anggota class tersebut hanya boleh diakses oleh dirinya sendiri dan Class – Class turunanya.
Tabel Hubungan antara Class ,Atribut dan Method

CLASS	pesawat
ATRIBUT –          =  private +    = Public	+ Nama : String -ketinggian : String -JumlahPenumpang : int -JumlahRoda : int
METHOD/PROPERTY	+Pesawattakeoff() +pesawatketinggian() +pesawatkapasitas() +rodapesawat()

Contoh Enkapsulasi :

Buatlah projek baru dan beri nama dengan Contoh_pengkapsulan kemudian buatlah sebuah Class baru dan beri nama dengan “Class_Pengkapsulan”, kemudian misalnya pada kelas Class_Pengkapsulan tersebut kita mempunyai kode berikut.

Public Class Class_Pengkapsulan
Private var_a As Integer = 10
Private var_b As Integer = 10
Public Function hitung(ByVal X As Integer, ByVal Y As Integer) As Integer
Return (X + Y) – (nilai1 + nilai2)
End Function
Public Property nilai1() As Integer
Get
Return var_a
End Get
Set(ByVal value As Integer)
var_a = value
End Set
End Property
Public Property nilai2() As Integer
Get
Return var_b
End Get
Set(ByVal value As Integer)
var_b = value
End Set
End Property
End Class
Kemudian desain form utama seperti gambar dibawah .

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
Dim panggil As New Class_Pengkapsulan
MsgBox(panggil.hitung(a, b))
End Sub
End Class

Kemudia coba jalankan projek anda , dan klik sekali pada button tersebut, maka akan aplikasi akan berjalan seperti gambar berikut.