Loop VBScript: Lakukan Sementara, Lakukan Hingga, Sementara, Untuk Masing-masing (Contoh)
Badai Freya
Mengapa Loops digunakan di VBScript?
Loop digunakan untuk mengeksekusi blok kode yang sama berulang kali. Ada sejumlah pernyataan perulangan VBScript. Beberapa pernyataan perulangan VBScript adalah Do While, Do Until, For…..Next dan seterusnya. Jadi, bagaimana Anda memutuskan pernyataan perulangan mana yang akan digunakan untuk kebutuhan Anda?
Saat menjalankan loop, Anda mungkin menyadari atau tidak mengetahui berapa kali Anda ingin menjalankan serangkaian instruksi. Misalnya, Anda ingin menghitung jumlah dua bilangan sepuluh kali. Dalam hal ini, Anda sudah tahu bahwa Anda ingin mengulangi blok kode sebanyak 10 kali. Misalkan, Anda ingin menghitung jumlah dua angka hingga variabel tertentu menjadi benar. Di sini, Anda tidak tahu berapa kali perulangan harus dieksekusi. Jadi berdasarkan apakah Anda mengetahui atau tidak mengetahui jumlah eksekusi, Anda dapat menggunakan berbagai jenis pernyataan perulangan.
Untuk…Pernyataan perulangan berikutnya digunakan jika Anda ingin mengulang suatu blok kode beberapa kali, yaitu jika Anda mengetahui berapa kali jika Anda ingin mengulang blok kode tersebut.
Pernyataan perulangan Do While dan Do Until digunakan ketika Anda ingin mengulang suatu blok kode hingga suatu kondisi menjadi benar atau salah, yaitu ketika Anda tidak mengetahui berapa kali Anda ingin mengeksekusi blok kode tersebut.
Mari kita lihat pernyataan perulangan ini satu per satu.
VBScript Lakukan While Loop
Jika Anda tidak mengetahui berapa kali Anda perlu mengeksekusi suatu blok kode, maka Anda akan menggunakan perulangan Do While. Misalnya, Anda ingin menampilkan pesan “Selamat Datang” ketika nilai variabel x kurang dari 5. Dalam kasus seperti itu, perulangan Do While akan digunakan.
<script type="text/vbscript">
Dim x
x=1
Do While x<5
document.write("Welcome.")
x=x+1
Loop
</script>
Jika Anda mencoba mengeksekusi kode tersebut, Anda akan mendapatkan output seperti ini:
Blok dieksekusi empat kali (ketika x=1,2,3 dan 4) dan perulangan berakhir ketika nilai x menjadi 5. Jika Anda lupa pernyataan x=x+1, maka perulangan Anda akan menjadi perulangan yang tidak pernah berakhir satu. Loop semacam ini dikenal sebagai loop tak terbatas. Loop tak terbatas bahkan dapat membuat sistem Anda crash. Jadi, saat menggunakan pernyataan perulangan Do While, Anda harus memastikan bahwa ada beberapa kode yang akan membuat kondisi perulangan menjadi benar pada satu titik atau lainnya.
Jika Anda menetapkan nilai 7 ke variabel x di awal, maka blok kode tidak akan dieksekusi sekali pun. Misalkan Anda ingin mengeksekusi blok kode setidaknya sekali apa pun kondisinya, maka Anda dapat menggunakan perulangan Do While. Ubah kode seperti ini:
Contoh VBScript:
<script type="text/vbscript">
Dim x
x=7
Do
document.write("Welcome.")
x=x+1
Loop While x<5
</script>
Jika Anda menjalankan kode ini, Anda akan mendapatkan pesan “Selamat Datang” sekali saja. Di sini kondisi diperiksa hanya setelah perulangan dijalankan satu kali.
VBScript Lakukan Hingga Loop
Perulangan 'Lakukan Hingga' juga digunakan ketika Anda tidak mengetahui jumlah waktu yang Anda perlukan untuk mengeksekusi suatu blok kode. Blok kode pertama dalam perulangan Do Until (Do While x<5) setara dengan blok kode di bawah ini.
<script type="text/vbscript">
Dim x
x=1
Do Until x=5
document.write("Welcome.")
x=x+1
Loop
</script>
Ini akan memberi Anda keluaran yang sama dengan blok kode pertama dalam perulangan Do While. Anda akan melihat pesan Selamat Datang empat kali. Mirip dengan Do…..Loop While, kita juga harus Do…Loop Until.
Jika Anda ingin keluar dari perulangan Do While atau Do Until di antaranya, Anda dapat menggunakan pernyataan Exit Do. Misalkan Anda ingin keluar dari blok ketika nilai x menjadi 3 pada program di atas, maka Anda perlu membuat kode seperti ini:
<script type="text/vbscript">
Dim x
x=1
Do Until x=5
If x=3 Then Exit Do
document.write("Welcome.")
x=x+1
Loop
</script>
Jika Anda mengeksekusi kode tersebut, output Anda akan terlihat seperti ini:
Di sini perulangan keluar ketika nilai x menjadi 3.
VBScript Sementara Loop
While…Wend loop mirip dengan Do While loop meskipun tidak umum digunakan. Karena Do While lebih terstruktur daripada While…..Wend loop, pemrogram biasanya menggunakan pernyataan Do While.
<script type="text/vbscript">
Dim x
x = 1
While x < 5
document.write("Welcome.")
x=x+1
Wend
</script>
Outputnya akan menjadi
VBScript Untuk Loop Berikutnya
Perulangan For-Next dapat digunakan untuk mengeksekusi blok kode beberapa kali. "VBScript For loop" menentukan variabel penghitung serta nilai awal dan akhir. Pernyataan Next menambah variabel counter sebanyak satu.
For i = 1 To 5
document.write("The number is " & i & "
")
Next
Jika Anda mengeksekusi kode tersebut, Anda akan mendapatkan output seperti ini:
VBScript Untuk-Langkah-Langkah Berikutnya
Secara default, variabel counter bertambah satu. Jika Anda ingin menambah atau mengurangi variabel counter dengan nilai yang Anda tentukan, maka Anda dapat menggunakan For….Step….Next loop. Misalkan pada kode di atas, Anda ingin menambah penghitung sebanyak 2, lalu ubah kode Anda seperti ini:
For i = 1 To 5 Step 2
document.write("The number is " & i & "<br />")
Next
</script>
Output dari kode ini adalah:
Jika Anda ingin keluar dari perulangan For Next atau For Step Next di antaranya, Anda dapat menggunakan Exit untuk pernyataannya. Misalkan Anda ingin keluar dari blok ketika nilai i menjadi 3 pada program di atas, maka Anda perlu membuat kode seperti ini:
<script type="text/vbscript">
For i = 1 To 5 Step 2
If i=3 Then Exit For
document.write("The number is " & i & "<br />")
Next
</script>
output akan:
VBScript Untuk Setiap Loop Berikutnya
Jika Anda ingin mengulang blok kode untuk setiap item dalam koleksi atau untuk setiap elemen array VBS, maka Anda perlu menggunakan loop For…Each…Next.
<script type="text/vbscript"> Dim students(4) students(0)="John" students(1)="Hanah" students(2)="Sarah" students(3)="Kevin" students(4)="Emma" For Each x In students document.write(x & "<br />") Next </script>
Output dari kode yang ditentukan di atas adalah
Contoh Kode
<html>
<head>
<script type="text/vbscript">
Dim name, length
name = InputBox("Enter your name")
length = Len(name)’Gives length of the input string
For i = 1 To length
txt = Mid(name,i,1)'Returns a specified number of characters from a string, the first parameter is the string, second parameter is the starting position and third parameter is the number of characters to return
If txt="a" or txt="A" or txt="e" or txt="E" or txt="i" or txt="I" or txt="o" or txt="O" or txt="u" or txt="U" Then
counter = counter+1
End If
Next
document.write("Hi " & name & "!!!Your name contains " & counter & " vowels.")
</script>
</head>
<body>
</body>
</html>
Simpan berkas sebagai loop.html di lokasi pilihan Anda. Sekarang buka berkas di Internet Explorer dan Anda akan mendapatkan kotak yang meminta Anda untuk memasukkan nama Anda. Masukkan nama, misalnya Aaron, seperti ini:
Klik OK dan output Anda akan terlihat seperti ini:
Kesimpulan
- Pernyataan perulangan digunakan untuk mengeksekusi blok kode yang sama berulang kali.
- Anda akan menggunakan perulangan Do-While, Do-Until, dan While-Wend jika Anda tidak mengetahui sebelumnya berapa kali blok tersebut harus dieksekusi.
- Anda akan menggunakan perulangan For-Next, For-Next-Step, dan For-Each-Next jika Anda sudah mengetahui berapa kali Anda perlu mengeksekusi blok kode.
