Delphide Gemi Oyunu

sWaGg€r

14.05.2008 20:24:53

Delphide yapılmış küçük bir oyun gemi yüzdürme.
unit Unit1;

interface

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

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Dosya1: TMenuItem;
A1: TMenuItem;
Sakla1: TMenuItem;
Kapat1: TMenuItem;
Yazdr1: TMenuItem;
Dzen1: TMenuItem;
Kes1: TMenuItem;
Kopyala1: TMenuItem;
Yaptr1: TMenuItem;
k1: TMenuItem;
Programdank1: TMenuItem;
Grnm1: TMenuItem;
amekran1: TMenuItem;
N501: TMenuItem;
PopupMenu1: TPopupMenu;
Gizle1: TMenuItem;
Gster1: TMenuItem;
Button1: TButton;
PopupMenu2: TPopupMenu;
A2: TMenuItem;
Kapat2: TMenuItem;
Edit1: TEdit;
Button2: TButton;
Edit1Gizle1: TMenuItem;
Button2Gizle1: TMenuItem;
Edit1Gster1: TMenuItem;
Button2Gster1: TMenuItem;
ustd: TLabel;
altd: TLabel;
sold: TLabel;
sagd: TLabel;
gemi: TImage;
boom: TImage;
Timer1: TTimer;
procedure A1Click(Sender: TObject);
procedure Programdank1Click(Sender: TObject);
procedure Edit1Gizle1Click(Sender: TObject);
procedure Button2Gizle1Click(Sender: TObject);
procedure Edit1Gster1Click(Sender: TObject);
procedure Button2Gster1Click(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.A1Click(Sender: TObject);
begin
ShowMessage('Dosya açıldı');
end;

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

procedure TForm1.Edit1Gizle1Click(Sender: TObject);
begin
Edit1.Visible := false; //editi gizler
end;

procedure TForm1.Button2Gizle1Click(Sender: TObject);
begin
Button2.Visible := false;
end;

procedure TForm1.Edit1Gster1Click(Sender: TObject);
begin
Edit1.Visible := true;//edir göster
end;

procedure TForm1.Button2Gster1Click(Sender: TObject);
begin
Button2.Visible := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RIGHT:
begin
Gemi.Left := Gemi.Left + 10;
if (Gemi.Left + Gemi.Width) > sagd.Left then
begin
beep;
Gemi.Left := sagd.Left - Gemi.Width;
boom.Left := gemi.Left + gemi.Width;
boom.Top := gemi.Top;
boom.Visible := true;
end;
end;
VK_LEFT:
begin
Gemi.Left := Gemi.Left - 10;
// ---------right--------
if Gemi.Left < (sold.Left + sold.Width )then
begin
beep;
Gemi.Left := sold.Left + sold.Width;
boom.Left := gemi.Left - boom.Width;
boom.Top := gemi.Top;
boom.Visible := true;

end;

end;
VK_UP:
begin
Gemi.Top := Gemi.Top - 10;
if Gemi.Top < (ustd.Top + ustd.Height) then
begin
beep;
Gemi.Top := (ustd.Top + ustd.Height);
boom.Left := gemi.Left;
boom.Top := gemi.Top - boom.Height;
boom.Visible := true;

end;
end;
VK_DOWN:
begin
Gemi.Top := Gemi.Top + 10;
if (Gemi.Top + Gemi.Height) > altd.Top then
begin
beep;
Gemi.Top := altd.Top - Gemi.Height;
boom.Left := gemi.Left;
boom.Top := gemi.Top + gemi.Height;
boom.Visible := true;
end;

end;
VK_ESCAPE: close;
end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
say:integer;
begin
if boom.Visible then // if boom.visible = true then
begin
inc(say);
if say >= 5 then boom.Visible := false;
end
else say := 0;

end;

end.

//image a runtime da resim yükleme :
//gemi.Picture.LoadFromFile('c:\ reim.bmp');

R.u.X

20.05.2008 11:53:29

bunlar delphi 7 için demi bu konudfa pek fikrim yok o yüzden yani başka bi türü var mı bunların
vb6 ve vb.net gibi ayrılıklar sözkonusu mu?

sWaGg€r

28.05.2008 02:25:51

6 ve 7 sürümleri var mesela bunlar 6 için....

R.u.X

28.05.2008 21:48:29

hmm anladım saol