تقييم الموضوع :
  • 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] ممكن تعديل الكود التالي D-Z 0 36 21-09-17, 06:34 PM
آخر رد: D-Z
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 36 19-09-17, 03:33 PM
آخر رد: أبو نوره
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 133 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 523 15-09-17, 06:54 PM
آخر رد: مصمم هاوي
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 164 06-09-17, 08:32 AM
آخر رد: gharib
  [كود] احتاج الى تعديل :( MeDo Ly 2 101 25-08-17, 11:41 PM
آخر رد: أبو نوره
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتي e-coder 1 90 09-08-17, 06:25 AM
آخر رد: e-coder
  [سؤال] هل الكود التالي يمكن ان يسجل صوت الكومبيوتر بعد تعديل بسيط سعود 4 139 09-08-17, 03:56 AM
آخر رد: سعود
  مشكله فى DateTimePicker1 تعديل كود نبيل كونكت 2 133 31-07-17, 07:51 PM
آخر رد: ابو محمد القحطاني
  [VB.NET] طلب تعديل في كود للطباعة باستخدام اداة PrintDocument (مرفق) ssayed111 1 183 28-07-17, 01:27 AM
آخر رد: IBRA939

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


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