cara membuat bola begerak di delphi

Bola bergerak (mantul) dengan Delphi 7 stt nurul jadid.

Bagaimana untuk menggerak kan suatu benda (bola) dengan Delphi 7 ? yang pertama adalah sediakan terlebih dahulu komponen shape delphi 7 atau komponen image untuk membuat suatu gambar yang bisa berbentuk bola,. Disini akan menggunakan shape untuk menggerakkan suatu bola,. Selanjutnya letakkan komponen shape ke dinding Delphi (form). Maka disana akan muncul gambar kotak, dari sini kita edit object inspector di properties nya komponen shape dengan mengganti stRectangle dengan stCircle, maka akan jadi gambar kotak tersebut menjadi gambar bola.

Setelah itu untuk meng eksekusi program tersebut untuk bisa jalan dengan semestinya maka bisa menggunakan ;

-          Komponen button.

-          Langsung klick 2 kali pada form tempat meletakkan komponen.

Kalau menggunakan komponen button maka suatu program bola bergerak dengan Delphi 7 akan bereaksi ketika di run dengan menunggu button ini di click. Jadi utnuk menjalankan suatu program ini akan menunggu programaer nya untuk menjalankan nya.

Kalau ngoding nya lewat form maka suatu program akan secara otomatis akan bekerja dengan sendiri nya pada saat di run (f9). User atau programer disini hanya lah melihat hasil outputan dari apa yang telah di koding kan pada program Delphi 7.

Disini saya akan menggunakan menggunakan komponen button untuk meng eksekusi program tersebut. dengan cara mengkoding sebagai berikut ;

Click 2 kali pada button1 dan tuliskan kode sebagai berikut ;

unit Unit1;

interface

uses

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

  Dialogs, ExtCtrls, StdCtrls;

type

  TForm1 = class(TForm)

    syams: TShape;

    Button1: TButton;

    Timer1: TTimer;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

    x:integer;

begin

x:=0;

repeat

if (x=0) then

begin

syams.top:=syams.Top + 10;

if (syams.top>=333) then

begin

x:=5;

syams.Brush.Color:=clblack;

end;

end;

else

if (x=5) then

begin

syams.top:=syams.top-10;

if (syams.top<=0) then

begin

x:=0;

syams.Brush.Color:=clblue;

end ;

end;

sleep(100);

application.ProcessMessages;

until (x=2);

end;

end.