MEDIA PLAYER

AUDIO VIDEO PLAYER

Screen Shoot Form :

Coding :

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, MPlayer, ComCtrls, MMSystem, Spin;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    ProgressBar1: TProgressBar;

    Timer1: TTimer;

    MediaPlayer1: TMediaPlayer;

    OpenDialog1: TOpenDialog;

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Panel1: TPanel;

    Label3: TLabel;

    Button3: TButton;

    Button4: TButton;

    SpinEdit1: TSpinEdit;

    SpinEdit2: TSpinEdit;

    ListBox1: TListBox;

    Button5: TButton;

    procedure Timer1Timer(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

    procedure Label3DblClick(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

function GetWaveVolume(var LVol:DWORD;var RVol:DWORD):Boolean;

var

WaveOutCaps:TWAVEOUTCAPS;

Volume:DWORD;

begin

Result:=False;

if WaveOutGetDevCaps(WAVE_MAPPER,@WaveOutCaps,sizeof(WaveOutCaps))=MMSYSERR_NOERROR then

if WaveOutCaps.dwSupport and WAVECAPS_VOLUME=WAVECAPS_VOLUME then

begin

Result:=WaveOutGetVolume(WAVE_MAPPER,@Volume)=MMSYSERR_NOERROR;

LVol:=LoWord(Volume);

RVol:=HiWord(Volume);

end;

end;

function SetWaveVolume(const AVolume:DWORD):Boolean;

var

WaveOutCaps:TWAVEOUTCAPS;

begin

Result:=False;

if WaveOutGetDevCaps(WAVE_MAPPER,@WaveOutCaps,sizeof(WaveOutCaps))=MMSYSERR_NOERROR then

if WaveOutCaps.dwSupport and WAVECAPS_VOLUME=WAVECAPS_VOLUME then

Result:=WaveOutSetVolume(WAVE_MAPPER,AVolume)=MMSYSERR_NOERROR;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ProgressBar1.Position:=MediaPlayer1.Position;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

mediaplayer1.Display:=panel1;

listbox1.Items.Add(opendialog1.FileName);

label3.Caption:=OpenDialog1.FileName;

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

if listbox1.ItemIndex> 1 then

ProgressBar1.Position:=MediaPlayer1.Position;

ProgressBar1.Max:=MediaPlayer1.Length;

MediaPlayer1.Enabled:=True;

Timer1.Enabled:=True;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

LVol:Word;

RVol:Word;

begin

LVol:=SpinEdit1.Value;

RVol:=SpinEdit2.Value;

SetWaveVolume(MakeLong(LVol,RVol));

end;

procedure TForm1.Button4Click(Sender: TObject);

var

LVol:DWORD;

RVol:DWORD;

begin

if GetWaveVolume(LVol,RVol)then

begin

SpinEdit1.Value:=LVol;

SpinEdit2.Value:=RVol;

end;

end;

procedure TForm1.ListBox1Click(Sender: TObject);

var A:integer;

begin

A:=listbox1.ItemIndex;

 If listbox1.Selected[A] Then

 Begin

 label3.Caption:=listbox1.Items.Strings[A];

end;

end;

procedure TForm1.Label3DblClick(Sender: TObject);

Var A:Integer;

begin

A:=listbox1.ItemIndex;

If listbox1.Selected[A] Then

Begin

label3.Caption:=listbox1.Items.Strings[A];

Mediaplayer1.FileName:=label3.Caption;

Mediaplayer1.Open;

Mediaplayer1.Play;

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

listbox1.Clear;

end;

Screen Shoot Run Project :

TUGAS DELPHi 7

SCREEN SHOOT








codingnya   :
implementation

{$R *.dfm}
procedure tform1.aktif;
begin
image1.enabled:=true;
image2.enabled:=true;
image3.enabled:=true;
image4.enabled:=true;
image5.enabled:=true;
edit1.Enabled:=true;
button2.Enabled:=true;
image1.Visible:=true;
image2.Visible:=true;
image3.Visible:=true;
image4.Visible:=true;
image5.Visible:=true;
end;

procedure tform1.nonaktif;
begin
image1.enabled:=false;
image2.enabled:=false;
image3.enabled:=false;
image4.enabled:=false;
image5.enabled:=false;
edit1.enabled:=false;
button2.enabled:=false;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
nonaktif;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
aktif;
button1.Enabled:=true;
panel_timer.Caption:='10';
timer1.Enabled:=true;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if(application.MessageBox
('Sumpah Lu Mau keluar dari Game??','Konfirmasi',MB_YesNo)=ID_Yes) then
close;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image1.Left:=random(left);
image1.top:=random(top);
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image2.Left:=random(left);
image2.top:=random(top);
end;

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image3.Left:=random(left);
image3.top:=random(top);
end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image4.Left:=random(left);
image4.top:=random(top);
end;

procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image5.Left:=random(left);
image5.top:=random(top);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
image1.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
image2.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
image3.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
image4.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
image5.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
waktu:integer;
begin

if panel_timer.Caption='0' then
begin
timer1.Enabled:=false;
showmessage('WAKTUNYA ABIS!');
button1.Enabled:=false;
showmessage('SORY BOS LU KALAH!!!!!');
close;

end
else
begin
waktu:=strtoint(panel_timer.Caption);
waktu:=waktu-1;
panel_timer.Caption:=inttostr(waktu);

end;
end;
end.