مدونة أبو تيم

توليد ارقام وحروف بدون تكرار  

  RSS

أبو تيم
(@f902)
Member Admin
الإنضمام: 3 سنوات مضت
المشاركات: 13
24/04/2019 6:02 م  

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

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

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 

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

TextBox1.Text = RandomNumStr(5) 


أقتباس
شارك:

Please Login or Register