Arie Al-Buckhori: GAME SEDERHANA DELPHI 7

listing myeee nieee :

unit Tangkap Gambar;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Label1: TLabel;

Edit1: TEdit;

Button_Start: TButton;

Button_Stop: TButton;

Timer1: TTimer;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button_StartClick(Sender: TObject);

procedure Button_StopClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

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

Y: Integer);

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

Y: Integer);

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

Y: Integer);

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

Y: Integer);

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

Y: Integer);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure aktif;

procedure nonaktif;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;

begin

edit1.Text:='0';

image1.Enabled:=true;

image2.Enabled:=true;

image3.Enabled:=true;

image4.Enabled:=true;

image5.Enabled:=true;

Button_Stop.Enabled:=true;

image1.Visible:=true;

image2.Visible:=true;

image3.Visible:=true;

image4.Visible:=true;

image5.Visible:=true;

end;

procedure TForm1.nonaktif;

begin

image1.Enabled:=false;

image2.Enabled:=false;

image3.Enabled:=false;

image4.Enabled:=false;

image5.Enabled:=false;

edit1.Enabled:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

nonaktif;

Timer1.Enabled:=false;

end;

procedure TForm1.Button_StartClick(Sender: TObject);

begin

aktif;

timer1.Interval:=20000;

timer1.Enabled:=True;

end;

procedure TForm1.Button_StopClick(Sender: TObject);

begin

nonaktif;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

nonaktif;

timer1.Enabled:=False;

ShowMessage('Silahkan Mencoba Lagi..!!!');

end;

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

Y: Integer);

begin

image1.Left:=Random(Left);

image1.Top:=Random(Top);

end;

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

Y: Integer);

begin

image2.Left:=Random(Left);

image2.Top:=Random(Top);

end;

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

Y: Integer);

begin

image3.Left:=Random(Left);

image3.Top:=Random(Top);

end;

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

Y: Integer);

begin

image4.Left:=Random(Left);

image4.Top:=Random(Top);

end;

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

Y: Integer);

begin

image5.Left:=Random(Left);

image5.Top:=Random(Top);

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

image1.Visible:=false;