artikel 18. Membuat Sub Routin/Procedure/Function Dengan Nama Yang Sama (Same Name) di VBNET

Membuat Sub Routin/Procedure/Function Dengan Nama Yang Sama (Same Name) di VBNET

Tentu anda pernah melihat beberapa methode pada object bisa memiliki parameter yang berbeda beda, maksudnya? saya contohkan saat anda ingin addItem Listview anda dapat banyak pilihan kan? lihatlah gambar dibawah ini :

Nah kita pun bisa membuat sub routin atau function dengan nama yang sama di VBNET, pembeda dari sub routin atau function itu adalah parameternya. Jika Di VB6 ini tidak bisa bisa dilakukan. Saya buat contoh function hitung, dimana satu nama hitung tersebut bisa mengalikan, membagi, menambah, mengurangi nilai. Contoh :

Public Function hitung(ByVal tambah_val1 As Short, ByValtambah_val2 As Short) As Short

        Return tambah_val1 + tambah_val2

End Function

Public Function hitung(ByVal kurang_val1 As Integer, ByValkurang_val2 As Integer) As Integer

        Return kurang_val1 - kurang_val2

End Function

Public Function hitung(ByVal bagi_val1 As Double, ByVal bagi_val2As Double) As Double

        Return bagi_val1 / bagi_val2

End Function

Public Function hitung(ByVal kali_array_val() As Integer) AsInteger

        Dim hasil As Integer = 0

        For Each nilai As Integer In kali_array_val

            hasil = hasil * nilai

        Next

        Return hasil

End Function

Akhirnya saat anda panggil function hitung tersebut, maka anda dapat memiliki banyak pilihan seperti gambar dibawah ini :

 Tags:
cara membuat function multi parameter, how to create sub function , kelebihan membuat sub function du vbnet, make dub function multi parameter, create the same function vbnet, make sub or function with same name vbnet, trik membuat sub function di vbnet.

sumber:http://djiesoft.blogspot.com/2013/01/membuat-sub-routinprocedurefunction.html