Selasa, 03 Januari 2012

CONTOH PROGRAM PROLOG SCORE UTS DAN UAS


score:- nl,nl,
write('Nama : '),read(Nama),
write('NPM : '),read(Npm),
write('Kelas : '),read(Kelas),
nl,write('============'),nl,
write('nama : '),write(Nama),nl,
write('NPM : '),write(Npm),nl,
write('Kelas : '),write(Kelas),nl,
nl,write('============'),nl,
write('Nilai UTS : '),read(Uts),
write('Nilai UAS : '),read(Uas),
nl,write('============'),nl,
T is ((0.7*Uts)+(0.3*Uas)),
write('Nilai Akhir : '),write(T),nl,
write('Nilai Akhir : '),
(T>=90->write('A');
T>=70->write('B');
T>=50->write('C');
T>=20->write('D');
T>=0->write('E')).

PENJELASAN :

nl berfungsi sama dengan tombol enter
WRITE berfungsi masukan dan keluaran (I/O atau Input/Output) dalam Prolog
READ digunakan untuk menerima masukan dari keyboard

write('nama : '),read(Nama),
write('NPM : '),read(Npm),
write('Kelas : '),read(Kelas),
nl,write('============'),nl,
Fungsi di atas menyatakan pada write('Nama : '),read(Nama), wirte mencetak kata Nama dan meminta inputnya lalu di terima dan di baca oleh read,pada NPM dan Kelas fungsinya sama dengan Nama. Lalu pada perintah nl,write('============'),nl, berfungsi memberikan baris ke bawah dan mencetak tanda ===. Selanjutnya
write('nama : '),write(Nama),nl,
write('NPM : '),write(Npm),nl,
write('Kelas : '),write(Kelas),nl,
nl,write('============'),nl,
menjelaskan bahwa write mengoutput hasil yang di input untuk nama/NPM/Kelas dan selanjutnya di cetak lagi hasilnya dengan perintah write. Lalu mencetak lagi nl,write('============'),nl, tanda =====,
Lalu pada
write('Nilai UTS : '),read(Uts),
write('Nilai UAS : '),read(Uas),
nl,write('============'),nl,
T is ((0.7*Uts)+(0.3*Uas)),
write('Nilai Akhir : '),write(T),nl,
write('Nilai Akhir : '),
(T>=90->write('A');
T>=70->write('B');
T>=50->write('C');
T>=20->write('D');
T>=0->write('E')).
Fungsi ini menyatakan write mencetak kata Nilai UTS dan meminta input selanjutnya di terima dan di baca oleh read dengan variable Uts, lalu menyatakan write mencetak kata Nilai UAS dan meminta input selanjutnya di terima dan di baca oleh read dengan variable Uas. Selanjutnya program mencetak  tanda == lalu selanjutnya hasil yang di input tersebut di hitung dengan perintah :
T is ((0.7*Uts)+(0.3*Uas)),
write('Nilai Akhir : '),write(T),nl,
write('Nilai Akhir : '),
(T>=90->write('A');
T>=70->write('B');
T>=50->write('C');
T>=20->write('D');
T>=0->write('E')). Menyatakan variable T= 0.7 di kali dengan  input data Uts,lalu 0.3 di kali juga dengan nilai input data Uas lalu hasilnya dari perhitungan Uts dan Uas tersebut di jumlahkan. Lalu program memasukan data yang telah di perhitungan tadi dan mencetak kata Nilai Akhir dan mencetak output yang diproses sebelumnya . lalu jika nilai lebih kecil besar sama dengan dari 90 maka A dan selanjutnya untuk  T>=70->write('B'); T>=50->write('C'); T>=20->write('D'); sama car abaca programnnya dengan >=90.

CONTOH PROGRAM PROLOG MENU


I.MENU
menu:- nl,nl,
write('================'),nl,
write('======MENU======'),nl,
write('================'),nl,
write('1.Biodata'),nl,
write('2.Luas Segitiga'),nl,
write('3.Keluar'),nl,
write('================'),nl,
write('Pilihan [1..3] : '),read(Pil),nl,nl,

(
Pil=1,
write('Nama : '),read(Nama),
write('NPM : '),read(Npm),
write('Kelas : '),read(Kelas),
nl,write('============'),nl,
write('nama : '),write(Nama),nl,
write('NPM : '),write(Npm),nl,
write('Kelas : '),write(Kelas),nl,
nl,write('============'),nl,
menu;

Pil=2,
write('Alas : '),read(A),
write('Tinggi : '),read(T),
L is A*T/2,
write('Luas Segitiga : '),write(L),
nl,write('============'),nl,
menu;

Pil=3,
write('Terima Kasih'),nl,
menu
).

PENJELASAN :

nl berfungsi sama dengan tombol enter
WRITE berfungsi masukan dan keluaran (I/O atau Input/Output) dalam Prolog
READ digunakan untuk menerima masukan dari keyboard

1) Dalam hal ini write mencetak write('================'),nl,write('======MENU======'),nl,write('================'),nl,
write('1.Biodata'),nl,write('2.Luas Segitiga'),nl,write('3.Keluar'),nl,write('================'),nl,
dan mana perintah write write ini ('Pilihan [1..3] : '),read(Pil),nl,nl. program meminta inputan sesuai yang telah di cetak yaitu dari nomor 1 sampai 3 lalu selanjutnya read akan menerima dan membaca input tersebut


2) Pil=1,
write('Nama : '),read(Nama),
write('NPM : '),read(Npm),
write('Kelas : '),read(Kelas),
nl,write('============'),nl,
write('nama : '),write(Nama),nl,
write('NPM : '),write(Npm),nl,
write('Kelas : '),write(Kelas),nl,
nl,write('============'),nl,
menu;
Lalu selanjutnya pada perintah di atas menjelaskan pilihan ke 1 yaitu dengan perintah Pil=1,lalu pada write('Nama : '),read(Nama), wirte mencetak kata Nama dan meminta inputnya lalu di terima dan di baca oleh read,pada NPM dan Kelas fungsinya sama dengan Nama. Lalu pada perintah nl,write('============'),nl, berfungsi memberikan baris ke bawah dan mencetak tanda ===. Selanjutnya pada : 
write('nama : '),write(Nama),nl,
write('NPM : '),write(Npm),nl,
write('Kelas : '),write(Kelas),nl, menjelaskan bahwa write mengoutput hasil yang di input untuk nama/NPM/Kelas dan selanjutnya di cetak lagi hasilnya dengan perintah write. Lalu mencetak lagi nl,write('============'),nl, tanda =====,dan kembali lagi ke menu dengan perintah menu;

3) Pil=2,
write('Alas : '),read(A),
write('Tinggi : '),read(T),
L is A*T/2,
write('Luas Segitiga : '),write(L),
nl,write('============'),nl,
menu;
Kemudian pada pilihan ke 2 write mencetak kata Alas dan meminta input untutk data Alas tersebut,dan jika telah di input selanjutnya read menerima dan membaca dengan variable A, Lalu sama write mencetak kata  tapi Tinggi dan meminta input untutk data Tinggi  tersebut,dan jika telah di input selanjutnya read menerima dan membaca dengan variable T, lalu selanjutnya data yang di input tersebut di input dengan perintah         L is A*T/2, yang maksudnya Luas sama dengan Alas di kali Tinggi dan di bagi 2. selanjutnya pada perintah ini write('Luas Segitiga : '),write(L), hasil perhitungan tersebut di cetak. Setelah itu mencetak === dan kembali ke menu.


4) Pil=3,
    write('Terima Kasih'),nl,
    menu
    Kemudian jika memilih pilihan ke 3 maka write akan mencetak kata Terima Kasih,dan lalu kembali ke 
    menu.



Beberapa langkah memulai menurunkan berat badan

1. Kurangi karbohidrat (nasi, roti, dll) dan hindari lemak (gorengan, santan).
Tetapi jangan anda hilangkan karbohidrat dari porsi makan anda karena karbohidrat tetap dibutuhkan tubuh, hanya tidak terlalu banyak.

2. Bagi porsi makan anda dari 3 menjadi 6 kali sehari.
Hah? Kok bisa? Tentu saja anda harus membuatnya menjadi setengah porsi tiap kali makan. Kemudian 3 diantara makan tambahan tersebut tidak perlu menggunakan nasi, tetapi buah atau susu non fat.

3. Hindari gula dalam minuman anda!
Minuman yang membawa paling banyak pasukan gula adalah soft drink. Sangat disarankan untuk tidak minum minuman ini lagi. Selalu minta air mineral jika anda sedang makan keluar. Sekali-kali teh manis untuk pelega masih tidak apa.

4. Makan paling akhir 2-3 jam sebelum tidur
Karena lemak mulai ditumpuk saat anda tidur, dan jika anda makan sebelum tidur maka akan menjadi sasaran empuk untuk penumpukan lemak. Jika anda lapar, lebih baik minum saja susu non fat atau WRP atau semacamnya.

5. Tidak lagi gorengan, ganti dengan yang bakar atau rebus
Tetapi hati-hati, biasanya ayam bakar diolesi minyak. Paling baik, anda mengatakan dulu ke yang masak, jangan pakai minyak ya.

6. Latihan kardio (jogging, lari, berenang, lompat tali, treadmill)
Jenis ini akan membuat anda membakar lemak yang menumpuk dengan sukses. Lakukan dengan rutin setiap hari.

7. Pagi hari yang indah untuk berlatih
Berlatih pada pagi hari akan lebih efektif, karena perut anda sudah kosong dan tentunya pembakaran yang utama akan mengambil dari lemak anda.

Sesungguhnya musibah adalah ujian dari Allah

Rosulullah saw bersabda, “Barangsiapa yang dikehendaki oleh ALLAH mendapat kebaikan, akan diuji oleh-NYA dengan suatu musibah” (al-Bukhari)

Sesungguhnya besarnya pahala tergantung besarnya bala’ (musibah). Sesungguhnya ALLAH SWT apabila menyukai suatu kaum, DIA akan menguji mereka dengan suatu bala’. Barangsiapa yg rela menerimanya, maka dia mendapat keriodhaan ALLAH, dan barang siapa yg tidak rela, maka dia akan mendapat kemurkaan ALLAH (at Tirmidzi)

Alasan makhluk Allah di masukan ke Neraka

Rosulullah saw bersabda, "Nabi Musa as bertanya kepada ALLAH: "Tuhan Engkau telah menciptakan makhluk tapi mengapa ENgkau memasukkan mereka ke neraka? ALLAH swt lalu berfirman kepadanya bahwa mereka semua adalah makhluk-NYA, lalu DIA memerintahkannya untuk berladang dan merawatnya hingga panen. seusai panen raya, ALLAH bertanya kepada Nabi Musa, 'apa yang telah dihasilkan dari ladangmu?' "saya telah memanennya dengan baik' jawab Musa. 'Apakah masih ada sisanya?' tanya ALLAH kepadanya. dia menjawab, "tidak ada, kecuali hanya bagian-bagian yg tidak baik dan yang tidak diperlukan lagi'. "Demikian juga dengan AKU', balas ALLAH. 'AKU tidak akan menyiksa kecuali para makhluk-KU yang tidak baik"". (HR Ahmad)

SEDEKAH SEKECIL JADI SEBESAR GUNUNG


Infakkanlah sedikit dari hartamu dg niat karena ALLAH, maka DIA akan memberikanmu sebesar gunung. Berikanlah setetes, maka engkau akan mendapatkan sebanyak lautan. ALLAH SWT akan memberikannya kepadamu baik didunia maupun diakhirat, ALLAH SWT akan mencukupkan balasan-NYA bagimu (Syaikh Abdul Qadir Jailani)

Dalam firman Allah :

Siapakah yang mau meminjamkan kepada Allah pinjaman yang baik, maka Allah akan melipat-gandakan (balasan) pinjaman itu untuknya, dan dia akan memperoleh pahala yang banyak," (QS. AL HADID:11)

Kosongkan hatimu dari ambisi dunia

Kosongkan hatimu dari ambisi dunia, sesungguhnya dalam waktu dekat engkau akan 
meninggalkannya. Jangan mencari kesenangan hidup didunia, sebab itu tidak akan menolongmu. Nabi Muhammad saw bersabda, "Kehidupan (yang sebenarnya) adalah kehidupan akhirat". (Syaikh Abdul Qadir Jailani)

Dunia hanya bersifat fatamorgana dan ingatlah kehidupan di dunia hanya sementara dan pergunakan waktu dunia untuk mencapai ridho illahi agar kau selamat dunia akhirat.
Jagalah diri dan hatimu dari sesuatu yang menjerumuskan mu ke dalam limbah dosa dan dapat menjauhkanmu dari Allah...

Sesungguhnya Allah maha pengampun lagi maha penyayang. 

Ampunkanlah aku Tuhanku

Tuhanku akulah hambaMu,
Yang tak pernah sempurna mentaatiMu,
Tuhanku akulah hambaMu,
Yang hanya ingat padamu tika kesusahan.

Setiap waktu penuh kelemahan,
Setiap saat memerlukanmu,
Setiap waktu penuh kekurangan,
Setiap saat aku memerlukanmu.

Tuhanku ampunkanlah dosa – dosaku,
Telah banyak yang ku lakukan,
Menghitamkan hatiku.

Ampunkanlah aku,
Maafkanlah aku,
Ku benar – benar mahu kembali kepadaMu.

Ampunkanlah aku,
Terimalah aku,
Terimalah segala taubatku.

Ampunkanlah aku,
Maafkanlah aku,
Terimalah amalku,
Terimalah taubatku.

IKHLAS

Niatkan pada yang satu,
Luruskanlah kata hatimu,
Bersihkanlah ruang jiwamu,
Berbuatlah dengan hati yang ikhlas.

Mulakan dengan namaNya,
Buatlah sepenuh hati,
Bagai esok sudah tiada,
Segalanya dengan nama Tuhanmu.

Jika niat kita benar dari awalnya,
Pekerjaanmu akan diberkati,
Semua usahamu akan sempurna,
Ganjaran pahala akan kau dapat.

Amalanmu takkan sia – sia,
Ada nilainya dunia akhirat.

Dunia ini tempat persinggahan,
Yang Tuhan ciptakan untuk manusia,
Semua cubaan dan dugaan,
Untuk menguji keimanan.

Hanya hati yang mulia,
Penuh keikhlasan dapat mengharungi,
Ketaqwaan kepada Allah,
Jadi penyelamat kita di sana.

Dunia Sementara

Kehidupan dunia hanya sementara
Akankah kita bersantai ria
Dunia hanya bagai fatamorgana
Dunia penuh tipu daya

Kesenanganmu kesedihanmu hanyalah ujianmu
Kesabaranmu dan keikhlasanmu adalah kuncimu
Bersyukurlah maka Allah akan menambah nikmatmu
Bertawakal lah pada Allah karena itu kuncimu
Mencapai ridhonya untukmu

Nasib kita tak sama di alam selanjutnya
Amalan dan taqwa jadi bekalan
Sejahtera bahagia pulang kesana

Jagalah hidupmu pergunakan waktumu
Untuk menggapai cinta Allah padamu
Sesungguhnya Allah maha pengampun 
Bertaubat dan insyaflah dari perbuatanmu

Berdoalah dengan hati ikhlas

Rasulullah bersabda, "Seorang hamba doanya akan senantiasa dikabulkan selama tdk berdoa untuk perbuatan dosa,atau
memutuskan silaturahim, serta selama tidak tergesa-gesa." Beliau
ditanya, "Wahai Rasulullah, apa yang dimaksud dgn tergesa-gesa?"Rasulullah menjawab, "'Aku telah berdoa, aku telah berdoa,tetapi aku belum melihat doaku... dikabulkan'....Lantas ia mrasa kecewa dgn hal itu,sehingga ia pun tdk mau lagi berdo'a".(HR Muslim)

Tujuh hal yang membinasakan

Dari Abu Hurairah ra bahwa Nabi saw bersabda, “Jauhilah tujuh hal yang membinasakan.” Para sahabat bertanya, “Apa itu, ya Rasulullah?” Jawab Beliau, “(Pertama) melakukan kemusyrikan kepada Allah, (kedua) sihir, (ketiga) membunuh jiwa yang telah haramkan kecuali dengan cara yang haq, (keempat) makan riba, (kelima) makan harta anak yatim, (keenam) melarikan diri pada hari pertemuan dua pasukan, dan (ketujuh) menuduh berzina perempuan baik-baik yang tidak tahu menahu tentang urusan ini dan beriman kepada Allah.” (Muttafaqun ‘alaih: Fathul Bari V: 393 no: 2766, Muslim I: 92 no: 89, ‘Aunul Ma’bud VIII: 77 no: 2857 dan Nasa’i VI: 257)

Membuat Database dan Tabel melalui PHP MyAdmin



Sebelum anda masuk ke PHP MyAdmin anda nyalakan server terlebih dahulu. Pada pembuatan ini saya menggunakan Xampp pastikan Apache dan Mysql running. Selanjutnya anda bisa ketik di kotak address browser anda,ketik localhost/PhpMyAdmin lalu enter.
                                         

                                                                    
-Selanjutnya pada halaman PhpMyAdmin anda buat database baru di create new database misalkan   
 dengan nama DbKu dan klik button create. 


-Lalu selanjutnya anda bisa ketikan nama table dengan contoh nama TabelTamu dan dengan Number of 
 field contoh 3 lalu klik Go,


-lalu selanjutnya anda isi
 field, type, dan values sesuai yang anda butuhkan setelah anda isi klik save atau  
 go.


-Selanjutnya jika selesai membuat table serta fieldnya maka akan tampil hasilnya.

Damai Nan Indah

Kepekatan malam dihiasi rembulan
Siang pula datang bersama sinaran mentari
Dalam resahnya hati ini
Ku turutkan langkah kaki
Tak terasa ku lalui
Jalan yang berliku-liku

Ku jatuhkan pandangan
Ku lihat jurang dalam
Penuh dengan onak duri
Yang amat mengerikan

Kudongakkan kepala
Kulihat langit tinggi
Terbentang luas tiada bertepi

CahayaMu indah menyinari hidupku ini
KasihMu tambah memupuk Iman di jiwaku
Dengan cahayaMu terang pelita di hatiku
SyiarMu membuat musuhMu terpaku

KalamMu indah terdengar merdu di telinga
MehnahMu itu mengajar menyedarkanku
KasihMu Tuhan membuat hatiku merindu
Kurasa indah di dalam rahmatMu