Genel İşlemler - seçme işlemini kendimiz nasıl yapabiliriz?

seçme işlemini kendimiz nasıl yapabiliriz?

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=545
Tarih: 07 Ocak 2025 Saat 23:54
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: seçme işlemini kendimiz nasıl yapabiliriz?

Mesajı Yazan: kader
Konu: seçme işlemini kendimiz nasıl yapabiliriz?
Mesaj Tarihi: 03 Ağustos 2023 Saat 14:06

procedure tfonksiyon;

begin

if Clomosy.AppUserProfile =1 then

begin

sayi := clMath.generateRandom(1, 3);

if sayi = 1 then

ShowMessage('YARIŞMACI1: TAŞ')

else if sayi = 2 then

ShowMessage('YARIŞMACI1: KAĞIT')

else

ShowMessage('YARIŞMACI1: MAKAS');

// Kullanıcı seçimini almak için bir mesaj kutusu ile seçimi isteyin

ShowMessage('YARIŞMACI1: Lütfen seçiminizi yapın (1: TAŞ, 2: KAĞIT, 3: MAKAS');

if (sayi = 1) or

(sayi = 2)or

(sayi = 3) then

ShowMessage('sıra ikincide')

end;

begin

MyForm := TclForm.Create(Self);

testButton := MyForm.AddNewButton(MyForm, 'testButton', 'YARIŞMACI1');

testButton.TextSettings.Font.Size := 50;

testButton.Align := alCenter;

testButton.Height := 50;

testButton.Width := 100;

testButton.Margins.right := 200;

MyForm.AddNewEvent(testButton, tbeOnClick, 'tfonksiyon');

end;

Cevaplar:

Mesajı Yazan: Alforce
Mesaj Tarihi: 03 Ağustos 2023 Saat 14:59

Ekrana 3 tane buton koymaya ne dersin?

Mesajı Yazan: Alforce
Mesaj Tarihi: 03 Ağustos 2023 Saat 18:29

Ekrana 3 tane buton koyun Taş, kağıt, makas. Seçme işlemini bu şekilde yapabilirsiniz.

Gördüğüm kadarıyla makineye karşı bir oyun, daha kolay.

Makinede random bir sayı üretip kullanıcıya bir şey seçmesini isteyin(Bunlarda buton olur).

Eğer Makine Makas üretir siz taş seçerseniz kazanmış olursunuz.

Belki bir skor tablosu ekleyip skoru gösterebilirsiniz.

Mesajı Yazan: Alforce
Mesaj Tarihi: 03 Ağustos 2023 Saat 19:47

Bu belki işine yarar:

Var
  MyForm: TclForm;
  But1,But2,But3: TclButton;

Procedure ButClick;
Var
  Ran, Sel, i: Integer;
Begin
  Sel:= TclButton(MyForm.clSender).clTagInt;
  Ran:= clMath.GenerateRandom(0,3);
  
  if Ran = Sel then
    ShowMessage('Kazandın')
  else
    ShowMessage('Kaybettin');
  
End;

Begin
  MyForm:= TclForm.Create(Self);
  
  But1:= MyForm.AddNewButton(MyForm, 'but1', 'Taş');
  But1.Align:= alCenter;
  But1.Align:= alNone;
  But1.Left:= 100;
  But1.clTagInt:= 0;
  MyForm.AddNewEvent(But1, tbeOnClick, 'ButClick');
  But2:= MyForm.AddNewButton(MyForm, 'but2', 'Kağıt');
  But2.Align:= alCenter;
  But2.Align:= alNone;
  But2.Left:= 200;
  But2.clTagInt:= 1;
  MyForm.AddNewEvent(But2, tbeOnClick, 'ButClick');
  But3:= MyForm.AddNewButton(MyForm, 'but3', 'Makas');
  But3.Align:= alCenter;
  But3.Align:= alNone;
  But3.Left:= 300;
  But3.clTagInt:= 2;
  MyForm.AddNewEvent(but3, tbeOnClick, 'ButClick');
  
  MyForm.Run;
End;