تقييم الموضوع :
  • 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
بارك الله فيك يا اخي

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل كود لاظهار الصور من السكانر f-www 8 1,044 22-02-17, 07:25 PM
آخر رد: عدنان الشمري
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 384 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 0 47 06-02-17, 06:51 PM
آخر رد: 3asfa~mdmra
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 223 02-02-17, 06:12 PM
آخر رد: Marwan9990
  Random من listbox Mohamed20 9 206 01-02-17, 01:18 AM
آخر رد: Mohamed20
  [سؤال] تعديل عدة سجلات ابو يوسف النواوي 2 8 163 30-01-17, 03:19 AM
آخر رد: ابو ليلى
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 83 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 123 22-01-17, 01:39 PM
آخر رد: thevirus
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 502 04-01-17, 01:12 AM
آخر رد: Namer
  مشكلة في توليد arabic qr code osmana2005 4 252 26-12-16, 08:29 AM
آخر رد: مساعدة

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


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