This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

Jumat, 22 Agustus 2014

Membuat Biodata Menggunakan PHP

<html>
    <head>
     
        <title>Nama</title>
    Ini adalah aplikasi pengisian nama.<br />

    <form action="isi.php" method="POST">
    </form>
</head>
    <table border="0" cellspacing="0" style="width: 0px;">
        <tbody>
<tr>
                <td><label for="namadepan">Nama Depan:</label></td>
                <td><input id="namadepan" name="namadepan" type="text" value="" /> </td>
            </tr>
<tr>
                <td><label for="nama">Nama Belakang:</label></td>
                <td><input id="nama" name="nama" type="text" value="" /> </td>
            </tr>
<tr>
                <td><label for="alamat">Alamat asal anda:</label></td>
                <td><input id="alamat" name="alamat" type="text" value="" /> </td>
            </tr>
<tr>
                <td><label for="no">Nomor telepon:</label></td>
                <td><input id="no" name="no" type="no" value="" /> </td>
            </tr>
<tr>
                <td><label for="gembira">Anda gembira:</label></td>
               <td> YES <input id="gembira" name="gembira" type="radio" value="YA, saya gembira" />
        NO<input id="gembira" name="gembira" td="" type="radio" value="Tidak, saya tak bahagia" />
            </td></tr>
<tr>
                <td><input type="submit" value="KIRIM" /></td>
                <td></td>
            </tr>
</tbody>
    </table>
<body>
     
    </body>
</html>

setelah itu, kita akan membuat file isi.php, sebagai outputannya
<!--
To change this template, choose Tools | Templates
and open the template in the editor.
-->

<html>
    <head>
     
        <title>Hasil</title>
    <h2>
Ini adalah biodata anda dan analisa kami :)</h2>
</head>
    <body>
        Nama lengkap anda: </body></html>'.$Nama.' '.$nama;
        echo '<br />
<h4>
Anda berasal dari: </h4>
'.$a;
        echo '<br />
<h4>
Nomor telepon anda: </h4>
'.$n;
        echo '<br />
<h4>
Tingkat kepuasan: <h>'.$g;
        echo '<br />';
        echo '<br />';
        echo '<br />';
        echo '<h6>
Aplikasi ini dibuat oleh HALUAN</h6>
'
        ?&gt;
    </h></h4>
<img alt="3" height="600" src="gambar/3.png" width="900" />


pada index.php terdapat baris code <br />
<form action="isi.php" method="POST">
, ini digunakan untuk
memanggil isi.php dengan metode POST (mengirimkan data).</form>

Rabu, 20 Agustus 2014

hanya sekedar cerita tentang saya dan dunia

4 Januari 2011 pukul 15:48
Di bawah bentangan langit yang sedikit sepi dari kumpulan bintang, dalam keramaian angin malam yang saling berlomba Bernyanyi penuh kelirihan akan kesunyian.. Aku berjalan sendiri dalam kelam malam, untuk sebuah imaji yang terkunci di balik kegelapan. “Imaji?? Bukankah imaji mudah di gali dimana saja kamu berdiri??” Tanya kecil hatiku yang sedikit ragu akan misiku. “Benar! Tapi, bukankah hal yang mudah itu mudah di dapat dimana saja kamu berada??” Jawabku coba menangkal keraguan itu. “Jadi apa masalahnya?” Bantah keraguan hatiku akan argumenku. “Masalahnya, ini bukan soal mudah atau sulit untuk di cari atau di gali, ini soal perenungan yang sangat butuh suatu ketenangan!”. Jawabku untuk menghapus keraguanku.



Setibaku di ujung malam, ku keluarkan tiga cangkir kopi yang sudah ku tuangkan dalam satu botol plastik. Ini untuk ‘partnerku merenung. Lalu tiga bungkus ‘sampoerna mild. Ini untuk dingin malam yang membeku. Dan, di mulailah diskusi pribadiku.. :



“Sudah, langsung saja kawan.. Jangan pakek basi-basi yang basi..” Celetus sang angin malam untuk langsung membuka diskusi.



“Jangan gitu dong.. Santai sajaa..

Tidakkah kau lihat? wajahnya begitu ‘tak berwarna..” Sahut sang pohon yang sedang ku jadikan sandaran.



“Ada apa kawan..?

Ceritalah padaku..” Bisik sang pohon mencoba memihakku.



“Tahukah kau kawan akan sebuah luka..?

Maksudku, apa arti luka bagimu?” Tanyaku pada keduanya.



“Hahahaa..!

Apa yang terjadi pada dirimu kawan dengan pertanyanmu itu??

Luka?? Menurutku hanya sebuah rasa yang wajib kita rasakan..” Jawab sang angin dengan ejekan tawanya.



“Tidak ada apa-apa denganku, aku hanya bingung dengan sebuah luka yang semua orang mencoba

menghindarinya..

Tapi tunggu dulu, apa maksudmu dengan ‘wajib kita rasakan??” Jawab dan tanya balik dariku.



“Aahh kau ini..!

Ketahuilah, tanpa ada luka, kita tidak pernah berfikir untuk bisa menetralisir sebuah rasa sakit!

Akibatnya.. Jika kita berhadapan dengan masalah besar yang sangat melukai, kita terjebak dan

terancam dalam prustasi!” Oceh singkat sang angin yang terlihat sedikit pening.



“O’ouw.! Slowdown..

Tenang kawan.. Begini maksud sang angin,

Janganlah kau terluka akan sebuah luka.. Luka bukan untuk di rasakan lukanya, tapi untuk di

rasakan apa yang di sampaikannya. Karena sebenarnya luka itu datang hanya untuk menyampaikan

sesuatu yang sebenarnya kau lupakan” Jabar sang pohon untuk memperjelas akan jawaban sang angin.



“Sesuatu yang di lupakan??

Emang apa sesuatu itu?? Tanyaku lagi.





“RASA SEDIH!

Sebentar..! Biarku kujabarkan dulu.. Pasti kau bingung dengan jawabanku.

Begini maskudku kawan..

Orang kebanyakan telah salah mengartikan arti sedih yang sesungguhnya, sedih mereka anggap suatu

rasa yang hanya melukai.. Dan pada saat sedih itu datang pada mereka.. Ahirnya yang bisa mereka

rasakan adalah rasa lukanya saja“. Perjelas sang pohon dengan jawabanya.



“Jadi apa sebenarnya rasa sedih itu??” Tanyaku lagi akan jawabannya.



“Sedih sebenarnya rasa yang mengajak kita untuk merenung dengan dalam, tapi sedikit membawa

sebuah luka.. Luka itu adapun karena adanya sebuah rindu yang terlalu lama menggema atau sebuah

rasa hati yang tersakiti. Luka itu datangpun juga membawa maksudnya sendiri, yang mengingatkan

kita untuk berfikir dan untuk bisa meredam sebuah rasa sakit agar tidak menimbulkan sebuah rasa

putus asa. Dan jika putus asa itu datang.. maka berhati-hatilah akan rayuannya, rayuan yang

mengajak kita ke sebuah kata PRUSTASI!”

Jabaran total penuh pesan moral dari sang pohon.



“Dan tahukah kau kawan, ini juga sangat wajib kau ketahui..

Kebahagian tidak akan lahir tanpa adanya Kesedihan yang mengawalinya..

Jadi, tugasmu hanyalah untuk menghargai dan menyambut dengan pemikiran bijaksana jika rasa sedih

itu datang. Karena ‘Sedih itu, ibu kandung Kebahagiaan!’

Jika kau menghargai sedih itu secara bijaksana, maka ia akan melahirkan suatu kebahagian yang bijaksana pula. Karena dalam pemikiran yang bijaksana saat kau dalam keadaan sedih, kau akan tahu, pondasi-pondasi kuat yang di butuhkan dalam suatu kebahagiaan adalah ‘kebijaksanaan kita dalam menghadapi kesedihan’. Yang mana itu akan menjadi sebuah kekuatan yang sangat di butuhkan untuk mempertahankan kebahagian saat kebahagian itu di lahirkan“.

Sahut sang angin malam untuk menambahkan pengertian akan kesedihan. Aku diam dengan kebanggaan yang dalam mendengar jabaran dari keduanya. Kini, ku ‘tak lagi akan terluka saat luka itu datang, karena ku tahu luka itu tidak akan melukaiku. Dan, hatiku tidak akan pernah perih saat aku sedang bersedih.. Karena sedih tidak akan membuatku bersedih, Melainkan memberiku kekuatan untuk lebih kokoh dalam kebijaksanaan, untuk menyambut lahirnya suatu sebuah kebahagiaan.



Masih dua bungkus lagi rokokku dari tiga bungkus yang ku bawa, tapi kopiku tinggal sisa ampas yang mengental. Ahirnya, ku putuskan pada kudua untuk permisi karena diskusi sudah bisa untuk di ahiri.



Di bawah bentangan langit yang sedikit sepi dari kumpulan bintang, dalam keramaian angin malam yang saling berlomba bernyanyi penuh kelirihan akan kesunyian.. Aku berjalan sendiri dalam kelam malam untuk kembali pulang dan membawa sebuah jawaban yang berhasil ku petik di balik kegelapan.

Jumat, 08 Agustus 2014

Meninggalnya Galang Rambu Anarki
Sabtu, 26 April 1997 


 ‘’Galang Datang dan Pergi Menjelang Pemilu, Iwan Fals Berduka’’ 




‘’Galang Rambu Anarki anakku 
 lahir awal Januari 
 menjelang Pemilu ... 
 Tangisan pertamamu ditandai BBM melambung tinggi 
 Maafkan kedua orang tuamu kalau tak mampu beli susu ... 
 Cepatlah besar matahariku 
 menangislah yang keras janganlah ragu 
 hantamlah congkaknya dunia buah hatiku 
 doa kami di nadimu‘’




1 Januari 1982 Iwan Fals menyambut kehadiran anak pertamanya, Galang Rambu 
 Anarki, dengan kegetiran. Lewat lagu Galang Rambu Anarki, Virgiawan 
 Listanto -- nama lengkap Iwan -- bertutur tentang potret 
 ketidakberdayaannya bersama Rosana, istrinya.


"Harga-harga waktu itu naik semua, sementara istriku perlu biaya. Aku 
 hanya bisa menangis. Aku pun merasa perlu menyandarkan harapan kepada 
 anakku, minta tolong padanya," tutur Iwan suatu kali, ketika menceritakan 
 riwayat lagu itu.


"Anak bagiku adalah titipan Tuhan, milik Tuhan," lanjutnya.

Kini, anak yang didamba menjadi sandaran harapan dan pertolongannya itu 
 telah kembali kepada Tuhan. Ia datang dan pergi menjelang pemilu. Dalam 
 usia yang sangat muda, Galang meninggal mendadak di rumah Iwan, Jl. 
 Perkici-14 Blok E-B5 No. 69 Bintaro Jaya Jakarta Selatan.



Ia meninggalkan kedua orang tuanya, adiknya (Annisa Cikal Rambu Basae),
 neneknya yang mendapat kado ulang tahun sebuah lagu ciptaannya. Ia juga 
 meninggalkan segepok mimpi: mimpi memiliki mobil karavan yang bisa untuk 
 berekreasi bersama keluarga, mimpi menjadi astronot, hingga mimpi menjadi 
 musisi yang diyakini bisa menyaingi popularitas sang bapak, Iwan Fals.


"Galang ingin menciptakan musik sendiri. Galang adalah Galang dan bukan 
 Iwan Fals," kata Fauzi Aldino Albar, anak Achmad Albar, teman Galang yang 
 selama dua tahun bergabung bersama dalam kelompok musik Orange Rolls.



Kepergian Galang terbilang mengejutkan. Kelly Bayu Saputra, sepupu Galang, 
 bertutur, Kamis malam (24/4) sekitar pukul 19.00 Galang memintanya untuk 
 mengantarkan pergi. "Namun karena melihat saya kecapekan, dia tak tega. 
 Lalu ia memutuskan pergi naik ojek. Dan sekitar pukul 23.00 ia pulang," 
 katanya.



Dan ketika membangunkan Galang, Jumat pagi, Kelly mendapati Galang telah 
 meninggal. "Saya tak bisa menjelaskan bagaimana posisinya," ujar Kelly.


Menurut keterangan keluarga, Galang meninggal sekitar pukul 03.00 dini 
 hari. Kelly mengaku tak tahu penyebabnya, sementara menurut salah seorang 
 kerabat Iwan, Galang meninggal karena gangguan asma.



Dan hingga usai pemakaman, Yos -- nama panggilan Rosana -- dan Iwan tak 
 banyak berkata-kata. Mereka belum bisa memberikan komentar mengenai 
 kematian Galang. "Saya belum bisa memberikan penjelasan sekarang," kata 
 Yos lirih.



Tangis terus mengalir sejak disembahyangkan di Masjid Bintaro Sektor-9 
 usai salat Jumat hingga dibawa ke Desa Leuwi Gunung, Cimanggis untuk 
 dimakamkan, melalui upacara yang serba cepat, sekitar pukul 15.00 WIB.



Setiawan Djody di tengah sekitar 100 pelayat menyampaikan kata perpisahan, 
 melepas kepergian anak sulung dari dua bersaudara itu. "Galang selama ini 
 seperti anak saya sendiri. Dinihari tadi pukul tiga, dia meninggal. Jodoh, 
 hidup, dan mati semuanya Tuhan yang mengatur," tutur Djody.



Iwan, usai menebar bunga di atas gundukan tanah merah yang setengah basah 
 itu, menjauh dan duduk menyendiri. Air matanya meranting. Tatkala Djody 
 mendekat, Iwan menyandarkan kepalanya ke pundaknya. Sementara Yos dan 
 Cikal terus menabur bunga di atas gundukan tanah itu. Ine Febriyanti -- 
 teman dekat Galang -- menciumi batu nisan yang tertancap di atas pusara 
 Galang. Galang, menurut Kelly orangnya baik dan tak seperti yang dikira 
 orang. "Bila kenal dari dekat orangnya sangat memperhatikan keluarga," 
 kata Kelly. "Dia tak seperti yang dibayangkan orang." "Ia pendiam dan 
 mandiri. Ia telah merancang rekaman, memimpin band sendiri, dan ingin 
 meniti karier tanpa pengaruh bapaknya," kata Fauzi yang terakhir bertemu 

 Galang tiga pekan lalu.

Rabu, 02 April 2014

Cara Manual Mengetahui Jenis Motherboard

Ketika kita membeli komputer second ataupun baru tapi kehilangan CD driver, tentu kita akan kesulitan mencari driver untuk motherboard kita. Beberapa motherboard memang memiliki device driver yang “plug n play“, artinya ketika selesai di instal, semua driver langsung berfungsi dengan baik. Tapi kalau tidak? Tentu kita akan kebingungan mencari driver motherboard kita bila jenis motherboard nya pun kita tidak tahu.
Berikut, beberapa tips untuk menentukan jenis motherboard ataupun menentukan jenis device driver kita:
1. Hidupkan komputer kita, begitu komputer berbunyi “bep” cepat tekan Tombol Pause – Break yang ada di keyboard. Tampilan monitor akan seperti dibawah ini.
Lihat di pojok kiri bawah, dibawah tulisan “Press DEL to run Setup”. Yup! itu adalah jenis motherboard kita. Kita menemukan jenis motherboard kita adalah P2B dengan menggunakan chipset  i440BX. Tulis di kertas, atau hapalkan. Searching di Google untuk menemukan drivernya.
Contoh lain:
Anda menemukan apa jenis motherboard anda? Ya, MCP68. Itu jenis motherboard anda. Sekarang anda bisa cari driver anda di mr.Google.
2. Pada beberapa jenis motherboard, Windows dapat mendeteksi jenis motherboard anda. Ayo kita coba, apakah jenis motherboar anda terbaca di Windows. Lari ke start menu – run. Ketikan dxdiag pada run menu. Maka akan keluar tampilan sebagai berikut.
Anda bisa baca disana:
- System Manufacturer : VIA Technologies, Inc.
- System Model : KT600
Anda bisa mencari di Google dengan keyword VIA KT600, atau KT600 saja.
3. Bila di kedua cara diatas anda tidak menemukan, yang selanjutnya harus anda lakukan adalah membongkar Casing anda untuk melihat jenis motherboard. Beberapa Motherboard menuliskan jenis Motherboardnya di board-nya. Contohnya di bawah ini:
Terlihat jelas tipe motherboard anda ASUS P5W64 WS PRO. Lagi, cari di Google, ataupun situs driver langganan anda.
4. Ini alternatif terakhir. Bila dengan ketiga cara diatas anda tidak menemukan jenis driver anda, berarti anda harus mencari driver masing-masing dengan melihat chipset nya. Untuk menentukan driver VGA, anda melihat chipset VGA, dan untuk menentukan driver Sound, anda melihat chipset Soundnya.
Gambar di atas adalah Chipset Sound, jenis sound anda adalah ES6698FD.

Demikian tips dari saya untuk mengetahui jenis motherboard dan menemukan driver motherboard anda. Semoga membantu.

Tips merakit PC

Banyak orang yang bisa dikatakan “melek” komputer, tapi tidak sedikit juga orang yang mengaku “orang IT” tapi tidak mengerti komputer. Lho koq bisa gitu?? Contoh sederhananya, banyak orang yang berkecimpung di dunia IT, bahkan saya pernah menemui seorang dosen yang saya kira sangat sarat pengalaman tetapi kebingungan karena cdrom nya tidak terdeteksi oleh windows. Setelah saya cek, ternyata hanya kabel ide cdrom yang tidak terpasang sempurna. Ada lagi contoh yang paling membuat saya geli, ketika seorang dosen membeli sebuah notebook baru merk ternama. Pada bundle pembelian tertera bahwa notebook tersebut telah disertakan dengan operating system Windows Vista. Tapi apa yang terjadi?? sang dosen menerima notebook tersebut dengan sistem operasi windows Xp yang telah tertanam di notebook tersebut. Celakanya lagi, dosen tersebut tidak menyadari bahwa telah “dibohongi” oleh si penjual. Dan dengan entengnya si dosen menjawab ” wah laptop saya ini bagus, applikasi yang terinstall sudah lengkap “. Wikikikik…ternyata belum menyadari juga, padahal pada sisi dalam notebook nya ada sticker sertifikasi Windows Vista. Sudah tertipu malah bangga!!ada-ada saja… :)
Akan kita bahas kali ini tips dalam merakit pc, baik yang merakit sendiri ataupun pesan berupa paketan sesuai dengan spesifikasi yang diminta. Sekali lagi tips ini sangat berguna untuk mencegah terjadi Penipuan. hehe…. :)
Apa yang pertama kali harus diperhatikan dalam perakitan sebuah PC ?
  1. Rencanakan PC dengan kebutuhan anda.Misal anda seorang designer grafis, tidak mungkin merakit PC dengan processor celeron. :)
  2. Ketahui dengan seksama mengenai hardware yang anda pilih. Misal anda ingin menggunakan processor Intel Core2Duo, maka harus memakai motherboard yang support penggunaan 2processor. Karena tidak semua motherboard support untuk dual processor.
Berikut ini adalah langkah- langkah dari pemilihan motherboard, sampai dengan…….
Motherboard :
  • pilih motherboard sesuai dengan processor yang ingin anda gunakan. Jangan sampai kejadian, anda menggunakan processor AMD, tetapi anda membeli motherboard dengan socket LGA 775. Ga mungkin bisa terpasang…hehehe
  • Jangan terlalu terpaku dengan nama besar pabrikan/ merk. belum tentu yang mahal kualitasnya baik.
  • Baca detail spesifikasi motherboard, apakah telah terdapat SATA interfaces, PCI Express, karena kedua interfaces inilah yang akan digunakan sampai beberapa tahun ke depan. ATA interfaces dan AGP sudah mulai ditinggalkan.
  • Perhatikan kapasitas maksimum dari memori yang dapat dipasang. Siapa tau di kemudian hari anda akan melakukan upgrade.
Processor :
  • Processor layaknya otak manusia. Di sinilah peran yang paling vital.
  • Pilihlah processor sesuai dengan kebutuhan. Apakah Core2Duo, AMD, Celeron?
  • Perhatikan juga L2 Cache processor, semakin besar L2 cache, kinerja yang dihasilkan semakin baik.
Memori ( RAM ) :
  • Memori juga berperan penting untuk meningkatkan kinerja sistem.
  • perhatikan juga  jenis memori, apakah DDR2 atau DDR1. Salah-salah motherboard anda menggunakan DDR2, tetapi anda membeli DDR1. :)
Harddisk :
  • Jika anda membutuhkan space penyimpanan yang besar, maka pilihlah harddisk dengan kapasitas yang besar.
  • Perhatikan juga RPM nya, semakin besar RPM, maka waktu akses harddisk semakin cepat.
VGA :
  • Jika anda menyukai game, maka perangkat ini wajib terpasang di dalam pc anda. Namun, apabila anda hanya menggunakan PC untuk pekrjaan office, perangkat ini tidak begitu diperlukan.
  • Perhatikan juga, apakah menggunakan interfaces AGP, atau PCI express.
  • Pastikan juga, apakah VGA memerlukan daya tambahan. Jika iya, maka anda harus memakai power supply dengan daya yang besar.
Drive Optic :
  • Saat ini DVD-RW merupakan pilihan yang utama, selain karena fungsionalitasnya, tetapi juga karena harganya yang sudah sangat terjangkau.
Casing :
  • Banyak orang yang menilai PC dari casing nya. Jika casing nya bagus, berpikir bahwa itu adalah sebuah PC hebat. Buang jauh2 pikiran tersebut.
  • Yang perlu diperhatikan dari casing adalah air flow nyaAliran udara yang bagus akan menjaga suhu udara di dalam casing lebih adem.
  • Yang terpenting bukan casing nya, tetapi ” yang ada di dalam casing “
Monitor :
  • LCD atau Monitor biasa?. LCD lebih sedikit mahal akan tetapi sangat hemat energi.
  • Pilihlah sesuai dengan budget anda…

Nah, semoga tips di atas dapat membantu anda untuk merakit sebuah komputer, juga sebagai jaga-jaga biar ga dikibulin ama penjual…hehehe :)

Rabu, 05 Maret 2014

Catatan belajar komputer & internet

Di pos kan oleh bheddul 06 Maret 2014

Cara Membuat Tampilan Menu Dalam pascal
Cara Membuat Tampilan Menu Dalam pascal
Salam Damai…..(hehehehehe) :D
Kali ini postingan ane (Ignatius J) masih seputar pemrograman pascal (walaupun bahasa pemrograman tua tapi masih layak untuk di pelajari, hehehehehe…..) yaitu Cara Membuat Tampilan Menu Dalam pascal.
Ane menggunakan Turbo Pascal 1.5.
Oke gan langsung aja kita lihad coding nya.
1
2
3
4
5
6
7
8
uses wincrt;
type pdata=^data;
     data=record
     nim,nama:string;
     nilai:integer;
     next:pdata;
end;
var  pawal,pakhir:pdata;
Selanjutnya buat Procedure Untuk menampilkan Menu, untuk memahami procedure silahkan bacaMengenal Procedure dan Function dengan Bahasa Pemrograman Pascal.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
procedure menu; FORWARD;
procedure identitas;
   begin
      clrscr;
      gotoXY(558); write(' This PROGRAM was Created By : ');
      gotoXY(10,10); write('Name           : Ignatius J');
      gotoXY(10,12); write('NIM            : 10220013');
      gotoXY(10,14); write('Title          : Programming');
      gotoXY(10,16); write('Prodi          : Teknik Informatika');
      gotoXY(10,18); write('Fakultas       : Sains dan Teknologi');
      gotoXY(10,20); write('UNIVERSITAS RESPATI YOGYAKARTA');
      gotoXY(10,22); write('Date           : Sunday, 17th MAy 2012');
      gotoXY(50,24); write(' Untuk Menyelesaikan Ujian Responsi : ');
      gotoXY(10,26); write('Bidang Studi   : Praktikum Struktur Data');
      gotoXY(10,28); write('Dosen Pengampu : Ni Made Kariati');
      gotoXY(15,30); write('Press Enter To Retrun To The Menu !!');
      gotoXY(15,31); write('                                   _');
      readln; menu;
   end;
procedure MainMenu;
   var nilai,jum,i,Pil:integer;
   nim,nama:string;
   begin
      clrscr;
      gotoXY(454); write('**** MAIN MENU ****');writeln;
      gotoXY(208); Write('1. Input Data');
      gotoXY(20,10); Write('2. Lihat Data');
      gotoXY(20,12); Write('3. Hapus Data Pertama');
      gotoXY(20,14); Write('0. Exit');writeln;
      gotoXY(40,16); Write('Enter Your Choice (0,1,2,3) !!! : ');Readln(Pil);writeln;
      case pil of
           1 begin
                  clrscr;
                  write('Jumlah data : ');
                  readln(jum);writeln;
                  for i:=1 to jum do
                  begin
                     write('NIM         : ');readln(nim);
                     write('Nama        : ');readln(nama);
                     write('Nilai       : ');readln(nilai);
                     writeln('  ***  ');
                     TambahData(nim,nama,nilai);
                  end;
               end;
           2 begin
                  cetakdata; MainMenu;
               end;
           3 begin
                  DeleteData; MainMenu;
               end;
           0 begin
                  menu;
               end;
      else
      gotoXY(2026); write('Data Belum di Input Mas.../mbak...Bro (Press Enter To Select Return)');readln;
      MainMenu;
      end;
   end;
procedure menu;
   var pil : integer;
   begin
      clrscr;
      gotoXY(404); write(' *********** " MENU " *********** ');
      gotoXY(10,10); write('1. Authors Identity');
      gotoXY(10,12); write('2. Entry Data');
      gotoXY(10,14); write('0. Exit Program');
      gotoXY(20,18); write(' Enter Your Choice (0,1,2) !!! : '); readln(pil);
      case pil of
           1 : identitas;
           2 begin
                  clrscr;
                  MainMenu;
               end;
           0 begin
               clrscr;
               gotoXY(24,16); write('_____Thank you for using this Simple Program_____'); readln;
               donewincrt;
               end;
          else
          gotoXY(20,20);write('  Option Only 0 - 2 Mas Bro!!!!!'); readln;
          menu;
      end;
   end;
Selanjutnya buat Procedure Untuk menampilkan tambah data, cetak data, hapus data
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
procedure cetakdata;
   var buff:pdata;
   begin
      clrscr;
      new(buff);
      buff:=pawal;
      if buff = nil then
      begin
         writeln('Data kosong..silahkan isi dahulu..');
      end;
      if buff <> nil then
      begin
         writeln('Data-data yang telah Anda input : ');
         writeln;
      end;
      while buff<>nil do
      begin
         writeln('NIM         : ',buff^.nim);
         writeln('Nama        : ',buff^.nama);
         writeln('Nilai       : ',buff^.nilai);
         writeln('  ***  ');
         buff:=buff^.next;
      end;writeln;
      write('Tekan ENTER untuk kembali ke MAIN MENU');
      readln;
   end;
procedure TambahData(nim,nama:string;nilai:integer);
   var buff:pdata;
   begin
      new(buff);
      buff^.nim:=nim;
      buff^.nama:=nama;
      buff^.nilai:=nilai;buff^.next:=nil;
      if pawal=nil then
      begin
         pawal:=buff;
         pakhir:=buff;
      end
      else
      begin
         pakhir^.next:=buff;
         pakhir:=buff;
      end;
   end;
Procedure DeleteData;
   var hapus:pdata;
   begin
      clrscr;
      writeln('Data pertama akan dihapus..');
      write('Tekan [Enter] untuk konfirmasi');writeln;
      new(hapus);
      hapus := pawal;
      pawal := hapus^.next;
      dispose(hapus);
      readkey;
      write('Data pertama telah dihapus');
      readkey;
      cetakdata;
   end;
Terakhir membuat program pada program pascal tersebut.
1
2
3
4
5
6
7
8
9
10
11
12
{Program Utama}
begin
   screensize.x := 600;
   screensize.y := 800;
   menu;
   begin
      MainMenu;
   end;
   clrscr;
   gotoXY(20,16); write('_____Thank you for using this Simple Program_____'); readln;
   donewincrt;
end.
download source code program disini.
Itulah sedikit ilmu yang bisa ane bagikan pada kesempatan ini, mudah-mudahan bisa bermanfaat bagi agan2 semua….
Selamat mencoba…. :). Jika ada yang kurang jelas silahkan memberi tanggapan di bagian komentar, semoga bermanfaat bagi sahabat CB (Catatan Belajar) dan berikan juga +1 Google sahabat di tulisan ini 

luvne.com tipscantiknya.com ayeey.com cicicookies.com mbepp.com kumpulanrumusnya.com.com