Resim Karıştırma

, 'https://resmim.net/cdn/2025/09/18/jdNWJc.png')

   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;

  }

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Gökçe ulusoy Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 17 Eylül 2025 Konum: KONYA Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı Gökçe ulusoy Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Resim Karıştırma Gönderim Zamanı: 4 Saat 14 Dakika Önce 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; }