Dim Eingebunden As New Class_Zufall
 
Dim Testinstanz As New Testklasse()
Testinstanz.RaumID = Eingebunden.FuncGetOrtszahl()

Class Testklasse
 
    Public RaumID As Integer
 
End Class

Class Class_Zufall
 
    Public ArrInhalt(0) As Integer
 
    Private Shared Ortszufall As New System.Random()
 
   Function FuncGetOrtszahl() As Integer
 
 
        Dim Schleifenhilfe As Boolean = False
 
        'Zufallszahl generieren
 
        Dim Zufallszahl As Integer = Ortszufall.Next(1, 6)
 
        'Anzahl der Elemente im Array
        Dim s As Integer = ArrInhalt.Length - 1
 
        'Generierte Zufallszahl wird ins Array eingetragen
        ArrInhalt(s) = Zufallszahl
 
        'Schleife wird so lange durchlaufen bis Schleifenhilfe = TRUE ist.
        'Dies passiert nur im Elsezweig, nämlich wenn die 
        'generierte Zahl noch nicht im Array vorhanden ist.
        Do
 
            'Wenn generierte Zufallszahl im Array schon vorhanden ist, 
            'wird das Array neu dimensioniert und vergrößert.
            If Not Array.IndexOf(ArrInhalt, Zufallszahl) = -1 Then
                MsgBox("zahl bereits erhalten.")
                ReDim Preserve ArrInhalt(s + 1)
 
            Else
                Schleifenhilfe = True
                Return Zufallszahl
            End If
 
        Loop Until Schleifenhilfe = True
 
 
    End Function
End Class

Gru?

RollingStones