Perulangan dengan Do Loop Until dalam VBScript

Artikel ini akan membahas tentang perulangan menggunakan Do ... Loop Until ... dalam VBScript. Berikut adalah referensi tentang perulangan yang ada dalam bahasa VBScript :

1. For ... Next Loop
2. For Each ... Next Loop
3. Do While ... Loop
4. Do ... Loop Until ...

Mari kita pelajari lebih lanjut mengenai Do ... Loop Until ... 

Berikut adalah syntaxt Do .. Loop Until ... :

Do 
   <code>
Loop Until <kondisi>

Apabila diterjemahkan dalam bahasa sehari-hari maka syntax di atas akan berbunyi demikian : Ulangi <code> sampai <kondisi> tercapai (bernilai true)

Setelah melihat syntax  nya, maka akan terlihat jelas perbedaannya dengan Do While ... Loop :

•  Do ... Loop Until ... akan meng-eksekusi <code>  terlebih dahulu dan kemudian meng-evalusi <kondisi>. Sebalikanya, Do While ... Loop akan meng-evaluasi <kondisi> terlebih dahulu kemudian meng-eksekusi <code>.

• Perbedaan yang lainnya terletak pada <kondisi>. Do ... Loop Until ... akan meng-eksekusi <code>  selama <kondisi> bernilai false.  Apabila <kondisi> bernilai false maka perulangan akan terjadi. Apabila <kondisi> bernilai true maka perulangan akan berhenti. Berbeda dengan Do While ... Loop , yang akan melakukan perulangan apabila <kondisi> bernilai true

Satu hal yang menguntungkan dengan Do ... Loop Until ...  adalah kita dapat meng-eksekusi <code> terlebih dahulu lalu kemudian melakukan pengecekan <kondisi>. Hal tersebut cocok untuk keadaan dimana  diharuskan untuk eksekusi <code> setidaknya satu kali sebelum melakukan perulangan lebih lanjut.

Contoh 1 :
Code di bawah akan menambahkan 3 ke dalam var_hasil sampai var_hasil bernilai lebih dari 12.

Dim var_hasil
var_hasil = 0

Do 
   var_hasil = var_hasil + 3
Loop Until var_hasil > 12

Contoh 2 :
Code di bawah memiliki tujuan yang sama dengan Contoh 1, namun dengan pendekatan yang berbeda

Dim var_hasil
Dim var_stop

var_stop  = false
var_hasil = 0

Do 
   var_hasil = var_hasil + 3
   
   If var_hasil > 12 Then
      var_stop = true
   End if
   
Loop Until var_stop

Sekian. Semoga bermanfaat.