Looping For dan Wait Cursor

Looping ...Apa itu Looping ?

Looping adalah sebuah perulangan dalam bahasa pemrograman. Dalam membangun sebuah aplikasi looping/ perulangan sangatlah penting. Mengapa dikatakan penting,...karna bila kita berurusan dengan data yang banyak puluhan, ratusan, bahkan smpe jutaan data, tidak mungkin kita mengetikkan code untuk membaca data sebanyak jumlah data tersebut. Nah untuk menyiasatinya adalah dengan menggunakan looping.

Ada beberapa macam looping dalam visual basic.net diantaranya :

1. While Loops : Akan tetap menjalankan looping apabila kondisi while masih dalam kondisi benar. (Ada penentuan batas awal dan batas akhir looping)
2. Do Loops : Akan tetap menjalankan looping apabila kondisi do masih dalam kondisi kondisi Loops. (Ada penentuan batas awal dan batas akhir looping). kondisi bisa berada diakhir while loops.
3. For Next : Akan tetap menjalankan looping apabila kondisi for masih dalam kondisi benar. (Ada penentuan batas awal dan batas akhir looping)
4. For Each...Next : Akan menjalankan looping apabila masih dalam jumlah yang ditentukan. (Tidak Ada penentuan batas awal dan batas akhir looping). Biasanya looping ini sering digunakan dalam array dan list.

Wait Cursor : adalah tampilan visual sebuah cursor mouse sebagai penanda bahwa aplikasi sedang berjalan/ proses. Jika kita membuat aplikasi tanpa dikasih wait cursor...kita tidak akan tau bahwa aplikasi yang ada, masih berjalan atau sudah berhenti proses. Dalam .net untuk membuat aplikasi ini sederhana sekali. Dalam windows XP biasanya wait cursor ditandakan dengan gambar "Jam Pasir" dan windows seven dengan tanda "Bulat" bila OS linux...wah jangan ditanya yah...bisa bermacam-macam tergantung style linux nya....

Ok biar lebih jelas langsung saja kita ke TKP....hahahah kyak pak pol ja ke TKP...
tapi Sebelumnya siapkan terlebih dahulu  projectnya.

1. Buka new project dengan 1 buah form.
2. Tambahkan 1 buah listbox sebagai penampung hasil looping.
3. Tambahkan 4 buah button sebagi pemicu event.

seperti gambar ini :

Kemudian ketikkan coding dibawah ini.

Coding ini untuk looping while loop :

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
  Handles Button1.Click
        ListBox1.Refresh() ' untuk merefresh/mnghapus data listbox
        Me.Cursor = Cursors.WaitCursor ' untuk membuat wait cursor
        Dim index As Integer = 0
        While index < 20000
            ListBox1.Items.Add("Ini Looping While loop ke - " & index)
            index += 1
        End While
        Me.Cursor = Cursors.Default 'untuk stop wait cursor
    End Sub

Coding ini untuk looping Do loop :

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
   Handles Button2.Click
        ListBox1.Refresh() ' untuk merefresh/mnghapus data listbox
        Me.Cursor = Cursors.WaitCursor ' untuk membuat wait cursor
        Dim index As Integer = 0
        Do
            ListBox1.Items.Add("Ini Looping Do Loop ke - " & index)
            index += 1
        Loop Until index > 10
        Me.Cursor = Cursors.Default 'untuk stop wait cursor
    End Sub

Coding ini untuk looping For Next :

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
   Handles Button3.Click
        ListBox1.Refresh() ' untuk merefresh/mnghapus data listbox
        Me.Cursor = Cursors.WaitCursor ' untuk membuat wait cursor
        For index = 1 To 20000
            ListBox1.Items.Add("Ini Looping For Next ke - " & index)
        Next
        Me.Cursor = Cursors.Default 'untuk stop wait cursor
    End Sub

Coding ini untuk looping For Each :

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
   Handles Button4.Click
        ListBox1.Refresh() ' untuk merefresh/mnghapus data listbox
        Dim numberSeq() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
        'array diatas looping/list yang akan di looping'
        For Each number As Integer In numberSeq
            ListBox1.Items.Add(number)
        Next
    End Sub

OK sekian dl yah....semoga bermanfaat... :)