vb.net generate random number und string

Ich will eine Zufallszahl erzeugen 6 intergers in vb.net das sollte die Nummer sein und auch einige Male alphanumerice.Wie tritt 4 oder 5 zahlen sollten zahlen und nächsten sollte alphnumeric.Erstellt habe ich beide zahlen zu zahlen.wie diese

Public Function rand() As String
        'Number
        Dim rng As Random = New Random
        Dim number As Integer = rng.Next(1, 1000000)
        Dim digits As String = number.ToString("000000")
        'Alphnumeric
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim r As New Random
        Dim sb As New StringBuilder
        For i As Integer = 1 To 5
            Dim idx As Integer = r.Next(0, 35)
            sb.Append(s.Substring(idx, 1))
        Next
    End Function

Nun Geben Sie Mir die Idee, dass in dieser Funktion kann ich die Zahl zurück, und einige Male string oder kann b eine einzelne Instanzen erstellen, die sowohl zahlen als auch strings.

Hinzufügen Sie können eine Probe von dem, was Ihre erwartete Ausgabe in dieser Funktion werden sollten?
ich möchte, dass die Funktion zurückgeben sollte 123456 und einige Male 123ABC und so auf alle randoms
do u verstehen die Anforderungen

InformationsquelleAutor user2695435 | 2013-09-07

  1. 1

    Das erste problem zu lösen, ist die random number generator. Sollten Sie nur eine Instanz und nicht mehrere Instanzen, gibt sich wieder die gleiche Sequenz, wenn in kurzer Zeit erreichbar. Dann ist es
    schwer zu sagen, was "etwas" bedeutet, in Ihren Anforderungen, aber angenommen, Sie sind in Ordnung mit rougly 70% Zahl und zu 30% aus einer Mischung von zahlen und strings, dann rufen Sie den Zufallsgenerator, um zu entscheiden, für eine Sequenz von zahlen oder gemischt. Basierend auf der Ausgabe von der zufälligen Auswahl der Sequenz aufzubauen, von den entsprechenden string

    ' A global unique random generator'
Dim rng As Random = New Random
Sub Main
    Console.WriteLine(rand())
    Console.WriteLine(rand())
    Console.WriteLine(rand())
    Console.WriteLine(rand())
End Sub

Public Function rand() As String

    Dim sb As New StringBuilder

    ' Selection of pure numbers sequence or mixed one
    Dim pureNumbers = rng.Next(1,11)
    if pureNumbers < 7 then
        ' Generate a sequence of only digits
        Dim number As Integer = rng.Next(1, 1000000)
        Dim digits As String = number.ToString("000000")
        For i As Integer = 1 To 6
            Dim idx As Integer = rng.Next(0, digits.Length)
            sb.Append(digits.Substring(idx, 1))
        Next
    else
        ' Generate a sequence of digits and letters 
        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        For i As Integer = 1 To 6
            Dim idx As Integer = rng.Next(0, 36)
            sb.Append(s.Substring(idx, 1))
        Next
    End if 
    return sb.ToString()
End Function
    Dank Dieser war ich will!!!

    InformationsquelleAutor Steve

Schreibe einen Kommentar