Clomosy | Forum : se�me i�lemini kendimiz nas�l yapabiliriz?

se�me i�lemini kendimiz nas�l yapabiliriz? : Bu belki işine yarar: Var MyForm:...

Thu, 03 Aug 2023 19:47:02 +0000

Yazar: Alforce
Konu: 545
G�nderim Zaman�: 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;

se�me i�lemini kendimiz nas�l yapabiliriz? : Ekrana 3 tane buton koyun Taş,...

Thu, 03 Aug 2023 18:29:55 +0000

Yazar: Alforce
Konu: 545
G�nderim Zaman�: 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.

se�me i�lemini kendimiz nas�l yapabiliriz? : Ekrana 3 tane buton koymaya ne...

Thu, 03 Aug 2023 14:59:19 +0000

Yazar: Alforce
Konu: 545
G�nderim Zaman�: 03 A�ustos 2023 Saat 14:59

Ekrana 3 tane buton koymaya ne dersin?

se�me i�lemini kendimiz nas�l yapabiliriz? : procedure tfonksiyon;beginif Clomosy.AppUserProfile...

Thu, 03 Aug 2023 14:06:55 +0000

Yazar: kader
Konu: 545
G�nderim Zaman�: 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;