Cara Membuat Pemutar MP3 Sederhana Dengan Delphi 7

Tags
Jumpa kembali di dunia coding delphi 7, kali ini saya akan berbagi Cara Membuat Pemutar MP3 Sederhana Dengan Delphi 7, walau sipatnya hanya pembelajaran saja, tapi apa salahnya kalau dikembangkan lagi lebih jauh maka dari aplikasi yang sangat sederhana ini bisa menjadi sebuah aplikasi yang mampu bersaing dengan aplikasi-aplikasi pemutar mp3 berbayar.

Komponen yang di perlukan untuk membuat aplikasi ini adalah:
  • 1 buah media player ada di palet system
  • 1 buah open dialog ada di palet dialog
  • 1 buah timer ada di palet system
  • 1 buah xp manifest ada di palet win32
  • 1 buah button ada di palet standart
  • 1 buah progress bar ada di palet win32
Susunan komponen nya kurang lebih seperti pada gambar dibawah ini

Cara Membuat Pemutar MP3 Sederhana Dengan Delphi 7

Sekarang kita lanjut ketahap penyusunan komponen agar terlihat lebih menarik. Pertama klik pada media player lalu arahkan mose pada objekct inspector, cari tulisan Visiblebuttons, lalu sesuaikan visibilitasnya sebagai berikut: btPlay : true btPause : true btStop : true btNext : true btPrev : false btStep : false btBack : true btRecord : false btEject : false Atau agar lebih jelas perhatikan gambar berikut lalu sesuaikan

Cara Membuat Pemutar MP3 Sederhana Dengan Delphi 7

Sekarang kita susun lagi komponen-komponen nya agar lebih rapih dan menarik, untuk form nya kita beri nama MP3 Player, untuk button1 kita beri nama Open MP3, untuk lebih jelasnya perhatikan gambar berikut

Cara Membuat Pemutar MP3 Sederhana Dengan Delphi 7

Sekarang kita masuk ke tahap pengcodingan, tahap yang paling penting dalam pembuatan sebuah program. Pertama perhatikan code di bawah var lalu masukan code berikut:

Mp3Path : string; paused : boolean;

Atau agar lebih jelas perhatikan gambar dibawah ini

Cara Membuat Pemutar MP3 Sederhana Dengan Delphi 7

Langkah selanjutnya mengatur tata letak dan ukuran form, doble klik pada form1 lalu masukan coding berikut:

procedure TForm1.FormCreate(Sender: TObject);
begin
paused:=false;
MediaPlayer1.Enabled:=False;
Form1.Top:=(Screen.Height-Form1.Height)div 2;
Form1.Left:=(Screen.Width-Form1.Width)div 2;
end;

Langkah selanjutnya doble klik pada media player nya lalu masukan coding berikut:

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);
begin if Button = btStop then begin MediaPlayer1.Position:=0;
ProgressBar1.Position:=0;
end else if Button = btStep then begin if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length)
then MediaPlayer1.Position:=MediaPlayer1.Position+5000
else begin MediaPlayer1.Position:=0;
ProgressBar1.Position:=0;
end;

MediaPlayer1.Play;end else if Button = btBack then begin if ((MediaPlayer1.Position-5000)>0) then MediaPlayer1.Position:=MediaPlayer1.Position-5000 else MediaPlayer1.Position:=0; MediaPlayer1.Play;
end;
end;

Langkah selanjutnya doble klik pada Timer1 lalu masukan coding berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin if MediaPlayer1.Enabled then begin
ProgressBar1.Position:=MediaPlayer1.Position;
if ProgressBar1.Position=MediaPlayer1.Length then begin MediaPlayer1.Stop; ProgressBar1.Position:=0; MediaPlayer1.Close;
MediaPlayer1.Enabled:=true;
MediaPlayer1.FileName:=Mp3Path;
MediaPlayer1.Open; MediaPlayer1.Position:=0;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;
end;
end;

Langkah selanjutnya klik pada OpenDialog dan arahkan mose ke Object Inspector lalu klik di bagian filter maka akan muncul dialog Filter Editor, di bagian Filter Name isi dengan MPEG Audio File, dan di bagian Filter kita isi dengan *.wav;*.mp3;*.mid;*.midi;*.wma lalu OK. Agar Lebih jelas perhatikan gambar berikut

Cara Membuat Pemutar MP3 Sederhana Dengan Delphi 7

Langkah selanjutnya doble klik pada Button1 atau Open MP3 lalu masukan coding berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin if OpenDialog1.Execute then begin Mp3Path:=OpenDialog1.FileName;
with MediaPlayer1 do begin Enabled:=true;
FileName:=Mp3Path;
Open; Position:=0;
Play;
end;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;
end;

Harap di perhatikan setiap coding yang saya tulis dengan hurup miring berarti itu yang harus dimasukan, sementara yang saya tulis dengan hurup tegak berarti itu sudah ada pada defaultnya Sekarang coba jalankan dengan menekan F9 dan kalau terjadi eror silahkan cek kembali pengcodingannya. Apabila anda tertarik untuk mencobanya, silahkan download Source Code MP3 Player dan silahkan kembangkan agar menjadi lebih sempurna

Catatan penting: walaupun anda sudah menulis coding di notpade, selalu biasakan menulis coding secara langsung agar tangan anda semakin trampil.

Related Post:

2 komentar

Mas mp3kan cuma mutar. Kalau masukin mp3 k dlam folder mp3 kita bisa gax ya

Misal input data + favorit musik.
Jdi pada saat di buka data langsung otomatis idup lagunya

Komentar ini telah dihapus oleh pengarang.

Silahkan berkomentar dengan sopan dan tidak meninggalkan link aktip.

Terima Kasih.

EmoticonEmoticon