Pemutar MP3 Sederhana: Trackbar

Artikel ini adalah lanjutan dari artikel berjudul Membuat Pemutar MP3 Sederhana. Pada artikel ini, saya akan menambahkan trackbar yang berjalan dari permulaan lagu sampai lagu selesai, sehingga pengguna tahu sampai sebatas mana lagu berjalan.

Dibandingkan pada artikel sebelumnya, kita akan menambahkan TTimer dan Trackbar, seperti gambar berikut:

Logika pemrogramannya berjalan seperti ini. Ketika pengguna meng-klik tombol Play, bagian OnClick dari TMediaPlayer akan mendeteksinya, lantas memasukkan nilai min dan max dari Mediaplayer ke Trackbar. Trackbar akan menunjukkan pergerakan lagu yang diubah posisinya sesuai dengan program pada property OnTimer milik Timer1.

Pada OnClick milik MediaPlayer1, tambahkan kode berikut:

if button = btPlay then begin
trackbar1.Min := 0;
trackbar1.Max := Mediaplayer1.Length;
timer1.Enabled := TRUE;
end;

Saat Timer1 dibuat On, maka ia akan menjalankan program yang diketikkan pada OnTimer miliknya sendiri:

trackbar1.Position := MediaPlayer1.Position;

Program Selengkapnya:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, StdCtrls, ComCtrls, ExtCtrls;

type
  TMainForm = class(TForm)
    BtnOpen: TButton;
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    TrackBar1: TTrackBar;
    Timer1: TTimer;
    procedure BtnOpenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.BtnOpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.Filename := OpenDialog1.Filename;
    MediaPlayer1.Open;
  end;
end;

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;

procedure TMainForm.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
    if button = btPlay then begin
        trackbar1.Min := 0;
        trackbar1.Max := Mediaplayer1.Length;
        timer1.Enabled := TRUE;
    end;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  trackbar1.Position := MediaPlayer1.Position;
end;

end.

Pemutar MP3 Sederhana: Trackbar

Related Articles :

0 comments:

Posting Komentar

Cari Disini

Kontak

Terpopuler

Daftar Blog Saya

Komentar