vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Zufallsstring wird nur mit nachfolgender Msgbox erzeugt ? 
Autor: Manfred X
Datum: 26.05.21 08:31

Hallo!

Mir fällt nur auf, dass Du nicht typ-sicher programmierst.
Nutze in Zukunft "Option Strict ON".
Random ist auf Klassen-ebene zu deklarieren, damit es wie
vorgesehen arbeiten kann.
Die Obergrenze der Next-Methode muss 1 über der maximal
gewünschten Zufallszahl liegen (exklusiv).

  Dim rnd As New Random(Now.Millisecond)
 
  Public Function CreateRandomString(theLen As Short, art As RandomTextType) As _
    String
        Const lowerChars As String = "abcdefghijklmnopqrstuvwxyzäöüß"
        Const upperChars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ"
        Const numericChars As String = "0123456789"
        Const specChars As String = "!§$%&/()=?{[]}+*~#'-_.:,;<>"
 
        Dim rs As String = ""
        Dim ast As String = "", le, ix As Integer
 
        ' Zusammensetzung gemäß vorgegebener Art
        Select Case art
            Case RandomTextType.LowerCaseLetters
                ast = lowerChars
            Case RandomTextType.UpperCaseLetters
                ast = upperChars
            Case RandomTextType.LowerCaseLettersMixedNumbers
                ast = lowerChars + numericChars
            Case RandomTextType.UpperCaseLettersMixedNumbers
                ast = upperChars + numericChars
            Case RandomTextType.MixedAll
                ast = lowerChars + upperChars + numericChars + specChars
        End Select
 
        le = ast.Length - 1
        For i As Short = 1 To theLen
            ix = rnd.Next(0, le + 1)
            rs &= ast.Substring(ix, 1)
        Next
 
        ' Rückgabe des Strings
        Return rs
  End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zufallsstring wird nur mit nachfolgender Msgbox erzeugt ?89manuelhasi25.05.21 20:34
Re: Zufallsstring wird nur mit nachfolgender Msgbox erzeugt ...46Manfred X26.05.21 08:31
Re: Zufallsstring wird nur mit nachfolgender Msgbox erzeugt ...40manuelhasi26.05.21 10:24

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel