Cara Mudah Menampilkan Tanggal dan Jam di Delphi secara Real Time

Pada tutorial Delphi kali ini akan dibahas menampilkan tanggal dan jam secara otomatis (real time) ketika form ditampilkan. Dimana solusinya adalah menggunakan komponen Timer pada event OnTimer.

Langkahnya

1.       Buat desain form baru dan tambahkan komponen label dan timer (Properti Name label rubah jadi tgl dan timer isi intervalnya menjadi 100) Artinya (satuan dalam milli second) lebih kecil interval yang diberikan, maka akan lebih cepat event OnTimer dieksekusi

2.       Kemudian pada event on timer isi coding sbb:

Syntak Program

procedure TForm1.Timer1Timer(Sender: TObject); begin    tgl.Caption := formatdatetime('"Tanggal : "dd/mm/yyyy',now)+chr(10) +      formatdatetime('"  Jam : "hh:nn:ss',now); tgl.Refresh; end;

3.       Selanjutnya RUN Program (F9) dan hasilnya sbb

Selamat Mencoba

PADEPOKAN IT COURSES

IT Tutorial, Training Center & IT Solution

www.padepokanit.com