Friday, 28 April 2017T4/28/2017 09:57:00 pm

Cara Membuat Pemutar Music Mp3 Sendiri Menggunakan Delphi

Salam blogger……pada artikel kali ini saya akan share cara membuat pemutar music atau lagu dengan Delphi. Membuat sebuah program atau aplikasi di Delphi tidak lah sesulit yang sobat bayangkan, yang terpenting sobat dapat memahami alur dari sebuah program yang akan sobat buat. Nah pada kesempatan kali ini saya akan berbagi tutorial cara membuat pemutar music dengan menggunakan Delphi. Sobat tentunya sudah sering menggunakan aplikasi pemutar music, karena disetiap komputer / pc pastilah memiliki aplikasi tersebut. Banyak aplikasi music yang sudah sering digunakan contoh nya winamp dan lain sebagainya.

Nah kali ini kita akan mencoba membuat aplikasi music sendiri dengan menggunakan Delphi, disini kita akan mencoba membuat aplikasi music yang fungsinya hampir sama dengan aplikasi pemutar music lainnya. Disini saya membuat nya dengan menggunkan Delphi XE 8, sobat dapat membuatnya di Delphi versi apa saya sesuai dengan versi Delphi yang sobat pakai, misalnya Delphi 7, Delphi 2010 ataupun Delphi versi terbaru lainnya. Komponen yang saya gunakan pun komponen yang sudah tersedia didelphi, mungkin untuk memperindah tampilan sobat dapat menggunakan komponen alpha skin jika sobat memilikinya, jika tidak juga tidak apa – apa.

Untuk mempersingkat waktu saya akan mulai saja memberikan tutorial tentang cara membuat aplikasi pemutar music ini.

Adapun langkah – langkah pembuatannya adalah sebagai berikut :

1. Buat sebuah project baru di Delphi sobat dengan cara pilih File > New > Vcl Form Application.

2. Lalu selanjutnya pada form1 atur propertiesnya, position = poDesktopCenter

3. Lalu selanjutnya tambahkan 2 buah panel dengan pengaturan properties nya seperti di bawah ini :

  • Panel1 > align = alTop
  • Panel2 > align = alBottom

4. Selanjutnya pada panel1 tambahkan komponen dibawah ini:

  • sbitbtn1 > caption = Audio player
  • label2 > caption = Volume
  • strackbar1 > position = 10
  • sCheckbox1 > caption = mute

5. Langkah selanjutnya pada panel2 tambahkan komponen berikut ini :

  • DriveCombobox1 > Dirlist = Directorylistbox1
  • Directorylistbox1 > fileList = FileListBox1
  • Filtercombobox1 > FileList = FileListbox1, Filter = Mp3 file (*.Mp3)|*.Mp3|Midi file (*.Midi)|*.Midi|Wave file (*.Waf)|*.Waf|All files (*.*)|*.*
  • FileListbox1
  • MediaPlayer1
  • Panel3 > align = Albottom
  • Letakan Label1 ke dalam panel3 > Caption = Silahkan pilih playlist
  • sProgresbar1 > align = Albottom
  • Timer1 > Interval = 10
Sampai disini langkah pembuatan form nya sudah selesai, adapun tampilan form yang sudah kita buat akan terlihat pada gambar dibawah ini.
Jika sudah sekarang kita tinggal membuat coding program nya, fungsi coding program ini adalah untuk menjalankan program yang kita buat.

Langkah – langkah nya adalah sebagai berikut :

1. Selanjutnya Klik 2x pada sBitbtn1 lalu masukan coding program berikut :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
panel2.Show;
end;

2. lalu klik pada sTrackbar1 lalu pada Object Inspector pilih events lalu pilih OnChange dan masukkan coding program berikut :

procedure TForm1.sTrackBar1Change(Sender: TObject);
begin
Case strackbar1.Position of
1: waveOutSetVolume(0,$00000000);
2: waveOutSetVolume(0,$10001000);
3: waveOutSetVolume(0,$20002000);
4: waveOutSetVolume(0,$30003000);
5: waveOutSetVolume(0,$40004000);
6: waveOutSetVolume(0,$50005000);
7: waveOutSetVolume(0,$60006000);
8: waveOutSetVolume(0,$70007000);
9: waveOutSetVolume(0,$80008000);
10:waveOutSetVolume(0,$90009000);
11:waveOutSetVolume(0,$A000A000);
12:waveOutSetVolume(0,$B000B000);
13:waveOutSetVolume(0,$C000C000);
14:waveOutSetVolume(0,$D000D000);
15:waveOutSetVolume(0,$E000E000);
16:waveOutSetVolume(0,$F000F000);
17:waveOutSetVolume(0,$FF00FF00);
18:waveOutSetVolume(0,$FFF0FFF0);
19:waveOutSetVolume(0,$FFFFFFFF);
20:waveOutSetVolume(0,$FFFFFFFF);
end;
end;

3. Selanjutnya pada sCheckbox1 klik 2x dan masukan coding program berikut :

procedure TForm1.sCheckBox1Click(Sender: TObject);
begin
if scheckbox1.Checked=true then
begin
  strackbar1.Position:=waveOutSetVolume(0,$00000000);
  end
  else
  begin
  strackbar1.Position:=waveOutSetVolume(0,$FFFFFFFF);
end;
end;

4. Lalu klik pada FileListBox1 lalu pada Object Inspector pilih events lalu pilih OnClick dan masukkan coding program berikut :

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
mediaPlayer1.FileName:=FileListBox1.FileName;
mediaPlayer1.Open;
Label1.Caption:=FileListBox1.FileName;
sprogressbar1.Max:=mediaPlayer1.Length;
mediaplayer1.Play;
end;

5. Lalu Selanjutnya pada timer1 klik 2x dan masukan coding program berikut :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Left<-label1 .width="" br="" then="">Label1.Left:=Panel3.Width
else
begin
Label1.Left:=Label1.Left - 1;
sprogressbar1.Position:=mediaplayer1.Position;
end;
end;

6. Lalu pada Form1 pilih Events lalu pilih OnShow dan masukan coding program berikut:

procedure TForm1.FormShow(Sender: TObject);
begin
panel2.Hide;
end;

7. Selanjutnya tambakan komponen sSkinManager1, lalu pilih skin yang akan sobat gunakan lalu pada object inspector pada active pilih true. (jika sobat menggunakan komponen alpha skin).

Sampai pada tahap ini program pemutar music yang kita buat sudah selesai, sekarang sobat tinggal menjalankan program nya dengan cara menekan F9/RUN, lalu pilih drive tempat sobat menyimpan folder music sobat, dan klik pada nama playlist yang sudah di tampilkan dan lihat hasilnya, adapun program yang saya buat tampilan nya dapat dilihat pada gambar dibawah ini.
Demikian Artikel saya kali ini tentang cara membuat aplikasi pemutar music dengan Delphi yang dapat saya bagikan kepada sobat semua kali ini semoga dapat bermanfaat, jika sobat ingin mencoba aplikasi yang saya buat, sobat dapat download aplikasinya pada link yang sudah saya sediakan, terima kasih sudah berkunjung di blog saya dan selamat mencoba, untuk contoh program delphi dan tutorial lainnya akan saya muat pada artikel selanjutnya.
Previous
Next Post »
2 Komentar untuk "Cara Membuat Pemutar Music Mp3 Sendiri Menggunakan Delphi"

semakin hari semakin jago saja mas main delphinya, kapan2 minta ajarin rahasianya aj mas biar cepet bisa

ga juga kang....saya juga pemula....boleh lah kapan2 klo akang ada waktu...hahahaha

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status