Timer Hitung Mundur Games

Assalamualaikum Temen Temen Semua, hay hay hay Selasa Pagi ini saya membuka Facebook ada lagi yang berbeda nich hehehe  ( ada apa nich mas eko kasih tau dunk /(^o^”) *sahabat khayalan ). hehehe ada kawan dari di fanpage blog saya lainnya ituloh yang isinya materi pembelajaran Pemrograman Delphi Catatan Eko yang merequest Listing Code untuk kondisi program yang ia mau buat. Loch sudah lama saya  tidak mengurus pembelajaran di Catatan Eko, ehh ada yang request lagi hehehehe, nah karena saya sudah berjanji saya jawab disini dech. Nah Sok kita bahas.

Nah dari tulisan diatas saya sudah dapat bayangan sich walau belum pernah buathahahaha monggo langsung aja disimak materi ini ya mohon maaf  jika gak jawaban saya tidak sesuai dengan yang diharapkan hehee. Langsung Aja Saya Jawab Ya Delphi On Reques Kali ini dengan Judul Timer Hitung mundur.

Pertama Buat Form Baru sebagai berikut :

design form aplikasi

Nah aturlah Properties Namenya Sebagai Berikut :

Properties Name

Nah Berikut ini adalah alur programnya :

• Jika Tombol Start Di Klik Maka Panel timer akan menentukan jumlah detik yang akan dihitung mundur pada program ini saya mensetting 5 detik saja supaya gampang melihat hasilnya. saat itu pula button Start akan enabled false dan button pause akan aktif dan timer mulai menghitung mundur perdetik.
• Jika Button Pause di Klik maka hitung mundur akan berhenti dengan mematikan timernya dan button pause akan berubah nama menjadi lanjut.
• Jika Button lanjut di klik makan kan menjalankan kembali timer dan hitungan mundur dan Button kembali mejadi Pause.
• Jika Nilai Timer sudah menjadi 0 maka timer akan berhenti dan muncul konfirmasi bahwa waktu ada sudah habis dan kembali kesemula dengan button start yang aktif.
• Jika button keluar diklik makan akan muncul konfirmasi keluar dari program jika ya makan akan keluar dari program.

_______________________________________________________________________________

Berikut ini adalah listing Codenya :

1

</p>

2

3	<pre>procedure Tfrm_hitungmundur.FormCreate(Sender: TObject);

4

begin

5

6	button_pause.Enabled:=false;

7

8

end;

Pada Saat Aplikasi Dijalankan maka tampilan awal button Start Aktif namun Button pause tidak aktif. Dan Timer dalam keadaan tidak aktif juga panel timer hanya bernilai tulisan timer.

1	procedure Tfrm_hitungmundur.button_startClick(Sender: TObject);

2

begin

3

4	panel_timer.Caption:='5';

5	timer1.Enabled:=true;

6	button_start.Enabled:=false;

7	button_pause.Enabled:=true;

8

9

end;

Saat Button Start di klik makan panel timer akan menampilkan nilai atau jumlah detik yang akandiberikan untuk kasus kali ini saya hanya memakan nilai 5 agar mudah dilihat hasilnya. dan Button Start menjadi tidak aktif dan button pause diaktifkan. Timer mulai berjalan berhitung sesuai interval yang diatur 1000 atau akan berjalan per 1 detik.

01	procedure Tfrm_hitungmundur.Timer1Timer(Sender: TObject);

02

var

03	waktu:integer;

04

begin

05

06	if panel_timer.Caption='0' then

07

begin

08	timer1.Enabled:=false;

09	showmessage('Maaf Waktu anda habis');

10	button_start.Enabled:=true;

11	button_pause.Enabled:=false;

12

end

13

else

14

begin

15	waktu:=strtoint(panel_timer.Caption);

16	waktu:=waktu-1;

17	panel_timer.Caption:=inttostr(waktu);

18

end;

19

20

end;

Saat Timer diaktifkan maka ia akan menjalankan nilai panel timer terus mengurahi satu nilai sehingga terlihat seperti hitungan mundur berdasarkan timer 1 detik yang sudah disetting  . jika nilai panel timer sudah mencapai batas 0 maka timer akan di matikan dan muncul konfirmasi masi bahwa waktu anda sudah habis  .

1	procedure Tfrm_hitungmundur.button_keluarClick(Sender: TObject);

2

begin

3

4	if(application.MessageBox('Yakin Akan keluar dari Permainan','Konfirmasi',MB_YesNo)=ID_Yes) then

5

begin

6

close;

7

end;

8

9

end;

Jika Button Keluar diklik maka akan muncul konfirmasi keluar jika pemilihan nilai yes maka akan keluar dari program  .

01	procedure Tfrm_hitungmundur.button_pauseClick(Sender: TObject);

02

begin

03

04	if button_pause.Caption='Pause' then

05

begin

06	timer1.Enabled:=false;

07	button_pause.Caption:='Lanjut';

08

end

09

else

10

begin

11	timer1.Enabled:=true;

12	button_pause.Caption:='Pause';

13

end;

14

15

end;

Jika button pause diklik maka akan mematikan timer dan waktu hitung mundurpun berhenti, dan saat itu nama button menjadi lanjut, jika button lanjut maka akan menjalankan kembali nilai timernya dan panel timer kembali melakukan hitung mundur.

_______________________________________________________________________________

Nah Berikut ini adalah tampilan hasil aplikasinya  .

tampilan awal kita bisa memulai hitung mundur dengan klik start

timer berjalan mundur dan button pause aktif

JIka waktu mundur sudah mencapai nilai 0 maka akan muncul peringatan waktu habis

jika button keluar diklik makan akan muncul peringan keluar 

Nah ia akan berjalan mundur sesuai dengan nilai yang kita masukkan pada tombol start. jika sudah mencapai 0 maka akan muncul notifikasi bahwa waktu habis dan akan mengulang kembali ke kondiri awal.

~ *** ~

Untuk Temen Temen yang mau liat sourcecodenya secara jelas untuk copy paste maka temen temen bisa lihat di pojok kanan atas listcode bisa temen temen klik yang view sourcecode untuk menampilkan codenya, perhatikan gambar berikut :

klik view sourcecode di kanan atas ( dilingkari merah )

contoh tampilan sourcecode saat sudah di klik d(^o^”)

Semoga Berguna dan untuk Temen temen juga yang mau download materi aplikasi delphinya bisa di download di bawa ini ya  , jangan lupa extrack foldernya dulu baru  nanti jalankan untuk file .exe nya.

Download Delphi – Timer Hitung Mundur