Ada beberapa jenis looping yang dapat kita gunakan pada visual basic 6. Kali ini saya akan menjelaskan 2 contoh saja. Yaitu looping menggunakan For Next dan Do While. Looping ini biasanya digunakan untuk proses perulangan.
Dari 1 - 10, 1 - 100 dan lain sebagainya. Kita pun dapat menggunakannya berdasarkan limit atau jumlah angka tertentu. Misalnya menyesuaikan dengan jumlah record yang ada pada database atau berdasarkan jumlah inputan yang dimasukkan oleh user.
Berikut salah satu contoh bentuk penulisan looping for next :
[code language="vb"]
Private Sub Command1_Click()
x = Val(Text1)
For i = 1 To x
For j = 1 To i
Print j;
Next j
Next i
End Sub
[/code]
Berikut salah satu contoh bentuk penulisan looping Do While :
[code language="vb"]
Private Sub Form_Load()
Dim x As Integer
x = 1
Combo1.Clear
Do While x <= 100
Combo1.AddItem "Options " & x
x = x + 1
Loop
'Kalau kita debug nilai terakhir x adalah 101 maka kita harus set nilai x menjadi 1
x = 1
List1.Clear
Do While x <= 100
List1.AddItem "Options " & x
x = x + 1
Loop
End Sub
[/code]
Ingin lihat video tutorialnya ? Saksikan saja melalui video tutorial berikut ini :
https://www.youtube.com/watch?v=Aax9-p9n0O4
https://www.youtube.com/watch?v=IJ28uuu-E5c
Salah satu contoh penggunaan looping dapat kita temukan juga pada aplikasi deret angka segitiga yang saya buat berikut ini :
https://www.youtube.com/watch?v=kppne73FlJ4
Comments
Post a Comment