Visual Basic .NET 2010 Rastgele Harf ve Sayı Oluşturmak [Fonksiyon]

Public Function RastgeleÜret(ByVal length As Integer) As String
Dim DeğişkenÜretici As New System.Text.StringBuilder
Dim Karakterler() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", _
"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "X", _
"1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
Dim büyüklük As Integer = UBound(Karakterler)

For x As Integer = 1 To length
DeğişkenÜretici.Append(Karakterler(Int(Rnd() * büyüklük)))
Next

Return DeğişkenÜretici.ToString

End Function

Genişletmek için tıkla ...

txtSayı = RastgeleÜret(10)

Genişletmek için tıkla ...