Cara Pasang Play Sound Wave Pada Delphi

Cara Pasang Play Sound Wave Pada Delphi- - -Belajar dephi memang tidak akan pernah ada habisnya, delphi memang menjadi program yang enteng dan unggulan untuk membuat sebuah program, Contoh saja yang pernah dibuat Dunia Komputer dan Internet mengenai Sistem Pakar Mendiagnosa Kerusakan Handphone Menggunakan Delphi 2010, sebenarnya delphi 2010 dan 2007 hampir sama, hanya saja 2010 lebih lengkap dan tampilannya lebih Indah. Oke kita kepokok permasalahan mengenai Play Sound Wave atau dalam bahasa Indonesia yang intinya Memasang Suara Hewan Pada Delphi.

Pertama Buat Form Baru sebagai berikut :

Aturlah Properties Namenya Sebagai Berikut :

Berikut ini adalah alur programnya :

• Jika Program Dijalankan maka Text_a bernilai 0 dan kita bisa memulai program dengan mengklik Button_mulai.
• Jika Button_mulai Di Klik maka Text_a akan berjalan dengan penambahan penyataan a+2 setiap time interval 250 di timer 1. dan Caption Button_mulai Berubah Jadi Stop.
• Saat Nilai Text_a > 0 maka akan muncul tulisan pada label_suara : ‘ ini adalah suara Ayam  ~ ~ ~ ‘, kemudian image muncul gambar Ayam dan memainkan sound wave untuk ayam yang sudah disediakan.
•  Saat Nilai Text_a > 50 maka akan muncul tulisan pada label_suara : ‘ ini adalah suara Kodok ~ ~ ~ ‘, kemudian image muncul gambar kodok dan memainkan sound wave untuk kodok yang sudah disediakan.
• Jika nilai Text_a >100 maka gambar hilang, label kembali semula dan button_mulai Kembali Menjadi mulai dan text_a kembali bernila 0;

Catatan: format gambar yang digunakan dengan format Bmp ya karena format jpg tidak support untuk image untul langsung load. format suara juga digunakan format wav yang sudah support tanpa ada penambahan komponent lainnya.

Berikut ini adalah listing Codenya :
Tambahakan Componet MMSystem pada list Uses di list kode paling atas delphi yang digunakan untuk pemutaran file wav ( lihat gambar dibawah ini ) :

<br /> </pre> procedure TForm1.Timer1Timer(Sender: TObject);<br /> var<br /> a:integer;<br /> begin<br /> a:=strtoint(edit_a.Text);<br /> a:=a+2;<br /> edit_a.Text:=inttostr(a);<br /> <br /> if a>100 then<br /> begin<br /> button_mulai.Caption:='Mulai';<br /> timer1.Enabled:=false;<br /> timer_kodok.Enabled:=false;<br /> timer_ayam.Enabled:=false;<br /> sndPlaySound(nil, 0); // Stops the sound<br /> edit_a.Text:='0';<br /> <br /> image1.Picture:=nil;<br /> label_suara.Caption:='ini adalah Suara ???? ~ ~ ~'<br /> end<br /> else if a>50 then<br /> begin<br /> label_suara.Caption:='ini adalah Suara Kodok ~ ~ ~';<br /> image1.Picture.LoadFromFile('C:\main_suara_wat\picture\kodok.bmp');<br /> timer_ayam.Enabled:=false;<br /> timer_kodok.Enabled:=true;<br /> end<br /> else<br /> begin<br /> label_suara.Caption:='ini adalah Suara Ayam ~ ~ ~';<br /> image1.Picture.LoadFromFile('C:\main_suara_wat\picture\ayam.bmp');<br /> timer_ayam.Enabled:=true;<br /> timer_kodok.Enabled:=false;<br /> end;<br /> <br /> end;<br />
saat timer1.enabled:=true maka akan menjalankan list code diatas dimana akan ada penambahan nilai a yang akan di tampilkan pada text_a. Jika nilai a bernilai > 50 maka akan tampil label tulisan suara kodok, gambar kodok dan suara kodok dengan menjalankan timer_kodok, selain dari a>50 maka ia akan bernilai ayam dan jika sudah lebih dari 100 maka akan di stop keseluruhan aktivitas timer.
<br /> procedure TForm1.button_mulaiClick(Sender: TObject);<br /> begin<br /> <br /> if button_mulai.Caption='Mulai' then<br /> begin<br /> button_mulai.Caption:='Stop';<br /> timer1.Enabled:=true;<br /> timer_ayam.Enabled:=false;<br /> timer_kodok.Enabled:=false;<br /> end<br /> else<br /> begin<br /> button_mulai.Caption:='Mulai';<br /> timer1.Enabled:=false;<br /> timer_ayam.Enabled:=false;<br /> timer_kodok.Enabled:=false;<br /> sndPlaySound(nil, 0); // Stops the sound<br /> <span class="skimlinks-unlinked">edit_a.Text:='0</span>';<br /> image1.Picture:=nil;<br /> label_suara.Caption:='ini adalah Suara ???? ~ ~ ~'<br /> end;<br /> <br /> end;<br />
Jika caption button adalah Mulai maka akan menyalakan Timer1 dan jika Caption Button adalah Stop dan di klik maka akan mematikan timer1.
<br /> procedure TForm1.timer_ayamTimer(Sender: TObject);<br /> begin<br /> <br /> sndPlaySound('C:\on_request\sound\<span class="skimlinks-unlinked">ayam.wav</span>', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);<br /> timer_ayam.Enabled:=false;<br /> <br /> end;<br />
Jika Timer Ayam dinyalakan dengan enabled = true maka akan menjalankan file suara ayam.
<br /> procedure TForm1.Timer_kodokTimer(Sender: TObject);<br /> begin<br /> sndPlaySound('C:\on_request\sound\<span class="skimlinks-unlinked">kodok.wav</span>', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);<br /> timer_kodok.Enabled:=false;<br /> end;<br />
Jika Timer kodok dinyalakan dengan enabled = true maka akan menjalankan file suara kodok.

Tweet

Terimakasih anda telah membaca artikel tentang Cara Pasang Play Sound Wave Pada Delphi. Jika ingin menduplikasi artikel ini diharapkan anda untuk mencantumkan link http://mulyatutorial.blogspot.com/2014/04/cara-pasang-play-sound-wave-pada-delphi.html. Terimakasih atas perhatiannya.

Related Posts