Minggu, 02 September 2012

Timer pada Delphi

Apa itu Timer?
Timer adalah waktu yang digunakan untuk menghitung jam, tanggal, dan stop wacth.
Timer digunakan untuk suatu prosedur atau fungsi yang dilaksanakan dalam jeda waktu tertentu atau biasa disebut interval.

Contoh Program Timer :

  1. Buatlah Form baru
  2. Buatlah 4 Label dan 1 Timer
  3. Double klik pada Timer, kemudian masukkan listing program seperti di bawah ini :
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 (time);
Label2.Caption := timetostr (date);
Label3.Caption := hari [DayOfWeek(ADate)]+'/'+datetimetostr(date);
Label4.Caption := formatdatetime ('hh : nn : ss',now);

Tidak ada komentar:

Posting Komentar