Membuat Mp3 Player Dengan Delphi

Hmmm, pagi2 dingin sambil minum susu, chat di fb n bangunin ayank, sekalian nulis blog dech. KaliMenjalankan Aplikasi Android di Windows. Read more ... » ini gue mau coba membuat aplikasi pemutar mp3 yangDAFTAR MAHASISWA PERBAIKAN DESAIN WEB. Read more ... » cukup sederhana. Dimana dalamCara mengatasai Cannot modify header PHP. Read more ... » pembuatannya kitaCara mengatasi Install DotNet 3.5 Windows 8. Read more ... » cukup memerlukan 5 komponen, yakni : 1 Button, 1 Mediaplayer, Progress bar, OpenDialog dan 1 Timer. Nah untukTrik Aman Berinternet I. Read more ... » pembuatannya, ikuti langkah berikut yow…

  • Buat tampilan seperti dibawah, (Yang kotak Putih diabaikan saja).
Interface awal

GUI Mp3 Sederhana

  • Kemudian klik 2 x pada Button “Buka File”, lalu ketikan berikut yah ..

if OpenDialog1.Execute then
begin
Mp3Path:=OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled:=true;
FileName:=Mp3Path;
Open;
Position:=0;
end;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;

  • Klik pada Mediaplayer1 dan atur seperti berikut :
Atur Objec Inspector

Objec Inspector

Kemudian klik 2x pada Mediaplayer1 dan ketikan berikut :

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;

  • Lagi Klik 2 x pada timer 1 dan ketikan berikut ini

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;

  • Terakhir cuy, klik 2 x pada Form1 dan ketikan berikut yah :

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

Berikut lo dah dijalanini :

Running

Running

Selesai deh, selamat mencoba yah…

Untuk program yang sudah jadi silahkan klik disini

By 1n53ct4

Posted in Delphi 7, Programing and tagged , , .