Delphi Request – Play Sound Wave

Assalamualaikum Temen Temen Semua, Heufff Sabtu Pagi ini beras berat sekali melangkahkan kaki, terasa badan tidak enak, tak semangat dan yang pasti malas melanda <– entah kenapa. Nah Hari ini saya membuka email EkoEriyanah mendapatkan sesuatu yang berbeda nich hehehehe (apa tuch mas eko /(^o^”) *sahabat khayalan ). hehehe ada kawan dari Blog Saya Catatan Eko yang merequest Listing COde untuk kondisi program yang ia mau buat. Loch sudah lama saya meninggalkan dan tidak mengurus pembelajaran di Catatan Eko, ehh ada yang request hehehehe, Nah Sok kita bahas.

Ada sebuah pernyataan,

jika a >=50 maka

a akan menghasilkan suara a

a akan menghasilkan gambar a

a akan menghasilkan tulisan a

jika b<=50 maka

b akan menghasilkan suara b

b akan menghasilkan gambar b

b akan menghasilkan tulisan b

dengan timer 2detik.

Setelah 2 detik perulangan diatas tidak berfungsi lagi.

Kira2 coding di delphinya gmn ya???

Mohon bimbingannya….

Saya baru bisa seperti dibawah tapi klu di run hanya muncul suara saja…

begin

if VoltF >= 60 then

Label6.Caption:=’Batang’;

sndPlaySound(‘E:\nyoba.wav’, SND_NODEFAULT Or SND_ASYNC Or

SND_LOOP);

if VoltF <=50 then

Label6.Caption:=’Daun’;

sndPlaySound(‘E:\nyoba.wav’, SND_NODEFAULT Or SND_ASYNC Or

SND_LOOP);

end

Nah dari tulisan diatas saya memang agak bingung untuk alur programnya nanti saya jawab alur yang saya pahami saja ya soalnya detail diatas masih kurang jelas. untuk code dari masnya sudah betul untuk tampilan sound hanya ada beberapa kesalahan pada penggunaan ifnya saja🙂, nah monggo simak alur yang coba saya jawab berdasarkan yang saya pahami.

Pertama Buat Form Baru sebagai berikut :

design formnya

Nah aturlah Properties Namenya Sebagai Berikut :

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

note: 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 ) :

</pre>
procedure TForm1.Timer1Timer(Sender: TObject);
var
a:integer;
begin
a:=strtoint(edit_a.Text);
a:=a+2;
edit_a.Text:=inttostr(a);

if a>100 then
begin
button_mulai.Caption:='Mulai';
timer1.Enabled:=false;
timer_kodok.Enabled:=false;
timer_ayam.Enabled:=false;
sndPlaySound(nil, 0); // Stops the sound
edit_a.Text:='0';

image1.Picture:=nil;
label_suara.Caption:='ini adalah Suara ???? ~ ~ ~'
end
else if a>50 then
begin
label_suara.Caption:='ini adalah Suara Kodok ~ ~ ~';
image1.Picture.LoadFromFile('C:\main_suara_wat\picture\kodok.bmp');
timer_ayam.Enabled:=false;
timer_kodok.Enabled:=true;
end
else
begin
label_suara.Caption:='ini adalah Suara Ayam ~ ~ ~';
image1.Picture.LoadFromFile('C:\main_suara_wat\picture\ayam.bmp');
timer_ayam.Enabled:=true;
timer_kodok.Enabled:=false;
end;

end;

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

procedure TForm1.button_mulaiClick(Sender: TObject);
begin

  if button_mulai.Caption='Mulai' then
    begin
      button_mulai.Caption:='Stop';
      timer1.Enabled:=true;
      timer_ayam.Enabled:=false;
      timer_kodok.Enabled:=false;
    end
  else
    begin
      button_mulai.Caption:='Mulai';
      timer1.Enabled:=false;
      timer_ayam.Enabled:=false;
      timer_kodok.Enabled:=false;
      sndPlaySound(nil, 0); // Stops the sound
      edit_a.Text:='0';
      image1.Picture:=nil;
      label_suara.Caption:='ini adalah Suara ???? ~ ~ ~'
    end;

end;

Jika caption button adalah Mulai maka akan menyalakan Timer1 dan jika Caption Button adalah Stop dan di klik maka akan mematikan timer1.

procedure TForm1.timer_ayamTimer(Sender: TObject);
begin

      sndPlaySound('C:\on_request\sound\ayam.wav', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
      timer_ayam.Enabled:=false;

end;

Jika Timer Ayam dinyalakan dengan enabled = true maka akan menjalankan file suara ayam.

procedure TForm1.Timer_kodokTimer(Sender: TObject);
begin
      sndPlaySound('C:\on_request\sound\kodok.wav', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
      timer_kodok.Enabled:=false;
end;

Jika Timer kodok dinyalakan dengan enabled = true maka akan menjalankan file suara kodok.

_______________________________________________________________________________

Nah Berikut ini adalah tampilan hasil aplikasinya🙂 .

mulai program dengan klik button mulai

nilai teks a jika < 50 maka akan tampil suara dan gambar ayam

jika nilai teks a > 50 maka akan tampil suara dan gambar kodok

Nah jika nilai teks sudah lebih dari 100 ia akan otomatis kembali ke awal dengan Caption Button Menjadi Mulai dan gambar hilang dan Suara Hilang🙂.. Nah itulah yang bisa saya jawab untuk pertanyaan listing kode delphi yang pertama masuk kesaya ini hehehehe.

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 downloa di bawa ini ya🙂, jangan lupa extrack foldernya di direktori C:\ dan nanti jalankan untuk file .exe nya.

Download Delphi – Play Sound Wave

Tetep Simak Terus EkoEriyanah Personal Blog Ya Kawan, nanti kita akan membaha materi materi pembelajaran delphi lainnya, Untuk Temen Temen yang sudah biasa mengungjungi Catatan Eko mohon maaf saya akan mengalihkan pembelajaran materi materi delphi diblog saya ini saja agar lebih fokus dan terawat dengan bak ya hehehehe, See You Next Time Kawan, Pye Pye.

***

_______________________________________________________________________________

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

–          Materi 34 – Delphi – Timer Hitung Mundur untuk Games

–          Materi 33 – Delphi – Karakter Angka Saja Pad Edit Box

–          Materi 32 – Delphi – Fungsi Enter Pada Edit Box

______________________________________________________________________________

7 thoughts on “Delphi Request – Play Sound Wave

  1. Mantep bnget blog nya jadi tambah ilmu…Mas Eko share tentang cara buat sistem kepegawain dong ??

  2. Keren, tapi mau nanya kak, bisa gak, 2 musik terputar bersamaan.. jd button1 sm button2 kalo di klik sama2 bunyinya. soalnya skrg, kalo aku klik button1 itu suaranya bunyi tp pas ngeklik button2, eh musik button1 mati, dilanjut button2. mohon jawabannya. makasih

  3. om itu klo tutorialnya di buatin pdf bisa g masak cmn ampe materi 8, tak copy gambarnya g mau ikut.. makasih

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