29 Agustus 2020

Inilah Cara Untuk Membuat Procedure Yang Dilengkapi Argumen Pada Pemrograman ASP

www.niguru.com
Niguru.com | Sabtu, 29 Agt 2020 | Pada posting 2 hari yang lalu Niguru.com sudah menjelaskan mengenai cara untuk membuat procedure pada bahasa pemrograman ASP. Dimana sudah dicontohkan bahwa dengan bantuan fasilitas procedure maka kelompok program yang penggunaannya perlu diulang beberapa kali, cukup dituliskan sekali saja.

Pada posting kali ini Niguru.com akan menambahkan pengetahuan teman-teman pembaca sekali mengenai pembuatan procedure, dengan membuat procedure yang dilengkapi dengan argumen, sehingga saat procedure dijalankan, maka hasilnya akan tergantung pada argumen yang dicantumkan pada saat procedure tersebut dipanggil.

Berikut ini sintaks penulisan procedure yang dilengkapi argumen:

Sub nama_procedure(argumen)
[kelompok program]
End sub

Sebagai contoh Niguru.com akan mulai dengan membuat file .HTML sebagai pengirim data ke procedure:

<h3>Pilih salah satu nama binatang dibawah ini:<br>
1: Untuk Kucing<br>
2: Untuk Sapi<br>
3: Untuk Kuda<br>
4: Untuk Nyamuk<br><br>

<form method="post" action="procedure02.asp">
<input name="pilih" size="3" style="text-align: center">
<input type="submit" value="Kirim Pilihan">
</form>

 

Simpan dengan nama inputPro01.html:

 
Dan berikut ini file .ASP yang berisi procedure:

 

<h2>Uji procedure dengan argumen
<br><br>---------------<br>
</font>
<%
sub pilihBinatang(argumenKu)
select case argumenKu
case 1
response.write("kamu memilih KUCING")
case 2
response.write("kamu memilih SAPI")
case 3
response.write("kamu memilih KUDA")
case 4
response.write("kamu memilih NYAMUK")
case else
response.write("Tentukan pilihan sesuai petunjuk")
end select
end sub

pilihBinatang(request.form("pilih"))
%>


 

Simpan dengan nama procedure02.asp:

 

Buka inputPro01.html pada browser > ketik angka pilihan (1 .. 4) > klik Kirim Pilihan:

 

Hasilnya:


Demikianlah penjelasan mengenai cara untuk membuat procedure yang dilengkapi dengan argumen.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Tidak ada komentar:

Posting Komentar