Cara membuat Perulangan While Wend Loop & Perulangan Do While Loop pada Visual Basic(VB)
Pertama-tama buka terlebih
dahulu Program Visual Basic (VB) sehingga muncul tampilan program visual basic atau
juga bisa dengan start à all programs à Microosoft Visual Basic à Microosoft Visual Basic 6.0. Dapat juga dengan hanya
mengklik icon yang sudah terinstall di dekstop jika pada awal penginstalan
aplikasi Visual Basic memilih pilihan “Create Icon Dekstop” sehingga akan
muncul icon Microsoft Visual basic 6.0 pada layar dekstop.
Maka akan muncul tampilan
awal dari Visual Basic 6.0 seperti gambar dibawah ini :
Kemudian, klik “STANDARD EXE” maka akan
muncul sebuah form dan project baru yang akan didesign dan dimasukkan sebuah
codingannya setelah form tersebut didesign, bisa dilihat seperti gambar dibawah
ini :
Kemudian, sesuaikan ukuran form dengan
kebutuhan yang akan didesign dari lebar sampai tinggi form tersebut, setelah
itu pada design kali ini hanya menggunakan 4 “ToolBox” yaitu yang pertama
digunakan “Label” ditunjukan pada kotak “Merah”, kedua “TextBox” ditunjukan
pada kotak “Biru”, ketiga “CommandButton” ditunjukan pada kotak “Hijau”, dan
keempat “ListBox” ditunjukan pada kotak “Coklat” seperti pada gambar dibawah
ini :
Kemudian, seperti yang dijelaskan diatas langkah
ke 1 adalah membuat label yaitu label 1 sampai label 2, seperti gambar berikut
:
Kemudian, setelah membuat label maka label
tersebut akan didesign dengan mengubah dibagian “PROPERTIES” saja yaitu
dibagian “CAPTION” dari label tersebut,seperti kotak merah yang ditunjuan pada
gambar dibawah ini :
Kemudian, ubah Caption label 1 sampai 2
sesuai nama yang diinginkan, setelah itu pada langkah ke 2 adalah membuat
text yang akan diisikan atau dinputkan
dengan menggunakan “TextBox” buat textbox 1 saja, seperti gambar berikut :
Kemudian, kosongkan text1 dengan klik text
1 mengubah bagian propertiesnya seperti label tapi pada textbox ini tidak ada
caption hanya text saja , dapat dilihat seperti gambar yang ditunjukan kotak
merah yang ada dibawah ini :
Kemudian, setelah text1 dikosongkan
selanjutnya pada langkah ke 3 adalah membuat command button yaitu commandbutton
1 sampai commandbutton 3 yang akan diisikan sebuah coding yang memproses
data-data yang telah dimasukkan, seperti pada gambar dibawah ini :
Kemudian, ubah Caption command 1 sampai
command 3 sesuai nama yang diinginkan sama seperti label, selanjutnya pada
langkah ke 4 yaitu membuat listbox untuk menampilkan hasil dari data yang telah
diinput dan diproses yaitu membuat list 1, dapat dilihat pada gambar berikut :
Selanjutnya pada langkah ke 5 yaitu
membuat label lagi untuk menampilkan hasil atau jenis perulangan yang dipakai
dari data yang telah diinput dan diproses yaitu membuat label 3 setelah itu
label 3 dikosongkan caption namanya seperti langkah-langkah yang dijelaskan
diatas, dapat dilihat pada gambar berikut :
Kemudian, list1 ini tidak dikosongkan,
setelah tidak dikosongkan list1 tersebut pada langkah ke 6 adalah memasukkan
codingan ke dalam command 1 sampai commannd 3 dengan cara double klik command
yang dituju maka akan mucul layar codingan dan isi codingannya seperti gambar dibawah
ini :
Pada gambar diatas, “Private Sub Command1_click()”
yaitu “While Wend” menyatakan codingan pada command 1 lalu pada “Label3.Caption”
menyatakan jenis perulangan yang dipakai dari proses tersebut akan ditempatkan
pada label 3 dan hasilnya akan tertera
di ListBox1 karena label maka programnya harus”.Caption” kemudian pada
“Text1.Text” menyatakan adalah inputan batas yang akan di proses pada yang
hasilnya akan ada di list1 kemudian type data codingan tersebut adalah Integer
jika ingin memasukann batas angka untuk perulangan dapat di Text1 karena
perulangan While Wend maka sebelum End sub harus ditutup dengan Wend hasil
inputannya akan tertera di ListBox 1 untuk While Wend jika batasnya akan
dimasukkan “Angka 10” maka outputnya akan menghasilkan “Angka 1-10” dan juga
terus bertambah 1 karena inputannya berupa “+1”.Untuk melihat Codingan While
Wend lebih jelas dapat di lihat pada gambar dibawah ini :
“Private Sub Command2_click()” yaitu “Do
While” pada codingan ini merupakan jenis perulangan yang punya kesamaan dengan
“While Wend” condingan ini dibuat pada command 2 lalu pada “Label3.Caption”
menyatakan jenis perulangan yang dipakai dari proses tersebut akan ditempatkan
pada label 3 dan hasilnya akan tertera
di ListBox1 karena label maka programnya harus”.Caption” kemudian pada
“Text1.Text” menyatakan adalah inputan batas yang akan di proses pada yang
hasilnya akan ada di list1 menyatakan adalah inputan batas yang akan di proses
pada yang hasilnya akan ada di list1 kemudian type data codingan tersebut
adalah Integer jika ingin memasukann batas angka untuk perulangan dapat di
Text1 karena perulangan Do While maka sebelum End sub harus ditutup dengan Loop
hasil inputannya akan tertera di ListBox 1 untuk While Wend jika batasnya akan dimasukkan
“Bilangan 10” maka outputnya akan menghasilkan “Bilangan 1-10” dan juga terus
bertambah 1 karena inputannya berupa “+1”.Untuk melihat Codingan Do While lebih
jelas dapat di lihat pada gambar dibawah ini :
“Private Sub Command3_click()” yaitu
“Clear” yang terletak pada Command 3.Pada codingan Clear hanya menyatakan “Text1.Text
= “” “ ,List1.Clear dan Label3.Caption atau juga bisa dengan menggunakan
codingan “Clear”, text dan label codingan yang ingin dimasukkan sama.
Codingan Clear dapat di lihat pada gambar
dibawah ini :
Kemudian, agar terlihat rapi pada saat di
run rapikan form yang telah didesign untuk merubah huruf guanakan “Font” ,untuk
warna huruf gunakan “ForeColor” untuk rata kiri,kanan,tengah gunakan
“Alignment”,untuk background text,label dan commandbutton gunakan “BackColor”
dan lain-lain,seperti gambar dibawah ini :
Kemudia klik “Run” pada Menu Bar lalu klik
“Start” atau bisa juga dengan menekan “F5” maka program tersebut yang telah
didesign dan dimasukkan codingannya akan mulai berjalan jika telah di klik
Start atau menekan F5 dan program tersebut akan muncul.
Setelah itu masukkan text atau intputan
pada kolom textbox yang telah dibuat lalu klik proses maka codingan tersebut
akan memproses dan muncul tampilan seperti pada gambar dibawah ini :
Perulangan While Wend Loop
Perulangan Do While Loop
Pada gambar diatas, Jika mengklik clear
maka inputan telah dimasukkan akan bersih atau terhapus text dan labelnya.
