Looping digunakan untuk mengulang-ulang suatu blok pernyataan/action berdasarkan kondisi tertentu
Dalam Pemrograman ASP/VBScript dikenal beberapa pernyataan looping antara lain:
Do…Loop
Pernyataan do…loop digunakan untuk perulangan berdasarkan suatu parameter kondisi yang harus terpenuhi, ada 2 bentuk perulangan do…loop ini berdasarkan penempatan parameter kondisi yaitu parameter kondisi di letakkan di awal pernyataan dan parameter kondisi di letakkan di akhir pernyataan. Syntax dari pernyataan do…loop sbb:
[Action]
[Exit Do]
[Action]
Loop
Atau
[Action]
[Exit Do]
[Action]
Loop [While | Until] Kondisi
Perbedaan dari kedua pernyataan do…loop diatas:
- Parameter Kondisi diletakkan diawal pernyataan Evaluasi kondisi dilakukan sebelum loop, sehingga Jika kondisi tidak terpenuhi maka action yang ada didalam blok perulangan tidak akan di eksekusi.
- Parameter Kondisi diletakkan di akhir pernyataan Evaluasi kondisi dilakukan setelah loop, sehingga paling tidak blok action di eksekusi sekali baru kemudian di evaluasi apakah looping dilanjutkan atau tidak.
Contoh :
do while i<10
Response.Write(i&“<br />”)
i=i+1
Loop
x = 0
do until x=10
Response.Write(x)&“<br />”
x=x+1
Loop
Kedua blok do..loop diatas akan menghasilkan angka 0 sampai dengan 9.
Pernyataan Exit Do digunakan untuk keluar dari blok perulangan meskipun kondisi perulangan masih memenuhi.
While..Wend
Perulangan While…Wend memiliki fungsi yang sama dengan Do While…Loop. Evaluasi kondisi selalu dilakukan di awal pernyataan. Syntax :
[Action]
Wend
Contoh:
while i<10
Response.Write(i&“<br />”)
i=i+1
Wend
Contoh diatas adalah bentuk while…wend dari contoh do while…Loop di section pertama tadi.
For..Next
Perulangan For..Next berfungsi untuk melakukan pengulangan blok action berdasarkan nilai awal dan akhir, dengan kata lain range looping ssudah diketahui. additional Step options berfungsi untuk menambahkan atau mengurangi variable nilai. Syntax :
[Action]
[Exit For]
[Action]
Next
Silahkan jalankan contoh script berikut untuk langsung dapat melihat dan memahami cara kerja loop for..next [step]
Response.Write(i&“<br />”)
Next
For i=0 to 10 step 2
Response.Write(i&“<br />”)
Next
For i=10 to 1 step -1
Response.Write(i&“<br />”)
Next
For Each…Next
Perulangan For Each Next digunakan untuk melakukan perulangan blok action untuk setiap element yang ada di dalam group/array atau koleksi. perulangan ini sangat berguna untuk array dan object koleksi.
Syntax :
[Action]
[Exit For]
[Action]
Next
Setiap kali eksekusi maka akan diambil nilai element dari group/array/koleksi yang didefinisikan dalam blok pernyataan untuk di-ikutkan didalam blok action/proses di dalam loop.
Contoh:
For Each nilai in arr1
Response.Write(nilai&“<br />”)
Next
arr2=array(“Lahir”,“Hidup”,“Mati”)
For Each sItem in arr2
Response.Write(sItem&“<br />”)
Next
tolong kirimi terus scrip2 baru tentang php
Om, mohon bantuannya dong.
Webblog saya di-deface orang. Gimana ngembaliinnya. Trus tutorkan dong gimana ngejaga webblog dari dikacaukan orang iri. Bagu ilmunya ya Bang…
Makasih…
pak tolong dong saya mau belajar buat virus vbs yang handal tapi selalu error tolong bantuin ya klu boleh, minta tutorial buat vir
vbs ya?
maaf nak klo masalah virus ngga ngerti he eh, tips sederhana tulis dulu logikanya setelah ntu baru di terjemahin ke coding, klo bisa posting juga error messagenya he eh
Mau tanya dong…
Kalau di VBScript pada button nya bisa di buatkan link ga ya..?Soalnya saya coba isi di action tapi ga bisa…
terima kasih banyak….
bisa aja buat fungsi client script (vbscript/javascript) untuk handle event action dari button tersebut. misal event onclick bisa ditambahkan spesifik action onclik=”panggil_javascript_function();”
om bisa minta pengertian dan contoh-contoh statement kendali seperti select case, on goto, on gosub, on error goto, dan while wend. do loop juga yaph.!!!! makasih
Mo belajar virus VBS…
coba masuk ke forum sebelah …di jasakom (( TNI vs.GAM.VBS )ato di Virologi atao si fariskhi ( kalong X )….don’t make Virus vbs to attack another…just to Tray n learn…
kalo ‘DIM’ fungsinya untuk apa ya..????
klo bisa bls ke email gw ya..
tks be4
mas arip yg budiman,
gimana script untuk penjumlahan data angka/numbering yang diambil dari data base ms. acces (kayak di prog. exel digabung dari beberapa kolom terus ada rumus sum nya gitu),terus gimana ya caranya agar angka yang ribuan ada tanda titiknya misal (20.500)terima kasih atas semua masukannya!kalau bisa jawab lewat email aja!