Perulangan Menggunakan For

Tulisan kedua tentang Visual Basic 6. Sekarang ingin berbagi tentang perulangan. Kesempatan pertama, mari kita belajar menggunakan For...

1. Gambar dulu sebuah listbox pada form (besarnya terserah...suka dengan kata terserah kalau ditanya siswi). Beri name pada propertiesnya lstCoba (sebenarnya bebas sih namanya). Gambar pula sebuah tombol ("Pak, namanya apa dan besarnya seberapa ?" tanya siswi. "Terserah, yang penting nanti tidak bingung saat menulis kode", jawabku enteng)

2. Saya misalkan, tombol tadi diberi nama cmdUlang. Klik dua kali pada kontrol/tombol tadi. Maka akan muncul layar putih dan sudah tertulis sebagai berikut :
Private sub cmdUlang_clik()


End Sub

3. Diantara Private... dan End Sub, tuliskan kode berikut :
dim i as integer
for i=0 to 10
list1.additem i
next i

4. Coba jalankan program tadi, dan telaah hasilnya.
5. Jika ditambahkan perintah step 2 pada baris for, menjadi for i=0 to 10 step 2, apa yang terjadi ?

Latihan :

Buatlah program menggunakan bahasa VB (versi berapa saja), dengan output seperti berikut :



Aturan :
1. Tombol BOSAN : untuk keluar dari aplikasi
2. Tombol HITUNG : akan berefek pada hasil BARAT BADAN IDEAL, status dari berat badan dan menampilkan daftar/list tinggi badan yang dimulai dari Tinggi Badan masukkan sampai 4 cm sesudahnya(cth : jika diinputkan 176, maka akan dimulai dari 176,177,178,179 dan 180)sekaligus berat badan ideal dari masing-masing ketinggian tadi.
3. TOMBOL RESET : membersihkan box Tinggi Badan, Berat Badan dan ListBox
4. Status berat badan :
A. Jika Berat Badan lebih besar atau sama dengan 5 kg dari Berat Ideal : "Anda Gemuk/Gendhut/Banyak Lemak, dsb"
B. Jika Berat Badan lebih kecil atau sama dengan 5 kg dari Berat Ideal : "Anda Kurus/Kerempeng/Balung Thok/Skeleton, dll"
C. Selain itu : "Anda idaman Laki-laki/Perempuan/Banci/Gay/Lesbong,dll di dunia"

Bingung ? Silakan pelajari tentang Seleksi Kondisi/Kontrol Kendali di postingan berikut.