Senyum Trus ^__^

Alhamdulillah kelar lagi nh bu tugas yang

 kedua saya,saya beri nama

game "GAME TANGKEP  TENGKORAK"

 hehehe...... maaf ya bu agak menyimpang

dikit namanya...dan masalah tugas ketiga

 dan keempat nanti saya posting
 

lagi ya bu, karna waktu yang dh mulai malem,dan mata saya yang dh g kuat melek lagi ...

berikut nh bu listingnya saya ketik dibawah ini :


    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure edt1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure img1Click(Sender: TObject);
    procedure img2Click(Sender: TObject);
    procedure img3Click(Sender: TObject);
    procedure img4Click(Sender: TObject);
    procedure img5Click(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 tmr1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.aktif;
begin
edt1.Text:='0';
img1.Enabled:=True;
img2.Enabled:=True;
img3.Enabled:=True;
img4.Enabled:=True;
img5.Enabled:=True;
button2.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;
edt1.Enabled:=False;
button2.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
aktif;
with tmr1 do
begin
Interval:=30000;
Enabled:=True;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.edt1Change(Sender: TObject);
begin
if edt1.Text='100' then
begin
tmr1.Enabled:=False;
nonaktif;
ShowMessage('Selamat Anda Menang');
edt1.Text:='0';
end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edt1.Text:='0';
nonaktif;
end;

procedure TForm1.img1Click(Sender: TObject);
begin
     img1.Visible:=False;
edt1.Text:=IntToStr(StrToInt(edt1.Text)+20);
end;

procedure TForm1.img2Click(Sender: TObject);
begin
img2.Visible:=False;
edt1.Text:=IntToStr(StrToInt(edt1.Text)+20);
end;

procedure TForm1.img3Click(Sender: TObject);
begin
         img3.Visible:=False;
edt1.Text:=IntToStr(StrToInt(edt1.Text)+20);
end;

procedure TForm1.img4Click(Sender: TObject);
begin
img4.Visible:=False;
edt1.Text:=IntToStr(StrToInt(edt1.Text)+20);
end;

procedure TForm1.img5Click(Sender: TObject);
begin
img5.Visible:=False;
edt1.Text:=IntToStr(StrToInt(edt1.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.img2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img2.Left:=Random(Left);
img2.Top:=Random(Top);
end;

procedure TForm1.img3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img3.Left:=Random(Left);
img3.Top:=Random(Top);
end;

procedure TForm1.img4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img4.Left:=Random(Left);
img4.Top:=Random(Top);
end;

procedure TForm1.img5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
img5.Left:=Random(Left);
img5.Top:=Random(Top);
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
nonaktif;
tmr1.Enabled:=False;
ShowMessage('DASAR OON');
end;

end.