Delphi : Membuat Countdown Timer Beserta Progressbar


 Sebelumnya saya mohon maaf yang sebesar-besarnya, atas kekhilafan dan kekurangan ilmu saya karena salah dalam menuliskan kalimat bassmallah pada setiap postingan saya. Semoga Allah SWT mengampuni kekhilafan saya karena keawwaman saya. Aamiin
Countdownt timer atau


 Langkah-langkahnya sebagai berikut:
1. Deklarasikan variabel ITime sebagai variabel menyimpan waktu sekarang
var
  Form1: TForm1;
  ITime : TTime;// Variabel
implementation
2. Pada tombol mulai, ketikkan kode berikut
procedure TForm1.Button1Click(Sender: TObject);
var
  h,m,s : word;
  sec,jam,menit,detik : word;
  incs : word;
begin
ProgressBar1.Position := 0;
h := HourOf(DTWaktu.Time);
m := MinuteOf(DTWaktu.Time);
s := SecondOf(DTWaktu.Time);
incs := (h*Sqr(60)) + (m*60) + s;
ITime := Now();
ITime := IncSecond(ITime,incs);

sec := SecondsBetween(Now(),ITime);
jam := sec div 3600;
menit := (sec mod 3600) div 60;
detik:= (sec mod 3600) mod 60;
Label3.Caption := 'Sisa waktu : '+IntToStr(jam)+' jam '+IntToStr(menit)+' menit '+IntToStr(detik)+' detik';
ProgressBar1.Max := sec;
Button1.Enabled := false;
Button3.Enabled := true;
Timer1.Enabled := true;
end;
3. Kemudian pada tombol stop, ketikkan kode berikut:
procedure TForm1.Button3Click(Sender: TObject);
begin
ProgressBar1.Position := 0;
DTWaktu.Time := EncodeTime(0,0,10,0);
Timer1.Enabled := false;
Timer1.Enabled := false;
Button1.Enabled := true;
Button3.Enabled := false;
Label3.Caption := '-||-';
end;
4. Ketikkan kode berikut pada event FormOnCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := false;
Timer1.Interval := 500;
end;
5. Tambahkan komponen TTimer, pada event OnTimer ketikkan kode berikut:
procedure TForm1.Timer1Timer(Sender: TObject);
var
  sec,jam,menit,detik : word;
begin
if ProgressBar1.Position = ProgressBar1.Max then
  begin
    Timer1.Enabled := false;
    Button1.Enabled := true;
    Button3.Enabled := false;
  end
else
  begin
    sec := SecondsBetween(Now(),ITime);
    ProgressBar1.Position := ProgressBar1.Max - (sec -1);
    jam := sec div 3600;
    menit := (sec mod 3600) div 60;
    detik:= (sec mod 3600) mod 60;
    Label3.Caption := 'Sisa waktu : '+IntToStr(jam)+' jam '+IntToStr(menit)+' menit '+IntToStr(detik)+' detik';
  end;
end;

Kode selengkapnya sebagai berikut:

unit uUtama;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    DTWaktu: TDateTimePicker;
    Label1: TLabel;
    Button1: TButton;
    ProgressBar1: TProgressBar;
    Label2: TLabel;
    Button2: TButton;
    Label3: TLabel;
    Timer1: TTimer;
    Button3: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ITime : TTime;// Variabel
implementation

uses DateUtils;//Uses ini dulu

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  h,m,s : word;
  sec,jam,menit,detik : word;
  incs : word;
begin
ProgressBar1.Position := 0;
h := HourOf(DTWaktu.Time);
m := MinuteOf(DTWaktu.Time);
s := SecondOf(DTWaktu.Time);
incs := (h*Sqr(60)) + (m*60) + s;
ITime := Now();
ITime := IncSecond(ITime,incs);

sec := SecondsBetween(Now(),ITime);
jam := sec div 3600;
menit := (sec mod 3600) div 60;
detik:= (sec mod 3600) mod 60;
Label3.Caption := 'Sisa waktu : '+IntToStr(jam)+' jam '+IntToStr(menit)+' menit '+IntToStr(detik)+' detik';
ProgressBar1.Max := sec;
Button1.Enabled := false;
Button3.Enabled := true;
Timer1.Enabled := true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ProgressBar1.Position := 0;
DTWaktu.Time := EncodeTime(0,0,10,0);
Timer1.Enabled := false;
Timer1.Enabled := false;
Button1.Enabled := true;
Button3.Enabled := false;
Label3.Caption := '-||-';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := false;
Timer1.Interval := 500;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  sec,jam,menit,detik : word;
begin
if ProgressBar1.Position = ProgressBar1.Max then
  begin
    Timer1.Enabled := false;
    Button1.Enabled := true;
    Button3.Enabled := false;
  end
else
  begin
    sec := SecondsBetween(Now(),ITime);
    ProgressBar1.Position := ProgressBar1.Max - (sec -1);
    jam := sec div 3600;
    menit := (sec mod 3600) div 60;
    detik:= (sec mod 3600) mod 60;
    Label3.Caption := 'Sisa waktu : '+IntToStr(jam)+' jam '+IntToStr(menit)+' menit '+IntToStr(detik)+' detik';
  end;
end;

end.

Unduh demo program di sini

Comments

  1. thanks thanks ^^

    ini yang bener dibutuhin saya saat ini ..

    :D

    ReplyDelete
  2. :) terimkasih sangat bermanfaat

    ReplyDelete

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Popular posts from this blog

Membuat File Resource (*.res)