Clomosy | Forum : Resim Karıştırma

Clomosy | Forum : Resim Karıştırma https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 02:57:48 +0000 Tue, 23 Sep 2025 13:29:11 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1198 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Resim Karıştırma : Merhaba Gökçe,Kodlarlar da yer...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1198&PID=2557#2557 Yazar: Emr.Erkmn
Konu: 1198
Gönderim Zamanı: 23 Eylül 2025 Saat 13:29

Merhaba Gökçe,
Kodlarlar da yer alan hataları düzelttim
Bir tane süslü parantez hatası vardı döngü kullandığın yerde. Bir kapanış daha koymak gerekliydi.
Ayrıca farklı yerler de hizlama yapmak istiyorsan align özelliğini AlNone olarak ayarlaman gerekiyor.
Kodu aşağıya bırakıyorum inceleyebilirsin;

var

myform:TclForm;

Startbtn:TClProButton;

welcomelabel:TCLLabel;

PPanelMid, PPanel1Top, PPanel2Bottom:TclProPanel;

Image1, Image2, Image3,Image4, Image5,Image6,Image7,Image8 ,backImg:TCLImage;

Images: array[0..7] of TCLImage;

matched: array[0..7] of Boolean;

i, j, k: Integer;

posX: array[0..7] of Integer; // X pozisyonları

posY: array[0..7] of Integer; // Y pozisyonları

void StartGame

var

temp: String;

randomIndex: Integer;

tempImage: TCLImage;

tempX, tempY: Integer;

{

posX[0] = 150; posY[0] = 25;

posX[1] = 350; posY[1] = 25;

posX[2] = 550; posY[2] = 25;

posX[3] = 750; posY[3] = 25;

posX[4] = 150; posY[4] = 25;

posX[5] = 350; posY[5] = 25;

posX[6] = 550; posY[6] = 25;

posX[7] = 750; posY[7] = 25;

// Resimleri karıştır

for i = 0 to 7 {

randomIndex = Random(8);

// Resimleri değiştir

tempImage = Images;

Images = Images[randomIndex];

Images[randomIndex] = tempImage;

// Pozisyonları değiştir

tempX = posX;

tempY = posY;

posX = posX[randomIndex];

posY = posY[randomIndex];

posX[randomIndex] = tempX;

posY[randomIndex] = tempY;

}

for i = 0 to 7 {

Images.Align = alNone;

Images.Position.X = posX;

Images.Position.Y = posY;

}

ShowMessage('Resimler karıştırıldı!');

}

{

myform=TclForm.Create(Self);

myform.SetFormColor('#085e26','#4dcc1e',clGHorizontal);

myform.clSetCaption('MyFirstGame');

myform.clSetWindowState(fwsMaximized);

Startbtn=myform.AddNewProButton(myform, 'Startbtn', 'Başla');

Startbtn.Align=alMostBottom;

Startbtn.width=50;

Startbtn.height=100;

Startbtn.clProSettings.RoundHeight=2;

Startbtn.clProSettings.RoundWidth=2;

Startbtn.clProSettings.BorderColor = clAlphaColor.ClHexToColor('#604201');

Startbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e9e2e2');

Startbtn.SetClProSettings(Startbtn.clProSettings);

welcomelabel = myform.AddNewLabel(myform,'welcomelabel','Resim eşleştirme Oyununa Hoşgeldiniz');

welcomelabel.Styledsettings=ssFamily;

welcomelabel.Textsettings.Font.Size=35;

welcomelabel.Textsettings.FontColor=clAlphaColor.clHexToColor('#ffffff');

welcomelabel.Align=alTop;

welcomelabel.Margins.Left=400;

welcomelabel.width=50;

welcomelabel.height=100;

PPanelMid=myform.AddNewProPanel(myform,'PPanelMid');

PPanelMid.Align = alCenter;

PPanelMid.Width = 1200;

PPanelMid.Height = 400;

PPanelMid.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');

PPanelMid.clProSettings.IsFill = True;

PPanelMid.clProSettings.IsRound = True;

PPanelMid.Margins.Top = -30;

PPanelMid.Margins.Bottom = 50;

PPanelMid.Margins.Left = -5;

PPanelMid.Margins.Right = -5;

PPanelMid.SetclProSettings(PPanelMid.clProSettings);

PPanel1Top=myform.AddNewProPanel(PPanelMid,'PPanel1Top');

PPanel1Top.Align = alTop;

PPanel1Top.Width = 1200;

PPanel1Top.Height = 200;

PPanel1Top.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');

PPanel1Top.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

PPanel1Top.clProSettings.BorderWidth = 2;

PPanel1Top.clProSettings.IsFill = True;

PPanel1Top.clProSettings.IsRound = True;

PPanel1Top.SetclProSettings(PPanel1Top.clProSettings);

PPanel2Bottom=myform.AddNewProPanel(PPanelMid,'PPanel2Bottom');

PPanel2Bottom.Align = alBottom;

PPanel2Bottom.Width = 1200;

PPanel2Bottom.Height = 200;

PPanel2Bottom.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');

PPanel2Bottom.clProSettings.BorderColor = clAlphaColor.clHexToColor('#849e00');

PPanel2Bottom.clProSettings.BorderWidth = 2;

PPanel2Bottom.clProSettings.IsFill = True;

PPanel2Bottom.clProSettings.IsRound = True;

PPanel2Bottom.SetclProSettings(PPanel2Bottom.clProSettings);

Image1 = myform.AddNewImage(PPanel1Top,'Image1');

Image1.Height = 150;

Image1.width=150;

myform.SetImage(Image1,'https://resmim.net/cdn/2025/09/17/jH0iCb.png');

Image1.Align=alNone;

Image1.Position.X = 150;

Image1.Position.Y = 25;

Image2 = myform.AddNewImage(PPanel1Top,'Image2');

Image2.Height = 150;

Image2.width=150;

myform.SetImage(Image2,'https://resmim.net/cdn/2025/09/17/jH0iCb.png');

Image2.Align=alNone;

Image2.Position.X = 350;

Image2.Position.Y = 25;

Image3 = myform.AddNewImage(PPanel1Top,'Image3');

Image3.Height = 150;

Image3.width=150;

myform.SetImage(Image3,'https://resmim.net/cdn/2025/09/17/jH0Ob2.png');

Image3.Align=alNone;

Image3.Position.X = 550;

Image3.Position.Y = 25;

Image4 = myform.AddNewImage(PPanel1Top,'Image4');

Image4.Height = 150;

Image4.width=150;

myform.SetImage(Image4,'https://resmim.net/cdn/2025/09/17/jH0Ob2.png');

Image4.Align=alNone;

Image4.Position.X = 750;

Image4.Position.Y = 25;

Image5 = myform.AddNewImage(PPanel2Bottom,'Image5');

Image5.Height = 150;

Image5.width=150;

myform.SetImage(Image5,'https://resmim.net/cdn/2025/09/17/jH0pMh.png');

Image5.Align=alNone;

Image5.Position.X = 150;

Image5.Position.Y = 25;

Image6 = myform.AddNewImage(PPanel2Bottom,'Image6');

Image6.Height = 150;

Image6.width=150;

myform.SetImage(Image6,'https://resmim.net/cdn/2025/09/17/jH0pMh.png');

Image6.Align=alNone;

Image6.Position.X = 350;

Image6.Position.Y = 25;

Image7 = myform.AddNewImage(PPanel2Bottom,'Image7');

Image7.Height = 150;

Image7.width=150;

myform.SetImage(Image7,'https://resmim.net/cdn/2025/09/17/jH0FgK.png');

Image7.Align=alNone;

Image7.Position.X = 550;

Image7.Position.Y = 25;

Image8 = myform.AddNewImage(PPanel2Bottom,'Image8');

Image8.Height = 150;

Image8.width=150;

myform.SetImage(Image8,'https://resmim.net/cdn/2025/09/17/jH0FgK.png');

Image8.Align=alNone;

Image8.Position.X = 750;

Image8.Position.Y = 25;

Images[0] = Image1;

Images[1] = Image2;

Images[2] = Image3;

Images[3] = Image4;

Images[4] = Image5;

Images[5] = Image6;

Images[6] = Image7;

Images[7] = Image8;

myform.AddNewEvent(Startbtn,tbeOnClick,'StartGame');

myform.Run;

}

]]> Tue, 23 Sep 2025 13:29:11 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1198&PID=2557#2557 <![CDATA[Resim Karıştırma : Resimleri dize üzerine alıp oradan...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1198&PID=2555#2555 Yazar: Gökçe ulusoy
Konu: 1198
Gönderim Zamanı: 22 Eylül 2025 Saat 11:09

Resimleri dize üzerine alıp oradan indexlerine göre karıştırmak istemistim fakat resimlerin konumları değişmedi ve sadece index değerleri değişti. Bu Durumda resimleri karıştırmak ve konumlarını rastgele ayarlamak istediğimde nasıl bir yol izlemeliyim.
var
myform:TclForm;
Startbtn:TClProButton;
welcomelabel:TCLLabel;
PPanelMid, PPanel1Top, PPanel2Bottom:TclProPanel;
Image1, Image2, Image3,Image4, Image5,Image6,Image7,Image8 ,backImg:TCLImage;
Images: array[0..7] of TCLImage;
//switch1:TCLSwitch;
matched: array[0..7] of Boolean;
i, j, k: Integer;

void StartGame;
var
temp:String;
{
for (i=0 to 7)
{
myform.SetImage(Images, 'https://resmim.net/cdn/2025/09/18/jdNWJc.png')
}

{

myform=TclForm.Create(Self);

myform.SetFormColor('#085e26','#4dcc1e',clGHorizontal);
myform.clSetCaption('MyFirstGame')
myform.clSetWindowState(fwsMaximized)


Startbtn=myform.AddNewProButton(myform, 'Startbtn', 'Başla');

Startbtn.Align=alMostBottom;
Startbtn.width=50;
Startbtn.height=100;
Startbtn.clProSettings.RoundHeight=2;
Startbtn.clProSettings.RoundWidth=2;
Startbtn.clProSettings.BorderColor = clAlphaColor.ClHexToColor ('#604201')
Startbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e9e2e2');
Startbtn.SetClProSettings(Startbtn.clProSettings)

welcomelabel = myform.AddNewLabel(myform,'welcomelabel','Resim eşleştirme Oyununa Hoşgeldiniz');
welcomelabel.Styledsettings=ssFamily;
welcomelabel.Textsettings.Font.Size=35;
welcomelabel.Textsettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
welcomelabel.Align=alTop;
welcomelabel.Margins.Left=400;
welcomelabel.width=50;
welcomelabel.height=100;

PPanelMid=myform.AddNewProPanel(myform,'PPanelMid');
PPanelMid.Align = alCenter;
PPanelMid.Width = 1200;
PPanelMid.Height = 400;
PPanelMid.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');
PPanelMid.clProSettings.IsFill = True;
PPanelMid.clProSettings.IsRound = True;
PPanelMid.Margins.Top = -30;
PPanelMid.Margins.Bottom = 50;
PPanelMid.Margins.Left = -5;
PPanelMid.Margins.Right = -5;
PPanelMid.SetclProSettings(PPanelMid.clProSettings);

PPanel1Top=myform.AddNewProPanel(PPanelMid,'PPanel1Top');
PPanel1Top.Align = alTop;
PPanel1Top.Width = 1200;
PPanel1Top.Height = 200;
PPanel1Top.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');
PPanel1Top.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');
PPanel1Top.clProSettings.BorderWidth = 2;
PPanel1Top.clProSettings.IsFill = True;
PPanel1Top.clProSettings.IsRound = True;
PPanel1Top.SetclProSettings(PPanel1Top.clProSettings);

PPanel2Bottom=myform.AddNewProPanel(PPanelMid,'PPanel2Bottom');
PPanel2Bottom.Align = alBottom;
PPanel2Bottom.Width = 1200;
PPanel2Bottom.Height = 200;
PPanel2Bottom.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');
PPanel2Bottom.clProSettings.BorderColor = clAlphaColor.clHexToColor('#849e00');
PPanel2Bottom.clProSettings.BorderWidth = 2;
PPanel2Bottom.clProSettings.IsFill = True;
PPanel2Bottom.clProSettings.IsRound = True;
PPanel2Bottom.SetclProSettings(PPanel2Bottom.clProSettings);

Image1 = myform.AddNewImage(PPanel1Top,'Image1');
Image1.Height = 150;
Image1.width=150;
myform.SetImage(Image1,'https://resmim.net/cdn/2025/09/17/jH0iCb.png');
Image1.Align=alLeft;
Image1.Margins.Left = 150;


Image2 = myform.AddNewImage(PPanel1Top,'Image2');
Image2.Height = 150;
Image2.width=150;
myform.SetImage(Image2,'https://resmim.net/cdn/2025/09/17/jH0iCb.png');
Image2.Align=alLeft;
Image2.Margins.Left = 100;

Image3 = myform.AddNewImage(PPanel1Top,'Image3');
Image3.Height = 150;
Image3.width=150;
myform.SetImage(Image3,'https://resmim.net/cdn/2025/09/17/jH0Ob2.png');
Image3.Align=alLeft;
Image3.Margins.Left = 100;

Image4 = myform.AddNewImage(PPanel1Top,'Image4');
Image4.Height = 150;
Image4.width=150;
myform.SetImage(Image4,'https://resmim.net/cdn/2025/09/17/jH0Ob2.png');
Image4.Align=alLeft;
Image4.Margins.Left = 100;



Image5 = myform.AddNewImage(PPanel2Bottom,'Image5');
Image5.Height = 150;
Image5.width=150;
myform.SetImage(Image5,'https://resmim.net/cdn/2025/09/17/jH0pMh.png');
Image5.Align=alLeft;
Image5.Margins.Left = 150;

Image6 = myform.AddNewImage(PPanel2Bottom,'Image6');
Image6.Height = 150;
Image6.width=150;
myform.SetImage(Image6,'https://resmim.net/cdn/2025/09/17/jH0pMh.png');
Image6.Align=alLeft;
Image6.Margins.Left = 100;

Image7 = myform.AddNewImage(PPanel2Bottom,'Image7');
Image7.Height = 150;
Image7.width=150;
myform.SetImage(Image7,'https://resmim.net/cdn/2025/09/17/jH0FgK.png');
Image7.Align=alLeft;
Image7.Margins.Left = 100;

Image8 = myform.AddNewImage(PPanel2Bottom,'Image8');
Image8.Height = 150;
Image8.width=150;
myform.SetImage(Image8,'https://resmim.net/cdn/2025/09/17/jH0FgK.png');
Image8.Align=alLeft;
Image8.Margins.Left = 100;

Images[0] = Image1;
Images[1] = Image2;
Images[2] = Image3;
Images[3] = Image4;
Images[4] = Image5;
Images[5] = Image6;
Images[6] = Image7;
Images[7] = Image8;

myform.AddNewEvent(Startbtn,tbeOnClick,'StartGame');

myform.Run;

}

]]> Mon, 22 Sep 2025 11:09:26 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1198&PID=2555#2555