Aplikasi Hari dan Tanggal Menggunakan Delphi

      Aplikasi Hari dan Tanggal

Perhatikan Gambar 4.21 di bawah ini!

Program aplikasi ini merupakan program aplikasi yang menampilkan Jam, Tanggal, dan Kalender. Tiga komponen tersebut secara otomatis berfungsi mengikuti pengaturan yang ada di komputer/labtop anda.

Langkah – langkah Kerja :

1. Letakkan 2 komponen Label, 1 komponen MonthCalender, dan 2 komponen Timer pada sebuah Form.
2. Aturlah letak komponen – komponen tersebut pada Form seperti gambar di bawah ini :

Gambar 4.22 Desain Program Aplikasi Jam & Tanggal

3. Kemudian ubahlah property komponen – komponen di atas seperti pada tabel berikut ini:

Tabel 4.1 Daftar Komponen Program Aplikasi Jam dan Tanggal

Komponen	Tab	Nomor	Properti	Nama/Judul
Form	-	-	Caption	Aplikasi Jam & Tanggal
Label	Standard	1	Caption	Kosongkan *
		2	Caption	Kosongkan
MonthCalender	Win32	1	-	-
Timer	System	1	-	-
		2	-	-

* setiap ada kata (Kosongkan), ini perintah untuk menghapus nama komponen tersebut di Caption yang ada di tab Standard.

4. Klik ganda pada komponen “Timer1” dan ketikkan sintak berikut ini :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

LABEL1.Caption:='JAM : ' + TIMETOSTR(NOW);

end;

5. Klik ganda pada komponen “Timer2” dan ketikkan sintak berikut ini:

procedure TForm1.Timer2Timer(Sender: TObject);

begin

LABEL2.Caption:='TANGGAL : ' + DateToStr(NOW);

end;

6. Terakhir silahkan eksekusi program aplikasi anda dengan meng-klik komponen Run pada Toolbar atau tekan tombol F9 pada keyboard. Maka akan tampil jendela berikut ini:

Gambar 4.23 Hasil Eksekusi Program Aplikasi Jam & Tanggal

7. Simpanlah Program Aplikasi anda melalui: File à Save All, tempatkan di (D:). Simpan dengan nama folder “Praktikum Delphi I-a”, klik OK.