Search This Blog

Loading...

Statemen Looping For Next - Access - VB

Apa gunanya statemen for next pada pemrograman MS-Access? Statemen for next berguna untuk membuat proses pengulangan atau looping pada suatu blok kode program komputer.

Pada posting kali ini saya akan membahas statemen untuk proses looping menggunakan perintah atau statemen For Next. Ada beberapa cara untuk melakukan proses looping, diantaranya adalah menggunakan statement For Next. Statemen For Next biasanya digunakan untuk proses pengulangan atau looping untuk jumlah proses looping yang sudah pasti.

Contoh penulisan statemen For .. Next adalah:

Dim i as Integer
Dim x as Integer
x=0
For i = 1 to 20
x=x+i
MsgBox x
Next i

Statemen di atas akan menampilkan pesan dialog box yang menampilkan variabel x secara beruntun sebanyak 20 kali.

Jika anda ingin keluar dari proses pengulangan atau looping sebelum nilai i sampai 20 maka anda dapat menggunakan perintah exit for di dalam statemen proses looping tersebut.

Sebagai contoh misalnya anda hanya ingin menampilkan variable x sebanyak 10 kali maka statemen di atas diubah menjadi sebagai berikut:

Dim i as Integer
Dim x as Integer
x=0
For i = 1 to 20
x=x+i
MsgBox x
If i=10 then Exit For
Next i

Statement For Next bertingkat

Anda juga dapat menggunakan statemen For Next di dalam statemen For Next untuk melakukan proses looping di dalam looping. Proses looping di dalam looping biasanya digunakan untuk memproses data variabel array 2 dimensi.

Penulisan statemen proses looping di dalam looping dapat dilihat pada contoh berikut:

Dim varAray(3, 4) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 1 To 4
varAray(i, j) = i * j
MsgBox varAray(i, j)
Next j
Next i
End Sub

Hasil dari proses looping statemen di atas adalah menampilkan variabel varAray sebanyak 12 kali dengan angka-angka yang akan ditampilkan secara berturut-turut: 1,2,3,4,2,4,6,8,3,6,9,12.

Jika digambarkan dalam tabel data maka akan tampak sebagai berikut:

varAray(1,1)=1 varAray(1,2)=2 varAray(1,3)=3 varAray(1,4)=4
varAray(2,1)=2 varAray(2,2)=4 varAray(2,3)=6 varAray(2,4)=8
varAray(3,1)=3 varAray(3,2)=6 varAray(3,3)=9 varAray(3,4)=12

Post a Comment