Halo, ini adalah posting kelima saya tentang fitur dari VB9 yaitu If Ternary operator, anda dapat melihat posting saya sebelumnya:

• Implicitly typed local vaiable
• Object initializer
• Anonymous types
• Nullable types

Pada VB versi sebelumnya anda pasti pernah menggunakan perintah IIF untuk penggunaan single IF

'penggunaan iif pada VB 

Dim bil1 As Integer = 999

Dim ket As String = IIf(bil1 Mod 2 = 1, "Ganjil", "Genap")

Console.WriteLine(ket) 'menghasilkan output Ganjil

Apakah ada yang salah dari kode diatas? memang tidak sih, outputnya benar dan sesuai yang kita harapkan. Tetapi sebenarnya IIF pada VB bukan merupakan built-in function tetapi hanya fungsi biasa yang dipanggil dari library. Seperti halnya regular fungsi maka ketika fungsi tersebut dipanggil maka semua argumen dalam fungsi tersebut akan dicek oleh VB compiler sebelum dijalankan.

Sub Main()

    Dim bil1 = 999

    Dim ket As String = IIf(bil1 Mod 2 = 1, Ganjil(), Genap())

End Sub

Function Ganjil() As String

    Return "Ganjil"

End Function

Function Genap() As String

    Throw New Exception("Error...")

    Return "Genap"

End Function

Jika kode diatas dijalankan maka akan menghasilkan error karna ada perintah Throw Exception pada function Genap(), meskipun hasil dari IIF diatas Ganjil() namun oleh Genap() juga dibaca oleh VB sehingga Throw Exception dipanggil. Jadi jika anda selama ini menganggap bahwa IIF sama dengan perintah IF biasa anda salah sangka :). Kode dibawah ini tidak sama dengan kode diatas

Sub Main()

   Dim bil1 = 999

   Dim ket = ""

   If bil1 Mod 2 = 1 Then

       ket = Ganjil()

   Else

       ket = Genap()

   End If

   Console.WriteLine(ket)

End Sub

Kode diatas tidak akan menghasilkan error ketika dijalankan, karena fungsi Genap() tidak dicek ketika IF dieksekusi. Ini juga sama dengan perintah IF Ternary pada VB9 (yang ini benar-benar ternary asli gak seperti IIF)

Sub Main()

    'Real IF Ternary pada VB 9

    Dim bil1 = 999

    Dim ket = If(bil1 Mod 2 = 1, Ganjil(), Genap())

    Console.WriteLine(ket) 'menghasilkan output Ganjil

End Sub

Kode diatas juga tidak akan menghasilkan error jika dijalankan karena menggunakan IF Ternary pada VB9. Dengan IF Ternary pada VB anda juga dapat menuliskan hanya 2 argumen dengan saja misal:

Dim nama As String = Nothing

Dim strnama = If(nama, "Kosong")

Console.WriteLine(strnama) 'outputnya Kosong

nama = "Erick Kurniawan"

strnama = If(nama, "Kosong")

Console.WriteLine(strnama) 'outputnya Erick Kurniawan

Dim bil1 As Integer? = Nothing

Dim nilai = If(bil1, -1)

Console.WriteLine(nilai)

Harap diperhatikan bahwa tipe data yang dihasilkan dari IF harus kompatibel dengan nilai yang dibandingkan, jika anda menulis kode sperti dibawah ini maka akan menghasilkan error

Halo, ini adalah posting keempat saya tentang fitur dari VB9 yaitu Nullable type, anda dapat melihat posting saya sebelumnya:

• Implicitly typed local vaiable
• Object initializer
• Anonymous types

Seperti kita ketahui pada CLS terdapat dua tipe data yang disupport yaitu value type (integer,double,boolean,etc) dan reference type (String, StringBuilder, etc), untuk tipe reference jika anda tidak mau memberi nilai maka anda dapat mengesetnya menjadi “Nothing”, tapi lain halnya dengan value type anda tidak bisa tidak meberi nilai, anda harus memberi nilai yang sesuai dengan range nilainya (misal untuk tipe short dari -32000 sd 32000). Ini akan dapat menimbulkan masalah ketika kita melakukan mapping dan mengambil data dari database, misal pada table Mahasiswa field Ipk bernilai null, nah kita akan kesulitan untuk merepresentasikan nilai data field yang kosong tersebut dalam object Mahasiswa.

Nullable types digunakan agar anda dapat memberi nilai null pada value type, sebenarnya pada VB8 anda juga sudah dapat menggunakan nullabe type dengan generic Nullable(Of T)

Sub Main()

        'pada VB8

        Dim bil1 As Nullable(Of Integer)

        bil1 = Nothing

        Dim cek As Boolean = bil1.HasValue 'akan bernilai false

        bil1 = 999

        cek = bil1.HasValue 'akan bernilai true

End Sub

Tetapi dengan menggunakan nullable type di VB9 penulisannya menjadi lebih mudah

'nullable pada VB9

Dim i As Integer?

Console.WriteLine(i.HasValue) 'akan bernilai false

i = 999

Console.WriteLine(i.HasValue) 'akan bernilai true

Nullable types akan sangat berguna ketika anda melakukan mapping table pada LINQ to SQL

Halo, ini adalah posting ketiga saya tentang fitur dari VB9 yaitu Anonymous type, anda dapat melihat posting saya sebelumnya:

• Implicitly typed local vaiable
• Object initializer

Anonymous type sebenarnya dibutuhkan untuk penggunaan fitur LINQ statements. Sintaks dari anonymous type mirip dengan sintaks object initializer

Sub Main()

       Dim mhs = New With {.Nim = "22002321", .Ipk = 3.5}

       Console.WriteLine(mhs.Nim)

       Console.WriteLine(mhs.Ipk)

       Console.WriteLine(mhs.ToString())

End Sub

Dapat anda lihat bahwa variabel mhs dapat digunakan dan berisi property Nim dan Nama padahal anda tidak membuat object Mahasiswa dari class Mahasiswa. Anda juga dapat menggunakan object mhs dari anonymous type untuk membuat object baru:

Dim mhs2 = New With {.Nim = mhs.Nim, .Nama = "Erick", .Ipk = mhs.Ipk}

Console.WriteLine(mhs2.ToString())

Jika anda membandingkan dua object yang sama yang dibuat dengan anonymous type

Dim mhs1 = New With {.Nim = "22002321", .Ipk = 3.5}

Dim mhs2 = New With {.Nim = "22002321", .Ipk = 3.5}

Console.WriteLine(mhs1.Equals(mhs2))

maka statement diatas akan mengahasilkan nilai false biarpun kedua object tersebut isinya sama persis. Hasilnya akan bernilai true hanya jika dibandingkan dengan referensi dari object itu sendiri

Dim mhs1 = New With {.Nim = "22002321", .Ipk = 3.5}

Dim mhs2 = mhs1

'menghasilkan nilai true

Console.WriteLine(mhs1.Equals(mhs2))

Ada fitur yang unik di VB9, yaitu anda dapat menggunakan keyword key jika anda ingin membandingkan nilai dari object tersebut sama atau tidak

'menggunakan keyword key

Dim mhs1 = New With {Key .Nim = "22002321", .Ipk = 3.5}

Dim mhs2 = New With {Key .Nim = "22002321", .Ipk = 3.5}

'menghasilkan nilai true

Console.WriteLine(mhs1.Equals(mhs2))

Dim mhs3 = New With {Key .Nim = "22002321", .Ipk = 3.5}

Dim mhs4 = New With {Key .Nim = "22002322", .Ipk = 3.4}

'menghasilkan false

Console.WriteLine(mhs3.Equals(mhs4))

Pada real world, anonymous types digunakan untuk mensupport LINQ statement, contohnya :

Dim mhs = From m In mahasiswa Select New With {m.Nim, m.Ipk}

menarik yaa…

Halo, ini adalah posting kedua saya tentang fitur dari VB9 yaitu Object initializer, anda dapat melihat posting saya sebelumnya:

• Implicitly typed local vaiable

Ketika anda menggunakan VB8 dan bekerja dengan class, dan ingin melakukan inisialisasi variabel dalam class maka anda harus membuat oveloading constructor, atau harus menuliskan code yang cukup panjang untuk menginisialisasi property satu-persatu, secagai contoh:

Class Mahasiswa

    Private _nim As String

    Private _ipk As Single

    Public Property Nim() As String

        Get

            Return _nim

        End Get

        Set(ByVal value As String)

            _nim = value

        End Set

    End Property

    Public Property Ipk() As Single

        Get

            Return _ipk

        End Get

        Set(ByVal value As Single)

            _ipk = value

        End Set

    End Property

End Class

Kemudian untuk membuat object dan menginisialisasi class tersebut lakukan:

Sub Main()

    'inisialisasi object biasa

    Dim mhs1 As New Mahasiswa()

    mhs1.Nim = "22002321"

    mhs1.Ipk = 3.5

    'atau dapat ditulis

    Dim mhs2 As New Mahasiswa()

    With mhs2

        .Nim = "22002321"

        .Ipk = 3.5

    End With

End Sub

dengan menggunakan Object initializer anda dapat menuliskannya sebagai berikut:

'dengan menggunakan object initializer

Dim mhs3 As New Mahasiswa() With {.Nim = "22002321", .Ipk = 3.5}

Lebih praktis bukan hehehe..