Clomosy | Forum : GenerateRandom Fonksiyonu hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 10:53:01 +0000 Wed, 18 Jun 2025 16:18:41 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1037 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[GenerateRandom Fonksiyonu hatası : Merhabalar,clMath.GenerateRandom()...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1037&PID=2071#2071 Yazar: Emr.Erkmn
Konu: 1037
Gönderim Zamanı: 18 Haziran 2025 Saat 16:18

Merhabalar,
clMath.GenerateRandom() fonksiyonu  yerine doğrudan Random() fonksiyonunu kullanabilirsiniz.
Ayrıca, circle1.Align = alNone olarak ayarlanmazsa Position.X ve Y değerleri çalışmaz, buna dikkat etmeniz gerekir.
Aşağıdaki gibi prosedür tanımlayıp form içinde çağırarak sorunu çözebilirsiniz
void randomCircleStart;
{
  randomX = Random(gameForm.clWidth - circle1.Width);
  randomY = Random(gameForm.clHeight - circle1.Height);
  circle1.Position.X = randomX;
  circle1.Position.Y = randomY;
}
Kolay gelsin.
]]> Wed, 18 Jun 2025 16:18:41 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1037&PID=2071#2071 <![CDATA[GenerateRandom Fonksiyonu hatası : Oluşturduğum dairenin konumunun...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1037&PID=2070#2070 Yazar: haletr
Konu: 1037
Gönderim Zamanı: 18 Haziran 2025 Saat 14:02

Oluşturduğum dairenin konumunun formun herhangi bir yerinde başlamasını istiyorum fakat generaterandom fonksiyonu dairenin X ve Y değerlerini değiştirmiyor

var
  gameForm:TclGameForm;
  elapsedTime,randomX,randomY: Integer;
  timer1: TclTimer;
  lblScore: TClProLabel;
  circle1,circle2,circle3,circle4: TclCircle;
void randomCircleStart {

}
//60sn rastgele daire 
{
  gameForm = TCLGameForm.Create(Self);
  gameForm.SetFormColor('#b4e9b5','',clGNone);
  
  circle1 = gameForm.AddNewCircle(gameForm, 'circle1');
  circle1.Width = 100;
  circle1.Height = 100;
  circle1.Fill.Kind = fbkSolid;
  circle1.Stroke.Thickness = 2;
  circle1.Opacity= 0.7;
  randomX=clMath.GenerateRandom(0,TForm(gameForm).ClientWidth - circle1.Height);
  randomY=clMath.GenerateRandom(0,TForm(gameForm).ClientWidth - circle1.Width);
  circle1.Position.X = randomX;
  ShowMessage(circle1.Position.X);
  circle1.Position.Y= randomY;
  ShowMessage(circle1.Position.Y);
  
  gameForm.Run;
}  
]]> Wed, 18 Jun 2025 14:02:55 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1037&PID=2070#2070