Play Sound Wave Di Delphi

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

01

</pre>

02	procedure TForm1.Timer1Timer(Sender: TObject);

03

var

04	a:integer;

05

begin

06	a:=strtoint(edit_a.Text);

07

a:=a+2;

08	edit_a.Text:=inttostr(a);

09

10	if a>100 then

11

begin

12	button_mulai.Caption:='Mulai';

13	timer1.Enabled:=false;

14	timer_kodok.Enabled:=false;

15	timer_ayam.Enabled:=false;

16	sndPlaySound(nil, 0); // Stops the sound

17	edit_a.Text:='0';

18

19	image1.Picture:=nil;

20	label_suara.Caption:='ini adalah Suara ???? ~ ~ ~'

21

end

22	else if a>50 then

23

begin

24	label_suara.Caption:='ini adalah Suara Kodok ~ ~ ~';

25	image1.Picture.LoadFromFile('C:\main_suara_wat\picture\kodok.bmp');

26	timer_ayam.Enabled:=false;

27	timer_kodok.Enabled:=true;

28

end

29

else

30

begin

31	label_suara.Caption:='ini adalah Suara Ayam ~ ~ ~';

32	image1.Picture.LoadFromFile('C:\main_suara_wat\picture\ayam.bmp');

33	timer_ayam.Enabled:=true;

34	timer_kodok.Enabled:=false;

35

end;

36

37

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  .

01	procedure TForm1.button_mulaiClick(Sender: TObject);

02

begin

03

04	if button_mulai.Caption='Mulai' then

05

begin

06	button_mulai.Caption:='Stop';

07	timer1.Enabled:=true;

08	timer_ayam.Enabled:=false;

09	timer_kodok.Enabled:=false;

10

end

11

else

12

begin

13	button_mulai.Caption:='Mulai';

14	timer1.Enabled:=false;

15	timer_ayam.Enabled:=false;

16	timer_kodok.Enabled:=false;

17	sndPlaySound(nil, 0); // Stops the sound

18	edit_a.Text:='0';

19	image1.Picture:=nil;

20	label_suara.Caption:='ini adalah Suara ???? ~ ~ ~'

21

end;

22

23

end;

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

1	procedure TForm1.timer_ayamTimer(Sender: TObject);

2

begin

3

4	sndPlaySound('C:\on_request\sound\ayam.wav', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);

5	timer_ayam.Enabled:=false;

6

7

end;

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

1	procedure TForm1.Timer_kodokTimer(Sender: TObject);

2

begin

3	sndPlaySound('C:\on_request\sound\kodok.wav', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);

4	timer_kodok.Enabled:=false;

5

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