تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب تعديل على كود توليد Random
#1
السلام عليكم وحمة الله وبركاته

طلب تعديل على كود توليد ارقام واحرف عشوائيه بشرط عدم تكرر البيانات ولايتعد 5 ارقام واحرف ...

مثال على المطلوب :-

UT245
GT200
DS285
JG254

الكود هذا يظهر الحرف فقط اريد اضافة الارقام معه

كود :
Dim Random = New Random
        Dim Rand As String = ""
        Do Until Val(Rand.Length) >= 5
            Rand &= ChrW(Random.Next(Asc("A"), Asc("Z")))
            TextBox1.Text = Rand
        Loop


لدي مشكله اخرى

هي في ComboBox

ComboBox يوجد فيها ثلاث قيم 1 و 2 و 3

المطلوب هو

لدي Panel1 في حاله Panel1.Visible = False

ولكن بشرط اذا تم اختيار القيمة رقم 2 يظهر لى Panel1.Visible = True

واذا تم تغير القيمة الي الحالات 1 او 3 يظهر بحاله Panel1.Visible = False بمعنى يختفي :o

اتمنى الفكره واضحه ...
الرد }}}}
تم الشكر بواسطة:
#2
تصدق مخي وقف خلاصSad
احاول افهم المطلوب واكتب الحل.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#3
اخى الكريم
اعتقد انى فهمت المطلوب (او هذا ما اتمنى Big Grin)

بالنسبه لكود التوليد العشوائى للحروف والارقام معا يمكنك تجربة هذا الكود

PHP كود :
Dim randam As New Random
        Dim int 
As String ChrW(randam.Next(Asc("0"), Asc("9")))
        
Dim str As String ChrW(randam.Next(Asc("a"), Asc("z")))
        
Dim rnd_length As Integer randam.Next(55)
        
Dim strbuil As New System.Text.StringBuilder
        
Do While strbuil.Length rnd_length
            Dim i 
As Integer randam.Next(20)
            If 
10 Then
                strbuil
.Append(str(randam.Next(str.Length)))
            Else
                
strbuil.Append(int(randam.Next(int.Length)))
            
End If
        
Loop

        TextBox1
.Text strbuil.ToString 

وبالنسبه لل ComboBox

فى حدث ال SelectedIndexChanged تبع ال ComboBox ضع هذا الكود

PHP كود :
Select Case ComboBox1.Text
            
Case 1
                Panel1
.Visible False
            
Case 2
                Panel1
.Visible True
            
Case 3
                Panel1
.Visible False
        End Select 

اتمنى ان اكون فهمت المطلوب .... اما غير ذلك فاعذرنى لعدم فهمى

وبالتوفيق ان شاء الله
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}}
تم الشكر بواسطة:
#4
و اذا كنت تريد توليد ارقام وحروف بدون تكرار يمكنك استخدام هذه الداله

PHP كود :
Public Shared Function RandomNumStr(ByVal intStrLength As Integer) As String

        Dim chars 
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

        
Dim intLength As Integer intStrLength 1

        Dim stringChars 
= New Char(intLength) {}

        
Dim random = New Random()

        For 
As Integer 0 To stringChars.Length 1
            stringChars
(i) = chars(random.[Next](chars.Length))
        
Next

        Dim finalString 
= New [String](stringChars)
        Return 
finalString
    End 
Function 

وفى اى حدث ضع هذا الكود

PHP كود :
TextBox1.Text RandomNumStr(5
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}}
تم الشكر بواسطة:
#5
بارك الله فيك يا اخي

الحمد الله انحلت المشاكل ...
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 9 84 منذ 3 ساعة مضت
آخر رد: سعود
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 106 22-05-17, 09:25 AM
آخر رد: hglogtd
  منع تعديل التاريخ والوقت ريم النهاري 7 149 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 206 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  مساعده فى تعديل الكود ده لو سمحتوا يا جماعه نبيل كونكت 2 142 22-04-17, 06:16 PM
آخر رد: عبـدالله
  مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا نبيل كونكت 8 181 20-04-17, 01:41 PM
آخر رد: أسامة السالمي
  كيف يمكن تعديل كموبوكس داخل داتا جريد كفاح 0 70 14-04-17, 12:34 PM
آخر رد: كفاح
  [VB.NET] يرجى المساعدة في تعديل كود الطباعة dubai.eig 14 308 13-04-17, 09:40 PM
آخر رد: dubai.eig
  مساعدة في تعديل الكود المرفق للبحث Filter khaled12345 2 144 10-04-17, 11:41 PM
آخر رد: khaled12345
  طلب تعديل كود فراس محي 1 72 03-04-17, 02:08 PM
آخر رد: فراس محي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم