Delphi - Sayı Tahmin Oyunu

ozgurcyaman    Kasım 20, 2020    delphi , Eğitim , if/else , oyun programlama , sart yapilari , yazilim    5 Yorumlar   

İlginizi Çekebilir

 Merhaba, bugün sizlerle Delphi diliyle yazılmış bir sayı tahmin oyununu paylaşıyorum. Delphi pascal dilinin nesne tabanlı programlama diline dönüşmüş hali denebilir. Günümüzde en büyük rakibi olarak görülen c# dili kadar popüler olmasa da Sykpe, Navicat, Xampp gibi popüler uygulamalar  Delphi dile ile yazılmıştır. C# ile kıyaslandığında öne çıkan en büyük özelliği derleme hızının çok yüksek olmasıdır.  Delphi ile ilgili Türkçe kaynağın diğer dillere kıyasla düşük olduğu aşikar. Bu nedenle bu yazının ilgilenen kişilere faydalı olacağını düşünmekteyim. 

Uygulama Yapısı

Uygulamanın arka planında belirlenen sayılar arasından rastgele bir sayı tutuluyor. Kullanıcının hedefi verilen haklar içerisinde bu sayıyı tahmin etmek. Yapılan tahminlerden sonra kullanıcıya sayının tahmin edilen sayıdan küçük veya büyük olduğunu bildiren mesaj kutuları ekrana geliyor. Sizler çeşitli modifikasyonlarla bu yapıyı dilediğiniz gibi değiştirebilirsiniz. 

Örnek Tasarım

Yapılan Tahmin Sonrası Bilgilendirme

Kodlar

   
unit Sayitahmin;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math, Vcl.Menus;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  tut: Integer;
  hak:Integer;



implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  tut := Random(1024)+1;
  hak:=10;
  Label1.Caption:='Kalan Hak: '+IntToStr(hak);
  ShowMessage('1 ile 1024 arasında sayı giriniz.');
end;

procedure TForm2.Button2Click(Sender: TObject);
var
tahmin: Integer;
begin
  tahmin:=StrToInt(Edit1.Text);
  if tahmin=tut then
  begin
  ShowMessage('Tebrikler ' + IntToStr(hak)+'. hakkınız varken bildiniz.');
  Label1.Caption:='Kalan hak: 10';
  end

   else if tahmintut then begin
  Dec(hak);
  ShowMessage ('Küçük Sayı Giriniz');
  Label1.Caption:='Kalan Hak: '+IntToStr(hak);
  end;

    if hak=0 then
    begin
      ShowMessage('Tüm Haklarınız Bitti, Kaybettiniz. 
      Doğru sayi: '+ IntToStr(tut)) ;
    end;

    if hak=1 then
    begin
      ShowMessage('Son Hakkın İyi Tahmin et!');
    end;

    edit1.Text:='';
    edit1.SetFocus;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Label1.Caption:='Kalan Hak: ' + IntToStr(hak);
end;

end.