Membuat Pemutar MP3 Sederhana

Saya sangat bernostalgia ketika menulis artikel ini. Program-program semacam ini pernah menjadi idola dan kesenangan saya mempelajari bahasa pemrograman saat itu. Maklum, jaman saya belajar komputer pertama kali, komputer masih jadul banget. Mendengar lagu lewat komputer itu membahagiakan sekali. Ini memang terasa menggelikan, karena sekarang multimedia sudah biasa di komputer bahkan telepon genggam sekalipun.

Okelah, saya lanjutkan. Ketika membuat program ini pertamakali, file-file musik yang bisa diputar cuma WAV, AVI dan MIDI. Tetapi saat ini saya sudah dapat memutar MP3 tanpa tambahan kode program apapun. Kesimpulannya, yang membuat program ini dapat memutar file adalah kemampuan Windows-nya. Program ini hanya merakit kemampuan Windows menjadi satu form saja.

Yuk, buat form seperti dibawah ini.

Form diatas terdiri dari TMediaPlayer, TButton, dan TOpenDialog. Sederhana, kan? Namanya juga pemutar MP3 Sederhana.

Klik tombol Pilih Lagu. Tulis kode program berikut:

  if OpenDialog1.Execute then
  begin
    MediaPlayer1.Filename := OpenDialog1.Filename;
    MediaPlayer1.Open;
  end;

Maksud program diatas adalah: jika OpenDialog dieksekusi, maka file pilihan pengguna diletakkan di property Filename milik TMediaPlayer dan mempersilahkan TMediaPlayer membukanya.

Kemudian ketikkan kode program dibawah ini pada bagian FormCreate. Maksud dari kode program ini adalah membuat default file ekstension yang aktif adalah MP3 dan menampilkan semua ekstensi file yang mungkin dijalankan TMediaPlayer kepada Pengguna program.

procedure TMainForm.FormCreate(Sender: TObject);

begin

   OpenDialog1.Filter := 'WAV files|*.WAV|AVI files|*.AVI|MIDI files|*.MID|MP3 files|*.MP3|';

   OpenDialog1.DefaultExt := '*.mp3';

   OpenDialog1.FilterIndex := 4;

end;

Untuk memutar lagu, Pengguna tinggal meng-klik tombol MediaPlayer yang bergambar seperti panah ke kanan.

Membuat Pemutar MP3 Sederhana 2018-05-24T09:42:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer