Loop VBScript: Lakukan Sementara, Lakukan Hingga, Sementara, Untuk Masing-masing (Contoh)

Mengapa Loops digunakan di VBScript?

Perulangan digunakan untuk mengeksekusi blok kode yang sama berulang kali. Ada sejumlah perulangan VBScript.ping pernyataan. Beberapa tampilan VBScriptping Pernyataan-pernyataan tersebut adalah Do While, Do Until, For…..Next dan seterusnya. Jadi, bagaimana Anda akan memutuskan toilet mana yang akan digunakan?ping Pernyataan mana yang harus digunakan untuk kebutuhan Anda?

Saat menjalankan perulangan, Anda mungkin mengetahui atau tidak mengetahui berapa kali Anda ingin menjalankan serangkaian instruksi. Misalnya, Anda ingin menghitung jumlah dua angka sebanyak sepuluh kali. Dalam hal ini, Anda sudah tahu bahwa Anda ingin mengulang 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 akan dijalankan. Jadi, berdasarkan apakah Anda mengetahui atau tidak mengetahui jumlah eksekusi, Anda dapat menggunakan berbagai jenis perulangan.ping pernyataan.

Untuk…Toilet berikutnyaping Pernyataan digunakan jika Anda ingin mengulang blok kode dalam jumlah terbatas, yaitu jika Anda mengetahui jumlah pengulangan blok kode tersebut.

Lakukan Selama dan Lakukan Sampai looping Pernyataan digunakan ketika Anda ingin mengulang 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 toilet-toilet ini.ping pernyataan 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 terbatasPerulangan tak terbatas bahkan dapat menyebabkan sistem Anda macet. Jadi, saat menggunakan perulangan Do While,ping Dalam pernyataan tersebut, Anda harus memastikan bahwa ada kode yang akan membuat toilet berfungsi.ping kondisi tersebut 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

Code Example

<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:

Pertanyaan Umum Demo Slot