Membuat MP3 Player Sederhana Menggunakan Delphi 7 ( GAMBAR )

Membuat Mp3 sederhana susah susah gampang dan bekerja seperti mp3 biasanya namun fitur tidak terlalu lengkap dan tidak memakan memory yang cukup besar. INI hanya bisa lagu MP3 saja.

     Bahan - bahan  :

1 From

1 Media Player ( ada di System )

1 Open Dialogs ( ada di Dialogs )

1 XPMainFest ( ada di Win32 )

1 Timer ( ada di System )

1 Button ( ada di Standard )

1 Progress Bar ( ada di Win32 )

Langkah : 

1. Tempat kan bahan bahan tadi ke form

    2.   Sekarang di form Klik objek Media Player kemudian atur Property nya. Di property Visible Button ganti  menjadi False pada btNext, btPrev, btEject, btRecord. Yang lainnya True.

    3.   Di objek Open Dialog pada property Filter dipilih, kemudian tuliskan *.mp3 fungsinya yaitu kita akan membuka file music yang hanya berekstensi mp3 saja. Filter name tuliskan MPEG Audio Files.

    4.    Caption di button tuliskan Open mp3 atau terserah sesuai keinginan Anda.

    5.    Tambah kan ini dibawah var  :  Form1: TForm1;

Mp3Path: string;

paused: Boolean;

    6.    Sekarang kembali ke Form kemudian klik 2 kali di  Form nya, lalu kita masukkan kode ini pada dibawah procedure TForm1.FormCreate(Sender: TObject);

paused:=false;

MediaPlayer1.Enabled:=False;

Form1.Height:=115;                                             // Sesuai Tinggi From Anda

Form1.Width:=435;                                             // Sesuai Lebar From Anda

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

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

    7.     lalu sekarang double click pada Media Player, masukkan code pada procedure  di bawah TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);

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;

    8.     Kembali ke Form lalu double click pada objek Timer, tambahkan code ini dibawah  procedure TForm1.Timer1Timer(Sender: TObject);

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;

    9.    Sekarang pada Button klik 2x kemudian tambahkan source kode ini Dibawah procedure TForm1.Button1Click(Sender: TObject);

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;

    10.    Edit yang lain nya Sesuai keinginan anda

    11.    Klik run , lalu klik build project.

Download Hasil nya :

UC

Created by Foya

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email