pertemuan keenam

 cara membuat pemutar musik sederhana dengan delphi.

Kita mulai saja langkah-langkah atau cara untuk membuat pemutar musik yang sangat sederhana ini:

1. Buka aplikasi Delphi dan buatlah satu Form Baru (Form 1).
2. Menyiapkan kebutuhan Komponen yang akan dipakai:

• Komponen Button ( pada halaman Tab Standard, sebanyak 1 buah)
• Komponen MediaPlayer ( pada halaman Tab System, sebanyak 1 buah)
• Komponen ProgressBar ( pada halaman Tab Win32, sebanyak 1 buah)
• Komponen Timer ( pada halaman Tab System, sebanyak 1 buah)
• Komponen OpenDialog (pada halaman Tab Dialogs, sebanyak 1 buah)

Semua komponen diletakkan dalam sebuah form, untuk peletakannya sesuai dengan selera masing-masing. Jika semua komponen sudah lengkap, kira-kira seperti ini tampilannya :

Tampilan Awal Pemutar Musik

3. Klik pada Form1. Ada beberapa properties yang perlu kita ubah. Langsung menuju object inspector :

Properties	Yang diubah
Caption	PemutarMusiksederhana
Color	clPurple

4. Kemudian kita klik dan aturlah untuk Komponen Button1 sebagai berikut:

Properties	Yang diubah
Caption	&Buka file MP3….

5. Klik pada Komponen MediaPlayer1 dan atur pula untuk Komponen MediaPlayer1 sebagai berikut:

Properties	Yang diubah
VisibleButton	Beri nilai false pada (btNext, vtPrev, btRecord, dan btEject)

 

Klik pada Komponen OpenDialog1 dan isikan properties pada filter dan isikan pada filter editornya. Lihat gambar dibawah.

Kemudian pilih OK. Sekedar memberitahukan setelah melalui beberapa tahapan, tampilan akan menjadi seperti di bawah.

Bagaimana, temans? . Yuuuuuk, kita lanjut dan ke codingnya.

7. Sebelum masuk coding, terlebih dahulu kita kenalkan untuk variablenya pada Om Delphiano. Variable yang dipakai:

1	Mp3Path: String;

2	Paused: Boolean;

Tentunya sudah tau kan, mengapa saya deklarasi variablenya seperti di atas? Jika ingin belajar tentang variable pada Delphi, bisa dibara pada catatan yang ini.

8. Setelah mengenalkan variabel, sekarang kita dobel klik pada Form1 dan tulis kode dibawah:

1	procedure TForm1.FormCreate(Sender: TObject);

2

3

begin

4	paused:=false;

5	MediaPlayer1.Enabled:=False;

6	Form1.Top:=(Screen.Height-Form1.Height)div 2;

7	Form1.Left:=(Screen.Width-Form1.Width)div 2;

8

end;

9. Arahkan kursor pada komponen MediaPlayer1, dobel klik dan tulis kode sperti dibawah:

view sourceprint?

01	procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;

02	var DoDefault: Boolean);

03

begin

04	if Button = btStop then

05

begin

06	MediaPlayer1.Position:=0;

07	ProgressBar1.Position:=0;

08

end

09	else if Button = btStep then

10

begin

11	if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length) then

12	MediaPlayer1.Position:=MediaPlayer1.Position+5000

13

else

14

begin

15	MediaPlayer1.Position:=0;

16	ProgressBar1.Position:=0;

17

end;

18	MediaPlayer1.Play;

19

end

20	else if Button = btBack then

21

begin

22	if ((MediaPlayer1.Position-5000)>0) then

23	MediaPlayer1.Position:=MediaPlayer1.Position-5000

24

else

25	MediaPlayer1.Position:=0;

26	MediaPlayer1.Play;

27

end;

28

29

end;

 1. Dobel klik pada Timer1 dan tulis kode berikut:

01	procedure TForm1.Timer1Timer(Sender: TObject);

02

begin

03	if MediaPlayer1.Enabled then

04

begin

05	ProgressBar1.Position:=MediaPlayer1.Position;

06	if ProgressBar1.Position=MediaPlayer1.Length then

07

begin

08	MediaPlayer1.Stop;

09	ProgressBar1.Position:=0;

10	MediaPlayer1.Close;

11	MediaPlayer1.Enabled:=true;

12	MediaPlayer1.FileName:=Mp3Path;

13	MediaPlayer1.Open;

14	MediaPlayer1.Position:=0;

15	ProgressBar1.Max:=MediaPlayer1.Length;

16	ProgressBar1.Min:=0;

17

end;

18

end;

19

end;

12. Maaf, ada yang lupa, tolong tambahin 1 Button lagi, Button ini berfungsi untuk menutup atau keluar dari aplikasi? ubahlah untuk propertiesnya:

Properties	Yang diubah
Caption	&Keluar

Sisipkan kode di bawah untuk Button Keluar:

1	procedure TForm1.Button2Click(Sender: TObject);

2

begin

3

close;

4

end;

5

end.

Button Keluar merupakan komponen terakhir cara membuat pemutar musik sederhana dengan delphi. Sedangkan Codingnya cukup sampai di sini. Jangan lupa disimpan untuk semua yang sudah dibuat. Untuk projectnya disimpan dengan nama PMusik dan untuk Unitnya disimpan dengan nama UMusik. Baiklah, setelah semua disimpan sekarang saatnya menjalankan aplikasi dengan menekan tombol RUN yang ada pada menubar atau menekan tombol F9 pada keyboard. Dengan mengikuti langkah-langkah cara membuat pemutar musik sederhana dengan delphi, akan menghasilkan Pemutar Musik sederhana seperti di bawah ini:

• Buka File MP3 yang akan di putar dengan cara, klik pada tombol Buka File MP3.

• Pilih salah satu MP3 yang akan diputar.

• Nikmatilah lagu yang sudah dipilih. . .

Ini saya sedang mendengarkan lagu dari pemutar musik yang baru dibuat. Memang masih sederhana aplikasi ini, aplikasi sederhana ini saya namai VINCERIS.