[مبرمج أوتار]

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

طلب تعديل على كود توليد ارقام واحرف عشوائيه بشرط عدم تكرر البيانات ولايتعد 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

اتمنى الفكره واضحه ...

[سعود]

تصدق مخي وقف خلاص
احاول افهم المطلوب واكتب الحل.

[learning.net]

اخى الكريم
اعتقد انى فهمت المطلوب (او هذا ما اتمنى )

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

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(5, 5)
        Dim strbuil As New System.Text.StringBuilder
        Do While strbuil.Length < rnd_length
            Dim i As Integer = randam.Next(20)
            If i > 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 


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

وبالتوفيق ان شاء الله

[learning.net]

و اذا كنت تريد توليد ارقام وحروف بدون تكرار يمكنك استخدام هذه الداله

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 i 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) 


[مبرمج أوتار]

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

الحمد الله انحلت المشاكل ...