Beranda » Algoritma » Media Player MP3

Media Player MP3

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

Blog Stats

  • 201,058 hits

Tamu

free counters

Traffic

Google PageRank Checker

MDL-07

Pendahuluan

Sebuah media player tentunya harus dapat memilih file sesuai dengan keinginan pengguna. Aplikasi yang akan dibuat ini menggunakan komponen Media Player, komponen Edit untuk menampilkan lokasi file, komponen Button, dan komponen OpenDialog untuk menampilkan fitur explorer seperti pada Windows. Komponen OpenDialog disimpan di Componen Palette pada tab Dialogs.

cpopendialog.jpeg

Langkah kerja

1. Letakkan satu komponen MediaPlayer1, Edit1, DialogBox1 yang terdapat di Componen Palette pada tab Dialogs dan 4 buah komponen Button pada Form1. Lakukan perubahan properties Caption komponen Button 1 sampai dengan 4 sehingga tampak seperti yang terlihat pada gambar di bawah ini .

bentuk-form.jpg

2. Klik dua kali pada komponen Button1 kemudian ketikan listing program berikut!

procedure TForm1.Button1Click(Sender: TObject);

begin

OpenDialog1.FileName:=’*.mp3′;

Opendialog1.Execute;

Edit1.Text:=Opendialog1.FileName;

end;

3. Tekan F12 untuk kembali ke mode Form dan klik dua kali pada komponen Button2 dan ketik listing program berkut ini !

procedure TForm1.Button2Click(Sender: TObject);

begin

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

MediaPlayer1.Play;

end;

4. Tekan F12 untuk kembali ke mode Form dan klik dua kali pada komponen Button3 dan ketik listing program berkut ini !

procedure TForm1.Button3Click(Sender: TObject);

begin

MediaPlayer1.Stop;

end;

5. Tekan F12 untuk kembali ke mode Form dan klik dua kali pada komponen Button4 dan ketik listing program berkut ini !

procedure TForm1.Button4Click(Sender: TObject);

begin

Application.Terminate;

end;

6. Jalan program tersebut dengan menekan tombol F9 pada keyboard atau klik Run à Run pada menu bar.

Penjelasan listing program

OpenDialog1.FileName:=’*.mp3′;

Komponen OpenDialog1 diseting untuk menyortir file supaya hanya file yang ber-ekstension mp3 saja yang ditampilkan.

Opendialog1.Execute;

Pemanggilan windows OpenDialog1.

Edit1.Text:=Opendialog1.FileName;

Menampilkan alamat directori file yang diakses pada komponen Edit1.

MediaPlayer1.FileName:=OpenDialog1.FileName;

File yang akan dieksekusi atau diplay oleh MediaPlayer1 diambil atau sama dengan file yang dieksekusi pada OpenDialog1.

MediaPlayer1.Open;

Komponen MediaPlayer1 diaktifkan.

MediaPlayer1.Play;

Perintah untuk komponen MediaPlayer1 agar melakukan play pada file audio.

MediaPlayer1.Stop;

Perintah untuk komponen MediaPlayer1 agar berhenti memainkan file audio.

Application.Terminate;

Keluar dari program yang sedang aktif.

Tugas

Buatlah program untuk memainkan file audio dan video sehingga kalian dapat membuat program VCD Player sendiri.


9 Komentar

  1. Ade I H mengatakan:

    Pak, bisa ngak kalau membuat komplemen di delphi?

    @Ade I H
    Komplemen dlm digital maksudnya ? Bisa…😎

  2. hackinds mengatakan:

    kalo buat baca file video gimana ???

  3. John mengatakan:

    good article!

  4. aji hilman fauzi mengatakan:

    artikel’a bgus pa🙂

    tpi tingkatkan lgi pa .

  5. ensustisa mengatakan:

    Wow, kinda fantastic topic. I’m goin to blog about it likewise!!

  6. dwi mengatakan:

    wah simpel pak. bgus bget

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

%d blogger menyukai ini: