[a.wagdi]

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

لتوليد رقم الهوية عشوائي من 9 ارقام غير قابلة للتكرار عليك بالخطوات التالية:
1. قراءة جميع أرقام الهوية المسجلة سابقا
2. توليد رقم جديد عشوائي ضمن مجال 100000000 و 999999999 أي 9 أرقام
3. البحث في القائمة السابقة عم وجود الرقم الجديد بينهم
4. في حالة عدم وجود الرقم الجديد ضمن القائمة السابقة يتم اعتماده وإلا يتم الرجوع الخطوة 2


هذا هو الكود

PHP كود :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Try
        BindingNavigatorAddNewItem.PerformClick()
        Me.AgeDateTimePicker.Value = Date.Now

        ' قراءة جميع أرقام الهوية المسجلة سابقا
        Dim Ids = From x In Me.TestDataSet.test Select x.id

        ' إنشاء متغير من دالة الأرقام العشوائية وتكون خارج اللوب
        Dim r As New Random

        ' لوب
        Do

            ' توليد رقم عشوائي ضمن مجال بين 100000000 و999999999 أي 9 أرقام
            Dim n = r.Next(100000000, 999999999)

            ' التأكد من عدم وجود الرقم الجديد ضمن القائمة السابقة
            If Not Ids.Contains(n) Then

                ' اعتماد الرقم الجديد ووضعه في مربع نص رقم الهوية
                IdTextBox.Text = n

                ' الخروج من اللوب
                Exit Do

            End If
        Loop

    Catch ex As Exception
        MsgBox("عفوا هناك سجل مفتوح حاليا", MsgBoxStyle.Information)
    End Try
End Sub