Menggunakan Perintah Pengulangan FOR EACH di VB.NET

Dalam pemrograman sering kali kita melakukan perintah yang berulang terutama ketika kita menggunakan data yang tersimpan dalam Grid atau pun menyimpan ke grid. Untuk itu bisa digunakan perintah berulang, salah satunya adalah perintah FOR EACH LOOP.

Perintah ini biasanya digunakan untuk mengerjakan perintah item dalam suatu grup. Konsep perintah pengualangannya adalah sebagai berikut :

For Each [Item] In [Group]
   [loopBody]

Next [Item]

contoh list programnya adalah sebagai berikut :

      For Each brs As DataGridViewRow In dgJournal.Rows
            GetPosting(brs.Cells(6).Value, brs.Cells(12).Value)
            brs.Cells(14).Value = gCek
            dgJournal.Update()
      Next

brs = item data gridview merupakan variabel
dgjournal = Nama Grid

demikian pembahasan looping dengan perintah FOR EACH LOOP.

Cara menggunakan IF..ELSE..END IF

Kondisional Pernyataan IF..ELSE digunakan untuk memeriksa kondisi yang diberikan dan membuat keputusan berdasarkan kondisi itu sendiri. Biasanya menggunakan Operator Perbandingan dan Operator Logis.
Konsep pernyataannya adalah sebagai berikut :

    If [your condition here]
       Your code here
    Else
       Your code Here
    End If

Jika kondisi bernilai TRUE maka, sistem akan mengambil keputusan diantara IF dan Else. Dan Apabila bernilai FALSE maka, sistem akan mengambil keputusan diantara Else dan End IF.

Bagaimana jika banyak kondisi yang diinginkan ? Jika lebih dari satu kondisi maka bisa digunakan ElseIf.

    If [your condition here]
       Your code here
    ElseIf [your condition here]
       Your code here
    ElseIf [your condition here]
       Your code here
    Else
       Your code Here
    End If 

sebagai contoh misalkan pemberian nilai terhadap siswa dengan aturan atau asumsi sebagai berikut :

1. Jika nilai lebih dari atau sama dengan 80 maka siswa mendapat nilai A.
2. Jika nilai lebih dari atau sama dengan 70 maka siswa mendapat nilai B.
3. Jika nilai lebih dari atau sama dengan 60 maka siswa mendapat nilai C.
4. Jika nilai lebih dari atau sama dengan 50 maka siswa mendapat nilai D.
5. Jika nilai lebih dari atau sama dengan 0 maka siswa mendapat nilai E.

maka penulisan List Program adalah sbb :
 

    1. If Nilai >= 80 Then

    2.     MsgBox("Siswa Mendapat Nilai A")

    3. ElseIf Nilai >= 70 Then

    4.     MsgBox("Siswa Mendapat Nilai B")

    5. ElseIf Nilai >= 60 Then

    6.     MsgBox("Siswa Mendapat Nilai C")

    7. ElseIf Nilai >= 50 Then

    8.     MsgBox("Siswa Mendapat Nilai D")

    9. ElseIf Nilai >= 0 Then 

   10.     MsgBox("Siswa Mendapat Nilai E")

   11. Else

   12.     MsgBox("Tidak Terdefinisi")

   13. End If

 demikian pembahasan pernyataan kondisional IF..ELSE..ENDIF. Semoga bermanfaat

TextBox AutoComplete dengan Database sebagai Data Source

Proses AutoComplete di TextBox lebih mirip ketika kita mengetikan kata di google, maka akan keluar kata yang menyerupai kata yang diketik secara otomatis. Proses ini dengan tujuan untuk mempermudah user dalam memilih/mencari kata yang dicarinya. Langsung saja kita bahas listing Programnya..

1. buat sebuah TextBox di dalam Form dan kita beri nama txtNama.



2. di Property box ubah AutocompleteMode -- > SuggestAppend dan AotuCompleteSource --> CustomeSource



3. Buat Prosedure :
     

    Private Sub ProcACText()

        Dim ds As DataSet = New DataSet()

        Dim SQL As String

        Dim authors As New AutoCompleteStringCollection

        SQL = "select Fullname from Person where RecordKey between 2042470 and 2045000 order by Fullname"

        CheckConnection() 'Prosedure Koneksi silahkan buat sendiri        

        Dim SqlDbDataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(SQL, SQLConn)

        SqlDbDataAdapter.Fill(ds, "Person")

        Dim dvManager As DataViewManager = New DataViewManager(ds)

        Dim dv As DataView = dvManager.CreateDataView(ds.Tables("Person"))

        For Each dRow In ds.Tables(0).Rows

            txtNama.AutoCompleteCustomSource.Add(dRow("Fullname").ToString)

        Next

    End Sub

4. Panggil Prosedure di Load Form

Private Sub FrmAutocompleteTextBox_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Call ProcACText()

    End Sub

5. Running Program Hasilnya akan terlihat seperti Gambar dibawah ini :



Selamat Mencoba !!