Delphi Sayı Tahmin Oyunu
Delphi programı gelişim aşamasında zaman zaman karşımıza delphi sayı tahmin oyunu nasıl yapılır sorusu çıkıyor.
Bu kodlar ile birlikte programda sayı tahmin oyunu
işlemini kolayca yapabileceksiniz.
Delphi Örnek Kod Anlatımı
Örnek oyunumuzun kodları ile beraber sizlerde kendi oyunlarınızı oluşturabilir ve geliştirebilirsiniz. Oyunuz için ilk olarak delphi formunda iki adet edit text , button ve bir adet listbox’ ihtiyacımız var. Diğer bütün işlemleri button eklentimizin click evrensinde oluşturacağız.
İlk olarak Random dediğimiz sayıyı oluşturmamız gerekli bunun için global kısma bir değişken tanımlamamız gerekiyor.
Global kısma değişken tanımladıktan sonra button 2 yardımı ile ramdom bir sayı oluşturuyoruz. Bu kısım gereken kodları aşağıda bulunan kod barı içinde bulabilirsiniz. Sıradaki işlemler için button 1 click evresine geliyoruz burada yapacağımız işlemler kullanıcının kodları tahmin etme işlemi üzerine olacak ve kalan hak tanımlaması yapacağız. Kodmatik.net ailesi olarak bizler 3 hak tanımladık sizler kullanım amacınıza göre kod tanımını değiştirebilirsiniz.
Diğer örneklere göz atmayı unutmayın.
Delphi Sayı Tahmin Oyunu
procedure TForm1.Button1Click(Sender: TObject);
begin
sayi := StrToInt( Edit1.Text );
if ( tutulan =0) then Begin
ShowMessage(' LÜTFEN BAŞLAT TUŞUNA BASINIZ!')
end
else if (tutulan := sayi) then begin
ShowMessage('Sayı daha küçük');
hak := hak -1;
Edit2.Text := IntToStr (hak)+ ' hakkınız kalmıştır.';
ListBox1.Items.Add( edit1.Text );
end
else if (tutulan := sayi) then begin
ShowMessage('Sayı daha büyük');
hak := hak -1;
Edit2.Text := IntToStr (hak)+ ' hakkınız kalmıştır.';
ListBox1.Items.Add(edit1.Text);
end
else if (tutulan = sayi) then
begin
ShowMessage('TEBRİKLER. DOĞRU BİLDİNİZ');
ListBox1.Items.Add( edit1.Text );
end;
if (hak = 0) then
begin
ShowMessage('BİLEMEDİNİZ: '+ IntToStr(tutulan));
Edit2.Text := ('HAK BİTTİ.');
end
else if( hak;=1) then
begin
Listbox1.Clear;
end
else if (tutulan = sayi) then
begin
Listbox1.Clear;
Edit2.Text := ('BİLDİNİZ.');
end ;
edit1.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject); //2.buton
begin
hak:=10;
Randomize;
tutulan := Random(1024);
ShowMessage('Sayı Tutuldu');
Listbox1.Clear;
Edit2.Clear;
end;
end.
Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.
Delphi ile ilgili kavramlara ek olarak, Delphi öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.
Diğer örneklere de göz atabilirsiniz:
Permütasyon Hesaplama Programı
Fibonacci Sayısı Hesaplayan Program:
Girilen İki Sayı Arasındaki Asal Sayıları Bulan Program:
Boy-Kilo Endeksi Hesaplama:
Armstrong Sayısı Gösteren Program:
Girilen Sayının Rakamlarını Topla:
Haftanın Günlerini Bulan Program:
Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.
