berikut Listing nya :
unit tugas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, FileCtrl, ComCtrls, MPlayer;
type
TForm1 = class(TForm)
Panel1: TPanel;
paudio: TPanel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Timer1: TTimer;
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
FilterComboBox1: TFilterComboBox;
OpenDialog1: TOpenDialog;
Timer2: TTimer;
audioplayer1: TMediaPlayer;
audiobar: TProgressBar;
Panel2: TPanel;
Label3: TLabel;
pvideo: TPanel;
vaudio: TLabel;
Label2: TLabel;
Button1: TButton;
videoplayer: TMediaPlayer;
videobar: TProgressBar;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FileListBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
paudio.Visible:=Speedbutton1.Down;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
pvideo.Visible:=Speedbutton2.Down;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label3.Left<-label3.Width then
label3.Left:=panel2.Width
else
label3.Left:=label3.Left-1;
audiobar.Position:=audioplayer1.Position;
end;
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
audioplayer1.FileName:=filelistbox1.FileName;
audioplayer1.Open;
label3.Caption:=filelistbox1.FileName;
audiobar.Max:=audioplayer1.Length;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
videoplayer.FileName:=opendialog1.FileName;
videoplayer.Open;
timer2.Enabled:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
videobar.Max:=videoplayer.Length;
videobar.Position:=videoplayer.Position;
end;
end.
dan ini adalah print screen hasil nya
