Baik lah kali ii saya akan
berbagi sedit tentang bagaiman cara membuat jam di Aplikasi Delphi7.Cara
pembuatannya pun sangat mudah.
Langkah-langkah pembuatannya
sebagai berikut:
1.Buka aplikasi delphi7.
2.Setelah delphi7 terbuka rancang lah form seperti
gambar dibawah ini:
Keterangan dalam pembuatan form:
1.Label1.
2.Label2.
3.Button:caption:keluar.
4.Timer.
Source Code
1.Klik 2kali Timer.
procedure
TForm1.Timer1Timer(Sender: TObject);
var jam,tgl,hr,bln,thn:string;
begin
jam:=
formatdatetime('hh:mm:ss',time);
hr:=
formatdatetime('dddd',date);
tgl:=
formatdatetime('dd',date);
thn
:=formatdatetime('yyy',date);
bln :=
formatdatetime('mmmm',date);
label1.Caption:=jam;
label2.Caption:=
hr+'/'+tgl+'/'+bln+'/'+thn;
end;
2.klik 2kali button.
procedure
TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
3.Jalan kan aplikasi yang telah
di buat.
Contoh:
Sekian dan Terimah Kasih.
0 Response to "Cara Membuat Aplikasi Jam di Delphi7"
Post a Comment