Delphi- Timer Hitung Mundur Games

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 2 3 4 5 6 7 8

</p>   <pre>procedure Tfrm_hitungmundur.FormCreate(Sender: TObject); begin     button_pause.Enabled:=false;   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 2 3 4 5 6 7 8 9

procedure Tfrm_hitungmundur.button_startClick(Sender: TObject); begin     panel_timer.Caption:='5';   timer1.Enabled:=true;   button_start.Enabled:=false;   button_pause.Enabled:=true;   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.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure Tfrm_hitungmundur.Timer1Timer(Sender: TObject); var   waktu:integer; begin     if panel_timer.Caption='0' then     begin       timer1.Enabled:=false;       showmessage('Maaf Waktu anda habis');       button_start.Enabled:=true;       button_pause.Enabled:=false;     end   else     begin       waktu:=strtoint(panel_timer.Caption);       waktu:=waktu-1;       panel_timer.Caption:=inttostr(waktu);     end;   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 2 3 4 5 6 7 8 9

procedure Tfrm_hitungmundur.button_keluarClick(Sender: TObject); begin     if(application.MessageBox('Yakin Akan keluar dari Permainan','Konfirmasi',MB_YesNo)=ID_Yes) then     begin       close;     end;   end;

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure Tfrm_hitungmundur.button_pauseClick(Sender: TObject); begin     if button_pause.Caption='Pause' then     begin       timer1.Enabled:=false;       button_pause.Caption:='Lanjut';     end   else     begin       timer1.Enabled:=true;       button_pause.Caption:='Pause';     end;   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 :). klik disini