Apa SQL itu..??

     SQL merupakan subbahasa pemrograman yang khusus dipergunakan untuk memanipulasi basis data.

SQL adalah salah satu DBMS (database management system) yang saat ini banyak digunakan untuk operasi basis data dan embedded (ditempelkan) di hampir semua bahasa pemrograman yang mendukung basis data relasional.

Perbedaan penggunaan SQL pada masing-masing bahasa biasanya  pada sintaks2 khusus. Misalnya : INSERT INTO … VALUE. Pada bahasa yang lain INSERT INTO …VALUES…, dll.

Bahasa yang mendukung SQL antara lain : V Basic, C++ Builder,Delphi, ORACLE, MySQL,PostGreeSQL,JAVA,dll,,

Perintah-perintah dalam SQL

Perintah-perintah dalam SQL bisa disebut dengan query.

Ada tiga sub perintah:

1.  DDL -> Data Definition Language

2.  DML -> Data Manipulation Language

3.  DCL -> Data Control Language

I.    Data Definition Language

Ini adalah perintah dasar untuk membangun kerangka nya database, seperti:

CREATE: Perintah ini digunakan untuk membuat. Membuat database baru, view baru, kolom, dll.

Nanti kita bahas bagaimana cara untuk menggunakan perintah ini.

ALTER:    Perintah ini digunakan untuk mengubah strukturnya tabel yang sudah jadi sebelumnya.

Seperti mengganti nama tabel, menambah kolom, mengubah kolom, menghapus kolom,

bisa juga untuk memberikan atribut pada kolom.

DROP:       Perintah ini digunakan untuk menghapus database dan tabel.

II.    Data Manipulation Language

Ini adalah perintah untuk memanipulasi data dalam database yang sudah dibuat. Perintah-perintahnya seperti:

INSERT:    Perintah ini digunakan untuk menyisipkan atau memasukan databaru ke dalam tabel.

SELECT:    Perintah ini digunakan untuk mengambil data atau menampilkan data dari suatu tabel.

Data yang kita ambil bisa kita tampilkan dalam layar prompt MySQL secara langsung atau melalui tampilan aplikasi.

UPDATE:    Perintah ini digunakan untuk memperbarui data lama menjadi data baru.

DELETE:    Perintah ini digunakan untuk menghapus data dari tabel

1. Create Database

Pertama yang kita lakukan untuk belajar tentang SQL server yaitu membentuk pertama kali database yang akan kita gunakan untuk tempat belajar.

Perintah untuk membuat database

CREATE DATABASE TOKO

perintah diatas akan membuat database pada tempat default sql server (C:\Program Files\Microsoft SQL Server\MSSQL\Data). Untuk membentuk database dengan menentukan letak database gunakan perintah

CREATE DATABASE TOKO

ON

(

NAME = toko_dat,

FILENAME = ‘c:\Latihan SQL\Toko_Latihan.mdf’,

SIZE = 4,

MAXSIZE = 10,

FILEGROWH = 1

)

2. Create Table

Perintah SQL Server untuk membuat tabel baru digunakan

CREATE TABLE Barang

(

idbarang varchar(4) primary key ,

namabarang varchar(30),

harga money,

tanggal datetime default getdate()

)

Untuk penulisan nama table dan kolom harus diawali dengan text dan dapat diikuti dengan bilangan. Terdapat banyak pilihan Tipe data yang digunakan dalam sql server lengkapnya silahkan baca di

http://www.mssqlcity.com/Articles/General/choose_data_type.htm

Dibawah ini adalah contoh untuk membuat tabel Barang

CREATE TABLE Barang

(

idbarang varchar(4) primary key ,

namabarang varchar(30),

harga money,

tanggal datetime default getdate()

)

Perintah diatas bisa dijalankan dengan sukses tapi terdapat kekurangan yaitu Bagaimana jika tabel yang kita mau buat sudah ada dalam database.Perintah sql server untuk mengabaikan jika tabel sudah ada dan membuat tabel jika tabel belum ada gunakan perintah

If Exists( SELECT Table_Name FROM Information_Schema.Tables

WHERE Table_Name = ‘Barang’ )

DROP TABLE Barang

go

Use TOKO

CREATE TABLE Barang

(

idbarang varchar(4) primary key ,

namabarang varchar(30),

harga money,

tanggal datetime default getdate()

)

Setelah membuat database dan tabel pada sql server, sekarang kita akan isi data yaitu dengan perintah

Setelah membuat database dan tabel pada sql server, sekarang kita akan isi data yaitu dengan perintah

3. Insert Table

Database Sudah terbentuk dengan 1 tabel, sekarang perintah SQL untuk isi tabel Barang

Rumus Umum Insert

Insert into[Nama_Tabel]( [Kolom1],[Kolom2],..[kolom?] )

values(isikolom1,isikolom2,..isikolom?)

Pada tabel barang terdapat nama nama field idbarang,namabarang,harga,tanggal tetapi field tanggal bernilai default getdate() yang artinya field tanggal jika diisi akan akan nilainya sesuai dengan nilai yang diberikan dan jika tidak diisi akan bernilai tanggal pada saat pengisian data.

contoh pemakaian dalam tabel Barang dengan rumus

insert into Barang(idbarang,namabarang,harga)

values(‘isi Kode Barang’,’isi Nama Barang’,’isi Harga Barang’)

jika ditambahkan field tanggal akan menjadi

insert into Barang(idbarang,namabarang,harga)

values(‘isi Kode Barang’,’isi Nama Barang’,’isi Harga Barang’)

contoh pemakaian dalam tabel Barang dengan data

insert into Barang(idbarang,namabarang,harga) values(’B001′,’Barang 1′,3500)

insert into Barang(idbarang,namabarang,harga) values(’B002′,’Barang 2′,1000)

insert into Barang(idbarang,namabarang,harga) values(’B003′,’Barang 3′,5000)

insert into Barang(idbarang,namabarang,harga) values(’B004′,’Barang 4′,7050)

4. Perintah Select

Perintah Select merupakan perintah untuk menampilkan data baik secara keseluruhan maupun dengan kondisi tertentu

menampilkan data barang secara keseluruhan gunakan perintah

Select * from Barang

Tanda * merupakan Semua Field yang ingin ditampilkan

Hasil Select * from Barang

idbarang namabarang harga tanggal

—— ————- ———– —— ——————–

B001 Barang 1 3500.0000 2007-10-14 17:17:55.153

B002 Barang 2 1000.0000 2007-10-14 17:17:55.170

B003 Barang 3 5000.0000 2007-10-14 17:17:55.170

B004 Barang 4 7050.0000 2007-10-14 17:17:55.170

B005 Barang 5 9800.0000 2007-10-14 17:17:55.170

Untuk menampilkan Field tertentu misalnya idbarang, namabarang gunakan perintah

select idbarang, namabarang from barang

Hasilnya

idbarang namabarang

——– —————

B001 Barang 1

B002 Barang 2

B003 Barang 3

B004 Barang 4

B005 Barang 5

3. Perintah Where

Setelah menggunakan perintah Select untuk menampilkan data secara keseluruhan dan untuk menampilkan data dengan kondisi tertentu digunakan perintah Select dan ditambahkan perintah where diikuti dengan kondisi yang ingin ditampilkan.

Mengetahui nama barang dengan idbarang B001 gunakan perintah

select namabarang from Barang where idbarang=’B001′

Hasilnya

namabarang

——————————

Barang 1

Menampilkan barang dengan harga 5000

select barang from Barang where harga=5000

Hasilnya

namabarang

——————————

Barang 3

Menampilkan Harga Barang dengan harga lebih besar 3000 dan lebih kecil dari 7000

select idbarang,namabarang,harga from Barang where harga>3000 and harga<7000

Hasilnya

idbarang namabarang harga

——– —————————— ———————

B001 Barang 1 3500.0000

B003 Barang 3 5000.0000

4. Function SQL

SQL Server terdapat function diantaranya Function SUM,AVG,Max,Min,Count

Contoh Pemakaian

select sum(harga) as sumharga from barang

Semoga bermanfa'at

Web Development

2/15/2013 04:07:00 pm

Apa sih perbedaan Data type char & varchar..??

Pada SQL Server dikenal tipe data char dan varchar. Hal ini cukup banyak mengundang pertanyaan bagi para pemula yang sedang mempelajari SQL Server. Apa sih perbedaan diantara keduanya?

Silakan saja simak terus tulisan ini untuk mengetahui jawabannya.

Tipe data char adalah tipe data karakter yang panjangnya tetap (fixed-length). Ini artinya SQL Server akan mengalokasikan memori pada media penyimpanan untuk menyimpan tipe data ini sebesar ukuran maksimum yang kita minta. Contohnya deklarasi char(5) artinya SQL Server akan otomatis melakukan alokasi ukuran sebesar lima character pada media penyimpanan walaupun kita hanya mengisi data sebanyak tiga karakter misalnya.

Tipe data varchar adalah tipe data karakter yang panjangnya tidak tetap (variable-length). Ini berarti SQL Server akan mengalokasikan memori pada media penyimpanan hanya sebesar atau sepanjang ukuran data aktual yang diisikan. Contohnya pada saat kita mendeklarasikan varchar(5) dan pada field tersebut kita isi 3 karakter maka pada media penyimpanan hanya akan dialokasikan sebesar 3 karakter saja.

Dari sini kita bisa menentukan kapan harus menggunakan tipe data char atau varchar. Tipe data char digunakan pada field atau data yang sifat panjangnya tetap, misalnya seperti kode barang, kode item, kode customer dan lain lain yang panjangnya tetap.
Sebaliknya Anda bisa menggunakan varchar untuk data atau field yang sifat panjangnya tidak tetap misalnya nama, alamat, kota, deskripsi dan lain sebagainya. Jadi pilihlah tipe data yang tepat pada saat Anda membuat field-field pada database Anda.

Semoga bermanfa'at

Web Development

2/15/2013 03:36:00 pm

Assalamu'alaikum kawan..!!

gimana nie kabarnya lama gak posting nie,, kali ini ane mau posting tentang twiit bird.. gimana ya caranya biar si burung biru ini berterbangan kesana kemari di blog kita,,

bagi kawan kawan yang mau tau gimana caranya,,: nie ane ada sedikit ilmu..

mau tau,, nie ikutain langkah"nya..

1. kawan-kawan harus login dulu ke blogger -- layout (rancangan) -- add gadget.. udah..??
    kalau udah.. lanjut

2. Klick Html/javascript teruss

3. Copy script berikut ::

<script type="text/javascript"    src="https://sites.google.com/site/exeloph/file/Twitterbang.js"></script>

<script type="text/javascript">

var            birdSprite="https://lh3.googleusercontent.com/_6TkGtddC4V4/TWCplect9lI/AAAAAAAAADI/6tK12S_   REt8/bluetwit.png"; var targetElems=new   Array("img","hr","table","td","div","input","textarea","button","select","ul","ol","li","h1","h2","h3","h4","p","code","object","a","b","strong","span"); var twitterAccount = "http://twitter.com/muslim_jogja";var tweetThisText = "Twitter - bayumuslim http://catatan-cahmuslim.blogspot.com/";tripleflapInit();</script>

yang warna merah bisa kamu ganti dengan ID-twittermu  n alamat blog kamu,, terus kamu save,, jadi dech si burung biru berterbangan di blog kamu...

selamat mencoba

Tips blog's Web Development

2/15/2013 02:06:00 am

Navbar adalah fasilitas yang dimiliki oleh Blogger/blogspot, bentuknya berupa kotak kecil memanjang kesamping yang letaknya berada di bagian paling atas dari blog yang fungsinya antara lain untuk mulai melakukan Sign In/out atau bisa juga membuat Blog baru. 

Navigation Bar juga bisa digunakan untuk melaporkan kecurangan atau tindak kejahatan weblog yang dilakukan oleh seorang blogger, misalnya kontent blognya yang melanggar TOS atau hal-hal yang dianggap merugikan orang lain. 

Namun ada beberapa blogger yang merasa akan lebih enak jika melihat tampilan blognya dalam keadaan bersih tanpa harus ada bagian mencolok di bagian atas blognya sendiri (NavBar). Karena itu, kadang para blogger menghapus NavBar tersebut. Pertanyaannya adalah: Apa tidak melanggar Term of Service (TOS) dari Blogger.com?

Sejauh ini, banyak blogger yang telah menghilangkan Navbar mereka dan tidak juga mendapat teguran dari blogger. Artinya, bisa dilakukan. Toh di TOS Blogger sendiri juga tidak ada aturan yang cukup detail tentang hal ini.

Nah, bagaimana menghilangkan Navigation Bar?

Ada beberapa penyedia template yang memang sudah tidak ada NavBar-nya. Namun bagi kamu yang memakai template yang masih ada NavBarnya dan ingin menghilangkannya maka inilah caranya.

1. Kamu harus Login dulu di Blogger.com / Blogspot.com

2. Trus Pilih Layout --> Edit HTML

3. Copy script berikut ke dalam tag head

#navbar-iframe {

display: none !important;

}

contohnya sebagai berikut :

-----------------------------------------------

Blogger Template Style

Name: Son of Moto (Mean Green Blogging Machine variation)

Designer: Jeffrey Zeldman

URL: www.zeldman.com

Date: 23 Feb 2004

Updated by: Blogger Team

----------------------------------------------- */

#navbar-iframe {

display: none !important;

}

/* Variable definitions

====================

4. Kemudian simpan.

Selamat Mencoba.....!!

Tips blog's Web Development

2/14/2013 08:19:00 am

RESMI :: Sahin Kembali ke Broussia Dortmund

Sebelumnya pelatih Jurgen Klopp melempar kemungkinan terbuka tentang kedatangan kembali Sahin. Gelandang internasional Turki itu meninggalkan Dortmund untuk menerima pinangan Real Madrid pada 2011, tetapi kesulitan mendapat kepercayaan Jose Mourinho karena masalah cedera.  

Meski Liverpool mencoba datang menyelamatkan awal musim ini dengan kontrak peminjaman, karier Sahin tak jua membaik. Sampai akhirnya Dortmund mendekat. "Nuri dipinjam untuk jangka waktu 18 bulan dan transfernya tidak membutuhkan banyak uang. Tanpa ragu dia bilang dia ingin kembali ke sini. Kami juga

sudah bilang kepada Real, kalau ada kemungkinan

memulangkannya, beritahu kami". Real memberi kami lampu hijau 48 jam lalu," tukas CEO Hans-Joachim Watzke. Sang pemain sendiri juga senang pulang ke tempat yang sangat dikenalinya. "Saya senang kembali ke rumah dan bahkan perawat rumah sakit mengenali saya. Saya bilang Klopp dia sekali lagi memastikan bergabungnya seorang

pengeksekusi penalti," imbuh Sahin. "Sebagai pesepakbola dan pribadi saya sadar saya milik Dortmund 100 persen. Pembicaraan dengan Dortmund sudah dimulai pekan lalu. Dua hari lalu muncul sinyal dari Madrid. Saya ingin membantu Dortmund. Saya

masih bisa bermain. Dengan cepat saya mengetahui saya hanya ingin bermain untuk Dortmund." Kontrak peminjaman Sahin disertai dengan opsi pembelian. Di "tim barunya", Sahin akan mengenakan nomor punggung 18. 

#Skysport

Liverpool Fc Other

1/11/2013 04:30:00 pm

Hay sobat programmer gimana kabar'a..

Sebenarnya ini merupakan tugas akhir perkuliahan mimin nie,,

ya tugas akhir mata kuliah aljabar linier yang isinya hanya matrik,,matrik,, dan matrik dan akhirnya dosen memberi tugas akhir'a juga ga' jauh-jauh beda dengan materi yang disampaikannya...

Ya,, operasi matrik,, dari penjumlahan, pengurangan sampai perkalian matrik dengan ordo bebas (bisa dua atau lebih dari 3)...

setelah berpusing-pusing membuat logika'a dan akhirnya mimin berhasil membuat program matrik..

untuk sort code'a langsung sedot aja nie gan..

#include <iostream.h>

#include <conio.h>

main()

{

    char salah;

    double a[10][10];

    double b[10][10];

    double hasil[10][10];

    int i,j,r,bb,k,p;

    do{

//    clrscr();

    cout<<"==========================\n";

    cout<<"inputkan banyak baris: ";cin>>bb;

    cout<<"inputkan banyak kolom: ";cin>>k;

    cout<<"==========================\n";

    if (bb==k)

    {

     cout<<"INPUT ELEMEN  MATRIK A: "<<endl;

     for (i=0;i<bb;i++)

     for (j=0;j<k;j++)

     {

        cout<<"A["<<(i+1)<<","<<(j+1)<<"]=";cin>>a[i][j];

     }

     cout<<"INPUT ELEMEN  MATRIK B: "<<endl;

     for (i=0;i<bb;i++)

     for (j=0;j<k;j++)

     {

        cout<<"B["<<(i+1)<<","<<(j+1)<<"]=";cin>>b[i][j];

     }

        cout<<"--------------------------------------------\n";

     cout<<"pilih (1=jumlah,2=kurang,3=perkalian) : ";cin>>p;

        cout<<"--------------------------------------------\n";

     if(p==1)

     {

            cout<<"TAMPIL MATRIK : "<<endl;

            cout<<"Matriks A               Matriks B"<<endl;

            for (i=0;i<bb;i++)

            {

                for (j=0;j<k;j++)

                {

                    cout<<a[i][j]<<"    ";

                }

                if (i==0)

                {

                         cout<<"+";

                         cout<<"    ";

                         for (j=0;j<k;j++)

                         {

                             cout<<b[i][j]<<"    ";

                         }

                }

                if (i>0)

                {

                    cout<<"    ";

                    for (j=0;j<k;j++)

                    cout<<" "<<b[i][j]<<"   ";

                }

                cout<<endl;

            }

            for (i=0;i<bb;i++)

            for (j=0;j<k;j++)

            {

                hasil[i+1][j+1]=(a[i][j]+b[i][j]);

            }

            cout<<endl<<"HASIL AKHIR= "<<endl;

            for (i=0;i<bb;i++)

            {

                for (j=0;j<k;j++)

                {

                    cout<<hasil[i+1][j+1]<<"     ";

                }

                cout<<endl;

            }

     }

     else if(p==2)

     {

         cout<<"TAMPIL MATRIK : "<<endl;

         cout<<"Matriks A               Matriks B"<<endl;

         for (i=0;i<bb;i++)

            {

                for (j=0;j<k;j++)

                {

                    cout<<a[i][j]<<"    ";

                }

            if (i==0)

            {

                     cout<<"-";

                     cout<<"    ";

                     for (j=0;j<k;j++)

                     {

                         cout<<b[i][j]<<"    ";

                     }

            }

            if (i>0)

            {

                    cout<<"    ";

                    for (j=0;j<k;j++)

                    cout<<" "<<b[i][j]<<"   ";

            }

            cout<<endl;

            }

         for (i=0;i<bb;i++)

         for (j=0;j<k;j++)

         {

             hasil[i+1][j+1]=(a[i][j]-b[i][j]);

         }

         cout<<endl<<"HASIL AKHIR= "<<endl;

         for (i=0;i<bb;i++)

         {

             for (j=0;j<k;j++)

             {

                 cout<<hasil[i+1][j+1]<<"     ";

             }

             cout<<endl;

         }

     }

     else if(p==3)

     {

         cout<<"TAMPIL MATRIK : "<<endl;

         cout<<"Matriks A               Matriks B"<<endl;

         for (i=0;i<bb;i++)

            {

                for (j=0;j<k;j++)

                {

                    cout<<a[i][j]<<"    ";

                }

            if (i==0)

            {

                     cout<<"x";

                     cout<<"    ";

                     for (j=0;j<k;j++)

                     {

                         cout<<b[i][j]<<"    ";

                     }

            }

            if (i>0)

            {

                    cout<<"    ";

                    for (j=0;j<k;j++)

                    cout<<" "<<b[i][j]<<"   ";

            }

            cout<<endl;

            }

         hasil[i+1][j+1]=0;

         for (i=0;i<bb;i++)

         {

             for (j=0;j<k;j++)

             {

hasil[i+1][j+1]=0;

for (r=0;r<k;r++)

                 {

                     hasil[i+1][j+1]=hasil[i+1][j+1]+a[i][r]*b[r][j];

                 }

             }

         }

         cout<<endl<<"HASIL AKHIR= "<<endl;

         for (i=0;i<bb;i++)

         {

             for (j=0;j<k;j++)

             {

                 cout<<hasil[i+1][j+1]<<"     ";

             }

             cout<<endl;

         }

     }

     else

     {

     cout<<"-->kode yang anda masukkan salah<--"<<endl;

     cout<<"APAKAH ANDA INGIN MENGULANG?(Y/T) ";

     cin>>salah;

     cout<<"-----TEKAN ENTER-----"<<endl;

     }

    }    //tutup kurung dari if (bb=k)

    else

    {

     cout<<"Maaf....ORDO tidak sama!!!!"<<endl;

     cout<<"APAKAH ANDA INGIN MENGULANG?(Y/T) ";

     cin>>salah;

     cout<<"-----TEKAN ENTER-----"<<endl;

    } 

    cout<<"APAKAH ANDA INGIN MENGULANG?(Y/T) ";

    cin>>salah;

    cout<<"-----TEKAN ENTER-----"<<endl;

    }   //tutup kurung dari do-while

    while(salah=='y'||salah=='Y');

    getch();

}

monggoh dicoba...

Desktop Development

1/10/2013 10:14:00 pm

Apa Misteri d'balik Hajar Aswad...!!

Islam.New's-Mungkin banyak yang tidak tahu, ada banyak rahasia yang belum terjawab seputar Hajar Aswad. Misteri yang terbesar adalah, ke mana perginya pecahan batu berwarna hitam yang berbau harum itu. 

Awalnya, Hajar Aswad adalah sebuah batu yang utuh berdiameter sekitar 30 centimeter. Namun, akibat berbagai peristiwa, ia pecah dan menyisakan delapan fragmen batuan. Pecahan-pecahan itulah yang kemudian disatukan dengan bingkai perak, lalu dipasangkan ke tempat asalnya. 

"Yang tersisa bukan batu utuh seperti saat Nabi Ibrahim membangun Ka'bah, namun hanya beberapa fragmen," kata Dr Ahmad Moraei, profesor dari Umm al-Qura University, seperti dimuat situs Al Arabiya. 

Ada banyak peristiwa, alami juga ulah manusia yang berperan memecah Hajar Aswad. Aksi kriminal yang paling terkenal adalah saat Bani Qarmati tega menginvasi dan merampok tempat suci itu. Mereka menguasai batu suci itu selama 22 tahun, dimulai tahun 317 Hijriyah. Lalu, akhirnya sejumlah fragmen dipulangkan ke tempat asalnya, namun sisanya menghilang. 

"Bani Qarmati yang dipimpin Ahmad al-Qarmati datang ke tanah suci dan menginvasi Ka'bah. Mereka membunuh lebih dari 70.000 orang hari itu. Ahmad dengan pongah bahkan berkata, 'Allah memberi kehidupan pada manusia, dan aku yang akan mengambilnya'. Mereka membawa Hajar Aswad ke Kota Ahsa, selama 12 tahun," kata Dr Moraei. 

Sebagian umat muslim meyakini, batu itu berasal dari surga yang diturunkan ke bumi saat Nabi Ibrahim ingin menandai tempat di mana para jamaah mengelilingi Ka'bah sebagai bagian dari ritual "Tawaf". 

Hajar Aswad menjadi bagian yang tak terpisahkan dari Ka'bah, menandai  awal dan akhir dari ritual "Tawaf". Ia adalah salah satu situs suci Islam yang paling dilihat, disentuh, dan dicium. Bahkan sebelum peradaban Islam, ia telah menjadi pilar suci bagi masyarakat Arab.

Misteri jenis batu

Salah satu yang masih menjadi perdebatan para ilmuwan adalah, jenis batuan Hajar Aswad. Ada yang menyebutnya sebagai batu basalt, batu agate atau akik, kaca alami, atau yang paling populer, meteorit. 

Seperti dimuat Wikipedia, adalah Paul Partsch, kurator koleksi mineral kekaisaran Austria-Hungaria yang menerbitkan catatan sejarah komperehensif tentang Hajar Aswad pada tahun 1857. Ia condong pada dugaan, itu adalah meteorit. 

Sementara pada tahun 1974, Robert Dietz dan John McHone mengajukan pendapat, Hajar Aswad adalah batu akik atau agate. Mereka mendasarkan hiopotesisnya pada atribut fisik dan laporan ahli geologi Arab.

Salah satu kunci penting adalah laporan tentang seputar pemulihan Hajar Aswad paca mengalami kejadian pencurian pada tahun 951 Masehi. Ada laporan, bahwa batu suci itu bisa mengapung, jika itu akurat, maka itu akan menepis dugaan bahwa Hajar Aswad adalah batu basalt atau meteorit, sebaliknya daftar dugaan bertambah, ia adalah kaca atau sejenis batu apung.

Pada tahun 1980, Elsebeth Thomsen dari University of Copenhagen mengajukan hipotesis, Hajar Aswad berasal dari fragmen kaca atau impactite dari dampak meteorit yang jatuh sekitar 6.000 tahun lalu di Wabar, situs di Gurun Rub' al Khali, sekitar 1.100 kilometer di timur Mekah. Namun, hipotesis ini dibantah dengan temuan terbaru tahun 2004 yang menduga, usia kawah Wabar sekitar 200-300 tahun. 

Yang tak ketinggalan, adalah misteri, apa yang membuat Hajar Aswad tetap berbau harum selama ribuan tahun?

Fenomena Other

1/10/2013 08:41:00 pm

Daniel Sturridge, dikabarkan Sky Sports telah menjalani tes medis pada Minggu (23/12/2012), sebagai syarat kepindahannya ke Liverpool.

Belum ada pernyataan resmi dari kedua kubu. Namun, menurut Sky Sports, Sturridge akan melakukan tanda tangan kontrak bersama Liverpool pada Senin (24/12/2012). Kabarnya, Liverpool setuju memboyong Sturridge dengan nilai transfer 12 juta poundsterling atau sekitar Rp 187 miliar.

"Saya belum bisa memberikan konfirmasi mengenai Sturridge. Tetapi, saya rasa kepastian itu akan segera diketahui. Sampai saat ini belum ada kabar. Jika sudah ada, kami akan segera memberitahu," jelas manajer Chelsea, Rafael Benitez, usai pertandingan melawan Aston Villa, Minggu (23/12/2012).

Liverpool memang membutuhkan penyerang baru untuk menemani Luis Suarez di lini depan. Pasalnya, bomber Italia, Fabio Borini, sedang mengalami cedera. Setelah meminjamkan Andy Carroll ke West Ham United, The Reds tak lagi memiliki penyerang mumpuni.

Beberapa kali, manajer Brendan Rodgers memasang Jonjo Shelvey yang sejatinya seorang gelandang di posisi penyerang. Liverpool sebenarnya masih memiliki Adam Morgan dan Samed Yesil sebagai ujung tombak. Namun, usai belia membuat keduanya dianggap belum layak mengemban tugas sebagai pemain inti Liverpool.

sumber : http://bola.kompas.com

Liverpool Fc Other

12/25/2012 05:10:00 pm

gara-gara apa sich,,ko' perut nie sakit bnget..!!

Ga' kebayang ketika sedang beraktivitas dengan nyamannya tapi terganggu oleh sesuatu ini..

ya 'sakit perut' seolah menjadi sesuatu hal yang menghentikan semua aktivitas kita, bahkan dengan datangnya penyakit ini semua pekerjaan menjadi terbengkalai..

teruss,,, gue harus bilang woow gitu..!! hahaha ga' nyambung... Mungkin setidaknya ini salah satu penyebabnya...

Seperti dilansir Dailytelegraph, Rabu (19/12/12), di Australia, sekitar 41% anak-anak didiagnosis memiliki masalah pada ususnya.

Dr Anton Emmanuel, konsultan pencernaan di London University College Hospital dan direktur medis di badan kesehatan usus menyatakan ada beberapa hal yang bisa menyebabkan usus bermasalah misalnya makanan yang terlalu bersih bisa menurunkan kekebalan pada usus, stres, pola makan tidak teratur, dan sering makan makanan cepat saji

"Banyak orang sebenarnya sangat berhati-hati terhadap apa yang mereka makan. Mungkin cara pasien makan sudah benar tapi kita tidak tahu apakah cara pengolahannya sudah benar atau belum, kata Dr. Emmanuel.

1. Bran

Di Indonesia mungkin Bran memang bukan makanan pokok, tapi Dokter sering menyarankan makan Bran yang biasanya sudah berbentuk sereal yang kaya serat ini bisa bantu memperbaiki pencernaan. Bran berasal dari kulit padi atau gandum. Ketika proses penggilingan padi, akan menghasilkan dedak dan beras. Kepingan kecil ini biasanya digunakan untuk membuat kue atau roti yang disebut Bran.

Serat tidak larut ini yang membuat perut kenyang tapi menurut dr. Emmanuel, ketika sembelit, makan Bran ini bisa mengenyangkan, tapi jika dikonsumsi berlebihan akan menyebabkan perut kembung dan buang angin berlebihan.

"Untuk penderita Irritable Bowel Syndrome (IBS), serat adalah salah satu hal terburuk untuk dimakan," kata Peter Whorwell, Profesor Kedokteran dan Gastroenterologi di University Hospital of South Manchester. 

IBS adalah suatu kondisi gangguan perut yang ditandai dengan rasa tidak nyaman di daerah perut, yang disertai dengan gejala-gejala episodik perasaan sulit buang air besar (konstipasi) dan atau diare.

Tapi tidak semua pasiennya tidak cocok dengan serat, ada beberapa pasien yang memang ketika makan bran terjadi reaksi pada ususnya tapi setelah itu tidak masalah. 

"Mungkin lebih aman jika pasiennya beralih ke roti putih, pasta,putih, biskuit dan kerupuk, atau apapun yang dibuat dari tepung putih halus karena tepung putih juga mengandung banyak serat," kata Profesor Whorwell.

Ketika sedang sembelit, beberapa orang biasanya makan buah kering seperti aprikot, buah ara atau plum. Buah kering juga bisa membantu masalah pada perut. Buah kering mengandung serat larut dan ketika dicerna, bisa melunakkan tinja.

Beberapa orang percaya meminum kopi di pagi hari bisa merangsang usus, kata Dr. Emmanuel.

2. Kentang

Kentang adalah sumber karbohidrat yang baik untuk penderita diabetes. Kentang juga rendah lemak dan merupakan sumber vitamin B, B6, dan serat yang baik bagi pencernaan. Yang salah ketika makan kentang dengan tambahan seperti mentega atau mayones. 

Menurut Dr. Emmanuel, makanan yang berlemak bisa memacu lambung yang membuat perut kembung".

"Masalah yang sama ketika seseorang makan salad, nampaknya tidak berbahaya, tapi makan salad ketika perut kosong, bisa menyebabkan masalah pada perut anda, jelas Prof. Whorwell.

3. Madu

Hanya karena madu berbahan alami, madu tidak selalu baik untuk dikonsumsi.

"Madu bisa menyebabkan masalah pencernaan karena banyak mengandung fruktosa yang tidak diserap baik oleh usus, sehingga perut Anda bisa kembung. Hal ini terjadi ketika Anda mencampurkan Bran dengan madu," kata Dr. Baca.

Pemanis lain yang bisa digunakan oleh penderita IBS adalah sorbitol, pengganti gula dalam bentuk obat yang biasanya sebagai pemanis di obat batuk, permen karet, es krim atau makanan-minuman diet.

Menurut Prof Whorwell, reaksi perut seperti kembung dan IBS, bisa diminimalisir dengan minuman yang manis dibandingkan minuman diet.

4. Kari pedas

Banyak orang yang percaya kalau makanan pedas bisa mengiritasi usus, tapi yang lebih cepat bereaksi ketika perut kosong bukan pedasnya tapi kandungan lemak yang tinggi dalam kari.

Masalah pencernaan jarang disebabkan oleh cabai. Rempah-rempah seperti jinten, ketumbar, dan kunyit baik untuk usus, Anda bisa minum yoghurt rendah lemak atau minyak zaitun sebagai pengganti minyak kari atau biasa disebut ghee (mentega dari India). 

5. Bawang

Menurut Dr. Baca, makan bawang bisa menyebabkan perut kembung karena bawang tidak diserap usus kecil dan langsung ke usus besar.Pastikan bawang dimasak hingga matang agar bisa dicerna. Makanan yang bisa membantu ketika perut kembung seperti pir, apel, peach atau plum, dan sayuran seperti brokoli, kubis, kol dan daun bawang, jelasnya.

Semoga bermanfa'at.. thanks to Liputan6 'siti syarifah'

Kesehatan

12/20/2012 08:23:00 pm

Operasi matrik di Delphi 7

Hay sobat,, kini aku pengen bicara tentang matrik nie.. apa yang anda pikirkan pertama kali jika mendengar kata ini,, ya 'MATRIK',, pusing..? mumet..?? puyeng..??? tau malah suka dengan salah satu bahasan dalam ilmu matematika ini..??

tentunya antum sudah pernah mempelajari matrik ini mungkin di SMA tau bahkan SMP ga' mungkin dong di pelajarin di TK..hehhe

oke saya tidak akan membahas tentang bagaimana kita mengoprasikan matrik secara manual ('itung2an'),, karena aku tau antum" semua udach pinter...hehehe (lebih baik husnudzan dari pada suudzan)..

Oke temen2 langsung saja aku pengen kasih tau nie cara bikin program matrik pake delphi 7...

gampang ko'

Bikin  Form ky' gini dulu ya,,,

terus code untuk Form'a kaya' gini nie :

procedure TForm1.Button1Click(Sender: TObject);

var

i,j,k  : integer;

data1  : array [1..10, 1..10] of integer;

data2  : array [1..10, 1..10] of integer;

hasil  : array [1..10, 1..10] of integer;

begin

if RadioButton1.checked then

begin

if (edit1.Text = edit3.Text) and (edit2.Text = edit4.Text) then

begin

for i := 1 to strtoint(edit1.Text) do

begin

StringGrid1.Cells[0,i] := ‘B’ + InttoStr(i);

StringGrid2.Cells[0,i] := ‘B’ + InttoStr(i);

StringGrid3.Cells[0,i] := ‘B’ + InttoStr(i);

for j:= 1 to strtoint(edit2.Text) do

begin

StringGrid1.Cells[i,0] := ‘K’ + InttoStr(i);

StringGrid2.Cells[i,0] := ‘K’ + InttoStr(i);

StringGrid3.Cells[i,0] := ‘K’ + InttoStr(i);

StringGrid3.Cells[i,j] := ”;

data1[i,j] := StrtoInt(StringGrid1.Cells[i,j]);

data2[i,j] := StrtoInt(StringGrid2.Cells[i,j]);

Hasil[i,j] := data1[i,j] + data2[i,j];

stringGrid3.RowCount := strtoint(edit1.Text)+1;

stringGrid3.ColCount := strtoint(edit2.Text)+1;

StringGrid3.Cells[i,j] := inttostr(Hasil[i,j]);

end;

end;

end

else

showmessage(‘Ukuran Matriks Tidak sama’);

edit1.SetFocus;

end;

if RadioButton2.checked then

begin

if ((edit2.Text) = (edit3.Text)) then

begin

for i := 1 to StrtoInt(Edit1.Text) do

for j:= 1 to StrtoInt(Edit4.Text) do

begin

Hasil[i,j] := 0;

for k:= 1 to StrtoInt(Edit2.Text) do

begin

data1[i,k] := StrtoInt(StringGrid1.Cells[k,i]);

data2[k,j] := StrtoInt(StringGrid2.Cells[j,k]);

Hasil [i,j] := Hasil[i,j] + data1[i,k] * data2[k,j];

StringGrid3.RowCount := StrtoInt(edit1.Text) + 1;

StringGrid3.ColCount := StrtoInt(edit4.Text) + 1;

end;

StringGrid3.Cells[j,i] := inttostr(Hasil[i,j]);

end;

end

else

begin

showmessage(‘Ukuran Matriks Tidak Sesuai’);

edit2.SetFocus;

end;

end;

if RadioButton3.checked then

begin

stringGrid3.RowCount := strtoint(edit2.Text)+1;

stringGrid3.ColCount := strtoint(edit1.Text)+1;

for i := 1 to strtoint(edit2.Text) do

begin

for j:= 1 to strtoint(edit1.Text) do

StringGrid3.Cells[j,i] := StringGrid1.Cells[i,j];

end;

end;

if RadioButton4.checked then

begin

stringGrid3.RowCount := strtoint(edit4.Text)+1;

stringGrid3.ColCount := strtoint(edit3.Text)+1;

for i := 1 to strtoint(edit4.Text) do

begin

for j:= 1 to strtoint(edit3.Text) do

StringGrid3.Cells[j,i] := StringGrid2.Cells[i,j];

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[1, 1] := ’1′;

StringGrid1.Cells[1, 2] := ’0′;

StringGrid1.Cells[1, 3] := ’0′;

StringGrid1.Cells[1, 4] := ’0′;

StringGrid1.Cells[1, 5] := ’0′;

StringGrid1.Cells[2, 1] := ’0′;

StringGrid1.Cells[2, 2] := ’1′;

StringGrid1.Cells[2, 3] := ’0′;

StringGrid1.Cells[2, 4] := ’0′;

StringGrid1.Cells[2, 5] := ’0′;

StringGrid1.Cells[3, 1] := ’0′;

StringGrid1.Cells[3, 2] := ’0′;

StringGrid1.Cells[3, 3] := ’1′;

StringGrid1.Cells[3, 4] := ’0′;

StringGrid1.Cells[3, 5] := ’0′;

StringGrid1.Cells[4, 1] := ’0′;

StringGrid1.Cells[4, 2] := ’0′;

StringGrid1.Cells[4, 3] := ’0′;

StringGrid1.Cells[4, 4] := ’1′;

StringGrid1.Cells[4, 5] := ’0′;

StringGrid1.Cells[5, 1] := ’0′;

StringGrid1.Cells[5, 2] := ’0′;

StringGrid1.Cells[5, 3] := ’0′;

StringGrid1.Cells[5, 4] := ’0′;

StringGrid1.Cells[5, 5] := ’1′;

StringGrid2.Cells[1, 1] := ’5′;

StringGrid2.Cells[1, 2] := ’5′;

StringGrid2.Cells[1, 3] := ’5′;

StringGrid2.Cells[1, 4] := ’5′;

StringGrid2.Cells[1, 5] := ’5′;

StringGrid2.Cells[2, 1] := ’4′;

StringGrid2.Cells[2, 2] := ’4′;

StringGrid2.Cells[2, 3] := ’4′;

StringGrid2.Cells[2, 4] := ’4′;

StringGrid2.Cells[2, 5] := ’4′;

StringGrid2.Cells[3, 1] := ’3′;

StringGrid2.Cells[3, 2] := ’3′;

StringGrid2.Cells[3, 3] := ’3′;

StringGrid2.Cells[3, 4] := ’3′;

StringGrid2.Cells[3, 5] := ’3′;

StringGrid2.Cells[4, 1] := ’2′;

StringGrid2.Cells[4, 2] := ’2′;

StringGrid2.Cells[4, 3] := ’2′;

StringGrid2.Cells[4, 4] := ’2′;

StringGrid2.Cells[4, 5] := ’2′;

StringGrid2.Cells[5, 1] := ’1′;

StringGrid2.Cells[5, 2] := ’1′;

StringGrid2.Cells[5, 3] := ’1′;

StringGrid2.Cells[5, 4] := ’1′;

StringGrid2.Cells[5, 5] := ’1′;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

GroupBox2.Caption := ‘  Hasil Penjumlahan Matrik A dan B  ‘;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

GroupBox2.Caption := ‘  Hasil Perkalian Matrik A dan B  ‘;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label3.Left := label3.Left – 4;

if label3.Left <= -90 then

label3.Left := 270;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

stringGrid1.RowCount := strtoint(edit1.Text)+1;

if (strtoint(edit1.Text)) > 6 then

Begin

StringGrid1.DefaultRowHeight := 15;

StringGrid3.DefaultRowHeight := 15;

end;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

stringGrid1.ColCount := strtoint(edit2.Text)+1;

if (strtoint(edit2.Text)) > 6 then

begin

StringGrid1.DefaultColWidth := 30;

StringGrid3.DefaultColWidth := 30;

end;

end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

stringGrid2.RowCount := strtoint(edit3.Text)+1;

if (strtoint(edit3.Text)) > 6 then

Begin

StringGrid2.DefaultRowHeight := 15;

StringGrid3.DefaultRowHeight := 15;

end;

end;

procedure TForm1.Edit4Change(Sender: TObject);

begin

stringGrid2.ColCount := strtoint(edit4.Text)+1;

if (strtoint(edit4.Text)) > 6 then

begin

StringGrid2.DefaultColWidth := 30;

StringGrid3.DefaultColWidth := 30;

end;

end;

end.

Gampang kan...?? selamat mencoba & good luck..

thanks to blog.uny.ac.id

Programmer

12/20/2012 07:13:00 pm