Rastgele yer değiştirme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Raskolnikov
Üye
Mesajlar: 37
Kayıt: 15 Tem 2010 10:43

Rastgele yer değiştirme

Mesaj gönderen Raskolnikov »

Merhaba;

25 farklı label de isimler yazıyor.(ahmet ,mehmet vs vs.) bunları bir dizi içine alıyorum.Ancak buton a her bastığımda 25 label tamamen yer değiştirecek ama asla bir önceki konumda olmayacak şekilde değişim sağlanacak.

Kod: Tümünü seç

[ahmet...ayşe]

Kod: Tümünü seç

Ahmet repace x random
Ayşe replace y random
gibi bir bağlamda konumlandırmayı nasıl yapabilirim.
Kullanıcı avatarı
Battosai
Üye
Mesajlar: 1316
Kayıt: 01 Eki 2007 12:02
Konum: Ankara

Re: Rastgele yer değiştirme

Mesaj gönderen Battosai »

Konum derken alt alta mı, yan yana mı listeleniyor labellar...yoksa bir panelin içinde rastgele mi dağılacaklar ?
Raskolnikov
Üye
Mesajlar: 37
Kayıt: 15 Tem 2010 10:43

Re: Rastgele yer değiştirme

Mesaj gönderen Raskolnikov »

Aslında soruyu okudum aceleden yazmıştım şimdi daha net aktarayım.

Labeller formun üzerinde 5 erli şekilde durmakta (yan yana ve alt alta)

aslında bunun hiç önemi yok çünkü isimler değişse yeterli yani labelde yazan isimler mesela

Kod: Tümünü seç

label1.caption:='Ahmet' 
label18.caption:='Mehmet' 
butona bastığımda 25 label deki isimler değişecek

yani

Kod: Tümünü seç

label1.caption:='Veli'
Label18.caption:='Nurhan'
gibi olacak.İsimler ve sayıları belli 25 adet isim var sadece yer değiiştirmesini istiyorum biraz karmaşık galiba.Bunu okeyde taş dağıtma veya kart oyununda kart dağıtmak gibi düşünebilirz.Her el farklı kart dağıtılır gibi gibi..
Kullanıcı avatarı
Battosai
Üye
Mesajlar: 1316
Kayıt: 01 Eki 2007 12:02
Konum: Ankara

Re: Rastgele yer değiştirme

Mesaj gönderen Battosai »

Aşağıdaki linkdeki örneği sayılar için yapmıştım...siz bu örneği kendinize göre uyarlayın...yani isimleri bir array içine alın 1-25 arası random sayı çevirin dönen sayıyı sırası gelen label a atayın...örneği görünce yaparsınız...örnekteki rastgele sayı üreten fonksiyon tekrarlı sayı üretmiyor sanırım istediğinizde bu....
download/file.php?id=210
Cevapla