dijexi.com

No

Action

1

File->New->Application

Save All

create direktori "media Player"

Project: ANIMASI.DPR

File: unit1.pas

2

Drop component

Name

Pallete

Panel1

Align: Right

Standard

Panel2

Align: Client

Standard

Shape1

Pen: Elipse

Additional

SpeedBtn1

Glyph: DAY.BMP

Additional

SpeedBtn2

ARROW2U.BMP

Additional

SpeedBtn3

ARROW2R.BMP

Additional

SpeedBtn4

ARROW2D.BMP

Additional

SpeedBtn5

ARROW2L.BMP

Additional

Timer1

Interval:100

System

4

Tambah Type data

Dibawah indetifier type

tArah = (diam,kiri, kanan, atas, bawah);

5

Tambah constanta

Di bawah type

Contst

langkah = 10;

6

Tambah variabel

Di bawah Form1

arah : tArah;

7

Tambah initialization

Di bawah implementation

Initialization

arah := diam;

8

Event handler

SpeedBtn1 .. 5

ChangeDirection

if sender=SpeedButton1 then

arah := diam

else if sender=SpeedButton2 then

arah := atas

else if sender=SpeedButton3 then

arah := kiri

else if sender=SpeedButton4 then

arah := bawah

else if sender=SpeedButton5 then

arah := kanan

Timer onTimer

if arah=atas then

begin

Shape1.top := Shape1.Top – langkah;

if Shape1.Top<=0 then

arah := bawah

end

else if arah=bawah then

begin

Shape1.top := Shape1.Top + langkah;

if Shape1.top>=(panel2.Height –
Shape1.Height) then

arah := atas

end

else if arah=kiri then

begin

Shape1.Left := Shape1.Left – langkah;

if Shape1.Left<=0 then

arah := kanan

end

else if arah=kanan then

begin

Shape1.Left := Shape1.Left + langkah;

if Shape1.Left>=(panel2.Width –
Shape1.Width) then

arah := kiri

end;