[e-coder]

سلام عليكم

بعد الصلاة على سيدنا محمد

مالمشكلة في كتابه كود

الرجاء حل مشكله وشكرا

دد

PHP كود :

   Private Function Gen(ByVal Len As Integer) As String
        Dim rand As New Random(CInt(DateTime.Now.Ticks))
        Dim input As String = "abcdefghijklmnopqrstuvwxyz"
        Return New String(Enumerable.ToArray(Of Char)((From x In Enumerable.Range(0, Len) Select input.Chars(rand.Next(0, input.Length)))))
    End Function 


[الحازمي]

أخي كودر

إجعل السطر هكذا فقط Dim rand As New Random وستزول المشكلة