Sabtu, 10 Januari 2009

Mula mula buatlah sebuat Form, lalu tambahkan dua buah label dengan nama label1 dan label2, dan sebuah Timer dengan nama Timer1,



setelah itu doble klik Timer lalu tuliskan perintah dibawah


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('dd MMMM yyyy',Now);
Label2.Caption:=FormatDateTime('hh:mm:ss',Now);
end;

kalo sudah, tekan menu Run lalu pilih Run atau tekan F9 pada keybord untuk menjalankan program dan liatlah hasilnya
selamat mencoba....!!!!



faesal

12 komentar:

Posting Komentar

makasih sudah mampir.... ^_^

Follow by Email

Daftar Kunjungan

sejak tanggal 11 agustus 2010

Date

dot_exe

Promosi dikit neh... ^_^

Jika anda ingin meningkatkan kinerja perusahaan atu tempat anda bekerja, saya penulis dapat memenuhi kebutuhan anda . baik atas nama kelompok (CV) atau perorangan:
penulis menyediakan softaware-software seperti:
1. Dinas pemerintahan / Swasta
2. Percetakan
3. Toko / swalayan
4. Dinas pendidikan
5. dll

software dapat berbentuk desktop atau model jaringan (client server).
Selain itu menerima pemesanan pembuatan Website baik yang pribadi maupun perusahaan.

bagi yang berminat dapat mengirim e-mail ke alamat dotexe.chili@gmail.com

Popular Posts

Daftar Komentar

temen-temenku