Looping, dan Membuat Listbox & Command Button di Visual Basic

Di praktikum kali ini kita akan membahas tentang program List Box dan command button di visual basic.

1. Pertama-tama kita buat dulu seperti ini dengan menggunakan listbox dan command button.

.

2. Lalu kita ketikkan di for next 1 seperti ini

List1.clear itu di list1nya  menghapus outputan sebelumnya, lalu for i =  1 to 20 jadi i nya itu akan menghasilkan outputan angka 1 sampai 20, lalu list1.additem “angka”  & i  list1 nya akan memasukan kalimat angka dan angka 1 sampai 20 dari variabel i, lalu next i agar berjalan, end sub untuk mengakhiri program tersebut. Hasil outputannya seperti ini:

3. Untuk for next 2 ketikan seperti ini

List1.clear itu di list1nya  menghapus outputan sebelumnya, lalu for i =  20 to 1 step -1 jadi i nya itu akan menghasilkan outputan angka 20 sampai 1, lalu list1.additem “angka”  & i  list1 nya akan memasukan kalimat angka dan angka 1 sampai 20 dari variabel i begini hasil outputannya :

4. Lalu Do While kita ketikkan seperti ini

Lalu i = asc(“z”), asc digunakan untuk mengetahui nilai ASCII dari karakter z, lalu  do while i >= asc(“a”), berarti i akan melakukan ketika lebih dari sama dengan asc a, lalu list1.additem “huruf”  & i  list1 nya akan memasukan kalimat huruf dan angka 1 sampai 20 dari variabel I, chr(i) digunakan untuk mengetahui karakter dari nilai ASCII. Begini hasilnya;

5. Lalu Do until ketikkan seperti ini :

List1.clear itu di list1nya  menghapus outputan sebelumnya, lalu i = asc(“a”) asc digunakan untuk mengetahui nilai ASCII dari karakter a, lalu do until I > asc(“z”), lalu lakukan I sampai lebih dari asc z, lalu list1.additem “huruf”  & i  list1 nya akan memasukan kalimat huruf dan angka 1 sampai 20 dari variabel I, i = i + 1 jadi I nya itu akan ditambah 1 terus, lalu loop untuk melakukan perulangannya. Berikut hasilnya:

6. Lalu clear untuk menghapus outputannya dengan mengetikkan list1.clear