Banner Indonesia Network
  Selamat Datang !  
  http://www.indoscripts.cjb.net
2/11/2012 4:04:37 AM


  Logika Pemrograman II


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.

 


 



 

Ikutan Group indoscripts
Lihat Group Indoscripts
  :: Menu Utama
Kirim Scripts
Pengenalan Html
Pengenalan ASP
Mendapatkan PWS
ConnectionStrings
Trik Menulis ASP
Koleksi Objek FSO
Koleksi Java Scripts
Koleksi Tip & Trik

Pengenalan Visual Basic bersama Masino Sinaga berisi Artikel, Aplikasi, Daftar Error, Download, Trik dan lain-lain.

  :: Kategori SCRIPTS
Html/xml (3709) 
ASP (3217) 
PHP (1526)
Java (1695) 
Java Scripts (1391) 
Visual Basic (1497) 
Visual Basic Net (24) 
   
  :: Statistik
  Hit Counter 82996
  Halaman Terbuka 631942
  Total Scripts Kiriman 43654
  Total Tip & Trik 78

Nilai Situs Indoscripts
@ SearchIndonesia


Silahkan menghubungi kami. Berikan komentar Anda, baik positif ataupun negatif, untuk membantu pengembangan Indoscripts


  
 

 


Copyright © 2002, Dirvision Online
All right reserved