Tuesday, April 27, 2010

Record

 <html>
<head>
<title>Modul 3. Latihan 3: Program penggunaan Record</title>
<script language="javascript">
<!--
    var databaseMHS = new Array();

    function nilaiMHS(v_npm, v_nama, v_prodi)
        {
        this.npm    = v_npm;
        this.nama    = v_nama;
        this.prodi    = v_prodi;
        this.absen    = 0;
        this.tugas    = 0;
        this.uts    = 0;
        this.uas    = 0;
        this.total    = 0;
        }

    function tambah()
        {
        databaseMHS[0] = new nilaiMHS("P001", "Doni", "TI");
        databaseMHS[1] = new nilaiMHS("P002", "Dodi", "MI");
        databaseMHS[2] = new nilaiMHS("P003", "Robi", "TK");
        databaseMHS[3] = new nilaiMHS("P004", "Romi", "KA");
        databaseMHS[4] = new nilaiMHS("P005", "Jeje", "SI");
        }

    function tampilkan()
        {
        var spasi = ""
        spasi += "<table border='4'>" +
            "<tr><th>NPM</th>    <th>Nama</th> <th>Prodi</th> <th>Absen</th>" +
                "<th>Tugas</th>     <th>UTS</th>  <th>UAS</th>   <th>Total</th></tr>";

            for (i=0; i<databaseMHS.length; i++)
                {
                spasi +="<tr>" +
                    "<td>" + databaseMHS[i].npm + "</td>" +
                    "<td>" + databaseMHS[i].nama + "</td>" +
                    "<td align='left'>" + databaseMHS[i].prodi + "</td>" +
                    "<td align='center'>" + databaseMHS[i].absen + "</td>" +
                    "<td align='center'>" + databaseMHS[i].tugas + "</td>" +
                    "<td align='center'>" + databaseMHS[i].uts + "</td>" +
                    "<td align='center'>" + databaseMHS[i].uas + "</td>" +
                    "<td align='center'>" + databaseMHS[i].total + "</td>" +
                       "</tr>";
                }
        spasi += "</table>";
        document.getElementById("hasil").innerHTML = spasi;
        }

    function hitung()
        {
        for (i=0; i<databaseMHS.length; i++)
                {
                if (databaseMHS[i].npm == document.getElementById("npm").value)
                    {
                    databaseMHS[i].absen = document.getElementById("absen").value;
                    databaseMHS[i].tugas = document.getElementById("tugas").value;
                    databaseMHS[i].uts = document.getElementById("uts").value;
                    databaseMHS[i].uas = document.getElementById("uas").value;
                    n_absen = (databaseMHS[i].absen * 0.1);
                    n_tugas = (databaseMHS[i].tugas * 0.2);
                    n_uts   = (databaseMHS[i].uts * 0.3);
                    n_uas   = (databaseMHS[i].uas * 0.4);
                    databaseMHS[i].total = n_absen + n_tugas + n_uts + n_uas;

                    break;
                    }
                }
                document.getElementById("npm").value        = "";
                document.getElementById("absen").value        = "";
                document.getElementById("tugas").value        = "";
                document.getElementById("uts").value        = "";
                document.getElementById("uas").value        = "";
                document.getElementById("npm").focus();

                tampilkan();
        }
//-->
</script>
</head>

<body onload = "tambah(); tampilkan();">
`
        <table border="3" bgcolor = 0FFDDF>

        <tr><th align = right>NPM</th> <th>:</th>
            <th align = left>
            <input id="npm" type="text" size="15" maxlength="14">
            </th>
        </tr>

        <tr><th align = right>Nilai Absen</th> <th>:</th>
            <th align = left>
            <input id="absen" type="text" size="4" maxlength="2">
            </th>
        </tr>

        <tr><th align = right>Nilai Tugas</th> <th>:</th>
            <th align = left>
            <input id="tugas" type="text" size="4" maxlength="2">
            </th>
        </tr>

        <tr><th align = right>Nilai UTS</th> <th>:</th>
            <th align = left>
            <input id="uts" type="text" size="4" maxlength="2">
            </th>
        </tr>

        <tr><th align = right>Nilai UAS</th> <th>:</th>
            <th align = left>
            <input id="uas" type="text" size="4" maxlength="2">
            </th>
        </tr>

        <tr>
            <th align = center colspan=3>
            <input type="button" value="Hitung Nilai" onclick="hitung()">
            </th>
        </tr>
        </table>

        <hr>
            Data Kuliah Akhir Mahasiswa <br>
            Mata Kuliah Struktur Data
        <hr>

        <table>
            <tr><td colspan=5><div id="hasil">Area Hasil</div></td></tr>
        </table>
        <br>

</script>
</body>
</html>







<html>
<head>
<title>StrukturDataQueue</title>
<script language="JavaScript">

var queue=new Array();
function Masuk_Antrian(Data)
{
queue.unshift(data);
}

fungtion Keluar_Antrian()
{
var yang_keluar_antrian = queue.pop();
if(queue.length==0)
return"Antrian Sudah Kosong";
else
return yang_keluar_antrian;
}

fungtion Dalam_Antrian(list)
{
list.options.length=0;
for(var i = 0;i<queue.length; i++)
{
var data = new Option(queue[i]);
list.option[list.option.length]=data;
}
}

</script>
</head>

<body>
<form>
<input type=text name=textSimpan>
<input type=button value="Masuk Antrian"
onclick='Masuk_Antrian(textSimpan.value);
textSimpan.value="";
Dalam_Antrian(Visualisasi);>

<select name="Visualisasi"size=12>
<option>Isi Antrian
</select>
<input type=text name=textAmbil size=20>

<input type=button value="Keluar Antrian"
onClick="textAmbil.value=Keluar_Antrian();
Dalam_Antrian(Visualisasi);">
</form>
</body>
</html>




<html>
<head>
<title>Modul 3. Latihan 2: Program entri data pegawai</title>
<script language="javascript">
<!--
var dbPegawai = new Array();

function pegawai(f_nip,f_nama,f_gaji_per_jam,f_jam_kerja,f_gaji_total)
{
 this.nip = f_nip;

 this.nama = f_nama;
 this.gaji_jam = f_gaji_per_jam;
 this.jam_kerja = f_jam_kerja;
 this.gaji_total = f_gaji_total;
}

function inputPegawai()
{
var nama, gaji_per_jam, jam_kerja, gaji;
while ( nip = window.prompt("Ketikkan NIP (Nomor Induk Pegawai)\n" +
"Click 'cancel' untuk berhenti !!"))
{
nama = window.prompt ("Nama Pegawai :");
gaji_per_jam = parseInt(window.prompt("Gaji per jam :"));
jam_kerja = parseInt(window.prompt("Jumlah jam kerja :"));
gaji = gaji_per_jam * jam_kerja;
dbPegawai[dbPegawai.length] = new pegawai(nip,nama,gaji_per_jam,jam_kerja,gaji);
}
showPegawai();
}

function showPegawai()
{
document.write("<table border='1'>" +
"<tr>" +
"<th>NIP</th><th>Nama</th><th>Gaji per Jam</th><th>Jam Kerja</th>" +
"<th>Gaji Total</th>" +
"</tr>");

for (i=0; i<dbPegawai.length; i++)
{
document.write("<tr>" +
 "<td>" + dbPegawai[i].nip + "</td>" +
 "<td>" + dbPegawai[i].nama + "</td>" +
 "<td align='right'>" + dbPegawai[i].gaji_jam + "</td>" +
 "<td align='right'>" + dbPegawai[i].jam_kerja + "</td>" +
 "<td align='right'>" + dbPegawai[i].gaji_total + "</td>" +
 "</tr>");
}
document.write("</table>");
}

//-->
</script>
</head>

<body onload = "inputPegawai();">
</body>
</html>






<html>
<head>
<title>Membuat Rekaman Objek</title>
</head>
<body>
<script>
<!--
var record = new Array();
function Mahasiswa(npm, nama, prodi, jenjang)
{

this.npm = npm;
this.nama = nama;
this.prodi = prodi;
this.jenjang = jenjang;


this.lihatrecordmahasiswa = lihatrecordmahasiswa;
}
function lihatrecordmahasiswa()
{
document.write("<td>" + this.npm + "</td");
document.write("<td>" + this.nama + "</td");
document.write("<td>" + this.prodi+ "</td");
document.write("<td>" + this.jenjang + "</td");
}


record[0] = new Mahasiswa("43E57006095006","Adnan Fauji", "TI" , "S1");
record[1] = new Mahasiswa("43E57006095007","Nurssohib","TI","S1");
record[2] = new Mahasiswa("43E57006095008","Rizky","TI","S1");
record[3] = new Mahasiswa("43E57006095009","Agah","TI","S1");
record[4] = new Mahasiswa("43E57006095010","Anjas","TI","S1");


document.write("<table border ='1'>");
document.write("<th>NPM</th><th>Nama</th>");
document.write("<th>Prodi</th><th>Jenjang</th> <br>");

for (i=0; i < record.length; i++)
{
document.write("<tr>");
record[i].lihatrecordmahasiswa();
document.write("</tr>");
}

document.write("</table> <br>");


//-->
</script>
</body>
</html>

Sunday, April 18, 2010

Makalah Pemrograman Visual Borland Dhelpi


BAB I
PENDAHULUAN

Bahasa pemrograman Delphi merupakan salah satu bahasa pemrograman generasi ke- 4 atau Generation Language 4 (4GL) merupakan suatu langkah untuk memajukan cara Pemrograman Visual.
           
            Pemrogram tidak perlu membuat suatu prosedur atau kode – kode yang bersifat konvensional, metode yang digunakan adalah perancangan model – model tampilan dan model keluaran.
           
            Oleh perangkat lunak Delphi disediakan fasilitas generator otomatis yang membangkitkan suatu kode, sehingga bagi pemrogram akan memberikan kemudahan untuk membuat rancangan.

            Konsep yang digunakan pada pemrograman visual Delphi adalah pemrograman berorientasi obyek (Objeck Oriented Programing).

BAB II
LANDASAN TEORI

            Makalah yang bertemakan PEMROGRAMAN VISUAL BORLAND DELPHI ini dilandaskan karena salah satu mata kuliah ini dirasa perlu pembahasan lebih lanjut di karenakan bahasa pemrograman Delphi merupakan salah satu bahasa visual yang saat ini banyak digunakan baik oleh kalangan mahasiswa atau umum.

Bahasa pemrograman kini seakan – akan menjadi kiblat bagi para software developer dan menjadi salah satu bahasa yang wajib di pelajari oleh berbagai kalangan jika mereka ingin sukses di dunia computer.


BAB III

PEMBAHASAN

3.1                 Sejarah dan Perkembangan Delphi

Asal usul Delphi berawal dari bahasa Pascal, bermula dari rancangan Algol, bahasa tingkat tinggi pertama yang mudah dibaca, terstruktur dan mendefinisikan sintax secara sistematis. Pada akhir tahun 1960-an (196x), beberapa usulan evolusi penerus algol dikembangkan. Salah satu yang paling sukses adalah Pascal, ditemukan oleh Prof Niklaus Wirth. Wirth mempublikasikan temuan asli Pascal pada tahun 1971. Mulai di implementasikan di tahun 1973 dengan beberapa modifikasi.   Banyak fitur pascal yang berasal dari bahasa sebelumnya. Pernyataan Case dan parameter value-result berasal dari Algol, dan catatan struktur yang mirip dengan Cobol dan PL 1. Pascal menambahkan kemampuan untuk mendefinsikan tipe data baru secara lebih sederhana dari yang pernah ada. Pascal juga mendukung struktur data dinamis, contohnya : struktur data yang dapat tumbuh dan menyusut saat program berjalan. Bahasa ini dirancang untuk menjadi alat pembelajaran bagi siswa pada kelas pemrograman.
Pada tahun 1975, Wirth dan Jensen memproduksi buku referensi Pascal terakhir “Pascal User Manual and Report”. Wirth berhenti bekerja pada Pascal pada tahun 1977 untuk menciptakan sebuah bahasa baru, Modula – penerus Pascal.
Dengan dirilisnya Turbo Pascal 1.0 pada November 1983, Borland mulai perjalanannya dengan lingkungan pengembangan dan perangkatnya. Untuk menciptakan Turbo Pascal 1.0 Borland melisensikan kompilator inti pascal yang cepat dan murah, yang ditulis oleh Anders Hejlsberg. Turbo Pascal memperkenalkan  suatu Lingkungan pengembangan terintegrasi / Integrated Development Environment (IDE) dimana anda dapat mengedit code, menjalankan compiler, melihat kesalahan dan melompat kembali ke baris yang mengalami kesalahan. Kompiler turbo pascal telah menjadi salah satu compiler terlaris sepanjang waktu, dan membuat bahasa ini sangat popular pada platform PC. Pada tahun 1995 Pascal kembali dengan memperkenalkan lingkungan aplikasi bernama Delphi – mengubah pascal menjadi sebuah bahasa pemrograman visual. Keputusan yang strategis dengan membuat perangkat database dan konektivitas sentral dari produk pascal.
Setelah merilis Turbo Pascal 1, Anders bergabung dengan perusahaan sebagai seorang karyawan dan arsitek untuk semua versi dari kompiler Turbo Pascal dan tiga versi pertama dari Delphi. Sebagai kepala arsitek di Borland, Hejlsberg diam-diam merubah Turbo Pascal menjadi bahasa pengembangan aplikasi berorientasi obyek, lengkap dengan lingkungan yang benar-benar visual dan fitur akses database yang luar biasa
Seperti yang dijelaskan dalam Museum artikel Borland, proyek dengan codename Delphi muncul pada pertengahan 1993. Mengapa Delphi? Sangat sederhana: “Jika Anda ingin berbicara dengan Oracle, pergilah ke Delphi”. Ketika tiba saatnya untuk memilih nama produknya, setelah sebuah artikel di ‘Windows Tech Journal’ tentang sebuah produk yang akan mengubah hidup programmer, nama terakhir yang diusulkan adalah AppBuilder. Sejak Novell merilis Visual AppBuilder, orang-orang Borland perlu mengambil nama lain, tetapi menjadi semacam komedi: semakin keras orang-orang berusaha untuk mengabaikan “Delphi” sebagai nama produk, semakin banyak nama tersebut mendapat dukungan. Setelah disebut-sebut sebagai “pembunuh VB” Delphi tetap menjadi produk landasan untuk Borland.
3.2                     Keuntungan dan Kelemahan Delphi
   Keuntungan:
* Komunitas pengguna yang besar pada Usenet maupun web
* Dapat mengkompilasi menjadi single executable, memudahkan distribusi dan   meminimalisir masalah yang terkait dengan versioning
* Banyaknya dukungan dari pihak ketiga terhadap VCL (biasanya tersedia berikut source codenya) ataupun tools pendukung lainnya (dokumentasi, tool debugging)
* Optimasi kompiler yang cukup cepat
* Mendukung multiple platform dari source code yang sama
 Kelemahan:
* Partial single vendor lock-in (Borland dapat menetapkan standar bahasa, kompatibilitas yang harus mengikutinya)
* Terbatasnya kamampuan portabilitas antar-platform OS (sebelum ada kylix)
* Akses pada platform dan library pihak ketiga membutuhkan file-file header yang diterjemahkan ke dalam bahasa pascal
* Dokumentasi atas platform dan teknik-teknik yang menyertainya sulit ditemukan dalam bahasa pascal (contoh akses COM dan Win32).

3.3       Cara Install Visual Borland Delphi 7 Enterprise Edition :
                            

  1. Masukan CD Software Visual Borland Delphi 7 Enterprise Edition

  2. Klick Install.exe – klick open,maka akan tampil tampilan pilihan instalasi Visual Borland Delphi 7 Enterprise Edition :

  1. Klick Delphi 7 untuk menginstal, maka akan tampil Borland Delphi 7 Enterprise Edition – Installation Wizard, klick Next.

  1. Masukan Serial Number dan Authorization Key, Serial Number dan Authorization Key dapat anda lihat di CD Serial Number.txt, klick Next.

  1. Klick pada pilihan I accept the terms in the license agreement, untuk menerima pernyataan lisensi yang ada di Borland Delphi 7 Enterprise Edition, klick Next

  1. Pada Important Installation Information anda klick Next

  1. Pada Setup Type anda Klick pada pilihan Custom untuk menginstal komponen program yang ada di Borland Delphi 7 Enterprise Edition, klick Next

  1. Pada Custom Setup, pilihan Program Files,anda klick Next

  1. Pada BDE SQL Driver Configuration anda klick Next

  1. Pada Choose VisiBroker anda klick Next

  1. Pada Microsoft Office Controls, anda pilih pilihan Office XP untuk Operating System Microsoft Windows XP, klick Next

  1. Pada Install Additional Components anda klick Next

  1. Pada Destination Folder, komponen Delphi yang disimpan dan diinstall pada Drive C, anda klick Next

  1. Pada Save Installation Database, anda klick Next

  1. Pada Ready to Install the Program, anda klick Install, untuk memulai proses penginstallan

  1. Tunggu beberapa saat pada proses penginstallan

  1. Pada InterBase 6.5 Setup Wizard anda klick Next

  1. Pada Setup - InterBase 6.5 Software License Agreement anda klick Yes

  1. Pada Setup - InterBase 6.5 Important Installation Information anda klick Next

  1. Pada Setup - InterBase 6.5 Select Destination Directory, anda pilih C:\Program Files\Borland\InterBase, lalu anda klick Next

  1. Pada Setup - InterBase 6.5 Select Components, pilih pilihan Full Installation, lalu anda klick Next

  1. Pada Setup - InterBase 6.5 Select Start Menu Folder, anda klick Next

  1. Pada Setup - InterBase 6.5 Ready to Install, anda klick Install

  1. Untuk proses penginstallan tunggu beberapa saat,sampai proses penginstallan selesai

  1. Pada akhir penginstallan Setup - InterBase 6.5 selesai, anda klick Finish

  1. Pada Java(TM) 2 Runtime Environment, Standard Edition, v 1.2.2-001, Software License Agreement, anda klick Yes

  1. Pada Java(TM) 2 Runtime Environment, Standard Edition, v 1.2.2-001, Choose Destination Location, anda klick Next

  1. Tunggu beberapa saat pada proses penginstallan Java(TM) 2 Runtime Environment, Standard Edition, v 1.2.2-001 Setup selesai

  1. Informasi proses penginstallan Java(TM) 2 Runtime Environment, Standard Edition, v 1.2.2-001 Setup selesai dan mulai proses penginstallan VisiBroker for Cpp 4.5

  1. Proses awal penginstallan VisiBroker for Cpp 4.5, klick Next

  1. Pada VisiBroker for Cpp 4.5, Software License Agreement, anda klick Yes

  1. Pada VisiBroker for Cpp 4.5, Choose Destination Location, anda klick Next

  1. Pada VisiBroker for Cpp 4.5, Select Components, anda klick Next

  1. Pada VisiBroker for Cpp 4.5, VisiBroker Installation, anda klick Next

  1. Pada VisiBroker for Cpp 4.5, Setup Options, anda klick Next

  1. Pada VisiBroker for Cpp 4.5, Select Program Folder, anda klick Next

  1. Pada VisiBroker for Cpp 4.5, Start Copying Files, anda klick Next

  1. Tunggu beberapa saat proses penginstallan Pada VisiBroker for Cpp 4.5 Setup

  1. Proses penginstallan Pada VisiBroker for Cpp 4.5 Setup selesai, klick Finish

  1. Proses total akhir pada Installation Wizard Completed selesai, lalu anda klick Finish

  1. Merestart


Array

lat 1
<html>
<head>
<title>Belajar Array</title>
</head>
<body><body bgcolor=cyan><font color=blue>
<script language = "javascript">
<!--

var data_ku = new Array ("Saya","Sedang","Senang");

for (i=0; i<3; i++)
{
document.write(data_ku[i] +"<br>");
}

alert ("Selamat Belajar Struktur Data");
alert ("Semoga Memperoleh Ilmu yang Bermanfaat");

//-->
</script>
</body>
</html>




lat 2
<html>
<head>
<title>Belajar Array</title>
</head>
<body><body bgcolor=cyan><font color=blue>
<script language = "javascript">
<!--

var data_ku = new Array ("Saya","Sedang","Senang","senang");

for (i=0; i<4; i++)
{
document.write(data_ku[i] +"<br>");
}

alert ("Selamat Belajar Struktur Data");
alert ("Semoga Memperoleh Ilmu yang Bermanfaat");

//-->
</script>
</body>
</html>



lat 3
<html>
<head>
<title>Belajar Array</title>
</head>
<body><body bgcolor=cyan><font color=blue>
<script language = "javascript">
<!--

var data_ku = new Array ("Senin","Selasa","Rabu","Kamis","Jumat","Sabtu","minggu");

for (i=0; i<7; i++)
{
document.write(data_ku[i] +"<br>");
}

alert ("Semoga Memperoleh Ilmu yang Bermanfaat");

//-->
</script>
</body>
</html>


lat 4
<html>
<head>
<title>Belajar Array</title>
</head>
<body><body bgcolor=cyan><font color=blue>
<script language = "javascript">
<!--
var a = new Array("Senin","Selasa","Rabu","Kamis","Jumat","Sabtu","Minggu");
var b = prompt("Masukan angka hari !");


document.write(a[b] +"<br>");

alert ("Semoga Memperoleh Ilmu yang Bermanfaat");

//-->
</script>
</body>
</html>



<html>
<head>
<title>Modul 2. Latihan 2: Mengisi Array dengan mengentri dari Input Box</title>
</head>
<body>
<script language="javascript">
<!--
    var tempat = [];
    var data = prompt ("Ketik jumlah maksimum Array : ");

    for (m=1; m<=data; m++)
    {
        var bil = prompt("Masukkan bilangan : ")
        tempat[m] = bil;
    }

    for (n=1; n<=data; n++)
    {
        document.write("Elemen Array (" +n+ ") = " +tempat[n]+ "<BR>")
    }
//-->
</script>
</body>
</html>