Baiklah tanpa basa-basi kita langsung saja ke inti materi nya yaitu looping. Sebelum kita masuk ke pembahasan lebih dalam lagi terlebih dahulu kita perkenalkan apa itu looping pada Visual Basic?? Looping dapat kita artikan sebagai PERULANGAN, yang artinya suatu proses dimana program akan mengeksekusi satu atau lebih statement berulang kali sesuai kebutuhan.
Cara penulisan atau syntax dari looping ini ada 3 cara “yang saya tahu” yaitu :
Cara penulisan atau syntax dari looping ini ada 3 cara “yang saya tahu” yaitu :
- FOR ... NEXT
- DO ... WHILE
- DO ... UNTIL
Dari masing – masing syntax looping di atas, akan kita bahas di bawah ini.
Oke pertama kita buat program nya, program nya sederhana saja ya, tidak usah terlalu mewah. Ya kaya gini lah ...
Program di atas terdiri dari 1 label, 1 listbox dan 5 commandbutton. Baiklah jika kita telah selesai membuat program nya seperti gambar di atas, sekarang kita double klik commandbutton FOR NEXT. jika telah mendouble klik commandbutton FOR NEXT akan muncul tempat penginputan code seperti ini.
Private sub artinya awalan perintah program yang akan kita buat, command1_click() artinya perintah ini akan melakukan suatu aksi jika commandbutton yang pertama di klik, End Sub artinya perintah untuk mengakhiri prosedur dari program yang sedang dibuat. Dapat kita simpulkan bahwa code diatas merupakan objek dari button klik.
Sekarang kita masukan code berikut ini.
Private Sub Command1_Click()
For a = 20 To 1 Step -2
List1.AddItem (a)
Next a
End Sub
Jika telah memasukan code nya sekarang kita lihat jalankan program nya dengan cara klik run pada toolbar lalu klik start, atau bisa langsung dengan pencet F5 di keyboard. Setelah itu akan tampil hasil project yang telah kita buat tadi. Seperti ini.
Coba kita klik tombol button FOR NEXT dan lihat hasil nya
Setelah kita klik tombol FOR NEXT tampil angka dari 20 ke bawah sampai angka 2, kenapa bisa? Kita lihat code berikut ini ...
Private Sub Command1_Click()
For a = 20 To 1 Step -2
List1.AddItem (a)
Next a
End Sub
Kalau Private Sub sudah tahu ya, kita ke baris 2 ada For a = 20 To 1 Step -2 ini artinya si variable a memiliki nilai 20 lalu sebelah nya ada To 1 Step -2 dan bawah nya ada List1.Additem (a) ini yang artinya variable a akan menampilkan angka mundur dari 20 sampai dengan angka 1 di listbox nya tetapi angka yang mundur ini tidak berurutan karena kita tambahkan perintah Step -2 yang artinya angka nya di kurangi 2 sampai dengan tampilan angka terakhir.
Jadi angka di baris pertama di listbox adalah 20, lalu Next a artinya balik lagi ke a tetapi angka 20 tadi di kurangi 2 dan hasil nya di tampilkan di listbox baris ke 2, lalu Next a lagi, kan a nya 18, sekarang di kurangi 2 dan hasil nya 16 lalu 16 ini di tampilkan di baris ke 3, lalu Next a lagi sampai hasil nya mendekati atau pas di angka 1. Begitu ...
Sekarang kita lanjut, kita double klik commandbutton2 atau DO WHILE lalu masukan code nya berikut ini.
Private Sub Command2_Click() a = 20
Do While a >= 1
List1.AddItem (a)
a = a - 2
Loop
End Sub
Setelah kita masukan code nya kita coba jalankan program nya
Kenapa bisa sama kaya FOR NEXT tetapi code nya berbeda? Logika nya begini, di baris 2 ada a = 20 artinya listbox baris pertama akan tampil angka 20 di baris ke 2 dan ke 4 ada Do While a >= 1 dan a = a – 2 artinya angka 20 ini akan berurutan menurun yang si kurang 2 tetapi tidak bisa belebihi 1 seperti 0 atau -1, -2, dan seterusnya. Lalu angka yang tampil di baris 2 di listbox ini hasil dari a – 2 artinya 20 – 2 sama dengan 18, nah 18 ini akan tampil di listbox baris 2. Dan seterus nya sampai batas yang telah di tentukan yaitu angka 1.
Sekarang kita lanjut ke ke DO UNTIL, kita double klik button nya lalu masukan code berikut ini.
Private Sub Command3_Click()
a = 20
Do Until a < 1
List1.AddItem (a)
a = a - 2
Loop
End Sub
Setelah kita masukan code nya, sekarang kita jalankan program nya dan lihat hasil nya.
Setelah kita double klik button DO UNTIL, lalu tampil angka dari 20 ke bawah berurutan dengan melangkahi 1 angka. Yang artinya sama dengan FOR NEXT dan DO WHILE. Tetapi code nya berbeda kenapa bisa?
Logika nya tidak terlalu beda dengan DO WHILE, hanya saja di baris ke 3 ini ada Do Until a < 1 artinya variable a ini akan menampilkan angka nya hingga angka 1 atau menurun.
Sekarang kita lanjut double klik button CLEAR lalu masukan code nya berikut ini.
Private Sub Command4_Click()
List1.Clear
End Sub
Code di atas berfungsi untuk menghapus hasil output dari ke 3 button klik tadi, ingin di buktikan? Oke kita lihat.
Tuh hasil nya, setelah klika klik CLEAR maka listbox nya kosong.
Sekarang kita lanjut button EXIT, kita double klik dan masukan code nya berikut ini.
Private Sub Command5_Click()
End
End Sub
Coba jalan kan program nya, pasti keluar, menutup atau mengakhiri.
Demikian Program yang dapat saya sampaikan, sampai ketemu di posting Selanjutnya.
Wassalamu'Alaikum Wr Wb.
