visual basic Random Karakter Üretmek

ZuL-RaA' Alıntı:

Kod:

' Make the random words.
Private Sub btnGo_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnGo.Click
    lstWords.Items.Clear()

    ' Get the number of words and letters per word.
    Dim num_letters As Integer = _
        Integer.Parse(txtNumLetters.Text)
    Dim num_words As Integer = _
        Integer.Parse(txtNumWords.Text)

    ' Make an array of the letters we will use.
    Dim letters() As Char = _
        "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()

    ' Make a random number generator.
    Dim rand As New Random()

    ' Make the words.
    For i As Integer = 1 To num_words
        ' Make a word.
        Dim word As String = ""
        For j As Integer = 1 To num_letters
            ' Pick a random number between 0 and 25
            ' to select a letter from the letters array.
            Dim letter_num As Integer = rand.Next(0, _
                letters.Length - 1)

            ' Append the letter.
            word &= letters(letter_num)
        Next j

        ' Add the word to the list.
        lstWords.Items.Add(word)
    Next i
End Sub

Random sınıfının Next yöntemi rastgele sayılar üretir. Rastgele sözcükler oluşturmak için bir harf dizisi yapın. Ardından, sözcüğe eklemek üzere harflerden birini seçmek için bir Random nesnesi kullanın. Sözcük ihtiyacınız olduğu sürece kadar tekrarlayın. Sözcük sayısını ve sözcük uzunluğunu girip Git'i tıkladığınızda, aşağıdaki kod rastgele sözcükler oluşturur ve bunları bir ListBox'a ekler. (Gerçek bir programda, sözcükleri bir dosyalayın veya bir liste veya diziye koyun.)

VB Helper: HowTo: Generate random strings in Visual Basic .NET

Merhabalar,

Yukarı daki siteden o kodu aldım. Açıklamasını Google çeviri ile çevirdim. İşinize yarayacağını düşünüyorum..

Eğer visul basic biliyorsunuz şu mantıkta bir şey de yapabilirsiniz.

Bir liste oluşturup içine olmasını istediğiniz harfleri koyun.

Sonra rastgele bir harf seçip onu dosyaya yazdırın. Sonra aynı şekilde kaç tane istiyorsunuz o tip bir döngüye sokun. Sonra ise onu dosyadan alıp kullanırsınız.

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

atabey2772' Alıntı:

Merhaba reis, 2. dediğinde bir yöntem ama ben o yöntemi uygulamayı bilmiyorum 1. yöntemi ise deniyeceğim biraz karmaşık anladım eğer anladığımı doğru anladıysam tabi.

Konuyu düzenledim tekrar bak istersen

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

Functon GeneratePassword()
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim r As New Random
        Dim sb As New StringBuilder
        For i As Integer = 1 To 15
            Dim idx As Integer = r.Next(0, 35)
            sb.Append(s.Substring(idx, 1))
        Next
        return sb.ToString()
End Function

ZuL-RaA' Alıntı:

Konuyu okusun tekrardan, 15 haneli rastgele bir karakter dizisi oluşturmak istiyorsun anladığına göre. Attığım koda ek şöyle bir kod daha var. 15 haneli dizi üretip sana döndürecektir.

Kod:

Functon GeneratePassword()
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim r As New Random
        Dim sb As New StringBuilder
        For i As Integer = 1 To 15
            Dim idx As Integer = r.Next(0, 35)
            sb.Append(s.Substring(idx, 1))
        Next
        return sb.ToString()
End Function

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