TIME

welcome!!

WELCOME IN MY WORLD
Diposting oleh Unknown on 10.25 komentar (0)

yapp tugas kuliah lagi nih di borland Delphi 7 buat game sederhana,
btw walaupun gue boleh liat dari referensi suatu situs, tp udah banyak  yg gue ubah nih hoohoho
ini lah game sederhana yang gue sebut game acak angka dan berhitung :p
Buat Bu Dinar skali lagi maaf yaa kalo ada salah2 dalam pembuatan game ini :D mohon bimbingannya :D

inilah video nya



Yap berikut ini adalah listing nya

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Image1: TImage;
    Button4: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c,d:integer;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Please Insert Your Answer');
timer1.Enabled:=false;
timer2.Enabled:=false;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer2.Enabled:=true;
b:=strtoint(edit2.Text);
b:=b+1;
if (b=10) then b:=0;
Edit2.Text:=inttostr(b);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=true;
a:=strtoint(edit1.Text);
a:=a+1;
if (a=10) then a:=0;
Edit1.Text:=inttostr(a);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
c:=a+b;
d:=strtoint(edit3.Text);
if (c=d) then
begin
form2.visible:=true;
Form2.Timer1.Enabled:=true;
end
else
 form3.visible:=true;
 Form3.Timer1.Enabled:=true;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
timer1.Enabled:=true;
timer2.Enabled:=true;

end;


end.
---------------------------------------------------------------------------------------------------------

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  B:integer;

implementation

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);
begin
B:=B+1;
IF B=10 THEN IMAGE1.Picture.LoadFromFile('england133.jpg');
IF B=18 THEN IMAGE1.Picture.LoadFromFile('indr.jpg');
IF B=25 THEN IMAGE1.Picture.LoadFromFile('Steven_Gerrard.bmp');
IF B=35 THEN B:=0;

end;

procedure TForm2.Image1Click(Sender: TObject);
begin
FORM2.Visible:=FALSE;
end;

procedure TForm2.Label1Click(Sender: TObject);
begin
FORM2.Visible:=FALSE;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
 if Label1.Left=-150 then Label1.Left:=360;
Label1.Left:=Label1.Left-10
end;

end.
------------------------------------------------------------------------------------------------------------

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm3 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Image1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Image1Click(Sender: TObject);
begin
FORM3.Visible:=false;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if Label1.Left=-150 then Label1.Left:=360;
Label1.Left:=Label1.Left-10
end;

end.






Posted in

Listing Program Delphi Game Sederhana + Timer

Diposting oleh Unknown on 00.21 komentar (0)

heyyy gue mahasiswa teknik mau nge share listing program game sederhana dengan menggunakan timer nih
sekalian buat tugas juga sih hehehe untuk instruktur lab ibu Dinar, kalo ada salah2 maap yaa :D


berikut listing nya :

unit kelinci;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(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 Edit1Change(Sender: TObject);
    procedure Timer1Timer(sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure tform1.aktif;
begin
image1.Enabled:=true;
image2.Enabled:=true;
image3.Enabled:=true;
image4.Enabled:=true;
image5.Enabled:=true;
timer1.Enabled:=true;
button2.Enabled:=true;
image1.Visible:=true;
image2.Visible:=true;
image3.Visible:=true;
image4.Visible:=true;
image5.Visible:=true;
end;
procedure tform1.nonaktif;
begin
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
edit1.Enabled:=false;
button2.Enabled:=false;
timer1.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
nonaktif;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
aktif;
end;

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

procedure TForm1.Image1Click(Sender: TObject);
begin
image1.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
image2.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
image3.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
image4.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
image5.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
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(left);
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.Edit1Change(Sender: TObject);
begin
if edit1.Text='100' then
begin
nonaktif;
showmessage('congratulation you won');
edit1.Text:='0';
end
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:=10000;
showmessage('GAME OVER?');
close;


end.











Posted in

Langganan: Postingan (Atom)