Halo, ini adalah posting kedelapan saya tentang fitur dari VB9 yaitu Relaxed Delegates, anda dapat melihat posting saya sebelumnya:

• Implicitly typed local vaiable
• Object initializer
• Anonymous types
• Nullable types
• If Ternary operator
• Partial Method
• Extension Method

Pada VB8 jika anda mengaktifkan pilihan option strict menjadi “Off” maka compiler VB secara otomatis akan mengkonversi dari satu tipe data ke tipe data yang lain tanpa harus menuliskannya secara eksplisit (casting), misal untuk melakukan narrowing conversion (dari double menjadi integer). Pada VB9 fasilitas semacam itu juga ditambahkan namun untuk signatur delegates.

Pada VB8 jika anda menggunakan delegates seperti berikut:

   1: Delegate Sub Hello(ByVal h As Object)

   2: Module Module1

   3:     Sub Kenalan(ByVal h As String)

   4:         Console.WriteLine("Helloo" & h)

   5:     End Sub

   6:     Sub Main()

   7:         Dim hai As New Hello(AddressOf Kenalan)

   8:         hai("Erick")

   9:     End Sub

  10: End Module

maka compiler VB akan memberikan pesan error bahwa tipe datanya tidak sama beda signatur delegates antara “object” dan “string”

Tapi pada VB9 kasus seperti diatas tidak akan terjadi lagi karena compiler VB9 sudah cukup smart untuk mengkonversi dari “object” ke “string”

Halo, ini adalah posting ketujuh saya tentang fitur dari VB9 yaitu Extension Method, anda dapat melihat posting saya sebelumnya:

• Implicitly typed local vaiable
• Object initializer
• Anonymous types
• Nullable types
• If Ternary operator
• Partial Method

Extension method digunakan untuk menambahkan method kedalam class tanpa harus menulis ulang atau mengoverride class tersebut, biasanya digunakan untuk class-class bawaan dari .NET yang kita tidak bisa memodifikasinya langsung (mis: String). Untuk menambahkan extension method anda harus menambahkan keyword <Extension()>.

Misal anda ingin membuat method untuk membalik kata, padahal pada class String belum disediakan method tersebut maka anda dapat menambahkannya dengan Extension Method.

Pada VB8 anda dapat menuliskannya sebagai berikut :

Sub Main()

   Dim nama = "Erick Kurniawan"

   Dim balikNama = BalikKata(nama).ToLower().Substring(0, 9)

   'Dim balikNama = nama.ToLower().BalikKata().Substring(0, 9)

   'Console.WriteLine(balikNama)

End Sub

Function BalikKata(ByVal kata As String) As String

   Dim kar = kata.ToCharArray()

   Array.Reverse(kar)

   Return New String(kar)

End Function

Anda harus memanggil fungsi dengan cara diatas karena memang fungsi BalikKata tidak ada dalam class String, jika anda ingin menambahkan method BalikKata dalam class String maka anda dapat menuliskan:

Imports System.Runtime.CompilerServices

Module ExtensionMethod

    Sub Main()

        Dim nama = "Erick Kurniawan"

        Dim balikNama = nama.ToLower().BalikKata().Substring(0, 9)

        Console.WriteLine(balikNama)

    End Sub

    <Extension()> _

    Function BalikKata(ByVal kata As String) As String

        Dim kar = kata.ToCharArray()

        Array.Reverse(kar)

        Return New String(kar)

    End Function

End Module

Dengan menggunakan extension method anda dapat melakukan penulisan dengan cara “chaining” yang akan terasa lebih natural:

Dim balikNama = nama.ToLower().BalikKata().Substring(0, 9)