+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكله بسيطة في الكود التالي (/showthread.php?tid=30346)
مشكله بسيطة في الكود التالي - e-coder - 17-07-19
سلام عليكم
بعد الصلاة على سيدنا محمد
مالمشكلة في كتابه كود
الرجاء حل مشكله وشكرا
دد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
RE: مشكله بسيطة في الكود التالي - الحازمي - 17-07-19
أخي كودر
إجعل السطر هكذا فقط Dim rand As New Random وستزول المشكلة