Selasa, 10 April 2012

Membuat Alarm Dengan Delphi

,
Setelah beberapa kali bingung mencari referensi, akhirnya saya berhasil membuat alarm sederhana berkat bantuan dari blog http://burhanudin.web.id. Ya, walaupun tutorialnya kurang jelas akhirnya hehe, tapi akhirnya saya bisa membuat alarm dengan delphi dan saya membuat tutorial ini juga untuk pedoman dikemudian hari siapa tau saya lupa jadi tinggal melihat dari blog saya, dan tujuan saya juga adalah untuk berbagi kepada teman-teman yang baru belajar delphi yang masih belum terlalu tau banyak tentang delphi seperti saya. Semoga tutorial ini bisa mudah di pahami dan bagi master-master delphi boleh angkat kaki dari blog ini wkwkwkw.
  • Buka delphinya, saya menggunakan delphi 7. Dan tambahkan 3 Button, 2 Label, dan 1 edit yang berada di pallet standard. Masuk ke pallet system tambahkan 1 timer dan 1 mediaplayer dan terakhir masuk di pallet dialogs tambahkan 1 opendialog. Untuk 3 button tadi ubah caption menjadi "Pilih lagu", "STOP", dan "Keluar" susun menjadi seperti gambar.
  • Jika sudah selesai, klik double pada form1 ingat pada form1 bukan yang lain lalu cari keatas ada tulisan var dan letakkan dibawahnya Mp3Path: string;
  • Jika sudah kembali lagi ke visual dari form1 dan klik 2 kali pada button "Pilih lagu" lalu masukkan code berikut,
if OpenDialog1.Execute then
begin
Mp3Path:=OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled:=true;
FileName:=Mp3Path;
Open;
Position:=0;
end;
end;
  • Berikutnya klik 2 kali pada button "STOP" dan masukkan code ini MediaPlayer1.Stop;
  • Klik 2 kali lagi pada button "Keluar" dan masukkan code application.terminate
  • Dan yang terakhir klik sekali saja pada timer lalu lihat sebelah kiri ada interval 10000 ubah menjadi 10, lalu klik 2 kali pada timer dan masukkan code ini,
label1.caption := timetostr(time());
try
if edit1.Text=Label1.Caption then
begin
label2.caption:='Waktunya Bangun!!!';
MediaPlayer1.Play;
end;
Except
ShowMessage('Maaf anda Belum memilih Lagu');
end;
  • Ingat penulisan code harus dibawah begin dan di akhiri oleh end; dan untuk kode diatas walau pun ada begin dan end itu adalah code tambahan jadi tetap penulisan code diantara begin dan end yang defaultnya.
Untuk pembuatan alarm dengan delphi cukup sampai disitu, dan untuk hasilnya lihat pada gambar dibawah.
Untuk mengisi waktu harus dengan menggunakan format jam:menit:detik dan jangan lupa pilih lagu terlebih dahulu, bagaimana ? cukup jelas atau ada yang kurang jelas silahkan tinggalkan komentar, happy coding and keep blogging ^o^

0 komentar to “Membuat Alarm Dengan Delphi”

Poskan Komentar

 

All About Information And Technology Copyright © 2011 -- Template created by cn -- Powered by Blogger Templates