Cara Membuat Aplikasi Pemutar Musik Menggunakan Delphi7

Haloo gayas berjumpa lagi dengan saya belajar program kali ini saya mau shere giman sih caraya membuat aplikais pemutar musik menggunakan delphi7 oke di simak baik baik ya gan

1. Langkah pertama pastinya buka dulu DELPHI anda lalu silahkan sipakan dulu komponennya diantaranya: 1 form, 1 Media player (ada di system), 1 Button (ada di standard), 1 open dialog (ada di dialogs), 1 progres bar (ada di win32), 1 timer (ada di system), 1 xp manifest(ada di win32) kalau sudah siap semuanya langsung meluncur ke nomer 2 dibawah.

2. Langkah kedua klik media playernya pada object inspector > properties perhatikan gambar dibawah ini yang saya kasih garis kotak setingannya samakan saja, true > true > true > true > false > false > true > false > false pasti kelihatan dibawah.

3. Pada langkah yang ketiga silahkan buka open dialognya, buka pada filter seperti gambar dibawah ini samakan saja, file name= MPEG Audio Files, Filter isi= *.wav;*.mp3;*.mid;*.midi;*.wma lalu klik ok.

4. Pada langkah yang keempat silahkan kode Mp3Path: string;  paused: Boolean; samakan saja seperti dibawah saja.

5. Pada langkah yang kelima masukan kode dibawh ini seperti gambar dibawah saja, caranya klik formnya.

paused:=false;
MediaPlayer1.Enabled:=False;
Form1.Height:=150; // silahkan atur secara manual untuk tingginya
Form1.Width:=240; // silahkan atur secara manual untuk tingginya
Form1.Top:=(Screen.Height-Form1.Height)div 2;
Form1.Left:=(Screen.Width-Form1.Width)div 2;
end;

6. Pada langkah yang keenam lalu masukan kode dibawah ini seperti gambar dibawah saja, caranya double klik media playernya di form..

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;

7. Pada langkah yang ketujuh, masukan kode dibawah ini kaya digambar saja, caranya double klik timernya.

 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;

8. Pada langkah yang kedelapan masukan kode dibawah ini kaya gambar dibawah saja, caranya double klik buttonnya.

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;

9. Langkah yang kesembilan silahkan klik f9 atau run dulu apakah ada yang error kalau sukses silahkan ganti backgroundnya caranya bisa anda perhatikan kaya gambar dibawah saja.

10. Dan dibawah ini adalah contoh sederhana jadinya dan lumayan cukup ringan sekali gak memakan spek cpu anda.

 Dan cukup hanya itu saja tips seputar Cara Membuat Pemutar Musik MP3 Video Player Sendiri Dengan Delphi 7 semoga bermanfaat dan dapat membantu terima kasih.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Cara Membuat Aplikasi Pemutar Musik Menggunakan Delphi7. Berlangganan melalui email sekarang juga:

dzulCYBER