Game animasi sederhana MP3 dengan menggunakan Delphi 07

Langsung saja ya komponen-komponen yang kita perlukan adalah sebagai berikut:

1.       Button1

2.       Button2

3.       Image1

4.       Label1

5.       label2

6.       label3

7.       label4

8.       Main menu1

9.       Media player1

10.   Open dialog1

11.   Open picture dialog1

12.   Progress bar1

13.   Save dialog1

14.   Timer1

15.   Timer2

16.   Timer3

17.   timer4

Catatan:

 TMediaPlayer dari tab System, Properties ( name: mp3player)

Program jadinya

Kemudian atur properties  dan valuenya sebagai berikut  :

Objek	Properties	value
Form1	Border stayle	BsSizeable
	Caption	Kartomo/08429041/Ti/07
	Color	clblack
	Height	600
	Position	poDestopCenter
	Width	1169
Buttton1	Caption	Open picture
	Font	MsSans Serif
	Height	20
	Name	Buttonopenpicture
	width	89
Button2	Caption	MP3
	Font	MsSans Serief
	Height	25
	Name	ButtonMP3
	Width	78
Image1	Height	690
	Name	Kapal Pesiar
	Picture	Jpeg >> load >> file bergambar Kapal Pesiar
	stretch	true
	transparant	True
	visible	False
	width	1169
Label1	Caption	Game MP3 sederhana pemprograman grafis
	Font Color	Blackkader Itc
	Name	lblGameMP3sederhanapemprogramangrafis
	Transparent	Ttrue
MainMenu1	Name	MainMenu1
	Automarge	False
	Bidmode	bdleftToRigth
Media player1	Name	Mediaplayer1
	Height	30
	Width	253
	Left	360
	Enabled	True
OpenDialog	Name	Opendialog1
	Filter	Mp3
	Ctl3D	True
OpenPictureDialog1	Name	OpenPictureDialog1
	Filter	All(jpg,jpeg,bmp)
	Ctl3D	True
ProgresBar1	Name	ProgressBar1
	Align	aNone
	Position	0
	Left	368
	Width	289
	Visible	Ttrue
SaveDialog1	Name	SaveDialog1
	Ctl3D	True
Timer1	Name	Timer1
	Interval	100
	Enabled	True
Timer2	Name	Timer2
	Interval	1000
	Enabled	True
Timer3	Name	Timer3
	Interval	1000
	Enabled	True
Timer4	Name	Timer4
	Enabled	True
	Interval	1000
Label2	Caption	19:20:51PM
	Color	Clwhite
	Width	112

Sekarang  kita memasuki langkah utama yaitu copy paste gitu lho heheeeee………  

Mulai ye…..

unit Unit1;

interface

uses

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

  Dialogs, ExtDlgs, StdCtrls,jpeg, ExtCtrls, Menus,clipbrd, ComCtrls,

  MPlayer;

type

  TForm1 = class(TForm)

    Image1: TImage;

    SaveDialog1: TSaveDialog;

    OpenPictureDialog1: TOpenPictureDialog;

    MainMenu1: TMainMenu;

    File1: TMenuItem;

    Save1: TMenuItem;

    SaveAs1: TMenuItem;

    Edit1: TMenuItem;

    cut: TMenuItem;

    Exit1: TMenuItem;

    Paste: TMenuItem;

    Open1: TMenuItem;

    Copy1: TMenuItem;

    Label1: TLabel;

    Timer1: TTimer;

    MediaPlayer1: TMediaPlayer;

    ProgressBar1: TProgressBar;

    Timer2: TTimer;

    OpenDialog1: TOpenDialog;

    Button1: TButton;

    Button2: TButton;

    Timer3: TTimer;

    procedure Button1Click(Sender: TObject);

    procedure Save1Click(Sender: TObject);

    procedure SaveAs1Click(Sender: TObject);

    procedure Exit1Click(Sender: TObject);

    procedure Open1Click(Sender: TObject);

    procedure cutClick(Sender: TObject);

    procedure Copy1Click(Sender: TObject);

    procedure PasteClick(Sender: TObject);

    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure Image1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;

      var DoDefault: Boolean);

    procedure Timer2Timer(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

  Drawing:boolean;

Origin,movept:tpoint;

    { Public declarations }

  end;

var

  Form1: TForm1;

1). Pengkodingan maksudnye,pertama-tama kita ketikan di bawah tulisan implementation

Uses math;

Var

Currentfile:string;

2). Di bawah tulisan {$R *.dfm} ketikan program berikut:

Var

paused: boolean;

PathMP3: string;

3).  Pada button1 klick dua kali ketikkan koding berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

If openpicturedialog1.execute then

Begin

Currentfile:=openpicturedialog1.filename;

Image1.picture.loadfromfile(currentfile);

End;

end;

4). Klik fileà save  kemudian ketikan koding berikut :

procedure TForm1.Save1Click(Sender: TObject);

begin

If currentfile<>'' then

Image1.picture.savetofile(currentfile)

Else saveas1click(sender);

end;

5). Klik fileàsave as kemudian ketikan koding berikut :

procedure TForm1.SaveAs1Click(Sender: TObject);

begin

If savedialog1.execute then

Begin

Currentfile:=savedialog1.filename;

Save1click(sender)

End;

end;

6). Klik fileà open kemudian ketikan koding berikut :

procedure TForm1.Open1Click(Sender: TObject);

begin

If openpicturedialog1.execute then

Begin

Currentfile:=openpicturedialog1.filename;

Image1.picture.loadfromfile(currentfile);

end;

end;

7). Klik fileà exit kemudian ketikan koding berikut :

procedure TForm1.Exit1Click(Sender: TObject);

begin

Application.Terminate;

end;

8). Klik edità cut kemudian ketikan koding berikut :

procedure TForm1.cutClick(Sender: TObject);

Var

Arect:trect;

Begin

Copy1click(sender);

With image1.canvas do

Begin

Copymode:=cmwhiteness;

Arect:=rect(0,0,image1.width, image1.height);

Copyrect(arect,image1.canvas,arect);

CopyMode:=cmsrccopy;

End;

End;

9). Klik edità paste kemudian ketikan koding berikut

procedure TForm1.PasteClick(Sender: TObject);

Var

Bitmap:tbitmap;

Begin

If clipboard.hasformat(CF_BITMAP) then

Begin

Image1.picture.Bitmap.assign(clipboard);

End;

End;

10).klik editàcopy kemudiaan ketikan koding berikut :

procedure TForm1.Copy1Click(Sender: TObject);

begin

Clipboard.assign(image1.picture);

end;

11). klik editàpaste kemudiaan ketikan koding berikut :

 procedure TForm1.PasteClick(Sender: TObject);

Var

Bitmap:tbitmap;

Begin

If clipboard.hasformat(CF_BITMAP) then

Begin

Image1.picture.Bitmap.assign(clipboard);

End;

End;

12). Pada objek inspector pilih pada tab even ,kemudian double klik pada area putih  di barisan on mousedown  kemudian tambahkan koding seperti di bawah ini :

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  with canvas do

begin

 Drawing:=true;

Canvas.moveto(X,Y);

end;

  end;

13). Pada objek inspector pilih pada tab even ,kemudian double klik pada area putih  di barisan on mousemove  kemudian tambahkan koding seperti di bawah ini :

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  If drawing then

Canvas.lineto(X,Y);

end;

14). Pada objek inspector pilih pada tab even ,kemudian double klik pada area putih  di barisan on mouseup  kemudian tambahkan koding seperti di bawah ini :

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

 Canvas.lineto(X,Y);

Drawing:=false;

end;

15). Kemudian kita kembali pada tab properties Klik pada image1 ketikan koding berikut :

procedure TForm1.Image1Click(Sender: TObject);

begin

WindowState:=wsNormal;

End;

16).  Double klik pada taimer1 kemudian ketikan koding seperti berikut :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Left :=  Label1.Left - 10;

if  Label1.Left < -200 then

Label1.Left := 1800;

end;

17). Double klik pada taimer2 kemudian kettikan koding seperti berikut :

procedure TForm1.Timer2Timer(Sender: TObject);

begin

if MediaPlayer1.Enabled then

begin

ProgressBar1.Position := MediaPlayer1.Position;

if ProgressBar1.Position = MediaPlayer1.Length then

begin

MediaPlayer1.Stop;

ProgressBar1.Position := 2;

MediaPlayer1.Close;

MediaPlayer1.Enabled := true;

MediaPlayer1.FileName := PathMP3;

MediaPlayer1.Open;

MediaPlayer1.Position := 2;

ProgressBar1.Max := MediaPlayer1.Length;

ProgressBar1.Min := 0;

end;

 end;

end;

18). Double klik pada mediaplayer1 kemudian ketikan koding berikut :

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;

  var DoDefault: Boolean);

begin

if Button=Btstop then

begin

MediaPlayer1.Position:=2;

ProgressBar1.Position:=2;

end;

if Button=btstep then

 begin

 If((MediaPlayer1.Position+5000)<=MediaPlayer1.Length)then

 MediaPlayer1.Position:=MediaPlayer1.Position+5000

 else

 begin

 MediaPlayer1.Position:=2;

 ProgressBar1.Position:=2;

 end;

 MediaPlayer1.Play;

 end;

  if Button=btBack then

 begin

 if(MediaPlayer1.Position-5000>0) then

 MediaPlayer1.Position:=MediaPlayer1.Position-5000

 else

 MediaPlayer1.Position:=2;

 MediaPlayer1.Play;

 end;

end;

19). Double klik pada form kemudian ketikan koding berikut :

procedure TForm1.FormCreate(Sender: TObject);

begin

paused := false;

MediaPlayer1.Enabled := False;

end;

20). Double klik pada button2  kemudian ketikan koding berikan :

procedure TForm1.Button2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

PathMp3 := OpenDialog1.FileName;

with MediaPlayer1 do

begin

Enabled := true;

FileName := PathMP3;

Open;

Position := 0;

Play;

end;

ProgressBar1.Max := MediaPlayer1.Length;

ProgressBar1.Min := 0;

end;

21). Double klik pada timer4 kemudian ketikan koding berikut :

procedure TForm1.Timer4Timer(Sender: TObject);

Var

ADate:TDateTime;

hari:array[1..7] of string;

begin

hari[1] :='minggu';

hari[2] :='senin';

hari[3] :='selasa';

hari[4] :='rabu';

hari[5] :='kamis';

hari[6] :='jumat';

hari[7] :='sabtu';

ADate:= date;

label2.Caption:=timetostr(time);

end;

end.

Demikian manual book dari program Game MP3 yang telah saya buat di atas, Harapan saya smoga program ini kedepan bisa bermanfaat dan bisa menjadi referensi buat ibu dan teman-teman khususnya  bagi para pembaca dan pecinta desain grafis. Satu lagi nie yang lebih  penting N sangat penting lagi  nilai uas saya melalui tugas ini bisa jadi bagus ya bu heheeeee……………….

…………………..WASSALAM……………..