|
Setelah
mengenal alur percabangan, saya ingin mengajak Anda untuk berkenalan
dengan alur pengulangan (iteration).
1.
Do --- Loop
Statement
ini digunakan untuk mengulangi kumpulan statement selama kondisi
TRUE atau sampai kondisi TRUE tercapai.
-
Untuk mengulangi kumpulan statement selama kondisi TRUE
Do
While kondisi
Statement
Loop
-
Untuk mengulangi statement sampai kondisi terpenuhi
Do
Until kondisi
Statement
Loop
Contoh
:
<%
dim koin
koin = 0
Do Until koin = 3
koin = koin + 1
%>
Tulisan ini akan diulang selama 3 kali!
<br>
<% Loop %>
pernyataan
koin = koin + 1 menyebabkan nilai koin akan meningkat dari 1 sampai
3, yang berarti pula pengulangan akan dilakukan sebanyak 3 kali.
2.
While --- Wend
Statement
ini akan mengulangi sekumpulan statement selama kondisi yang diperiksa
bernilai TRUE. Hal ini juga bisa dilakukan dengan menggunakan statement
do loop dan while. Walaupun statement while wend setara dengan dengan
statemen do while --- loop, namun penggunaan while wend telah diperkenalkan
saat bahasa basic lahir. Jadi Anda dapat memilih cara penulisan
yang Anda suka.
Syntax
While kondisi
Statement
Wend
3.
For --- Next
Statement
ini akan mengulang kumpulan statement sebanyak counter yang dijalankan.
Syntax
For counter = mulai to selesai [step jangkauan]
Statement 1
Statement 2
Next
Contoh
:
Tulisan di bawah ini akan di ulang sebanyak 10 kali
<%
dim text%>
<%text = “lampung adalah kota yang sangat indah”%>
<%for tulisan = 1 to 10 %>
<%=text%>
<%Next%>
step
kita pakai jika kita ingin agar angka yang telah kita definisakan
bergerak dalam lompatan nilai tertentu, misalnya for tulisan 1 to
10 STEP 5 maka tulisan akan diulang sebanyak 3 kali sebab hitungan
akan beranjak dari 1, 5, 10.
pernyataan <% =variable %> berarti perintah untuk menampilkan
tulisan di browser. perintah ini sama dengan penggunaan perintah
Response.Write.
4.
For Each --- Next
Berbeda
dengan for --- next yang telah kita jumpai yang berfungsi untuk
mengadakan pengulangan sebanyak hitungan yang telah kita buat, pengulangan
For Each --- Next berfungsi untuk mengambil nilai yang tersimpan
dalam sebuah variable arrays atau collection.
Sintax
For Each elemen In Arrays/Collection
Statement
Next
Untuk
mengetahui lebih lanjut penggunaan fungsi ini akan saya jelaskan
bersamaan dengan pengenalan array nanti.
Logika
Program yang ketiga adalah penggunaan Urutan(sequencing)atau prosedur.
Kita mengenal dua macam prosedur, yaitu prosedur sub atau insrtuksi
dan prosedur function. Perbedaan antara keduanya terletak pada
nilai kembalian atau return value. Kalau pada sub, prosedur bertugas
mengerjakan sesuatu dengan tidak menghasilkan nilai kembalian, sedangkan
function akan mengembalikan nilai kembalian.
Meskipun
koleksi function VBScript untuk ASP segudang jumlahnya namun terkadang
tidak ada satupun yang sanggup memenuhi keinginan kita. VBScript
mempunyai function untuk mendeteksi waktu namun tidak memiliki function
untuk mencari UMR, menghitung diskon, hutang, dan sebagainya. Oleh
karena itu, kita bisa membuat function sendiri.
Sebagai contoh kita ingin membuat perhitungan diskon sederhana dengan
function.
<%
Function Diskon(Harga,Potong)
JumlahDiskon = Harga*(potong/100)
HargaAkhir = Harga - JumlahDiskon
Diskon=HargaAkhir
End Function
Dim HargaBaju,Potongan
HargaBaju = 100000
Potongan = 20 %>
Anda mendapat diskon = <% = Potongan %> persen
<br>
Harga akhir setelah dipotong Diskon : Rp.
<% Response.Write(Diskon(HargaBaju,Potongan)) %>
hasil
: Anda mendapat diskon = 20 persen
Harga akhir setelah dipotong Diskon : Rp. 80000
Contoh
sub :
Kita akan membuat instruksi yang berfungsi merubah semua teks yang
ada di dalam instruksi tersebut. Kita beri nama instruksi tersebut
dengan nama CetakTebal
<%
Sub CetakTebal (kata) %>
<b><%=kata %></b>
<% End Sub %>
<%Dim Salam %>
<% Salam = "Hello Semua" %>
Tulisan ini akan tercetak tebal :
<% CetakTebal(salam) %>
<br>
<% Call CetakTebal(salam) %>
Hasil
:
Tulisan ini akan tercetak tebal : Hello Semua
Hello Semua
Seperti
yang Anda lihat, Pemanggilan Sub bisa dilakukan dengan memakai atau
tidak fungsi call.
|