Delphi: Program Jam dan Waktu

Tujuan artikel ini agar anda dapat memahami konsep pemrograman berbasis visual dan berbasis event driven secara sederhana dengan menggunakan Delphi. Anda diharapkan juga dapat memahami fungsi formatedatetime dan now untuk menampilkan jam dan waktu Sistem.

Buatlah program untuk menampilkan Jam & Waktu, seperti pada gambar berikut ini:

Modul Delphi - Program Date & Time

Modul Delphi – Program Date & Time

  • Pada saat mengklik tombol Date maka akan tampil hari dan tanggal sekaran
  • Pada Saat mengklik tombol Time maka akan tampil jam sekarang
  • Pada saat mengklik tombol Close maka form akan ditutup

Setting Properties

Object Properties Value
Form Caption Date & Time
Label1 Caption Information
Edit1 Color clBtnFace
Text (kosongkan)
ReadOnly True
Button1 Caption Date
Button2 Caption Time
Button3 Caption Close

Coding

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text:=formatdatetime('"Date : "dddd, dd mmmm yyyy',now)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit1.Text:=formatdatetime('"Time  :"hh:mm',now)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close
end;

Tuliskan komentar anda

Komentar

Tinggalkan Balasan