26-12-18, 05:43 PM
وعليكم السلام ورحمة الله وبركاته
لتوليد رقم الهوية عشوائي من 9 ارقام غير قابلة للتكرار عليك بالخطوات التالية:
1. قراءة جميع أرقام الهوية المسجلة سابقا
2. توليد رقم جديد عشوائي ضمن مجال 100000000 و 999999999 أي 9 أرقام
3. البحث في القائمة السابقة عم وجود الرقم الجديد بينهم
4. في حالة عدم وجود الرقم الجديد ضمن القائمة السابقة يتم اعتماده وإلا يتم الرجوع الخطوة 2
هذا هو الكود
لتوليد رقم الهوية عشوائي من 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
