{forma ikitane shape koyun birin adını daire diğerini kare yapın(şekillerinide
ona göre yapın),bir tane timer koyun intervalini 100 yapın,üç tane buton koyun
button2 nin name sini duraklat yapın ve çalıştırın.Ben delphi ile çalışöaya yeni
başladım bu benim ilk projemdi umarım hoşunuza gitmiştir!}
//Uğur ÇİL Bilgi paylaştıkca güzeldir!..
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
kare: TShape;
daire: TShape;
Timer1: TTimer;
Button1: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
duraklat: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure duraklatClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dx,kx:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
duraklat.Enabled:=true;
timer1.Enabled:=true;
button1.Enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (daire.Left<(form1.Width-100)) or (kare.Left<(form1.Width-100)) then
begin
daire.left:=daire.Left+random(random(5))+2;
kare.left:=kare.left+random(random(5))+2;
if kare.left>daire.left then
begin
label2.Caption:='Kare önde gidiyor!..';
end
else if daire.left>kare.left then
begin
label2.Caption:='Daire önde gidiyor!..';
end
else if daire.left=kare.left then
begin
label2.Caption:='Durum şu anda berabere!..';
end;
end
else if (daire.left>=(form1.Width-100)) or (kare.left>=(form1.Width-100)) then
if daire.left>kare.left then
begin
label1.Caption:='Daire Kazandı!..';
timer1.Enabled:=false;
label2.Caption:='';
duraklat.Enabled:=false;
end
else if kare.left>daire.left then
begin
label1.Caption:='Kare Kazandı!..';
timer1.Enabled:=false;
label2.Caption:='';
duraklat.Enabled:=false;
end
else if kare.left=daire.left then
begin
label1.Caption:='Berabere Bitti!..';
timer1.Enabled:=false;
label2.Caption:='';
duraklat.Enabled:=false;
end
end;
procedure TForm1.duraklatClick(Sender: TObject);
begin
if duraklat.Caption='Duraklat' then
begin
timer1.Enabled:=false;
duraklat.Caption:='Devan Et';
end
else
begin
timer1.Enabled:=true;
duraklat.Caption:='Duraklat';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='';
label2.Caption:='';
dx:=daire.left;
kx:=kare.left;
form1.Height:=365;
form1.Width:=622;
button1.Caption:='Başlat';
button3.Caption:='Sıfırla';
duraklat.Caption:='Duraklat';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
label1.Caption:='';
label2.Caption:='';
duraklat.Enabled:=false;
button1.Enabled:=true;
daire.left:=dx;
kare.left:=kx;
timer1.Enabled:=false;
end;
end.