PHP Forum - Coding Board
Juni 18, 2018, 02:32:48 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: Randomierte zahl und randomiertes Wort  (Gelesen 72 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
Lighti
Jr. Member
**
Beiträge: 74


444350370
Profil anzeigen E-Mail
« am: November 30, 2008, 11:01:54 »

Hey,

hab euch mal 2 Functions geschrieben. Eine gibt eine randomierte Zahl aus, die andere ein(oder mehrere) randomierten Buchstaben.

1.
Code:
Public Function randomzahl(ByVal minlength As Integer, ByVal maxlength As Integer) ' minlength = kleinste Zahl, maxlength = gr??te Zahl
        Dim rnd As New Random 'eine neue Instanz bilden
        Dim i As Integer = rnd.Next(minlength, maxlength) 'bestimmen, welche die kleinste und gr??te zahl ist die bestimmt werden wird
        Return MsgBox(i.ToString) 'sollte klar sein(kann ver?ndert werden...
    End Function 'copyright by lighti
Aufruf:
Code:
randomzahl(1, 900)

2.
Code:
Public Function randomletter(ByVal length As Integer) As String 'length = l?nge sprich wieviele Buchstaben
        Dim str As String = String.Empty 'str = string = leer
        Dim strArray As String() = New 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"} 'die strings, die randomiert wiedergegeben werden sollen
        Dim i As Integer
        For i = 0 To length - 1 'von i(0) zur L?nge und dann - 1
            str = (str & strArray(New Random().Next(strArray.Length))) 'randomierten buchstaben im string speichern
        Next i
        Return MsgBox(str)
    End Function 'copyright by Lighti

Aufruf:
Code:
randomletter(3) 'eine msgbox mit 3 Buchstaben wird wiedergegeben

hoffe ich konnte helfen.
Gespeichert

Meine Signatur mag keiner x[
Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS