Search This Blog

Do Loop Statemen - MS Access - Visual Basic

Do...Loop Statemen - MS Access - Visual Basic
Anda dapat menggunakan statemen Do...Loop untuk menjalankan satu blok statemen dengan jumlah pengulangan yang tidak ditentukan. Statemen diulang ketika kondisi True atau hingga kondisi menjadi True.
Pengulangan Statemen Jika Nilai Kondisi True
Ada dua cara menggunakan keyword While untuk memeriksa kondisi dalam statemen Do...Loop. Anda dapat memeriksa kondisi sebelum anda masuk ke dalam looping, atau anda dapat memeriksa setelah looping berjalan setidaknya satu kali.
Pada procedure ChkFirstWhile berikut, anda memeriksa kondisi sebelum anda masuk looping. Jika myNum diset ke angka 9 bukan 20, maka statemen di dalam loop tidak akan pernah berjalan. Pada procedure ChkLastWhile, statemen di dalam loop berjalan hanya satu kali sebelum kondisi menjadi False.
Sub ChkFirstWhile()
counter = 0
myNum = 20
Do While myNum > 10
 myNum = myNum - 1
 counter = counter + 1
Loop
MsgBox "Proses Looping sebanyak " & counter & " kali."
End Sub

Sub ChkLastWhile()
counter = 0
myNum = 9
Do
 myNum = myNum - 1
 counter = counter + 1
Loop While myNum > 10
MsgBox "Proses Looping sebanyak " & counter & " kali."
End Sub
Pengulangan Statemen Sampai Kondisi Menjadi True
Ada dua cara untuk menggunakan keyword Until untuk memeriksa kondisi di dalam statemen Do...Loop. Anda dapat memeriksa kondisi sebelum masuk proses looping, atau anda dapat memeriksa setelah proses looping berjalan setidaknya satu kali. Looping (pengulangan) berlanjut ketika kondisi masih False.
Sub ChkFirstUntil()
counter = 0
myNum = 20
Do Until myNum = 10
 myNum = myNum - 1
 counter = counter + 1
Loop
MsgBox "Proses Looping sebanyak " & counter & " kali."
End Sub

Sub ChkLastUntil()
counter = 0
myNum = 1
Do
 myNum = myNum + 1
 counter = counter + 1
Loop Until myNum = 10
MsgBox "Proses Looping sebanyak " & counter & " kali."
End Sub
Keluar dari Statemen Do...Loop
Anda dapat keluar dari Do...Loop menggunakan statemen Exit Do. Misalnya untuk keluar dari pengulangan yang belum selesai, gunakan statemen Exit Do pada blok kondisi True dari salah satu statemen kondisi If...Then...Else atau Select Case. Jika kondisi bernilai False, pengulangan akan tetap berlanjut.
Contoh berikut, myNum diberi nilai yang membuat looping tidak akan berakhir. Statemen If...Then...Else memeriksa kondisi ini dan keluar dari looping untuk mencegah pengulangan tak berujung.
Sub ExitExample()
counter = 0
myNum = 9
Do Until myNum = 10
   myNum = myNum - 1
   counter = counter + 1
   If myNum =5 then exit do
Loop
End Sub

Catatan Untuk menghentikan looping yang tidak berujung tekan tombol ESC atau CTRL+BREAK.
Topik Terkait

No comments: