Arabic Korean Japanese Chinese Simplified English French German Spain Italian
Browser Support

COLECTION PHOTO

colek

ADAM BROW

BELAJAR DI DUNIA MAYA seperti DUNIA DA DITANGAN KITA belajarlah di blog ni. slamat mencoba

Jumat, 22 Januari 2010

MP3 PLAYER MENGGUNAKAN DHELPHI

MP3 PLAYER MENGGUNAKAN DHELPHI

Sore ini saya ingin share mengenai pembuatan MP3 Player menggunakan Borland Delphi. Disini saya menggunakan Borland Delphi 7. Seperti apa MP3 Playernya. Seperti ini kurang lebih



Sederhana namun tidak memakan memory yang cukup besar, bekerja sesuai fungsinya, meski sederhana namun dapat bekerja dengan baik layaknya pemutar MP3 lainnya. Mau belajar cara membuatnya. Sangat mudah yang pertama kita siapkan 1 buah Form. Kemudian pada componen System ada media player seperti ini gambarnya
Media player dipilih kemudian tempatkan di Form. Pada componen Dialogs pilih OpenDialog . Pada componen Win32 pilih objek XPMainFest seperti in i . Kemudian di componen System pilih Timer . Di standar pilih Button dan tempatkan di Form. Dan terakhir pilih componen System, kemudian tempatkan Progress Bar di form . Tempatkan semua componen dalam 1 form, kurang lebih tampilannya nanti akan seperti ini.


Sekarang di form pilih objek Media Player kemudian atur Property nya. Di property Visible Button ganti menjadi False pada btNext, btPrev, btEject, btRecord. Yang lainnya True.
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.


Caption di button tuliskan music mp3 atau terserah sesuai keinginan Anda.
Tambahkan variable global seperti ini di bawah var

Mp3Path: string;
paused: Boolean;

jadi nanti hasilnya kan seperti ini
var
Form1: TForm1; //disini saya menggunakan nama Form1
Mp3Path: string;
paused: Boolean;

Sekarang kembali ke Form kemudian double click Form nya, lalu kita masukkan kode ini pada procedure TForm1.FormCreate(Sender: TObject);

paused:=false;
MediaPlayer1.Enabled:=False;
Form1.Height:=115;
Form1.Width:=435;
Form1.Top:=(Screen.Height-Form1.Height)div 2;
Form1.Left:=(Screen.Width-Form1.Width)div 2;

Kembali ke Form, lalu sekarang double click pada Media Player, masukkan code pada procedure 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;

Kembali ke Form lalu double click pada objek Timer, tambahkan code ini pada 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;

Sekarang pada Button klik 2x kemudian tambahkan source kode ini pada 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;

Selesai dan jalankan dengan menekan F9. Kini Anda punya pemutar MP3 buatan sendiri ^_^

diposkan oleh ADAM abraham

Tidak ada komentar:

Poskan Komentar

  © Blogger templates The Professional Template by Ourblogtemplates.com 2008

Back to TOP