Menampilkan Jam, Hari dan Tanggal pada Delphi 7

Control timer berfungsi untuk menjalankan suatu baris atau beberapa baris perintah dalam interval secara kontinyu.  Ada 2 Properti Timer yang sering digunakan yaitu:

• Interval, properti ini digunakan untuk mengatur selang waktu pengeksekusian perintah, nilainya menyatakan dalam ms (milisecond) atau 1/1000 detik. Sebagai contoh, jika properti interval diberi nilai 1000 maka proses eksekusinya setiap detik.
• Enabled, properti ini berfungsi untuk mengatur apakah perintah dapat dieksekusi atau tidak. Jika bernilai True maka baris perintah akan dieksekusi. Sebaliknya jika properti Enabled ini diberi nilai False maka perintan tidak akan dieksekusi.

Nah, Kita coba bikin Jam Digital YUkk !!!!

Menampilkan Jam, Hari dan Tanggal pada Delphi 7

pada kesempatan kali ini, saya akan membagi bagaimana menampilkan jam, hari dan tanggal pada delphi 7..

Biar tidak terlalu panjang lebar, check this out..

Tampilan form kurang lebih seperti gambar dibawah ini

Siapkan beberapa objek yang terdapat pada tabel dibawah..

Kalo udah klik timer1 dan masukan kode dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);

var

ADate:TDateTime;

hari:array[1..7] of string;

begin

hari[1]:='Minggu';

hari[2]:='Senin';

hari[3]:='Selasa';

hari[4]:='Rabu';

hari[5]:='Kamis';

hari[6]:='Jumat';

hari[7]:='Sabtu';

ADate:=date;

Label1.caption:=hari[DayofWeek(ADate)];

Label2.caption:=DateToStr(Now);

Label3.caption:=TimeToStr(Now);

end;

Coba jalankan programnya……..

Tampilan ketika di run kaya gambar dibawah nih guys

Mudah bukan ????  pada intinya jika kita mau belajar pasti bisa, JANGAN MENYERAH !!!! TERUS BELAJAR   ^_^

Posted in: Delphi