Membuat Detikan Mundur Dengan Delphi

Sore agan-agan sekalian,,, sore ini saya akan mengeposkan postingan tentang Cara Membuat Detik Berjalan Mundur Dengan Delphi,,, Bagi yang tertarik bisa mencbanya langsung dengan mengikuti langkah-langkah yang sudah saya posting,,, Langsung menuju ke topik >>yuuk mari>>

siapkan komponen antara lain:

1 panel >>caption di Kosongi

1 button >>caption Mulai

1 timer >>enabled ganti False

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
pada form double klik masukan rumus sebagai berikut:


procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.caption:='10';
end;
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


===============================================================
double klik pada timer dan masukan rumus sebagai berikut:


procedure TForm1.Timer1Timer(Sender: TObject);
var
  waktu:integer;
begin
  waktu:=strtoint(panel1.Caption);
  waktu:=waktu-1;
  panel1.Caption:=inttostr(waktu);
if panel1.caption='0' then
  begin
    showmessage('watku habis');
  end;
end;
===============================================================


----------------------------------------------------------------------------------------------
pada button beri rumus/source code sebagai berikut:      
                                                                                       

procedure TForm1.Button1Click(Sender: TObject);        
begin
  timer1.Enabled:=true;
  button1.Enabled:=false;
end;
----------------------------------------------------------------------------------------------

NB : rumus yang harus dimasukan adalah tulisan yang saya buat besar, silahkan mencoba dan semoga berhasil.

bagi yang berkenan silahkan tingalkan komentar di kolom yang sudah disediakan tersebut hehe makasih atas kunjungannya dan samoga sukses