Jaman Es Baru Mendekat, Kutub Magnet Bumi Berubah?

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

 Bukti menunjukkan bahwa Bumi memasuki sebuah siklus baru badai super.

Para ilmuwan baru-baru ini merilis sebuah berita sensasional, ‘kutub magnet bumi sedang membalik’, dan badai AS adalah salah satu akibat dari perubahan kutub magnetik. Banyak bukti menunjukkan bahwa Bumi akan memasuki siklus baru badai super. Dan badai di Amerika Serikat ini hanyalah merupakan peristiwa awal. Benarkah jaman es baru akan tiba?

Badai Meteorit Punahkan Peradaban Prasejarah 12.000 Tahun Lalu

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Para ilmuwan menemukan bukti kuat bahwa badai meteorit yang menghantam bumi lebih dari 12.000 tahun lalu, telah mengakibatkan kepunahan peradaban prasejarah dan sejumlah fauna raksasa.

Bukti intensitas panas dari meteorit itu ditemukan di dua benua. Para peneliti yakin dampak kosmik besar dipicu hantaman misterius, yang menyebabkan kerusakan luas.

Tim internasional menemukan substansi yang dikenal sebagai lelehan kaca, terbentuk pada suhu 1.700 hingga 2.200 derajat Celcius--dihasilkan dari 'badan kosmik’ yang menghantam bumi.

Alquran dan Astronomi !!

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Asal mula alam semesta digambarkan dalam Al Qur'an pada ayat berikut:

"Dialah pencipta langit dan bumi." (Al Qur'an, 6:101)

Keterangan yang diberikan Al Qur'an ini bersesuaian penuh dengan penemuan ilmu pengetahuan masa kini. Kesimpulan yang didapat astrofisika saat ini adalah bahwa keseluruhan alam semesta, beserta dimensi materi dan waktu, muncul menjadi ada sebagai hasil dari suatu ledakan raksasa yang tejadi dalam sekejap. Peristiwa ini, yang dikenal dengan "Big Bang", membentuk keseluruhan alam semesta sekitar 15 milyar tahun lalu. Jagat raya tercipta dari suatu ketiadaan sebagai hasil dari ledakan satu titik tunggal. Kalangan ilmuwan modern menyetujui bahwa Big Bang merupakan satu-satunya penjelasan masuk akal dan yang dapat dibuktikan mengenai asal mula alam semesta dan bagaimana alam semesta muncul menjadi ada.

Export Data Dari Listview ke Excel

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Jika kamu ingin mengExport data yang ditampilkan Listview ke Excel, mungkin kamu bisa pakai Coding dibawah ini :

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,ComObj;



procedure TForm1.Button2Click(Sender: TObject);
var
 xlapp, xlbook,XlSheet: OLEVariant;
 baris,kolom,x,y:integer;
begin
 xlapp := CreateOLEObject('Excel.Application');
 xlbook := xlapp.Workbooks.Add;
 XlSheet  := XlBook.worksheets.add;
 xlapp.Visible := True;
 baris:=ListView1.Items.Count;
 kolom:=3;  // jumlah kolom listview

 {Cetak judul kolom}
 for x:=1 to 3 do
  XlSheet.Cells[1,x].value:= ListView1.Columns[x-1].Caption;

 for y:=0 to baris-1 do
 for x:=1 to kolom do
 begin
   begin
    if x=1 then
     {cetak kolom pertama}
      XlSheet.Cells[y+2,x].value := ListView1.Items.Item[y].Caption
    else
    {cetak kolom kedua dan seterusnya}
     XlSheet.Cells[y+2,x].value := ListView1.Items.Item[y].SubItems[x-2];
   end;
 end;

end;

Jika ada Error silahkan Cek Ulang Coding di atas mungkin anda lebih jago dari saya. Selamat mencoba...

Pesan Sebelum Keluar Aplikasi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Ini adalah Coding untuk pesan keluar, jadi sebelum keluar dari Aplikasi akan muncul pesan dulu Apakah Yakin akan keluar Aplikasi atau tidak.

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin?',
'informasi',mb_okcancel or mb_iconquestion)=mrok then
Application.Terminate;
end;
end.

Membuat Splash Screen

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Sebelum memulai Belajar cara mebuat Spalash Screen, Ada baiknya kita mengetahui terlebih dahulu apa itu splash screen. Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi. pada kesempatan ini saya akan membahas bagai mana membuat sebuah splash screen dengan mengunakan Delphi 7
Untuk membuat splash scren tersebut caranya sebagai berikut :

Menampilkan Pallete Warna

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Adacara yang lebih muda untuk meruba warna form pada program Delphi yaitu dengan mengunakan palet warna, pada program berikut ini hanya menggunakan satu tombol yang dipergunajakan untuk menjalankan Colordialog. Adapun caranya adalah sebagai berikut :
1. Buatlah sebuah form seperti pada gambar 15.pada progrsm ini kita akan menggunakan fungsi colordialog yang bisa diambil pada component pallete dialogs.

Membuat Teks Berjalan

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Kita bisa mempercantik tampilan program yang kita buat dengan membuat text yang berjalan dengan memanfaatkan fungsi timer. Langkah-langkahnya adalah sebagai brikut :
1. Buatlah form,gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.