Sabtu, 03 Maret 2012

Armagedon 2040!!!!!!

JAKARTA--MICOM: Para ilmuwan terus memelototi sebuah asteroid besar yang mungkin menimbulkan ancaman ke Bumi dalam beberapa dekade ke depan.

Batu ruang angkasa yang disebut AG5 2011 itu berlebar sekitar 460 kaki (140 meter). Lintasannya kemungkinan akan cukup dekat dengan Bumi pada 2040.

Karena itu, beberapa peneliti dihubungi untuk berdiskusi tentang cara menangkisnya.

Pembicaraan tentang asteroid itu ada dalam agenda sidang subkomite teknis dan ilmiah di bawah Komite Penggunaan Antariksa secara Damai (COPUOS) PBB yang diselenggarakan awal bulan ini di Wina, Austria.

Sebuah tim aksi PBB tentang objek dekat Bumi (Neos) mencatat pendekatan asteroid itu ke Bumi dan kemungkinan--meskipun kecil--bahwa AG5 2011 akan memukul planet kita pada 28 tahun dari sekarang.

Benda itu ditemukan pada Januari 2011 oleh pengamat Survei Gunung Lemmon di Tucson, Arizona. Para ilmuwan telah mengetahui ukuran batu, tapi massa dan komposisinya belum diketahui saat ini.

"AG5 2011 adalah objek yang saat ini memiliki peluang tertinggi untuk menabrak Bumi di 2040. Namun, kami baru mengamatinya sekitar setengah dari orbit, sehingga tingkat kepastian dalam perhitungan ini masih tidak terlalu tinggi," kata Detlef Koschny dari Solar System Missions Division European Space Agency di Noordwijk, Belanda. (space.com/OL-5)

Kamis, 01 Maret 2012

CARA INSTAL XAMPP

Untuk dapat menjalankan Joomla, kita harus menginstal dulu XAMPP.  Berikut adalah cara menginstal XAMPP:
  1. Pertama buka file master XAMPP anda , kemudian klik file tersebut
    1
  2. Rubah bahasa menjadi bahasa Indonesia agar mempermudah anda dalam proses penginstalan XAMPP.
    2
  3. Setelah itu akan muncul kotak dialog setup XAMPP , kemudian pilih maju
    3
  4. Pilih lokasi dimana program XAMPP akan diinstal,biasanya diletakan kedalam C/Program File/xampp
    4
  5. Kemudian pilih install, tunggu beberapa saat sampai proses instalasi selesai.
  6. Biarkan saja kotak dialog tersebut akan hilang sendiri dan akan muncul kotak dialog berikutnya :
    6
  7. Setelah muncul kotak dialog seperti gambar di atas pilih selesai, maka akan muncul kotak dialog untuk menginstal XAMPP server
    7baru
  8. Kemudian pilih yes agar server terinstal. Maka semua proses menginstal XAMPP sudah selesai.
  9. Periksalah apakah program XAMPP dapat berjalan, caranya lihat dari start>program>appachefriends>xampp pilih Control XAMPP server panel
    8
  10. Maka akan tampil jendela seperti berikut :
    11
  11. Kemudian aturlah sesuai dengan kebutuhan anda.

Minggu, 26 Februari 2012

belajar PHP

Anda ingin membuat website dinamis? maka anda perlu mempelajari bahasa pemrograman web server seperti ASP.net, PHP, JSP, Perl, Python, RoR (Ruby on Rails) dan masih banyak lagi. Anda tidak perlu mempelajari semuanya cukup pilih saja salah satu. Dan jika anda memilih PHP, maka anda berada diwebsite yang tepat. Jika anda memilih lainnya silahkan browsing lagi di Google, karena saya belum menguasainya (saya bilang belum karena saya berencana mempelajarinya, hanya saja tidak ada waktu untuk mempelajarinya).

Apa itu PHP?

Salah satu alasan PHP menjadi sukses seperti sekarang ini adalah karena kemampuannya yang menakjubkan. PHP dapat berkomunikasi dengan berbagai macam database dan mengenal semua protokol internet. PHP mudah digunakan dan cepat. Class-class / fungsi-fungsi PHP dapat anda temukan dengan mudah di internet. Apabila anda ingin membuat web dinamis dan belum tau caranya, PHP adalah bahasa pemrograman yang tepat.
PHP merupakan kependekan dari HyperText Preprocessor, awalnya merupakan kependekan dari Personal HomePage. PHP Merupakan bahasa pemrograman yang biasanya ditulis bersama kode HTML. Tidak seperti HTML yang langsung dikirim ke browser, script PHP di parsing dulu oleh PHP binary dalam komputer server. Elemen HTML dibiarkan tetapi kode PHP di eksekusi terlebih dahulu dan hasilnya dalam bentuk HTML dikirim ke browser pengguna. Kode PHP mampu menjalankan perintah database, membuat gambar, membaca dan menulis file, serta kemampuan lainnya yang tidak memiliki batas.
PHP 4 akan dihentikan pengembangannya pada Desember 2007, tapi tenang saja pengguna PHP 4 diseluruh dunia masih diatas 80% dibanding PHP versi lainnya.
Pada saat artikel ini ditulis, PHP telah memasuki versi 5, tetapi versi 4 nya masih banyak digunakan. Bahkan versi 6 Alpha telah keluar sejak akhir 2006. Pada versi 5 keatas PHP telah memiliki konsep OOP (Pemrograman Berorientasi Objek) yang cukup bagus dan sebanding dnegan Java. Jadi jika anda menggunakan PHP 5 anda harus terbiasa dengan konsep OOP. Saya akan membahas konsep OOP lain kali, disini kita menggunakan PHP 4 dan tidak menggunakan konsep OOP. Jadi sangat cocok bagi anda yang merupakan pemula dan ingin belajar PHP.

Cara menginstall PHP

Sudah cukup kita ngomongin PHP, sekarang sebelum kita dapat menggunakan PHP pertama-tama kita perlu menginstall PHP pada komputer kita. PHP dapat dijalankan di berbagai macam sistem operasi dan servers. PHP dapat berjalan di Windows, Unix, Linux dan Macintosh. PHP juga dapat bekerja pada berbagai macam web server termasuk Apache (Apache merupakan opensource dan pasangan sehidup semati dengan PHP), Microsoft IIS (Internet Information Server), Website Pro, iPlanet dan Microsoft PWS (Personal Web Server). Disini kita akan menginstall PHP didalam Windows XP menggunakan server Apache.
Cara termudah menginstall PHP adalah dengan menggunakan appserv. Appserv merupakan sebuah paket untuk Windows dimana didalamnya terdapat :
  • Apache Web Server
  • PHP Script Language
  • MySQL Database
  • Zend Optimizer
  • phpMyAdmin Database Manager
Daripada kita mendownload satu-satu, lebih mudah kita menggunakan apsserv, karena didalamnya sudah terdapat semua. Anda tinggal download dan install.
Pertama-tama bukalah http://www.AppServNetwork.com dan download Appserv versi terbaru. Setelah itu jalankan filenya dan akan muncul layar seperti dibawah ini:
Layar Selamat datang
Klik Next aja.
Pilih Folder Instalasi
Ini merupakan default folder dimana anda akan menginstall Appserv. Saya sarankan biarkan saja menggunakan folder defaultnya tidak usah diubah. Klik Next
Pilih tipe Instalan
Pilihlah typical dan klik Next
Setting Localhost
Biarkan saja Server Name nya dengan localhost dan Port nya 80. Klik Next
Username dan Password untuk mengakses MySQL
Pilihlah Username dan Password untuk mengakses database MySQL. Isi sesuka anda, asal anda jangan lupa dengan username dan passwordnya. Kemudian klik Next, selesailah sudah. Anda sudah berhasil menginstall PHP pada komputer anda. Bagaimana mudah bukan.
Sekarang buka browser anda dan ketik 'localhost', maka browser anda akan menjadi seperti ini:
Tampilan Localhost Appserv
Selamat, PHP sudah terinstall pada komputer anda. Sekarang mari kita mencoba beberapa kode PHP.

PHPunil sieh hehehe

Perlu di ingat jika anda membuat file PHP, maka anda perlu menyimpannya di folder c:\appserv\www\folderanda. Sekarang buka Windows explorer dan buka c:\appserv\www setelah itu buatlah folder dan beri nama folder tersebut 'contoh'. Seperti dokumen HTML, PHP merupakan file text. Karena itu anda dapat membuatnya dengan text editor seperti Notepad atau BBEdit untuk MacOS atau Vi dan Emacs untuk Unix/Linux. Saya pribadi menyukai Editplus atau PHPEdit karena software tersebut memiliki sintax highlighting yang memudahkan kita.
Engine PHP akan mengeksekusi kode PHP setelah (<?) sampai ketemu dengan (?>), jika kode PHP anda benar maka hasilnya akan ditampilkan, tetapi apabila salah maka terdapat pesan error dengan memberi tahu anda pada baris berapa terdapat error nya. Sekarang buka teks editor favorit anda dan cobalah kode berikut ini:
<?
print ("Hello World!");
?>
Sekarang simpan file tersebut di to c:\appserv\www\contoh\hello.php. Buka browser anda dan jalankan 'http://localhost/contoh/hello.php'. Maka pada browser anda akan tampil seperti ini:
Tampilan kode PHP Hello World
print() merupakan fungsi untuk mengoutput data. Apa saja yang dituliskan oleh print() akan ditampilkan pada browser. print() merupakan salah satu fungsi yang terdapat dalam PHP untuk menampilkan data, biasanya dimodifikasi dengan data yang dimasukkan, Dalam kasus ini anda menjalankan fungsi print() yang berisi sekumpulan karakter (Hello World) atau disebut String. String harus diapit oleh tanda ".
Setiap baris dari kode PHP selalu diakhiri dengan tanda titik koma " ; "
Anda dapat memasang kode PHP didalam HTML, cukup seperti ini:
<html>
<head>
<title>My first PHP</title>
</head>
<body>
<?
print "Hello <b>World</b>";
?>
</body>
Tetapi anda tidak bisa menyimpannya dalam format .html, anda harus menyimpannya dalam format .php

Comments

Sama seperti HTML, anda pun bisa menuliskan komentar di kode PHP anda. Untuk menuliskan komentar satu baris pada PHP harus diawali dengan dua tanda // atau sebuah tanda #. Semua teks setelah tanda tersebut tidak akan dibaca oleh PHP. Jika anda ingin menuliskan komentar lebih dari satu baris anda dapat menggunakan tanda /* dan diakhiri dengan tanda */. Contoh:
<?
// Ini merupakan kode pertama sayaprint ("Hello World!");
?>

Variables

Variabel merupakan sebuah tempat yang anda definisikan untuk menyimpan sebuah nilai. Variabel mempunyai nama yang anda definisikan dan diawali dengan tanda $. Nama variabel bebas anda dapat menuliskan dengan karakter, angka dan garis bawah "_". Nama variabel tidak boleh mengandung spasi atau karakter lain selain angka dan huruf. Contoh:
<?
$nama="bobi";
$umur=30;
$negara="Indonesia";
print "Halo nama saya $name, saya $age tahun dan tinggal di $country";
?>
Hasil:
Halo nama saya bobi, saya 30 tahun dan tinggal di Indonesia
Sudah dapet maksudnya? Jika anda lihat kode diatas, kita membuat variabel nama yang diisi dengan teks "bobi", kita kuga membuat variabel umur dan negara. Maka apabila kita menulis $umur didalam fungsi print maka yang ditampilkan adalah isi dari variabel tersebut. Kita juga dapat mengisi variabel dengan variabel yang lain serta dapat memanipulasinya. Ini contohnya:
<?
$x=3;
$y=4;
$hasil=$x+$y;
print "$x + $y = $hasil<br>";
$firstname="Dhimas";
$lastname="Ronggobramantyo";
$fullname="$firstname $lastname";
print "Nama saya adalah $fullname";
?>
Hasil:
3 + 4 = 7
Nama saya adalah Dhimas Ronggobramantyo
Jika anda lihat pada variabel "hasil" kita mengisinya dengan variabel x ditambah variabel y. Kita melakukan manipulasi yaitu menambah nilai variabel x dan y yang hasilnya disimpan pada variabel hasil. Sebelum anda meneruskan, coba anda pahami terlebih dahulu mengenai variabel, cobalah untuk mengubah kode-kode yang ada.

Array

Array merupakan sekumpulan elemen yang memiliki tipe yang sama. Di dalam array data tersimpan dengan menggunakan index untuk memudahkan pencarian kembali data tersebut. Variabel hanya memiliki sebuah nilai sedangkan array dapat mempunyai sejumlah nilai. Data dalam suatu array disebut elemen-elemen array. Semua elemen array yang tersimpan mempunyai tipe data yang sama. Array dapat berdimensi satu atau lebih (multidimensi). Oke sekarang cobalah contoh berikut ini:
<?
$name[0]="James";
$name[1]="Bobi";
$name[2]="Robert";
print "Halo nama saya $name[0] dan teman saya adalah $name[2]";
?>
Hasil:
Halo nama saya James dan teman saya adalah Robert
Mirip dengan variabel kan, hanya saja terdapat kurung siku atau dikenal dengan istilah vektor untuk membedakan antara $name yang satu dengan yang lain. Untuk membuat array anda dapat menggunakan cara lain yaitu menggunakan fungsi array(). Contoh:
$name = array("James", "Bobi", "Robert");
Pada bagian vektor (yang didalam kurung siku) tidak hanya dapat di isi angka saja tetapi juga dapat di isi oleh teks. Contoh:
<?
$country["james"]="United States";
$country["bob"]="United Kingdom";
$country["robert"]="Singapore";
print "Hallo $country[james]";
?>

If statement

Belajar pemrograman tidak akan lengkap jika belum ada if. Fungsi if digunakan untuk membuat berbagai ekspresi yang berbeda, apabila ekspresinya benar maka kode yang didalam ekspresi tersebut akan dijalankan. Untuk gampangnya perhatikan diagram kode diabawah ini:
if ( expression 1 )
{
// kode yang dijalankan apabila ekspresi 1 benar
}
elseif ( another expression 2 )
{
// kode yang dijalankan apabila ekspresi 1 salah
// dan ekspresi 2 benar
else
{
// kode yang dijalankan apabila ekspresi 1 dan 2 salah
}
Apabila ekspresi 1 bernilai benar maka kode didalamnya akan dijalankan, dan setelah itu selesai. Tetapi apabila ekspresi 1 salah maka program akan membaca ekspresi 2, apabila ekspresi 2 maka kode didalamnya akan dijalankan dan selesai. Tetapi apabila ekspresi 2 salah maka program akan menjalankan kode yang berada didalam else karena semua ekspresi sebelumnya salah. Anda dapat menambahkan elseif sebanyak apapun yang anda mau. Cobalah kode berikut ini:
<?
$x=3;
if ($x > 5) {
   
print "$x lebih besar dari 5";
} else if ($x < 5) {
   
print "$x lebih kecil dari 5";
} else if ($x == 5) {
   
print "$x sama dengan 5";
} else {    print "$x bukan merupakan angka";}
?>
Variabel $x menyimpan nilai yaitu "3". Angka "3" tidak lebih besar dari "5", Maka ekspresi pertama akan dilewati. Pada elseif berikutnya diuji apakah 3 < 5, tentu saja hasilnya benar. Maka blok kode didalamnya akan dijalankan. Cobalah untuk mengganti nilai variabel $x agar mendapatkan hasil yang berbeda-beda. Pahamilah  perbedaannya. Contoh lainnya:
<?
$score=67;
if ($score < 20) {
print "Nilai anda: $score, anda dapat E";
}
elseif ( ($score > 20) && ($score < 40) ) {
print "Nilai anda: $score, anda dapat D";
}
elseif ( ($score > 40) && ($score < 60) ) {
print "Nilai anda: $score, anda dapat C";
}
elseif ( ($score > 40) && ($score < 80) ) {
print "Nilai anda: $score, anda dapat B";
}
else {
print "Nilai anda: $score, anda dapat A";
}
?>

Switch Statement

Perintah switch merupakan alternatif pengganti dari If. Perintah switch akan menyeleksi kondisi yang diberikan dan kemudian membandingkan hasilnya dengan konstanta-konstanta yang ada didalam case. Pembandingan akan dimulai dari konstanta pertama sampai terakhir. Jika kondisi ditemukan maka program akan membaca kode didalam konstanta tersebut, dan ketika bertemu perintah break; maka program akan keluar dari fungsi switch. Untuk lebih jelasnya perhatikan diagram kode berikut ini:
switch ( expression )
{
case result1:
// Kode akan dijalankan apabila ekspresi sesuai dengan result1
break;
case result2:
// Kode akan dijalankan apabila ekspresi sesuai dengan result1
break;
default:
// Kode akan dijalankan apabila break tidak dijalankan
}
Pada dasarnya mirip dengan if, coba anda perhatikan contoh berikut ini:
<?
$sex=cowok;
switch ( $sex )
{
    case "cowok":
        print "Saya cowok";
        break;
    case "cewek":
        print "saya cewek";
        break;
    default:
        print "Saya bukan cowok/cewek 
tapi 
$sex";
}
?>

Pengulangan (while)

Fungsi while digunakan untuk melakukan pengulangan suatu blok kode. Jumlah pengulangan yang terjadi tergantung dari ekspresi yang ditentukan. Anda akan sering menggunakan fungsi while untuk mengambil data dari database. Blok diagram kode while kira-kira seperti ini:
while (ekspresi)
    Kode yang diulang
endwhile;
Inilah contohnya:
<?
$i=1;
while ($i <= 10) {
   
echo "Loop $i<br>";
   
$i++;
}
?>
Hasil:
Loop 1
Loop 2
Loop 3
Loop 4
Loop 5
Loop 6
Loop 7
Loop 8
Loop 9
Loop 10
autoincrement (++) dan autodecrement (--) sama saja artinya dengan menjumlahkan/mengurangkan nilai variabel dengan nilai satu, jadi jika kita memiliki variabel i yang bernilai 1 kemudian kita menjalankan $i++; maka nilai i akan menjadi 2. Pada kode diatas pertama-tama kita memberi nilai variabel i dengan 1. Kemudian dibawahnya ada kode while yang artinya jika nilai i lebih kecil sama dengan 10 maka kode yang berada didalam while akan dijalankan. Karena nilai i adalah 1 maka kode dijalankan yaitu mencetak teks Loop dan nilai variabel i yaitu 1. Setelah itu kode berikutnya adalah $i++; yang berarti nilai i menjadi 2.
Kembali mengecek apakah nilai i (yaitu 2) lebih kecil 10? karena benar maka kode didalam while dijalankan yaitu mencetak Loop dan nilai variabel i yaitu 2. Setelah itu kode berikutnya adalah $i++; yang berarti nilai i menjadi 3. Begitu seterusnya hingga nilai i betambah terus sampai ekspresi while salah (yaitu saat nilai i tidak lebih kecil dari 10) dan kode didalam tidak dijalankan.
Perlu di ingat apabila kita tidak memasang kode $i++; maka nilai i akan selalu 1 tidak bertambah sehingga kondisi i lebih kecil selalu tercapai dan pengulangan tidak berhenti. Hal ini akan membuat sistem berhenti bekerja, karena terus melakukan pengulangan.

Pengulangan (for)

Perintah for digunakan untuk mengulang perintah dengan jumlah pengulangan yang sudah diketahui. Pada perintah for anda tidak perlu menuliskan kondisi untuk diuji. Anda hanya menuliskan nilai awal dan akhir variabel penghitung. Nilai variabel penghitung ini akan bertambah atau berkurang setiap kali sebuah pengulangan dilakukan. Karena itu pengulangan yang tidak berhenti (seperti dalam kasus while) tidak akan terjadi. Diagram kodenya seperti ini:
for ( variable awal; ekspresi; variabel increment/decrement )
{
// Kode yang dijalankan
}
Ekspresi pertama merupakan variabel awal / nilai awal, sedangkan yang kedua merupakan kondisi yang harus dicapai agar pengulangan dilakukan, sedangkan yang ketiga merupakan peningkatan/penurunan nilai variabel. Contoh diatas yang menggunakan while jika kita menggunakan for akan seperti ini:
<?
for ($i=1; $i<=10; $i++) { 
echo "Loop $i<br>";
}
?>
Hasil:
Loop 1
Loop 2
Loop 3
Loop 4
Loop 5
Loop 6
Loop 7
Loop 8
Loop 9
Loop 10

Fungsi

Fungsi merupakan sekumpulan kode yang dapat kita panggil kembali. Ketika dipanggil maka kode-kode didalam fungsi tersebut akan dijalankan. Dengan menggunakan fungsi, program akan lebih mudah dibaca dan kita tidak perlu menulis kode yang sama berkali-kali. Kita dapat mengirimkan nilai variabel kedalam fungsi dan ketika fungsi selesai dijalankan nilai variabel tersebut dapat kita ambil kembali. Oke untuk lebih jelasnya, misalkan kita memiliki kode PHP seperti ini:
<?

$i=7;
$a=9;
$x=$i+$a;
print "$x<br>";

$i=7;
$a=9;
$x=$i+$a;
print "$x<br>";

$i=7;
$a=9;
$x=$i+$a;
print "$x<br>";

$i=7;
$a=9;
$x=$i+$a;
print "$x<br>";

$i=7;
$a=9;
$x=$i+$a;
print "$x<br>";
?>
Jika kita menulis kode tersebut, kita telah membuang-buang waktu karena kita menulis kode yang sama sebanyak 5 kali. Jika kita menggunakan function() maka kita cukup menulisnya sekali saja, dan sisanya tinggal memanggil fungsi tersebut. Oke sekarang kita coba buat kode diatas menggunakan fungsi:
<?
function myfunction() {
$i=7;
$a=9;
$x=$i+$a;
print "$x<br>";
}

myfunction();
myfunction();
myfunction();
myfunction();
?>
Kita membuat fungsi dengan nama myfunction, kita bebas memberikan nama untuk fungsi yang kita buat. Didalam fungsi myfunction terdapat sekumpulan kode. Nah untuk memanggil fungsi myfunction kita cukup menulis nama fungsinya saja yaitu myfunction();
Anda juga dapat mengirim variabel kedalam sebuah fungsi. Misal anda memiliki kode seperti dibawah ini yang dibuat tanpa fungsi:
<?
$i=1;
$j=2;
$x=$i+$j;
print "$x<br>";

$i=3;
$j=4;
$x=$i+$j;
print "$x<br>";

$i=5;
$j=6;
$x=$i+$j;
print "$x<br>";

$i=7;
$j=8;
$x=$i+$j;
print "$x<br>";
?>
Seperti yang anda lihat pada kode diatas sama semua hanya saja nilai variabelnya berbeda, kita dapat membuat fungsi dimana nilai variabelnya bisa kita masukkan. Seperti ini kodenya jika kode diatas dibuat menggunakan fungsi:
<?
function anotherfunction($i,$j) {
$x=$i+$j;
echo "$x<br>";
}

anotherfunction(1,2);
anotherfunction(3,4);
anotherfunction(5,6);
anotherfunction(7,8);
?>
function anotherfunction($i,$j). $i dan $j adalah variabel yang memiliki nilai 1 dan 2 ketika kita memanggil fungsi  anotherfunction(1,2) Jika kita memiliki fungsi:
function add($i,$j) {
...
}
Dan anda memanggil fungsi tersebut dengan add(1,2); maka nilai $i didalam fungsi tersebut adalah 1 dan nilai $j adalah 2.
Jika anda memiliki fungsi:
function substract($i,$j,$k) {
...
}
Dan anda memanggil fungsi substract(5,6,8); maka nilai $i = 5, $j = 6 dan $k = 8. Sekarang jika anda memanggil fungsi seperti ini:
$x=10;
substract(8,9,$x);


maka $i=8, $j=9 dan $k=10.
Bagaimana? sebelum anda lanjut akan lebih baik jika anda pahami betul mengenai fungsi, karena semakin besar kode PHP yang anda buat maka semakin banyak fungsi yang akan anda gunakan. Anda bisa saja membuat kode PHP tanpa fungsi, tetapi seperti yang saya bilang dengan fungsi anda bisa menghemat penulisan kode yang berulang-ulang.

Forms

Didalam dunia World Wide Web, form HTML merupakan tempat dimana kita bisa mengirimkan informasi dari pengguna ke server. PHP didesain agar dapat bekerja dan menerima informasi dari form HTML. Oke sekarang cobalah kode berikut ini dan simpan dengan nama form.php:
<form action="result.php" method="POST">
Name: <input type="text" name="myname" size="20"><br>
Address: <input type="text" name="myaddress" size="40"><br>
<input type="submit" name="submit" value="Send">
</form>
Sekarang tuliskan kode dibawah ini dan simpan dengan nama result.php:
<?
print "Selamat Datang, $myname.<br>";
print "Alamat anda adalah $myaddress";
?>
Jika anda buka result.php maka isi dari variabel $myname dan $myaddress kosong, karena memang belum anda deklarasikan isinya. Tetapi jika anda membuka file  form.php terdapat text field dengan nama "myname" dan "myaddress". Nah nama textfield ini akan menjadi nama variabel apabila kita mengirimkannya ke PHP. Buka form.php dan coba anda isi text nama dan alamat. Ketika tombol diklik maka variabel tersebut akan dikirim ke file post.php. Dan file post.php akan menerimanya dan menampilkannya.
Anda dapat mengirim nilai variabel tersebut ke file itu sendiri. Metode ini biasanya yang paling sering digunakan. Untuk mengirim variabel ke file dirinya sendiri ubah saja form action ke <?=$PHP_SELF?>. Cobalah kode dibawah ini dan simpan dengan nama self.php:
<html>
<head>
</head>
<body>
<?
If ($ok) {
print "Selamat Datang, $myname.<br>";
print "Alamat anda adalah $myaddress<br>";
}
?>
<form action="<?$PHP_SELF?>" method="POST">
Name: <input type="text" name="myname" size="20"><br>
Address: <input type="text" name="myaddress" size="40"><br>
<input type="submit" name="ok" value="Send">
</form>
</body>
</html>

Beberapa fungsi built in PHP

PHP memiliki buanyak fungsi didalamnya. Buanyak bukan banyak, karena memang sangat banyak. Anda dapat membaca semua fungsinya di manual PHP. Belum lagi class-class yang tersebar di internet. Dijamin anda akan menemukan apa yang anda butuhkan. Oke, kembali ke fungsi. Saya akan menerangkan 3 fungsi dalam PHP yaitu date(), strlen() dan substr().
Fungsi date() digunakan untuk menampilkan tanggal dari server. Kita bisa mengatur hasil tampilan dari date() sesuka hati kita. Inilah kode-kode yang digunakan untuk menampilkan format date():
Format Deskripsi Hasil
a 'am' atau 'pm' huruf kecil pm
A 'AM' atau 'PM' huruf besar PM
d Tanggal (dengan angka diawali dengan 0) 20
D Hari (3 huruf) Thu
F Bulan January

Jam (format 12 jam - diawali dengan 0) 03
H Jam (format 24 jam - diawali dengan 0) 20
g Jam (format 12 jam - tanpa 0) 3
G Jam (format 24 jam - tanpa 0) 20
i Menit 47
j Tanggal (tanpa 0) 3
1 Hari Thursday
L Melompati tahun ('1' untuk ya, '0' untuk no) 1
m Bulan (angka - diawali dengan 0) 01
M Bulan (3 huruf) Jan
n Bulan (angka - tanpa 0) 1
s Detik 24
U Time stamp 1142743213
y Tahun (2 digit) 06
Y Tahun (4 digit) 2006
z Jumlah hari dalam setahun (0-365) 19
Z Waktu dari GMT 0
Contoh:
<?
print "Today is ";
print date("j of F Y, \a\\t g.i a");
?>
Hasil:
Today is 11 of October 2007, at 11.42 am
Bagaimana? mudah bukan untuk menampilkan tanggal pada PHP, sekarang kita pelajari strlen()
strlen() digunakan untuk mengetahu panjang dari string atau jumlah karakter dalam string. strlen() memerlukan masukan berupa string dan akan mengembalikan nilai yang merupakan jumlah karakter dalam string tersebut.
substr() digunakan untuk memotong suatu string dengan menentukan posisi karakter awal dan jumlah karakter yang akan dipotong. Daripada bingung cobalah kode berikut ini:
<?
$text="Computer";
print strlen("$text");
print "<br>";
print substr("$text",3);
print "<br>";
print substr("$text",3,3);
?>
Hasil:
8
puter
put
Bagaimana? mudah kan. Semua yang telah anda baca, mulai dari menginstall hingga bagian ini merupakan dasar-dasar dari PHP dan masih banyak lagi yang harus dipelajari. Tetapi karena anda telah mengetahui dasarnya, maka tidak akan terlalu sulit apabila anda ingin mempelajari PHP lebih dalam lagi.

Kamis, 16 Februari 2012

coding pendaftran with Borland


object frmpendaftaran: Tfrmpendaftaran
  Left = 58
  Top = 83
  Width = 924
  Height = 612
  Caption = '.:: SMAN 1 SOREANG ::.'
  Color = clMedGray
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 168
    Width = 129
    Height = 22
    Caption = 'No pendaftaran'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -19
    Font.Name = 'Beurk'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 384
    Top = 168
    Width = 68
    Height = 22
    Caption = 'Tanggal'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -19
    Font.Name = 'Beurk'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 272
    Top = 112
    Width = 297
    Height = 42
    Caption = 'Form Pendaftaran'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -37
    Font.Name = 'Beurk'
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton2: TSpeedButton
    Left = 448
    Top = 320
    Width = 23
    Height = 22
  end
  object Label12: TLabel
    Left = 656
    Top = 168
    Width = 62
    Height = 22
    Caption = 'C A R I'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -19
    Font.Name = 'Beurk'
    Font.Style = []
    ParentFont = False
  end
  object DateTimePicker1: TDateTimePicker
    Left = 592
    Top = 168
    Width = 25
    Height = 21
    Date = 40901.482018946760000000
    Time = 40901.482018946760000000
    TabOrder = 0
    OnChange = DateTimePicker1Change
  end
  object edno: TEdit
    Left = 192
    Top = 168
    Width = 177
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object Panel6: TPanel
    Left = 0
    Top = 0
    Width = 905
    Height = 89
    Color = clLime
    TabOrder = 2
    object Panel: TPanel
      Left = 424
      Top = 8
      Width = 433
      Height = 73
      BevelOuter = bvNone
      Color = clLime
      TabOrder = 0
      object LBFONT: TLabel
        Left = 72
        Top = 22
        Width = 340
        Height = 44
        Caption = 'SMAN 1 SOREANG'
        Color = clLime
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -37
        Font.Name = 'Beurk'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 208
    Width = 353
    Height = 337
    Caption = 'Data Siswa'
    Color = clAppWorkSpace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object Label3: TLabel
      Left = 24
      Top = 30
      Width = 34
      Height = 15
      Caption = 'Nama'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 24
      Top = 54
      Width = 73
      Height = 15
      Caption = 'Tempat_lahir'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 24
      Top = 86
      Width = 76
      Height = 15
      Caption = 'Tanggal_lahir'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 24
      Top = 118
      Width = 39
      Height = 15
      Caption = 'Agama'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 24
      Top = 150
      Width = 81
      Height = 15
      Caption = 'Jenis_kelamin'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 24
      Top = 182
      Width = 81
      Height = 15
      Caption = 'Alamat_rumah'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 24
      Top = 246
      Width = 75
      Height = 15
      Caption = 'Asal_sekolah'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 24
      Top = 278
      Width = 64
      Height = 15
      Caption = 'No_telepon'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object edtanggal: TEdit
      Left = 169
      Top = 86
      Width = 121
      Height = 21
      CharCase = ecUpperCase
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 290
      Top = 86
      Width = 24
      Height = 21
      Date = 39182.936152523150000000
      Time = 39182.936152523150000000
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnChange = DateTimePicker2Change
    end
    object ednama: TEdit
      Left = 168
      Top = 20
      Width = 177
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object edtmp: TEdit
      Left = 168
      Top = 52
      Width = 121
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object cbagama: TComboBox
      Left = 168
      Top = 116
      Width = 145
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      ParentFont = False
      TabOrder = 4
    end
    object cbjk: TComboBox
      Left = 168
      Top = 148
      Width = 145
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      ParentFont = False
      TabOrder = 5
    end
    object edalm: TEdit
      Left = 24
      Top = 204
      Width = 305
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object edtlp: TEdit
      Left = 168
      Top = 276
      Width = 121
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
    end
    object edasal: TEdit
      Left = 168
      Top = 244
      Width = 121
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
    end
  end
  object GroupBox2: TGroupBox
    Left = 384
    Top = 320
    Width = 521
    Height = 225
    Caption = 'Data OrangTua'
    Color = clAppWorkSpace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 4
    object Label18: TLabel
      Left = 23
      Top = 30
      Width = 57
      Height = 14
      Caption = 'Nama_ayah'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 22
      Top = 62
      Width = 77
      Height = 14
      Caption = 'Pekerjaan_ayah'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 24
      Top = 102
      Width = 47
      Height = 14
      Caption = 'Nama_ibu'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 23
      Top = 134
      Width = 67
      Height = 14
      Caption = 'Pekerjaan_ibu'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 19
      Top = 158
      Width = 58
      Height = 14
      Caption = 'Alamat_ortu'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 22
      Top = 190
      Width = 61
      Height = 14
      Caption = 'No_telp_ortu'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object SbCetak: TSpeedButton
      Left = 336
      Top = 16
      Width = 177
      Height = 41
      Caption = 'Cetak Data Pendaftaran'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SbCetakClick
    end
    object SbKeluar: TSpeedButton
      Left = 336
      Top = 104
      Width = 177
      Height = 41
      Caption = '&Keluar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFF3333F333333300033339333333337773F33733333330008033
        933333333737F7F37333333307078733333933337337373F3337333077088803
        33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
        9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
        99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
        93333773F377337F73F333308807880339333337F37F337F373F333088077803
        339333373F73F37333733333087777333339333373F7F7F33F37333330807033
        933333333737F73373F333333300033339333333337773333733}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SbKeluarClick
    end
    object SbTabelDaftar: TSpeedButton
      Left = 336
      Top = 64
      Width = 177
      Height = 33
      Caption = '&Tabel Pendaftaran'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SbTabelDaftarClick
    end
    object EdTlpOrtu: TEdit
      Left = 136
      Top = 188
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object EdAlmOrtu: TEdit
      Left = 136
      Top = 156
      Width = 353
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object EdIbu: TEdit
      Left = 136
      Top = 92
      Width = 153
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object EdAyah: TEdit
      Left = 136
      Top = 28
      Width = 153
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object CbKerja: TComboBox
      Left = 136
      Top = 56
      Width = 153
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      ParentFont = False
      TabOrder = 4
    end
    object CbKerjaIbu: TComboBox
      Left = 136
      Top = 120
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 5
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 545
    Width = 905
    Height = 65
    Align = alBottom
    Color = clLime
    TabOrder = 5
    object lblteks: TLabel
      Left = 152
      Top = 25
      Width = 609
      Height = 32
      AutoSize = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = 'Cooper Black'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel1: TPanel
    Left = 672
    Top = 208
    Width = 233
    Height = 105
    Color = clAppWorkSpace
    TabOrder = 6
    object SbTambah: TSpeedButton
      Left = 8
      Top = 16
      Width = 105
      Height = 33
      Caption = '&Tambah'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SbTambahClick
    end
    object SbBatal: TSpeedButton
      Left = 8
      Top = 64
      Width = 105
      Height = 33
      Caption = '&Batal'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333337FF3333333333333903333333333333377FF33333333333399
        03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
        99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
        99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
        03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
        33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
        33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
        3333777777333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SbBatalClick
    end
    object SbHapus: TSpeedButton
      Left = 120
      Top = 64
      Width = 105
      Height = 33
      Caption = '&Hapus'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
        555557777F777555F55500000000555055557777777755F75555005500055055
        555577F5777F57555555005550055555555577FF577F5FF55555500550050055
        5555577FF77577FF555555005050110555555577F757777FF555555505099910
        555555FF75777777FF555005550999910555577F5F77777775F5500505509990
        3055577F75F77777575F55005055090B030555775755777575755555555550B0
        B03055555F555757575755550555550B0B335555755555757555555555555550
        BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
        50BB555555555555575F555555555555550B5555555555555575}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SbHapusClick
    end
    object SbSimpan: TSpeedButton
      Left = 120
      Top = 16
      Width = 105
      Height = 33
      Caption = '&Simpan'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SbSimpanClick
    end
  end
  object EdTglDaftar: TEdit
    Left = 472
    Top = 168
    Width = 121
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object EdCari: TEdit
    Left = 752
    Top = 168
    Width = 153
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnKeyPress = EdCariKeyPress
  end
  object GroupBox3: TGroupBox
    Left = 384
    Top = 208
    Width = 281
    Height = 105
    Caption = 'Jalur Pendaftaran'
    Color = clAppWorkSpace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 9
    object Label13: TLabel
      Left = 8
      Top = 53
      Width = 76
      Height = 15
      Caption = 'Jalur Prestasi'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 160
      Top = 21
      Width = 54
      Height = 15
      Caption = 'Nilai NEM'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Beurk'
      Font.Style = []
      ParentFont = False
    end
    object edNem: TEdit
      Left = 160
      Top = 36
      Width = 105
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnExit = edNemExit
    end
    object CbJalur: TComboBox
      Left = 8
      Top = 20
      Width = 137
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      ParentFont = False
      TabOrder = 1
    end
    object edprestasi: TEdit
      Left = 8
      Top = 72
      Width = 105
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnExit = edprestasiExit
    end
    object edhasil: TEdit
      Left = 128
      Top = 73
      Width = 145
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
  end
  object Timer1: TTimer
    Interval = 1
    OnTimer = Timer2Timer
    Left = 32
    Top = 56
  end
  object Timer2: TTimer
    Interval = 1
    OnTimer = Timer1Timer
    Left = 104
    Top = 40
  end
end