Visual Basic 2008 Dan Lambda Expression

Memanjakan Programmer itulah kata yang tepat untuk Visual Basic 2008. Ada banyak fitu baru yang memudahkan programmer dalam memecahkan masalah. Salah satunya adalah Lambda Expression. Dan pada tulisan ini saya akan memberikan simple sintaks dari fungsi Where () pada query  List(of Integer). Tambahkan Module pada project anda (Vb 2008), ketikkan sintaks dibawah ini

    Private integersList As New List(Of Integer)

    Private Result As New System.Text.StringBuilder

  

    Public Function Contoh() As String

        Dim numbers() As Integer = {5, 4, 1, 3, 9, 8, 6, 7, 2, 0}

        integersList.AddRange(numbers)

        'ganti integersQuery1 menjadi 2 dan 3 untuk melihat hasil yang berbeda

        Dim integersQuery1 = integersList.Where(Function(n) n Mod 2 = 0)

        Dim integersQuery2 = integersList.Where(Function(n) n Mod 2 <> 0)

        Dim integersQuery3 = integersList.Where(Function(n) n <>

        For Each x As Integer In integersQuery1

            Result.Append(x)

            Result.Append(vbNewLine)

        Next

        Return MsgBox(Result.ToString, MsgBoxStyle.Information, "Hasil")

    End Function

Ada 3 fungsi pada sintaks diatas yaitu (mencari bilangan genap, ganjil dan bilangan di bawah 5), ganti integersQuery1 menjadi 2 atau 3 untuk melihat hasil yang berbeda.

Semoga bermanfaat..

Wassalam..