randomize ile rastgele sayı üretirken..

[elmyra]

randomize ile örneğin 1den 50 ye kadar sayıları rastgele seçeceğiz.
örneğin ilk seçme işleminde 20 sayısı çıktı, ikinci seçme işleminde 20 nin tekrar gelmemesi için ne yapmamız gerekiyor?

[FREKANS]

Function Bul(max as Interger) as Integer
randomize time
Bul=CInt(rnd*Max)
End Function

'Bu Fonksiyonu Kullanarak Rahat Rahat Farklı Sayılar Uretebilirsin
'Mesela
Private Sub CmdBul_Click()
MsgBox Bul(50)
End Sub

[acemi]

Secilenleri bir diziye yerlestireceksin. Daha sonraki secimlerde dizide bulunan bir sayi gelirse tekrardan sectireceksin.

Veya her seferinde secenek sayisini 1 azaltacaksin. Ornegin ilk seferde 1..50, ikinci seferde 1..49, ucuncu seferde 1..48 arasindan sectireceksin. Gelen sayiya gore (buna N diyelim) 1..50 arasinda secilmemis N. sayiyi alacaksin.

[enosoft]

Dim MyValue
Randomize   ' rasgele sayı üreteci.
MyValue = Int((50 * Rnd) + 1)   ' 1 den 50 ye Rasgele sayi türetir.

Her seferinde farklı bir sayı çıkar,
Arada aynı sayının tekrar gelmemesini istiyorsan, her seferinde çıkan sayıları bir yere not alman ve ürettiğin resgele sayıyla sorgulaman lazım...

Aynı program icerisinde defalarca kullanacaksan çıkan sayıları bir diziye eklemen,
farklı program içerisinde kullanacaksan external bir dosya kullanman lazım

[elmyra]

ürettiğim sayıyı örneğin A(15) dizisine ekersem,
yeni üretilen sayıyı nasıl dizideki sayılarla karşılaştırabilirim?

[I_Know]

sevgili elmyra
bunun için döngü kullanarak, bulunan sayı ile dizideki sayıyı karşılaştırabilirsin

örneğin; diyelimki 15 tane sayı bulduk ve A() dizisinde aklımızda tuttuk. kontrolü için aşağıdaki kodu kullanıyoruz.

x = Rastgele bulunan sayı
for i = 1 to 15
if x = a(i) then 'bu kod bulunan sayı a() dizisinde mevcut ise demek
'burada başka bi sayı bularak a(i) değişkenine atanacak (tabiki i=1 diyerek diziyi tekrardan kontrol yapmamız gerekecek)
end if
next

kolaygelsin. yinede takıldığınız yer olursa tam kod yazabilirim.
sevgiler.