Clomosy | Forum : Random Yer De�i�tirme

Random Yer De�i�tirme : Kodlarımı öyle yapsam da çalışıyor...

Tue, 28 May 2024 10:53:44 +0000

Yazar: emre.gungor01
Konu: 593
G�nderim Zaman�: 28 May�s 2024 Saat 10:53

Kodlar�m� �yle yapsam da �al��yor yani hata alm�yorum sadece istedi�im sonucu alamad�m.

1.Kod;

void randomPosition; //Random Position de�i�tirmesi i�in olu�turuldu.

{

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

}

2.Kod;

/* // random position i�in fonksiyon

if(sayac >= 137 && sayac <= 155)

{

randomPosition();

}

Ben bunu yazd��mda sayac�m�n i�erisindeki say� 155'ten k��k oldu�u i�in s�rekli yer de�i�tiriyor. Bast��mda 1 oldu�unda 2 oldu�unda 3 diye gidiyor ta ki bu 155'e kadar s�rekli yer de�i�tiriyor fakat ben 137 say�s�yla 155 say�lar� aras�nda random yer de�i�tirmesini istemi�tim.

Random Yer De�i�tirme : Merhaba EmreAldığın hatanın resmini...

Mon, 27 May 2024 17:54:25 +0000

Yazar: Developer
Konu: 593
G�nderim Zaman�: 27 May�s 2024 Saat 17:54

Merhaba Emre

Ald��n hatan�n resmini atar m�s�n

Random Yer De�i�tirme : Merhabalar;Kod yazdım fakat çalışmıyor...

Sat, 25 May 2024 12:52:02 +0000

Yazar: emre.gungor01
Konu: 593
G�nderim Zaman�: 25 May�s 2024 Saat 12:52

Merhabalar;

Kod yazd�m fakat �al��m�yor hatay� da tam ��zemedim. Yard�mc� olabilir misiniz?

Kodlar;

Var

AnaForm:TclForm;

btn1 : TClProButton;

Zaman : TCLTimer;

sayac:Integer;

RndmTimer: TClTimer;

colorArray : array of String;

oyunzaman:TCLTimer;

sayac1:Integer;

lblTimer: TCLLabel;

testImg: TCLImage; //random yerlerde belirli zamanda g�rsel ��kart�yor. //EKSURE ��N KULLANDIM.

void randomColor;

var

randmDeger: Integer;

{

colorArray = ['#26cf3a','#ff780a','#9a7de8','#813b3b','#a664c4','#6492c4','#81c464'];

randmDeger = clMath.GenerateRandom(0,6);

AnaForm.SetFormColor(colorArray[randmDeger],'',clGNone);

}

void randomPosition; //Random Position de�i�tirmesi i�in olu�turuldu.

{

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

}

void eksure //Ekran�n ortas�ndaki say� 25 veya b�y�k olunca ��kmas� i�in yap�ld�.

{

if(IntToStr(btn1.Text) > 25)

{

testImg.visible=False;

sayac1 = sayac1+5;

}

void zamanlayici;

{

if (sayac >= 100)

{

RndmTimer.Enabled = True;

}

btn1.Text = IntToStr(sayac);

sayac = sayac + 1;

oyunzaman.Enabled=True;

btn1.Text = IntToStr(sayac);

if(sayac == 25)

{

AnaForm.SetFormColor('#23c7c5','',clGNone);

sayac1 = sayac1 + 3;

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

testImg.Position.X = Abs((Random() * AnaForm.clWidth) - testImg.Width);

testImg.Position.Y = Abs((Random() * AnaForm.clHeight) - testImg.Height);

testImg.visible=True;

}

if(sayac == 72)

{

AnaForm.SetFormColor('#e01f1f','',clGNone);

sayac1 = sayac1 + 5;

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

testImg.Position.X = Abs((Random() * AnaForm.clWidth) - testImg.Width);

testImg.Position.Y = Abs((Random() * AnaForm.clHeight) - testImg.Height);

testImg.visible=True;

}

if(sayac == 100)

{

AnaForm.SetFormColor('#cfeb00','#db7edd',clGHorizontal);

sayac1 = sayac1 + 7;

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

testImg.Position.X = Abs((Random() * AnaForm.clWidth) - testImg.Width);

testImg.Position.Y = Abs((Random() * AnaForm.clHeight) - testImg.Height);

testImg.visible=True;

}

//1.

if (sayac >= 127)

{

AnaForm.SetFormColor('#ffae00','',clGNone);

randomPosition();

RndmTimer.Enabled = False;

}

btn1.Text = IntToStr(sayac);

//2.

if (sayac == 134)

{

RndmTimer.Enabled = True;

randomPosition();

}

btn1.Text = IntToStr(sayac);

//3.

/* // random position i�in fonksiyon

if(sayac >= 137 && sayac <= 155)

{

randomPosition();

}

//4.

if (sayac >= 156)

{

AnaForm.SetFormColor('#16cce3','',clGNone);

RndmTimer.Enabled = False;

}

btn1.Text = IntToStr(sayac);

}

Burada bulunan yorum sat�rlar� i�erisine ald��m (/* */) yerlerde void randomPosition; diye parametre atad�m ve kod blo�unda ise if(sayac >= 137 && sayac <= 155) bunu yazd�m benim ortadaki sayac�m s�rekli 155'ten k��k oldu�u i�inde random olarak yer de�i�tiriyor, fakat ben sadece 137 say�s�yla 155 say�lar� aras�nda random olarak yer de�i�tirmesini istiyorum kopyala yap��t�r yaparak yer de�i�tirebilirdim fakat daha kolay olmas� ve yer kaplamamas� ad�na void randomPosition; parametresini olu�turdum. Sizce nas�l yapabilirim?

Random Yer De�i�tirme : Teşekkür ederim sorunum çözüldü...

Tue, 14 May 2024 10:47:13 +0000

Yazar: emre.gungor01
Konu: 593
G�nderim Zaman�: 14 May�s 2024 Saat 10:47

Te�ekk�r ederim sorunum ��z�ld� ve a��klamay� g�zel yapt��n�z i�in ayr� te�ekk�r ederim sade ve anla��l�r.

Random Yer De�i�tirme : Merhaba Emre,Bu sorunu çözebilmemiz...

Tue, 14 May 2024 09:59:50 +0000

Yazar: BilalCndn
Konu: 593
G�nderim Zaman�: 14 May�s 2024 Saat 09:59

Merhaba Emre,

Bu sorunu ��zebilmemiz i�in �ncelikle nesnelerin pozisyonlar�n�n nas�l �al��t��n� anlamal�y�z.

G�rselde g�rd��n gibi bir formun sol �st k��esi (0x0) pozisyonunda oluyor. Sa� �st k��esi (formun geni�li�i x 0) sol alt k��esi (0 x formun y�ksekli�i) sa� alt k��esi ise (formun geni�li�i x formun y�ksekli�i) oluyor. Ayn� durum g�rsel nesneler i�in de ge�erli. Bu durumda dairenin konumunu sol �st k��esine g�re al�yoruz. �imdi ta�ma durumlar�n� inceleyelim.

G�rselde g�rd��n gibi nesnenin pozisyonu formun s�n�rlar� dahilinde olmas�na ra�men nesne bir miktar formun d��nda kalabiliyor. �imdi senin kodun �zerinde bu duruma ��z�m getirelim.

   btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);  btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

Bu kodda form s�n�rlar� dahilinde olacak �ekilde bir random say� �retiyoruz.(Bu k�sm� daha �nce yapm��t�k zaten)
�retti�imiz say�dan nesnenin uzunlu�unu ��kar�yoruz. Bu durum bizim i�in sa�dan ve alttan ta�malar� �nl�yor. Fakat random say� nesnenin uzunlu�undan d��k bir say� gelirse bu sefer pozisyon negatif olaca�� i�in soldan ya da �stten ta�malar olacakt�r. Bu durumu d�zeltmek i�in de ��kan say�y� 'Abs' fonksiyonu i�erisine al�yoruz. 'Abs' fonksiyonu say�n�n mutlak de�erini ald�� i�in negatif bir say� ��kma ihtimali de ortadan kalk�yor. Bu �ekilde nesnenin formun d��na ta�mas�n� da engellemi� oluyoruz.

Sorunun ��z�me ula��p ula�mad�� ile ilgili geri d�n��n� bekliyorum.

�yi �al��malar diliyorum.

Random Yer De�i�tirme : evet işime yaradı fakat taşma...

Mon, 13 May 2024 22:46:56 +0000

Yazar: emre.gungor01
Konu: 593
G�nderim Zaman�: 13 May�s 2024 Saat 22:46

evet i�ime yarad� fakat ta�ma sorununu bulamad�m.

Random Yer De�i�tirme : Merhaba Emre,Doküman sayfasından...

Mon, 13 May 2024 09:59:42 +0000

Yazar: BilalCndn
Konu: 593
G�nderim Zaman�: 13 May�s 2024 Saat 09:59

Merhaba Emre,

Dok�man sayfas�ndan (https://www.docs.clomosy.com/index.php/Random) random hakk�nda bilgi sahibi olabilirsin. Koda gelecek olursak �ncelikle bir nesneye 'Align' �zelli�i verdi�in zaman o nesneyi sabitlemi� oluyorsun. Butonun da 'Align' �zelli�ine 'alCenter' atamas� yapt��n�zda butonu bulundu�u nesnenin merkezine sabitlemi� oluyorsunuz. Bu durum butonun pozisyonunu manuel olarak de�i�tirmenize engel oluyor. Pozisyonda de�i�iklik yapabilmek i�in 'Align' �zelli�ine 'alNone' atamas� yapmal�s�n�z. Art�k butonu hareket ettirebildi�imize g�re gelelim 'Random' konusuna. Clomosy'de 'Random' �zelli�i 0 ile 1 aras�nda rastgele bir say� �retir. Yani siz 0 ile 100 aras�nda bir say� �retmesini istiyorsan�z 'Random' �zelli�ini 100 ile �arpmal�s�n�z. Kodunda yapt��m d�zenlemelerde formun boyutlar� ile �arpt�m. Bu durumda nesne form i�erisinde rasgele bir konuma gelebilecek. Fakat nesnenin bir k�sm�n�n form d��na ��kma ihtimali var. Bu problemin ��z�m�n� sana b�rakt�m ama ��zemezsen sormaktan �ekinme. Ayr�ca nesnenin 'Align' �zelli�ini 'alNone' olarak belirledi�imiz i�in ba�lang�� pozisyonunu senin istedi�in gibi ortalamak istedim. Bu kod da sana az �nce bahsetti�im problemin ��z�m� i�in ipucu olmu� olacak.

Kodun d�zenlenmi� hali:

Var  AnaForm:TclForm;
  btn1 : TClProButton;
  Zaman : TCLTimer;
  sayac:Integer;
  
  Zaman2:TCLTimer;
  sayac1:Integer;
  lblTimer: TCLLabel;
  
void zamanlayici;
{
  if(sayac == sayac)
  {
  sayac = sayac + 1;
  Zaman.Enabled = False;
  btn1.Text = IntToStr(sayac);
  if(sayac == 25)
  {
  AnaForm.SetFormColor('#23c7c5','',clGNone);
  sayac1 = sayac1 + 3;
  btn1.Position.X = Random() * AnaForm.clWidth;
  btn1.Position.Y = Random() * AnaForm.clHeight;
  }
  }
  else
  {
  btn1.Text = IntToStr(sayac);
  sayac = sayac + 1;
  }
}

void sure;
{
  
  if(sayac1 == 0)
  {
    Zaman2.Enabled = False;
    lblTimer.caption = IntToStr(sayac1);
    ShowMessage('S�reniz Doldu!');
   
    if(btn1 == 2)
    {
    Zaman2.Enabled= False;
    lblTimer.caption = IntToStr(sayac1);
    }
  }
  else
  {
    lblTimer.caption=IntToStr(sayac1);
    Dec(sayac1);
  }
}

 {
   sayac=0;
   
   sayac1=20;
   
   AnaForm = TclForm.Create(Self);
   
  Zaman= AnaForm.AddNewTimer(AnaForm,'Zaman',1000);
  Zaman.Enabled = True;
  AnaForm.AddNewEvent(Zaman,tbeOnTimer,'zamanlayici');
  
  
  Zaman2=AnaForm.AddNewTimer(AnaForm,'Zaman2',1000);
  Zaman2.Enabled=True;
  AnaForm.AddNewEvent(Zaman2,tbeOnTimer,'sure');
  
  lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');
  lblTimer.StyledSettings = ssFamily;
  lblTimer.TextSettings.Font.Size = 35;
  lblTimer.Align = alTop;
  lblTimer.Height=50;
  lblTimer.Width=50;
  lblTimer.Margins.Left = 170;
 
   AnaForm.SetFormColor('#52504d','',clGNone); 
   btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','SAYAC');
   btn1.Align = alNone;
   btn1.Width = 100;
   btn1.Height = 100;
   btn1.Position.X = (AnaForm.clWidth / 2) - (btn1.Width / 2);
   btn1.Position.Y = (AnaForm.clHeight / 2) - (btn1.Width / 2); // konum.
   btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');
   btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');
   btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
   btn1.clProSettings.IsTransparent = False;
   btn1.clProSettings.FontSize = 12;
   btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
   btn1.clProSettings.FontHorzAlign = palCenter;
   btn1.clProSettings.IsFill = True; 
   btn1.clProSettings.IsRound = True;
   btn1.clProSettings.RoundHeight = 50;
   btn1.clProSettings.RoundWidth = 50;
   btn1.clProSettings.BorderWidth = 3;
   btn1.SetclProSettings(btn1.clProSettings);

   AnaForm.AddNewEvent(btn1,tbeOnClick,'zamanlayici');
   AnaForm.AddNewEvent(lblTimer,tbeOnClick,'sure');
   AnaForm.Run;
 
 }

Sorunun ��z�me ula��p ula�mad�� ile ilgili geri d�n��n� bekliyorum.

�yi �al��malar diliyorum.

Random Yer De�i�tirme : Merhabalar;Clomosy Kitap'tan...

Sun, 12 May 2024 18:18:27 +0000

Yazar: emre.gungor01
Konu: 593
G�nderim Zaman�: 12 May�s 2024 Saat 18:18

Merhabalar;

Clomosy Kitap'tan ve github kodlar�ndan bakmaya �al��t�m fakat bir bilgi sahibi olamad�m projemde orta noktada bulunan yuvarla��m� i�indeki label bast��mda 25 olunca ekranda random bir yere atamas�n� istiyorum fakat nas�l yapaca��m hakk�nda bir �ey bulamad�m;

kodlar;

Var

AnaForm:TclForm;

btn1 : TClProButton;

Zaman : TCLTimer;

sayac:Integer;

Zaman2:TCLTimer;

sayac1:Integer;

lblTimer: TCLLabel;

void zamanlayici;

{

if(sayac == sayac)

{

sayac = sayac + 1;

Zaman.Enabled = False;

btn1.Text = IntToStr(sayac);

if(sayac == 25)

{

AnaForm.SetFormColor('#23c7c5','',clGNone);

sayac1 = sayac1 + 3;

btn1.Position.Y = btn1.Position.Y + 30; //KONUM

}

else

{

btn1.Text = IntToStr(sayac);

sayac = sayac + 1;

}

void sure;

{

if(sayac1 == 0)

{

Zaman2.Enabled = False;

lblTimer.caption = IntToStr(sayac1);

ShowMessage('S�reniz Doldu!');

if(btn1 == 2)

{

Zaman2.Enabled= False;

lblTimer.caption = IntToStr(sayac1);

}

else

{

lblTimer.caption=IntToStr(sayac1);

Dec(sayac1);

}

{

sayac=0;

sayac1=20;

AnaForm = TclForm.Create(Self);

Zaman= AnaForm.AddNewTimer(AnaForm,'Zaman',1000);

Zaman.Enabled = True;

AnaForm.AddNewEvent(Zaman,tbeOnTimer,'zamanlayici');

Zaman2=AnaForm.AddNewTimer(AnaForm,'Zaman2',1000);

Zaman2.Enabled=True;

AnaForm.AddNewEvent(Zaman2,tbeOnTimer,'sure');

lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');

lblTimer.StyledSettings = ssFamily;

lblTimer.TextSettings.Font.Size = 35;

lblTimer.Align = alTop;

lblTimer.Height=50;

lblTimer.Width=50;

lblTimer.Margins.Left = 170;

AnaForm.SetFormColor('#52504d','',clGNone);

btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','SAYAC');

btn1.Align = alCenter;

btn1.Position.Y=0; // konum.

btn1.Width = 100;

btn1.Height = 100;

btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');

btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');

btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

btn1.clProSettings.IsTransparent = False;

btn1.clProSettings.FontSize = 12;

btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

btn1.clProSettings.FontHorzAlign = palCenter;

btn1.clProSettings.IsFill = True;

btn1.clProSettings.IsRound = True;

btn1.clProSettings.RoundHeight = 50;

btn1.clProSettings.RoundWidth = 50;

btn1.clProSettings.BorderWidth = 3;

btn1.SetclProSettings(btn1.clProSettings);

AnaForm.AddNewEvent(btn1,tbeOnClick,'zamanlayici');

AnaForm.AddNewEvent(lblTimer,tbeOnClick,'sure');

AnaForm.Run;

}