3 - Membuat Program Earthquake (Gempa Bumi) Pada Layar Monitor Menggunakan Delphi 7

Earthquake yang artinya gempa bumi, kali ini kita akan membuat program yang dapat membuat layar monitor bergetar seolah-olah terjadi gempa bumi dan aplikasi-aplikasi yang sedang berjalan pada OS dalam hal ini Windows tidak dapat dikendalikan. Cara menghentikannya agar kembali normal yaitu dengan mengklik desktop dan tekan tombol Ctrl pada keyboard. Singkat saja penjelasannya :D

OS : Windows 7 32/64 Bit
Delphi : 7

Jika ingin mencoba langsung saja download program dan source code-nya > di sini
Terima kasih dan semangat.

2 - Cara Supaya Edit Text Delphi Hanya Bisa Diinputkan atau Diisi Angka

Delphi - Saat menginputkan data tentunya ada data hanya berupa bilangan saja, jika inputan tercampur dengan karakter huruf abjad ataupun karakter lain maka akan error jika dilakukan proses perhitungan. Untuk menghindari hal tersebut kita perlu membuat kode filter agar hanya bisa terinput angka saja. Letakkan kode berikut pada Edit Text yang ingin difilter, letakkan pada Events OnKeyPress (Events pada saat di edit text ada tombol keyboard yg ditekan)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',#8,#13])  then  Key:=#0; //biar inputan hanya angka saja
end;

Penjelasan kode : jika kunci (tombol keyboard) tidak termasuk karakter angka 0 s/d 9, #8 dan #13 maka edit text kosong

#8 adalah kode ASCII untuk tombol Tab
#13 adalah kode ASCII untuk tombol Tab

Semoga bermanfaat

Download Contoh Program & Source Code

1 - Membaca IP Address Komputer

Artikel pertama saya, udah lama ga ngepost karena lupa password blogspot :D

Saat membangun sebuah sistem terlebih jika menggunakan jaringan intranet / LAN tentunya kita memerlukan sebuah identitas untuk masing - masing komputer, salah satu identitas tersebut adalah IP Address dan Nama PC.

Untuk membuatnya silahkan letakkan 2 Label, 2 Edit dan 1 BitButton desain sehingga seperti gambar berikut :

Double klik pada button Get dan isikan kode berikut :

procedure TGet_IP_Address.BitBtn1Click(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
phe : PHostEnt;
stri : array[0..128] of char;
pc : PChar;
snet: PChar;
begin
//start winsock
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);

//get computer name
GetHostName(@stri, 128);
phe := GetHostByName(@stri);

//get ip address
pc := iNet_ntoa(PInAddr(phe^.h_addr_list^)^);

EdtIPAddr.Text := pc;
EdtHostName.Text := phe^.h_Name;

//clean up winsock
WSACleanup;
end;

kemudian Run. Hasilnya seperti berikut

Silahkan di download
Download Program dan Source Code

Delphi

Tutorial

• 1 - Membaca IP Address Komputer dan Nama Komputer
• 2 - Cara Supaya Edit Text Delphi Hanya Bisa Diinputkan atau Diisi Angka
• 3 - Membuat Program Earthquake (Gempa Bumi) Pada Layar Monitor Menggunakan Delphi 7 
• 4 - Membuat Alert Notifikasi Pada Sudut Kanan Bawah Layar Dengan Delphi 7

Komponen Delphi

• Ehlib 56
• GIFImaged2009 
• EDBImage16
• GraphicEx 
• PngComponents 

Nenek Termuda di Dunia

   

Nenek-nenek biasanya identik dengan usia tua, keriput dan rambut beruban. Tapi, nenek asal Rumania ini masih terlihat cantik dan bugar. Maklum, usianya baru 23 tahun. Dialah Rifca Stanescu, warga Desa Investi, Rumania.

Dia melahirkan putrinya, Maria, saat berusia 13 tahun. Sementara Maria melahirkan putranya yang bernama Ion saat berusia 11 tahun.

Rifca Stanescu pun dinyatakan sebagai nenek termuda di dunia. "Saya senang bisa menjadi nenek, tapi aku sebenarnya berharap sesuatu yang lain pada Maria dan sesuatu yang beda untuk saya. Ion adalah anak yang baik, dan dia sudah bertunangan dengan seorang gadis berusia 8 tahun," kata Rifca.

Rifca lahir pada 1985. Ia kawin lari dengan pria penjual perhiasan, Ionel Stanescu. Saat itu Rifca berusia 11 tahun dan Ionel 13 tahun. Satu tahun setelah menikah, Rifca hamil.

Sumber : http://yogyanews.com/inilah-nenek-termuda-di-dunia-usianya-baru-23-tahun/