Silahkan Agan Siapkan Komponen nya Seperti Di Bawah:
- 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
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
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
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
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
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
Nah Mudahkan Jika agan Ngga Mau Ribet Download Ajah
copy kan setelah panah ke browser