Selamat datang kawan di blog saya , di kesempatan kali ini saya akan coba share lagi mengenai VB 6 . Kali ini kita akan membahas mengenai perulangan pada vb6 , jadi ini masih dasarnya saja ya . Setelah saya sebelumnya membahas mengenai percabangan pada vb6 .
Baca juga percabangan pada vb6
Perulangan
Perulangan di ibaratkan jika kita sedang balapan .Terus merulang rulang sampai lap terakhir . Baru selesai perulangan itu . Jika di pemprograman kita memerlukan kita akan mendapatkan informasi yang berhubungan dengan perulangan adalah sudah lap berapa ? , sampai lap berapa ? , kondisinya apa sudah selasai sampai lap akhir ?
Apa sih fungsinya perulangan itu ? fungsinya adalah untuk mengulang , maksudnya jika kita ingin mencetak kata " saya tidak mengerjakan PR " 100 kali tinggal gunakan perulangan , gak perlu ketik manual . Itu sebagaian kecilnya saja , sebenarnya manfaatnya banyak sekali .
For next
Perulangan pada vb6 , kita mengunakan for next , while , do. Kita akan coba bahas satu satu . Yang pertama saya akan bahas adalah for next .
Pertama atur tampilan seperti berikut . Kita siapkan 2 label , 2 text box , 1 command bottom , 1 list box .
Untuk penulisan for next
FOR variable=nilai_awal TO nilai_awal
statment
next variable
Sekarang kawan kawan tau penulisannya . Kita lanjut ke bagian koding dan ketik kode berikut .
Private Sub Command1_Click()
kata = Text1
n = Val(Text2)
For x = 1 To n
List1.AddItem x & "." & kata
Next x
End Sub
kita simpan nilai dari text1 dan text2 kedalam variable , agar lebih rapih dan enak di lihatnya . Jika sudah kita buat for nextnya dengan x=1 sampai ke n yaitu yang nanti di inputkan oleh user , lalu melakukan perintah List1.AddItem x & "." & kata , yang fungsinnya untuk menambahkan item ke listbox dengan nilai x & "." & kata .
Sebagai tambahan kalo yang itu pertambahan satu kalo kita gak gunakan step kalo jika pakai step bebas bisa + 2 , -3 . Sekarang kita coba codingnya ubah
Private Sub Command1_Click()
kata = Text1
n = Val(Text2)
For x = 1 To n Step +2
List1.AddItem x & "." & kata
Next x
End Sub
Itu artinya x=x+2 , yang artinya jika x =1 maka x=1+2
While
Oke sekarang kita akan coba menggunakan while . Bro apa sih bedanya dengan for ? nanti kalian akan tau selah kalian selesai ini .
while kondisi
Perintah
wend
Untuk stepnya adalah kita lakukan di bagian statment atau perintah . Maksudnya apa ? kita langsung ke contoh .
Atur tampilan seperti berikut
Sekarang kita ke bagian kodingnya
Private Sub Command1_Click()
n = Val(Text1)
x = 1
While x < n
List1.AddItem x
x = x * 2
Wend
End Sub
Artinya disana jika x lebih kecil dari n maka akan melakukan perintah
List1.AddItem x
x = x * 2
x=x*2 fungsinya sebagai step seperti yang tadi saya bilang stepnya itu dilakukan di statment atau perintah . Mengapa kita perlu step ? agar dapat merubah x , jika tidak x tidak pernah berubah maka perulangan tidak akan terjadi . Coba saja hapus x=x*2 lalu jalankan , maka akan not respon .
Do
Oke sekarang kita lanjut ke perulangan do . Penulisannya
Do
perintah
Loop Until kondisi
Lansung saja lanjut ke contohnya
tampilannya seperti yang tadi saja ,tetapi kodingannya kita ubah
Private Sub Command1_Click()
n = Val(Text1)
x = 1
Do
List1.AddItem x
x = x * 2
Loop Until x < n
End Sub
Perbedaanya apa sih ?
for itu stepnya tidak bisa perkalian
while melakukan kondisi dulu
do melakukan perintah dulu lalu kondisi
Oke mungkin itu dia bahas bahas mengenai perulangan pada vb6 . Semoga bermanfaat dan juga menambah wawasan . Terimakasih telah berkenan membaca artikel ini . Sampai jumpa di artikel yang lainnya yang lebih menarik dan juga lebih bermanfaat .
