نص عشوائي من ارقام وحروف

[nothing4u]

السلام عليكم ورحمة الله وبركاته

الكود التالي يقوم بانشاء نص عشوائي مكون من ارقام وحروف بال asp.net
الجزء الاول منه يقوم بانشاء النص والثاني يقوم بانشاء الرقم وبعدها ندمجهم في بعض في متغير من نوع نص

 Dim rStr As New Random()
        Dim i As Integer = Nothing
        Dim strTemp As String = Nothing
        For i = 0 To 5
            strTemp = strTemp & Chr(Int((26 * rStr.NextDouble()) + 65))
        Next

        Dim rInt As Random = New Random
        Dim RandomInt As String = rInt.Next(1, 1000000000).ToString

        Dim RandomCodeV As String = strTemp & "-" & RandomInt

لتغيير عدد الحروف في النص العشواي غير قيمة انتهاء الحلقة For من 5 الى اي رقم تريده
ولتغيير عدد الارقام غير عدد الاصفار في كود انشاء الرقم العشوائي
rInt.Next(1, 1000000000).ToString


اي سؤال بالكود اقدر اجاوب عليه ان شاء الله مابقصر ويارب تستفيدوا منه

في امان الله

[خليل سليم]

السلام عليكم

أخي مشكور وبارك الله فيك على الكود الرائع ولكن عندي تعليق بسيط

بخصوص هذا السطر

Dim i As Integer = Nothing

المتغير انتجر من النوع value type
لذلك ال constructor الخاص به عند انشائه يضع القيمة 0 فيه

يعني لو كتبت Dim i As Integer

فإن قيمة I =0

ولا أعتقد أن هذا السطر كطان ليجوز في ال 2003

ولكنه في ال 2005 يجوز

Nothing خاصة بالمتغيرات ذات المرجع reference type

مثل string.array,object

وأكرر شكري لك مرة أخرى

[nothing4u]

السلام عليكم

أخي مشكور وبارك الله فيك على الكود الرائع ولكن عندي تعليق بسيط

بخصوص هذا السطر

Dim i As Integer = Nothing

المتغير انتجر من النوع value type
لذلك ال constructor الخاص به عند انشائه يضع القيمة 0 فيه

يعني لو كتبت Dim i As Integer

فإن قيمة I =0

ولا أعتقد أن هذا السطر كطان ليجوز في ال 2003

ولكنه في ال 2005 يجوز

Nothing خاصة بالمتغيرات ذات المرجع reference type

مثل string.array,object

وأكرر شكري لك مرة أخرى

بارك الله فيك اخوي خليل صحيح في ال 2003 ماكان رح يقبلها وكان الافضل اني اسند للمتغير integer الصفر بدل ال nothing
مشكور اخوي على هذا التوضيح والتعديل

[asp2asp]

بارك الله فيكما

جميل