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



Related Posts by Categories



Widget by Hoctro

Enter your email address:

Delivered by FeedBurner

Followers



Source Code