Membuat Jam Sederhana Menggunakan Delphi7
Kali ini saya akan membagi tutorial tentang Delphi7, yaitu membuat "Jam Sederhana". Mungkin bagi para sobat yang masih belajar (newbie), dan yang masih belum mengerti delphi seperti saya ini, sobat bisa mengikuti tutorial ini. Baiklah, langsung saja ke tutorialnya, yaitu sebagai berikut :
1. Buka program Delphi sobat.
2. Selanutnya pada form nya sobat bisa menambahkan beberapa object, seperti :
- Timer, yang terletak pada System
- Tambahkan 2 buah label, yang terletk pada Standard
- Selanjutnya XPManifest ( tidak wajib ), yang terletak pada Win32, dan ini adalah skin XP
3. Kemudian klik dua kali pada Timer1.
4. Selanjutnya ketikkan kode Seperti dibawah :
procedure TForm1.Timer1Timer(Sender: TObject);
var
ADate:TDateTime;
hari:Array[1..7] of string;
begin
hari[1] := 'Minggu';
hari[2] := 'Senin';
hari[3] := 'Selasa';
hari[4] := 'Rabu';
hari[5] := 'Kamis';
hari[6] := 'Jumat';
hari[7] := 'Sabtu';
ADate:=date;
Label1.Caption:=TimeToStr(Now);
Label2.Caption:=hari[DayOfWeek(ADate)]+' - '+DateTimeToStr(date);
end;
end.
5. Lalu, Run dengan menekan tombol F9 pada keyboard.
6. Selesai
Demikian, tutorial membuat "Jam Sederhana" dari saya, apabila masih ada kekurangan, saya mohon mohon maaf.
Apabila sobat ingin mendapatkan program yang langsung jadi, sobat bisa mendownload pada Link dibawah ini :
Download Jam Sederhada Delphi7
"Selamat Berkarya"
