Selasa, 27 Januari 2015

Cara Membuat Pemutar Musik MP3 Player Sendiri Dengan Delphi 7

Kali ini saya mau berbagi seputar Cara Membuat Pemutar Musik MP3 Player Sendiri Dengan Delphi 7 ok sebelum saya mulai ketutorialnya mungkin anda membutuhkan alphaskin terbaru 2015 bisa anda comot dan ambil DISINI oke tanpa panjang lebar lagi untuk membuat musik video player buatan sendiri bisa anda lakukan dibawah ini dan silahkan disimak langsung saja:

Baca Juga: Cara Membuat Payload Injek Bugs All Operator Terbaru 2015

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.

Cara Membuat Player di blog

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.

Cara pasang musik di blog

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.

Cara Pasang Musik Player di blog

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

Cara Bikin Musik Video Terbaru 2015

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;

Cara Panduan lengkap Borland delphi 7 8 9

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;
bahasa programer winsock terbaru 2015

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;

Pasang player musik di blog sendiri

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;

tutorial bikin musik player delphi basic

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.

cara buat blog delphi

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

kumpulan delphi borland terbaru 2016

 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.

Baca Juga Tutorial Delphi lainnya: Cara Membuat Web Browser Sendiri With Delphi 7