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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61

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


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