cara membuat jam pada delphi
 Cara membuat jam pada delphi

Nah..Kawan kali ini saya mau berbagi cara bagaimana menbuat jam menggunaka delphi Tak usah  panjang lebar lagi yaa.. langsung aja.. gini 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