Cara Membuat Pemutar Musik Sederhana Dengan Delphi

Salam Senyuum untuk semua sahabat Osaya. Perkenalkan, saya adalah jumran asal Indonesia  dan tinggal di rumah yang bertembok Biru dan Pink. :lol: Pertama, aku mau minta maaf dulu sama Tante Cantik dan Om Ganteng, karena baru bisa ikut berbagi di blog yang sumringah ini. Selanjutnya, pada sore hari ini ijinkan saya untuk ikut berbagi dalam membuat pemutar musik sederhana dengan Delphi.

Cara membuat pemutar musik sederhana dengan delphi. Pemutar musik ini adalah aplikasi yang digunakan untuk memutar musik. :D . Saya yakin, sebagian besar sahabat Om Irfan setiap harinya menggunakan pemutar musik walaupun hanya sekedar untuk memutar lagu keroncong atau gendingan. :lol: Ada beberapa aplikasi pemutar musik yang cukup terkenal antara lain: Winamp, AIMP, JetAudio,WinMediaPlayer dll.

Sejauh ini, mau tidak mau kita semua hanya diposisikan sebagai user saja, bahkan mungkin sebagian orang tidak ingin tahu bagaimana cara membuat aplikasi tersebut. Dengan ilmu yang masih sederhana, saya pun ingin mengajak teman-teman untuk belajar bersama dalam membuat pemutar musik yang sangat sederhana. Saya hanya ingin mencobanya saja dan masih menggunakan coding serta logika yang  sederhana.

Pemutar yang akan dibuat hanya bisa untuk memutar satu buah lagu saja, maklum ya temans karena jika saya share layaknya aplikasi winamp, saya yakin pembaca akan merasa bosan dan lari terbirit-birit karena Delphi. Untuk itu, di sini kita belajar untuk yang sederhana-sederhana saja, mari bersama-sama belajar 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. :P Jika semua komponen sudah lengkap, kira-kira seperti ini tampilannya :

Tampilan Awal Pemutar Musik

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

Tampilan Object Inspetor Form1

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)

Tampilan Visible Button

Dengan kita memberi nilai false pada VisibleButon tertentu diatas maka secara otomatis VisibleButton yang kita beri nilai false tidak terlihat lagi pada tampilan. Karena Button yang kita butuhkan hanya beberapa saja.

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

 Filter Editor Delphi

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

Tampilan Pemutar Musik  Setelah diedit

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:

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;

10.Dobel klik pada Button1 (Buka file MP3. . .) dan tulis kode dibawah:

01 procedure TForm1.Button1Click(Sender: TObject);
02 begin
03 if OpenDialog1.Execute then
04 begin
05   Mp3Path:=OpenDialog1.FileName;
06   with MediaPlayer1 do
07 begin
08   Enabled:=true;
09   FileName:=Mp3Path;
10   Open;
11   Position:=0;
12   Play;
13 end;
14   ProgressBar1.Max:=MediaPlayer1.Length;
15   ProgressBar1.Min:=0;
16 end;
17
18 end;

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

Buka File MP3

  • Pilih salah satu MP3 yang akan diputar. ;)

Plih Lagu

  • Nikmatilah lagu yang sudah dipilih. . . :lol:

Uji Aplikasi Pemutar Musik

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

Kalau ada yang ingin belajar atau sekedar ingin tahu persis penempatan kode cara membuat pemutar musik sederhana dengan delphi bisa contac saya disini. #numpang promosi ya, Om. :P Sampai di sini dulu belajar bersamanya temans, lain waktu kita belajar bareng lagi dan pastinya masih menggunakan Delphi. :) .

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s