Cara membuat jam di delphi 7

Cara membuat jam pada delphi
berhubung akhir" ini saya di beri tugas tentang delphi7, yaitu membuat game dengan delphi7, maka untuk itu kayaknya asik nich jika aku share cara"nya, berhubung jika membuat game dengan delphi itu cukup rumit
untuk itu kali ini saya mau berbagi cara bagaimana menbuat jamdengan delphi, itung" sebagai awal aku share tentag pemrograman delphi ini haha
berikut caranya
1)      Buka delphi anda
2)      Pada form tambah kan  3  buah label, 1 buah Timer dan 1 buah Button
3)      Ubah caption label1 menjadi “Contoh program menggunakan timer” , ubah font nya menjadi “Cambria” , dan ubah size menjadi 18
4)      Hapus caption label2, ubah font nya menjadi “Cambria” , dan ubah size menjadi 24
5)      Hapus caption label3, ubah font nya menjadi “Cambria” , dan ubah size menjadi 18
6)      Ubah caption button1 menjadi “keluar”
7)      Desain form seperti gambar berikut


Ket: Yang di lingkari adalah tempat label 2 dan
1)      Label 2
2)      Label 3
8)      Klik 2 kali pada button keluar masukan kode program berikut
Close;
9)      Klik dua kali pada Timer1 masukan potongan kode program berikut

Var  jam,tgl,hr,bln,thn:string;beginjam := formatdatetime(‘hh:mm:ss’,time);hr  := formatdatetime(‘dddd’,date);tgl := formatdatetime(‘dd’,date);thn := formatdatetime(‘yyyy’,date);bln := formatdatetime(‘mmmm’,date); Label2.Caption := jam ; label3.Caption := hr +’/'+tgl+’/'+bln+’/'+thn; end;

10)  Jika sudah jalankan program dengan menekan F9
tampilan program ketika di jalankan

selesai semoga bermamfaat……….
download contoh program klik disini