July 24, 2024

Aplikasi Bola Pantul Menggunakan Delphi

1 min read

Pada pembahasan kali ini kita akan membuat sebuah aplikasi bola pantul, berikut langkah-langkahnya :

Langkah 1

Buka Delphi 2007 di komputer atau laptop anda masing-masing.

Langkah 2

Klik Menu File -> New -> Pilih VCL Form Application.

delphi

Langkah 3

Letakkan komponen-komponen berikut pada Form1 :

delphi231

delphi232

Langkah 4

Deklarasikan variabel berikut:

[sourcecode]

var

Form1: TForm1;

Kanan : boolean ;

Bawah : boolean ;

[/sourcecode]

 

Ketik Perintah berikut pada Timer:

[sourcecode]

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Kanan then
begin

Bola.Left := Bola.Left + 1;

if Bola.Left + Bola.Width >= Panel1.ClientWidth then

begin

Kanan := False;

Bola.Brush.Color:=clblue;

end

end

else
Begin

Bola.Left := Bola.Left – 1;
if Bola.Left <= 0 then begin Kanan := True; Bola.Brush.Color:=clgreen; end end; if Bawah then begin Bola.Top := Bola.Top + 1; if Bola.Top + Bola.Width >= Panel1.Clientheight then Bawah := False;
end
Begin
Bola.Top := Bola.Top – 1;
if Bola.Top <= 0 then Bawah := True;
end;
end;
[/sourcecode]

 

 

Ketik Perintah berikut pada ScrollBar Ukuran:

[sourcecode]

procedure TForm1.Sb_UkuranChange(Sender: TObject);
begin
Bola.Width:= Sb_Ukur.Position;
Bola.Height:=Sb_Ukur.Position;
end;

[/sourcecode]

Ketik Perintah berikut pada ScrollBar Kecepatan:

[sourcecode]

procedure TForm1.Sb_KecepatanChange(Sender: TObject);

begin

Timer1.Interval:= 101-Sb_Cepat.Position;
end;

[/sourcecode]

Selanjutnya masuk ke event, klik event OnActivate, Ketik Perintah berikut pada Form Activate:

[sourcecode]

procedure TForm1.FormActivate(Sender: TObject);

begin

Randomize;

Bola.Left := Random(Panel1.ClientWidth-Bola.width);

Bola.Top := Random(Panel1.ClientHeight-Bola.Height);

Kanan := Boolean(Random(2));

Bawah := Boolean(Random(2));

end;

[/sourcecode]

 

Ketik Perintah berikut pada Button PLAY:

[sourcecode]

procedure TForm1.btn_playClick(Sender: TObject);
begin
Timer1.Enabled:=TRUE;

end;

[/sourcecode]

 

Ketik Perintah berikut pada Button STOP:

[sourcecode]

procedure TForm1.btn_stopClick(Sender: TObject);

begin
Timer1.Enabled:=FALSE;
end;

[/sourcecode]

Ketik Perintah berikut pada Button EXIT:

[sourcecode]
procedure TForm1.btn_exitClick(Sender: TObject);
begin
close;
end;
[/sourcecode]

Hasil

Bola akan memantul sesuai dengan ukuran dan kecepatan bola yang diatur pada scroll bar ukuran dan kecepatan.

[fvplayer src=’http://news.palcomtech.com/wp-content/uploads/Bolapantul.flv’ width=540 height=380]

0 thoughts on “Aplikasi Bola Pantul Menggunakan Delphi

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.