Ceviz Forum

Geri Dön   Ceviz Forum > Programlama > Visual Basic

Cevapla
 
LinkBack Seçenekler
Eski 08/09/2004, 15:09   #1 (permalink)
Üye
 
Üyelik Tarihi: 05/2004
Mesaj: 20
Varsayılan randomize ile rastgele sayı üretirken..

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?
elmyra hatta değil   Alıntı Yaparak Yanıtla
Eski 08/09/2004, 15:22   #2 (permalink)
Üye
 
FREKANS Adlı Üyenin Profil Grafiği
 
Üyelik Tarihi: 09/2004
Mesaj: 3
Varsayılan

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
FREKANS hatta değil   Alıntı Yaparak Yanıtla
Eski 08/09/2004, 15:24   #3 (permalink)
Registered User
 
Üyelik Tarihi: 01/2003
Mesaj: 6,337
Varsayılan

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.
acemi hatta değil   Alıntı Yaparak Yanıtla
Eski 08/09/2004, 23:51   #4 (permalink)
Sadece inan!
 
enosoft Adlı Üyenin Profil Grafiği
 
Üyelik Tarihi: 06/2004
Yer: Bulutların ve Sonsuz maviliğin altı
Mesaj: 226
Varsayılan

Kod:
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
enosoft hatta değil   Alıntı Yaparak Yanıtla
Eski 15/09/2004, 11:21   #5 (permalink)
Üye
 
Üyelik Tarihi: 05/2004
Mesaj: 20
Varsayılan

ürettiğim sayıyı örneğin A(15) dizisine ekersem,
yeni üretilen sayıyı nasıl dizideki sayılarla karşılaştırabilirim?
elmyra hatta değil   Alıntı Yaparak Yanıtla
Eski 18/09/2004, 12:44   #6 (permalink)
Üye
 
Üyelik Tarihi: 09/2004
Yer: ankara
Mesaj: 2
Varsayılan

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.
I_Know hatta değil   Alıntı Yaparak Yanıtla
Cevapla

Bookmarks

Seçenekler

Mesaj Yazma Hakları
Yeni mesajgöndermezsiniz
Cevap yazamazsınız
Dosya ekleyemezsiniz
Mesajınızı düzenleyemezsiniz

BB code is Açık
[IMG] kodu Açık
HTML kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu açana göre Forum Cevap En Son Mesaj
Çoklu Randomize alico ASP 5 07/10/2005 12:44
yine rastgele (Randomize) veri isteği wolverin ASP 2 02/05/2005 11:03
randomize? @alparslan@ ASP 2 15/04/2005 20:16
C de rastgele sayı üretimi hakkında Akın Öcal C / C++ 1 13/02/2005 21:19
Randomize ? Jam PHP 3 27/02/2003 23:24


Forum saati Türkiye saatine göredir. GMT +3. Şu anda saat 10:50.

Reklamlar & Desteklenenler
Hassas Valf | Hassas Kaplama | Antalyamız | Gazete | Ticari Bilişim | Hakan Müştak | Rüya Tabirleri | Kadın | Hastalıklar | Cepte msn ve e-posta | Webmaster | Antalya Aupair | Turkish Property Antalya | Forum | Chat | Perde | Adsl | Araba | bolindir.com | guncelle.com | livescore | Web Tasarım | evden eve nakliyat | forum | evden eve | sohbet | Resimcim| Kalifiye İnsan Kaynakları | Web Tasarım | Oyun | Yusuf KOÇ | Akın Yorulmaz | şiir | UFO | Web Tasarım | Oyunlar | Canlı Tv |


Forum Yazılımı: vBulletin Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.2.0
Copyright ©2001 - 2008, Ceviz.net