unit u_pert1_game;
interface
uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
type
TForm1 = class(TForm)
img1: TImage;
img2: TImage;
img3: TImage;
img4: TImage;
img5: TImage;
lbl1: TLabel;
edt_score: TEdit;
btn_start: TButton;
btn_stop: TButton;
tmr1: TTimer;
procedure FormCreate(Sender:
TObject);
procedure
btn_startClick(Sender: TObject);
procedure btn_stopClick(Sender:
TObject);
procedure
img1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure
img2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure
img3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure
img4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure
img5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure img1Click(Sender:
TObject);
procedure img2Click(Sender:
TObject);
procedure img3Click(Sender:
TObject);
procedure img4Click(Sender:
TObject);
procedure img5Click(Sender:
TObject);
procedure
edt_scoreChange(Sender: TObject);
procedure tmr1Timer(Sender:
TObject);
private
{ Private declarations }
public
procedure aktif;
procedure nonaktif;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.aktif;
begin
edt_score.Text:='0';
img1.Enabled:=True;
img2.Enabled:=True;
img3.Enabled:=True;
img4.Enabled:=True;
img5.Enabled:=True;
btn_stop.Enabled:=True;
img1.Visible:=True;
img2.Visible:=True;
img3.Visible:=True;
img4.Visible:=True;
img5.Visible:=True;
end;
procedure TForm1.nonaktif;
begin
img1.Enabled:=False;
img2.Enabled:=False;
img3.Enabled:=False;
img4.Enabled:=False;
img5.Enabled:=False;
edt_score.Enabled:=False;
btn_stop.Enabled:=False;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
begin
nonaktif;
tmr1.Enabled:=False;
edt_score.Text:='0';
ShowMessage('Game Over');
end;
procedure TForm1.btn_startClick(Sender: TObject);
begin
aktif;
with tmr1 do
begin
Interval:=10000;
Enabled:=True;
end;
end;
procedure TForm1.btn_stopClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.edt_scoreChange(Sender: TObject);
begin
if edt_score.Text='100' then
begin
tmr1.Enabled:=False;
nonaktif;
ShowMessage('Selamat Anda
Menang');
edt_score.Text:='0';
end
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edt_score.Text:='0';
nonaktif;
end;
procedure TForm1.img1Click(Sender: TObject);
begin
img1.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;
procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img1.Left:=Random(Left);
img1.Top:=Random(Top);
end;
procedure TForm1.img2Click(Sender: TObject);
begin
img2.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;
procedure TForm1.img2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img2.Left:=Random(Left);
img2.Top:=Random(Top);
end;
procedure TForm1.img3Click(Sender: TObject);
begin
img3.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;
procedure TForm1.img3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img3.Left:=Random(Left);
img3.Top:=Random(Top);
end;
procedure TForm1.img4Click(Sender: TObject);
begin
img4.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;
procedure TForm1.img4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img4.Left:=Random(Left);
img4.Top:=Random(Top);
end;
procedure TForm1.img5Click(Sender: TObject);
begin
img5.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;
procedure TForm1.img5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img5.Left:=Random(Left);
img5.Top:=Random(Top);
end;
0 komentar:
Posting Komentar