1. Mengkonversi kode PHP ke ASP (Menghitung Total bayar potong 10%)
// Coding PHP
<?php
function hitung ($harga){
$potongan = 0,1;
if
($harga>=100000) {
$total=$potongan*$harga;
$harga1=$harga-$total;
else
{
$harga1=$harga;
}
return $harga1;
}
$harga=$_POST [harga];
$total_bayar=hitung($harga);
echo "total bayar = " $total_bayar;
?>
//Coding ASP
<%
Dim gv_harga, gv_potongan, gv_total, gv__POST(), gv_total_bayar%>
Dim lv_ <%
php
Function fn_hitung ( gv_harga )
gv_potongan = 0,1
If gv_harga>=100000 then
gv_total = gv_potongan*gv_harga
gv_harga1 = gv_harga-gv_total
else
{gv_harga1 = gv_harga
End If
fn_hitung = gv_harga1
End Function
gv_harga = gv__POST (harga)
gv_total_bayar = hitung(gv_harga)
Response.Write "total bayar = " gv_total_bayar
%>
2. Struktur Program pada ASP
Struktur program pada ASP tidak jauh berbeda dengan pemrograman pada umumnya bahkan tidak terlalu jauh berbeda dengan bahasa pemrograman Visual Basic.
2.1. Pendeklarasian Variabel
Pendeklarasian variabel pada ASP bersifat opsional, yaitu boleh dilakukan boleh juga tidak. Pendeklarasian tersebut biasanya digunakan untuk mempermudah pemeliharaan variabel-variabel dalam aplikasi. Pendeklarasian variabel dapat dibuat mutlak, yaitu harus dideklarasikan dengan cara menambahkan statement <% Option Explicit %> di bagian atas program, sebelum menuliskan perintah-perintah ASP lainnya.
<%
Dim lGaji
Dim sPesan
Dim oConn, oRs
%>
2.2.Penulisan Keterangan (remark)
Penulisan keterangan pada program dilakukan dengan terlebih dahulu menuliskan tanda ‘.
2.3. Penggunaan operator & dan +
Operator & digunakan untuk menyambung string, sedangkan operator + digunakan untuk menambahkan bilangan. Perhatikan perbedaannya pada contoh berikut:
<%
A = 100
B = 50
C = A & B ‘C = “10050”
D = A + B ‘D = 150
%>
2.4. Struktur percabangan If-Then-Else
Contoh penulisan strktur percabangan If-Then-Else sebagai berikut.
<%
Umur = 3
If Umur <= 5 Then
Response.Write “Masih Balita”
Else
Response.Write “Bukan Balita Lagi”
End If
%>
akan mencetak: Masih Balita, sebab variabel Umur bernilai 3, yaitu lebih kecil dari 5.
2.5. Struktur Percabangan Select Case – End Select
<%
Nilai = “B”
Select Case Nilai
Case “A”
Response.Write “Baik Sekali”
Case “B”
Response.Write “Baik”
Case “C”
Response.Write “Cukup”
Case “D”
Response.Write “Kurang”
Case “E”
Response.Write “Buruk”
End Select
%>
akan mencetak: Baik, sebab variabel Nilai bernilai B.
2.6. Struktur Pengulangan For-Next
<%
Dim I
For I = 1 To 5
Response.Write I & “
”
Next
%>
akan mencetak:
1
2
3
4
5
dengan
adalah perintah HTML untuk berganti baris.
2.7. Struktur Pengulangan For Each – Next
Serupa dengan struktur pengulangan For-Next, hanya saja For Each - Next digunakan untuk mengambil elemen dari suatu array atau obyek.
<%
Dim A(3)
A(1) = "Selamat "
A(2) = "Belajar "
A(3) = "ASP 3.0"
For Each Item In A
Response.Write Item
Next
%>
akan menghasilkan:
Selamat Belajar ASP 3.0
2.8. Struktur Pengulangan Do-Loop
Struktur pengulangan Do-Loop adalah struktur pengulangan yang menggunakan kondisi sebagai syarat pengulangannya.
<%
I = 1
Do
Response.Write I & “
”
I = I + 1
Loop Until I = 5
%>
hasilnya sama persis seperti pada nomor 5.
2.9. Pembuatan Procedure Sub dan Function
Sub merupakan potongan program yang melakukan tugas tertentu untuk memudahkan pengidentifikasian dan penelusuran alur program. Function adalah sejenis sub yang mengembalikan suatu nilai.
Contoh:
<%
Sub TulisJudul
Response.Write “
Menghitung Luas Lingkaran
”
End Sub
Function LuasLingkaran(Jari2)
LuasLingkaran = 3.14 * Jari2 * Jari2
End Function
Dim R
R = 5
TulisJudul
Response.Write “
Jari-Jari: “ & R
Response.Write “
Luas Lingkaran : “ & LuasLingkaran(R)
%>
2.10. Penyambungan Statement yang Terlalu Panjang
Untuk memperindah penulisan statement yang terlalu panjang dan agar mudah dibaca, penulisannya dapat kita sambung menggunakan tanda _. Misalnya:
If Umur > 18 And Pekerjaan <> “” And Status <> “Menikah” Then
…
End If
dapat dituliskan menjadi:
If Umur > 18 And _
Pekerjaan <> “” And _
Status <> “Menikah” Then
…
End If
Referensi
http://finderonly.com/2009/02/13/artikel-tentang-bahasa-pemrograman-web/
http://nankrin.co.cc/
http://www.bikinwebgratis.co.cc/download.htm
http://www.balinter.net/pengertianwebsite.html
// Coding PHP
<?php
function hitung ($harga){
$potongan = 0,1;
if
($harga>=100000) {
$total=$potongan*$harga;
$harga1=$harga-$total;
else
{
$harga1=$harga;
}
return $harga1;
}
$harga=$_POST [harga];
$total_bayar=hitung($harga);
echo "total bayar = " $total_bayar;
?>
//Coding ASP
<%
Dim gv_harga, gv_potongan, gv_total, gv__POST(), gv_total_bayar%>
Dim lv_ <%
php
Function fn_hitung ( gv_harga )
gv_potongan = 0,1
If gv_harga>=100000 then
gv_total = gv_potongan*gv_harga
gv_harga1 = gv_harga-gv_total
else
{gv_harga1 = gv_harga
End If
fn_hitung = gv_harga1
End Function
gv_harga = gv__POST (harga)
gv_total_bayar = hitung(gv_harga)
Response.Write "total bayar = " gv_total_bayar
%>
2. Struktur Program pada ASP
Struktur program pada ASP tidak jauh berbeda dengan pemrograman pada umumnya bahkan tidak terlalu jauh berbeda dengan bahasa pemrograman Visual Basic.
2.1. Pendeklarasian Variabel
Pendeklarasian variabel pada ASP bersifat opsional, yaitu boleh dilakukan boleh juga tidak. Pendeklarasian tersebut biasanya digunakan untuk mempermudah pemeliharaan variabel-variabel dalam aplikasi. Pendeklarasian variabel dapat dibuat mutlak, yaitu harus dideklarasikan dengan cara menambahkan statement <% Option Explicit %> di bagian atas program, sebelum menuliskan perintah-perintah ASP lainnya.
<%
Dim lGaji
Dim sPesan
Dim oConn, oRs
%>
2.2.Penulisan Keterangan (remark)
Penulisan keterangan pada program dilakukan dengan terlebih dahulu menuliskan tanda ‘.
2.3. Penggunaan operator & dan +
Operator & digunakan untuk menyambung string, sedangkan operator + digunakan untuk menambahkan bilangan. Perhatikan perbedaannya pada contoh berikut:
<%
A = 100
B = 50
C = A & B ‘C = “10050”
D = A + B ‘D = 150
%>
2.4. Struktur percabangan If-Then-Else
Contoh penulisan strktur percabangan If-Then-Else sebagai berikut.
<%
Umur = 3
If Umur <= 5 Then
Response.Write “Masih Balita”
Else
Response.Write “Bukan Balita Lagi”
End If
%>
akan mencetak: Masih Balita, sebab variabel Umur bernilai 3, yaitu lebih kecil dari 5.
2.5. Struktur Percabangan Select Case – End Select
<%
Nilai = “B”
Select Case Nilai
Case “A”
Response.Write “Baik Sekali”
Case “B”
Response.Write “Baik”
Case “C”
Response.Write “Cukup”
Case “D”
Response.Write “Kurang”
Case “E”
Response.Write “Buruk”
End Select
%>
akan mencetak: Baik, sebab variabel Nilai bernilai B.
2.6. Struktur Pengulangan For-Next
<%
Dim I
For I = 1 To 5
Response.Write I & “
”
Next
%>
akan mencetak:
1
2
3
4
5
dengan
adalah perintah HTML untuk berganti baris.
2.7. Struktur Pengulangan For Each – Next
Serupa dengan struktur pengulangan For-Next, hanya saja For Each - Next digunakan untuk mengambil elemen dari suatu array atau obyek.
<%
Dim A(3)
A(1) = "Selamat "
A(2) = "Belajar "
A(3) = "ASP 3.0"
For Each Item In A
Response.Write Item
Next
%>
akan menghasilkan:
Selamat Belajar ASP 3.0
2.8. Struktur Pengulangan Do-Loop
Struktur pengulangan Do-Loop adalah struktur pengulangan yang menggunakan kondisi sebagai syarat pengulangannya.
<%
I = 1
Do
Response.Write I & “
”
I = I + 1
Loop Until I = 5
%>
hasilnya sama persis seperti pada nomor 5.
2.9. Pembuatan Procedure Sub dan Function
Sub merupakan potongan program yang melakukan tugas tertentu untuk memudahkan pengidentifikasian dan penelusuran alur program. Function adalah sejenis sub yang mengembalikan suatu nilai.
Contoh:
<%
Sub TulisJudul
Response.Write “
Menghitung Luas Lingkaran
”
End Sub
Function LuasLingkaran(Jari2)
LuasLingkaran = 3.14 * Jari2 * Jari2
End Function
Dim R
R = 5
TulisJudul
Response.Write “
Jari-Jari: “ & R
Response.Write “
Luas Lingkaran : “ & LuasLingkaran(R)
%>
2.10. Penyambungan Statement yang Terlalu Panjang
Untuk memperindah penulisan statement yang terlalu panjang dan agar mudah dibaca, penulisannya dapat kita sambung menggunakan tanda _. Misalnya:
If Umur > 18 And Pekerjaan <> “” And Status <> “Menikah” Then
…
End If
dapat dituliskan menjadi:
If Umur > 18 And _
Pekerjaan <> “” And _
Status <> “Menikah” Then
…
End If
Referensi
http://finderonly.com/2009/02/13/artikel-tentang-bahasa-pemrograman-web/
http://nankrin.co.cc/
http://www.bikinwebgratis.co.cc/download.htm
http://www.balinter.net/pengertianwebsite.html
