Kamis, 28 Februari 2013

Tugas 1 Pemrograman Internet

0 komentar
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