AccessTr.neT

Merhaba başlıkta belirttigim gibi mesela 20 haneli rastgele sayı üretmek istiyorum bulabildigim kodlarla yapmaya çalıştım fakat tam olarak 20 olmuyor yardımlarınızı bekliyorum.

Stackoverflowdan alıntıdır :

dim validchars as string = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"



dim sb as new StringBuilder()

dim rand as new Random()

for i as Integer = 1 to 20

    dim idx as Integer = rand.Next(0, validchars.Length)

    dim randomChar as char = validchars(idx)

    sb.Append(randomChar)

next i



dim randomString = sb.ToString()

validchars değişkeninin içine yazılanlardan üretir. Sadece harf isterseniz onları bırakıp diğerlerini silebilirsiniz. Çok daha basit birşey olsun isterseniz MD5 ile random bir değer oluşturup ilk 20 karakterini de alabilirsiniz.

(17/05/2017, 21:50)alpeki99 yazdı: [ -> ]Stackoverflowdan alıntıdır :

dim validchars as string = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"



dim sb as new StringBuilder()

dim rand as new Random()

for i as Integer = 1 to 20

    dim idx as Integer = rand.Next(0, validchars.Length)

    dim randomChar as char = validchars(idx)

    sb.Append(randomChar)

next i



dim randomString = sb.ToString()

validchars değişkeninin içine yazılanlardan üretir. Sadece harf isterseniz onları bırakıp diğerlerini silebilirsiniz. Çok daha basit birşey olsun isterseniz MD5 ile random bir değer oluşturup ilk 20 karakterini de alabilirsiniz.

Teşekkürler Hocam.