Timer Pada Delphi

Apakah kalian tahu bahwa timer juga ada pada Delphi? Mau tau kegunaan dan cara memakainya? Yook kita coba buat animasi sederhana dengan menggunakan timer pada Delphi.

LISTING PROGRAM

LOGIKA PROGRAM

 Untuk memulainya, klik dua kali pada Icon Delphi 7 pada desktop seperti dibawah ini :

Lalu akan muncul form awal seperti dibawah ini :

Design form tersebut menjadi seperti dibawah ini :

Penjelasan :

Timernya kita taruh 4 buah dan letaknya terserah dimana saja

CommandButton1 kita ganti namanya dengan Start

CommandButton2 kita ganti namanya dengan Stop

Panel1 sebagai tempatnya

Shape1 kita ubah namanya jadi Lingkaran dan Shapenya di ubah menjadi lingkaran

Setelah itu klik 2 kali pada Tombol Start dan masukkan kodingan dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

shape1.Shape := stCircle;

shape1.Left := shape1.Left +1;

if(shape1.left>=262) then

begin

Timer1.enabled := False;

Timer2.enabled := True;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

timer1.Enabled:=false;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

shape1.Shape := stRectangle;

shape1.left := shape1.left -1;

if(shape1.Left=0) then

begin

Timer1.enabled:=true;

timer2.Enabled:=false;

end;

end;

procedure TForm1.Timer3Timer(Sender: TObject);

begin

shape1.Top:=shape1.top +1;

if (shape1.Top >=100) then

begin

timer3.Enabled:=false;

timer4.enabled:=true;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

timer3.Enabled:=true;

end;

procedure TForm1.Timer4Timer(Sender: TObject);

begin

shape1.Top:=shape1.top -1;

if (shape1.Top = 0) then

begin

timer3.Enabled:=true;

timer4.enabled:=false;

end;

end;

end.

OUTPUT

Disaat kita memencet Start maka akan bergerak seperti ini :

Dan apabila mencapai batasnya maka akan terpantul dan memulai timer selanjutnya seperti gambar – gambar dibawah ini :

 Lumayan mudah bukan? Selamat mencoba!!!