VB Key Generator?

[FwDonnerbalken]

Was du jetzt gemacht hast ist: Du prüfst, ob sKey = String.Empty ist und schreibst das Ergebnis, scheinbar True in das Label... hier mal der Code wie er sein sollte und lies dir mal ein Buch über VB.NET durch, das macht durchaus Sinn, da werden alle die grundlegenden Sachen erklärt, wie zum Beispiel Deklaration, Definition, Initialisierung etc.

Was soll das den machen?
For i = 1 To 0, wenn du das machst, könntest du den Code Schleife auch direkt löschen

Aber ich will ja nicht so sein, so läufts:

        ' zufälligen Key aus Großbuchstaben und
        ' Zahlen ermitteln

        Dim i As Integer
        Dim nValue As Integer = 10
        Dim sKey As String = String.Empty

        For i = 1 To nValue
            Randomize()
            nValue = Int(1000 * Rnd())
            If (nValue Mod 10 = 0) Or (nValue Mod 5 = 0) Or (nValue Mod 3 = 0) Then
                ' Zahl
                Randomize()
                Do
                    nValue = Int(8 * Rnd() + 1)
                Loop Until nValue >= 1 And nValue <= 9
                sKey = sKey & Chr(48 + nValue)

            Else
                ' Buchstabe
                Randomize()
                Do
                    nValue = Int(26 * Rnd())
                Loop Until nValue >= 1 And nValue <= 26 And nValue <> 9 And nValue <> 15
                sKey = sKey & Chr(64 + nValue)
            End If
        Next i

        Label1.Text = sKey

 

[HORNSWOGGLE]

Ja Wunderbar,jetzt funtz er,

Ich DANKE dir für die Zeit die du geopfert hast!

Vielen Dank!

 

[FwDonnerbalken]

Kein Ursache!

Ich lege dir nahe, deine erste Variante mit der letzten, die nun funktioniert, zu vergleichen und vor allem, zu verstehen, was warum anders ist!

Gute Nacht!