Delphi Request – 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 buat hahahaha 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 :

</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.

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.

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😀.

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🙂.

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 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

Tetep Simak Terus Catatan Eko Personal Blog Ya Kawan, nanti kita akan membahas materi materi pembelajaran delphi lainnya, See You Next Lesson Kawan

Salam Semangat Eko

~ *** ~

_______________________________________________________________________________

Simak Juga Artikel Menarik lainnya ya d(^o^”) :

–          Delphi – Karakter Angka Saja Pada Edit Box

–          Delphi – Fungsi Enter Pada Edit Box

–          Delphi – Simulasi Lampu Lalu Lintas

______________________________________________________________________________

4 thoughts on “Delphi Request – Timer Hitung Mundur Games

  1. Ping-balik: Delphi Request – Play Sound Wave | Catatan Eko

  2. Selamat Pagi Mas Eko. Saya baru Pemula di Delphi nih. Duluuuuuuuunya sih, pernah sedikit bejar dbase III+.
    Mau tanya tentang penggunaan Variabel bersama antara 2 prosedur.
    Misalnya nih,
    Prosedur A telah merubah Variabel A nilai A.
    Prosedur B membutuhkan variabel A tersebut untuk diproses lebih lanjut.
    Bagaimana programnya???
    Terima kasih sebelumnya.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s