MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > Asp > Kodlar

İstenilen Sayıda Benzersiz Sayı Üretme

Bu fonksiyon belirlenen sayı aralığında belirlenen sayı kadar rastgele sayılar üretmektedir.

Kategori : Asp
Gönderen : wiseman
Telif :
Tarih : 09 Temmuz 2006
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 12567
Puan
: 5,5 / 10 (4 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
<% 

function diziuret(gelendiziboyut,gelendizimaxdeger) 
Dim sayac, tmp, cnt, gotIt, diziboyut, dizimaxdeger 

 diziboyut = gelendiziboyut 
 dizimaxdeger = gelendizimaxdeger 

 ReDim rastgelesayidizi(diziboyut) 
 Randomize 

 For sayac = 1 To diziboyut 

gotIt = False 
Do Until gotIt = True 
tmp = Int(Rnd(1) * dizimaxdeger) + 1 

If sayac = 1 Then 
rastgelesayidizi(sayac) = tmp 
gotIt = True 
Else 
Do 
For cnt = 1 To sayac 
If tmp = rastgelesayidizi(cnt) Then 
 tmp = Int(Rnd(1) * dizimaxdeger) + 1 
 gotIt = False 
 Exit For 
 
Else 
gotIt = True 'no match 
End If 
 
 Next 

Loop Until gotIt = True 

End If 

If gotIt = True Then 

rastgelesayidizi(sayac) = tmp 
End If 
Loop 
 Next 
 diziuret = rastgelesayidizi 
end function 

a = diziuret(30,30) 
b = diziuret(20,20) 
%>
 
 

İstenilen Sayıda Benzersiz Sayı Üretme için yazılan yorumlar

Henüz yorum eklenmedi.

Yorum ekleyin

Anasayfa > Asp > Kodlar > İstenilen Sayıda Benzersiz Sayı Üretme
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.158.194.80 | 0,11 Saniye
© Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.