Membuat Aplikasi MP3 Sendiri Dengan Delphi

 Langsung saja langkah-langkah membuat aplikasi pemutar sendiri menggunakan BDE, langkah-langkahnya :

1. Buka Borland Delphi 
2. Buat sebuah form lalu masukkan komponen sbb :

• 1 buah Edit
• 1 buah OpenDialog
• 1 buah Mp3Player
• 2 buah button
• 1 buah ProgressBar
• 1 buah ListBox
• 1 buah Timer

Tampilannya sbb:

Masukkan Code Program sbb :

• Masukkan pada Button Open :

procedure TF_Mp3.Button1Click(Sender: TObject);
begin
if OpenDialog2.Execute then
begin
edit2.Text:=opendialog2.FileName;
ListBox1.Items:=OpenDialog2.Files;
end;
Progress.Max:=0;
Mp3Player.Close;
Mp3Player.FileName:=edit2.Text;
MP3Player.Open;
Progress.Max:=Mp3Player.Length;
end;

• Masukkan pada Timer :

 procedure TF_Mp3.Timer1Timer(Sender: TObject);
begin
if Progress.Max<>0 then
Progress.Position:=Mp3Player.Position;
end;

• Klik 2x pada form :

procedure TF_Mp3.FormCreate(Sender: TObject);
begin
Progress.Position:=0;
end;

• Pada ListBox :

procedure TF_Mp3.ListBox1Click(Sender: TObject);
begin
mp3Player.Play;
end;

• Pada Button Close :

procedure TF_Mp3.BitBtn1Click(Sender: TObject);
begin
Close;
end;

Selesai jalankan program :


Untuk Download Program sederhananya klik disini. Semoga bermanfaat.