Modul Delphi – Latihan Soal Program “Date & Time”


Tujuan latihan soal program “Time & Date” ini agar praktikan memahami konsep pemrograman berbasis visual dan berbasis event driven secara sederhana dengan menggunakan Delphi, serta  praktikan 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

Jawaban

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;
Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s