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..
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
