OOP dalam VB.NET(2)

3.Fungsi Bersama(Shared Functions )

Hai, hari ini saya akan melanjutkan tutorial mengenai pengenalan OOP dalam Visual Basic.NET. Anda bisa melihat posting sebelumnya di sini.

Kali ini saya akan menerangkan mengenai Shared Function, Apa itu Shared Function? dan bagaimana implementasinya?

Anggota-anggota yang dishare dalam Class (Function dan Variable) bisa digunakan tanpa membuat object dari sebuah Class. Modifier Shared mengindikasikan bahwa cara tersebut tidak beroperasi pada suatu instance yang spesifik dari sebuah tipe dan bisa digunakan secara langsung dari sebuah tipe dari pada melalui suatu instance yang khusus dari sebuah tipe.

Import namespace System (tersedia dalam .NET).

Imports System

Binatang adalah sebuah namespace.

Namespace Binatang

Anjing merupakan suatu Class dalam namespace Binatang.

Class Anjing

Menggonggong sekarang menjadi Public, shared function dalam Class ini.

Public Shared Function Menggonggong()

Console.Writeline ("Anjing Menggonggong")

End Function

Berjalan adalah Public function dalam Class ini. Tidak di-shared.

Public Function Berjalan()

Console.Writeline ("Anjing Berjalan")

End Function

End Class

End Namespace

Module Kita:

Public Module modMain

Proses dimulai dari subroutine Main().

Sub Main()

'Kita bisa memanggil function Menggonggong() secara langsung,

'tanpa membuat object dengan tipe Anjing -

'karena telah di-shared.

Binatang.Anjing.Menggonggong ()

'Kita bisa memanggil function Berjalan() hanya

'sesudah membuat object terlebih dahulu, karena

'tidak di-shared.

Dim Dolly as Binatang.Anjing

Dolly=new Binatang.Anjing()

Dolly.Berjalan()

End sub

End Module

4.Overloading

Overloading adalah suatu teknik yang mudah, untuk mengaktifkan function agar menerima parameter dari tipe yang berbeda. Mari kita perhatikan Class Penambahan sederhana. Import namespace System (tersedia dalam .NET).

Imports System

Class Penambahan

Disini, kita memiliki dua buah function Penambahan(). Yang satu ini akan menambahkan dua integer. Convert.ToString hampir sama dengan CStr.

Overloads Public Sub Penambahan(A as Integer, B as Integer)

Console.Writeline ("Menambah Integer: " + Convert.ToString(a + b))

End Sub

Yang satu ini akan menambah 2 string.

Overloads Public Sub Penambahan(A as String, B as String)

Console.Writeline ("Menambah String: " + a + b)

End Sub

'Dan keduanya memiliki nama yang sama. Ini mungkin saja, kita menggunakan

'kata kunci Overloads, untukmembebaninya (Overload).

'Disini, kita mempunyai function Main yang terdapat dalam Class ini.

'function Main kita terdapat dalam Class, sebaiknya dibuat shared.

Shared Sub Main()

Dim PenambahanObj as Penambahan

'Membuat Object

PenambahanObj=new Penambahan

'Ini akan memanggil function pertama

PenambahanObj.Tambah(10,20)

'Ini akan memanggil function kedua.

PenambahanObj.Tambah("Hai"," Bagaimana kabarmu?")

End Sub

End Class