Penggunaan Timer di Delphi #59

andrypein.net : (Ori post, edited di bagian kurung buka tutup saja) kali ini trik blogging nya di pending dulu,, karena ane akan mengusung title blog ini lagi yang ngebahas tutor2 for nyubi tentang pascal dan delphi.

Untuk tutor kali ini ane bakal ngasih sepintas tentang penggunaan timer di delphi
komponen timer ada di palette system nih penampakannya.

Program nyubi yang akan kita buat sekarang yaitu cuma nampilin jam,tanggal,jam+detik dan tanggal+hari, ya namanya juga nyubi ane sedih nyubi mulu.

Langsung aja buat form yang kecil aja dan pasang 4 label dan 1 timer

Lalu beri code pada timer nya, gampang tinggal dobel klik saja dan kodenya kaya gini :

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:=data;
  label1.caption:=timetostr(time);
  label2.caption:=datetostr(date);
  label3.caption:=hari[DayOfWeek(ADate)]+'/'datetimetostr(date);
  label4.caption:=formatdatetime('hh:nn:ss',now);
end;

dan coba jalankan gan,hasilnya mesti kaya gini gan :

terlihat masing2 caption berbeda kan???

label1 yang captionnya 11:10:51 PM menunjukan waktu sistem komputer kita
label2 yang 8/13/10 berati itu tanggal sistem
label3 yang ada jumatnya itu didapat dari fungsi array yang ada di listing
label4 kan ada formatdatetime berati kita memformat sendiri tampilan waktu nya,dan ‘hh:nn:ss’ adalah pemformatannya dimana hh=(hour)jam,nn=(menit)dan ss=(second)detik

oke dah silahkan dicoba timer di delphi nya dan semoga bermanfaat !!

*AFK