Fungsi Perulangan Pada VB 6.0

Berhubung banyak teman-teman yang mengeluhkan tentang perulangan, "Aku pusing, aku ga ngerti, gemana penggunaan perulangan itu", Nah begitulah kata teman-teman ku.

Fungsi perulangan sangat penting dan banyak digunakan dalam pemograman, diantaranya membaca data secara berulang-ulang atau menyimpan data secara berulang. Misalnya bisa juga untuk menampilkan data dari database pada Combobox, maka digunakan fungsi perulangan.

Berikut contoh fungsi perulangan tanpa database.

a). For ... Next

For <Variabel> step <Variabel>

       <Pernyataan>

Next <Variabel>

b). Do While ... Loop

Do while <Kondisi>

         <Pernyataan>

Loop

c). Do until ... Loop

Do until <Kondisi>

         <Pernyataan>

Loop

silahkan teman-teman desain form seperti gambar di bawah ini :

Ket :

- 3 Buah CommondButton

- 2 buah ListBox

- 1 Buah ComboBox

Double klik Pada tombol For ... Next isi dengan script

 'Untuk membersihkan/menghapus isi List1

    List1.Clear

    

    'buat perulangan dari 1 sampai 10

    For coba1 = 1 To 10

        'menambahkan data ke dalam list1

        List1.AddItem coba1

    'ulang kembali coba1

    Next coba1

Double klik Pada tombol Do While ... Loop isi dengan script

'bersihkan combo1

    Combo1.Clear

    

    'mengenalkan variabel coba2 sebagai Byte (angka)

    Dim coba2 As Byte

    

    'memberikan nilai awal coba2

    coba2 = 0

    

    'melakukan perulangan selama nilai coba2 lebih kecil dari 5

    'jika nilai coba2 lebih besar dari 5 maka berhenti mengulang

    Do While coba2 < 5

        'nilai coba2 yang sudah ada ditambah 1

        coba2 = coba2 + 1

        'tampilkan data di combo1

        Combo1.AddItem coba2

    'baca kembali data hingga nilai coba2 lebih besar dari 5

    Loop

Double klik Pada tombol Do Until ... Loop isi dengan script

 'bersihkan list2

    List2.Clear

    

    'mengenalkan variabel coba3 sebagai Byte (angka)

    Dim coba3 As Byte

    

    'memberikan nilai awal coba3

    coba3 = 0

    

    'melakukan perulangan sampai nilai coba3 melebihi 5

   

    Do Until coba3 > 5

        'nilai coba3 yang sudah ada ditambah 1

        coba3 = coba3 + 1

        'tampilkan data di combo1

        List2.AddItem coba3

    'baca kembali data hingga nilai coba2 lebih besar dari 5

    Loop

Sekarang coba jalankan programnya

Sekarang udah pahamkan teman-teman, jika masih aada yang ragu tinggalkan comen ya .....

Download File DI SINI