+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] اريد كود لتوليد ارقام عشوئية (/showthread.php?tid=28039)
اريد كود لتوليد ارقام عشوئية - issamsaidd - 26-12-18
السلام عليكم ورحمه الله وبركاته اريد كود
لتوليد ارقام عشوئية من 9 اراقام غير قابله للتكرار
عند الضغط على زر جديد ينزل تلقائى فى رقم الهوية 9 ارقام وهكذا كل مره وتكون غير قابلة للتكرار
صورة للمشروع ورابط التحميل
وشكرا لكم مقدما على هذا المنتدى الرائع الذى اسئل الله ان يجعل اعملكم فى ميزان حسناتكم
RE: اريد كود لتوليد ارقام عشوئية - a.wagdi - 26-12-18
وعليكم السلام ورحمة الله وبركاته
لتوليد رقم الهوية عشوائي من 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
RE: اريد كود لتوليد ارقام عشوئية - issamsaidd - 26-12-18
شكرا جزيلا لك هلى لى من طلب اخر
عند اختيار الحالة الاجتماعية اعزب يعدل على تاريخ الميلاد ويذدة 10 ايام
وعند اختيار متزوج يزيد تاريخ الميلاد 20 يوم
ييعدل على التاريخ الى موجود با الصورة ومشكورين جدا
RE: اريد كود لتوليد ارقام عشوئية - a.wagdi - 26-12-18
(26-12-18, 08:04 PM)issamsaidd كتب :شكرا جزيلا لك هلى لى من طلب اخر
عند اختيار الحالة الاجتماعية اعزب يعدل على تاريخ الميلاد ويذدة 10 اياموعند اختيار متزوج يزيد تاريخ الميلاد 20 يومييعدل على التاريخ الى موجود با الصورة ومشكورين جدا
تفضل الكود مع أنه من الأفضل أن تجعل أي تنصيف عبارة عن رقم سواء كانت الحالة الاجتماعية أو ما شابهها
كأن تكون:
اعزب = 0
متزوج = 1
مطلق = ؟؟ وهكذا
ثم تحفظ الرقم وليس المسمى
لأنه لو تم كتابة"أعزب" بدلا من "اعزب" بتختلف في المقارنة، وقس على ذلك كل التصنيفات
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If SulComboBox.Text.Trim = "اعزب" Then AgeDateTimePicker.Value = AgeDateTimePicker.Value.AddDays(10).Date
If SulComboBox.Text.Trim = "متزوج" Then AgeDateTimePicker.Value = AgeDateTimePicker.Value.AddDays(20).Date
Me.Validate()
Me.TestBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.TestDataSet)
Catch ex As Exception
MsgBox("لابد من ادخال رقم الهوية")
End Try
End Sub
RE: اريد كود لتوليد ارقام عشوئية - issamsaidd - 26-12-18
شكرا لك تم بنجاح
اخى الكريم هلى لى من استفسار لم اجد له حل هذه القاعدة اكسس والوجه فيجول بيسك
رففعتهم على دربوكس وفتحت الاثنين من اجهزه مختلفة واضضفة جدولين وحفظتهم فى فى نفس الوقت راح نسخ القاعدة ولم يضيف الملف
هل يمكن جهاز مثل هذا البرنامج يقلبل الادخال من اكثر من يوزر فى نفس الوقت والوسيط دربوكس وشكرا لك
انتمنى انى اجد اجابة لان لم اجد
RE: اريد كود لتوليد ارقام عشوئية - a.wagdi - 26-12-18
(26-12-18, 10:09 PM)issamsaidd كتب :اخى الكريم هلى لى من استفسار لم اجد له حل هذه القاعدة اكسس والوجه فيجول بيسكرففعتهم على دربوكس وفتحت الاثنين من اجهزه مختلفة واضضفة جدولين وحفظتهم فى فى نفس الوقت راح نسخ القاعدة ولم يضيف الملفهل يمكن جهاز مثل هذا البرنامج يقلبل الادخال من اكثر من يوزر فى نفس الوقت والوسيط دربوكس وشكرا لكانتمنى انى اجد اجابة لان لم اجد
استخدام الأكسس في الشبكات ليس جيدا
وعلى الإنترنت سيء جدا ولا ينصح به
استخدم استضافة MySql على الإنترنت
إليك هذا الموقع وهو مجاني لقواعد بيانات MySql
https://www.db4free.net
تحياتي لك أخي الكريم
RE: اريد كود لتوليد ارقام عشوئية - issamsaidd - 27-12-18
شكرا لك
هل يمكن جعل الارقام العشوائية تسلسلة يعنى عند الضغط على زر جديد
يعد
1
2
3
4
5
6
وهكذا وشكرا لك
RE: اريد كود لتوليد ارقام عشوئية - a.wagdi - 27-12-18
(27-12-18, 05:58 PM)issamsaidd كتب :شكرا لكهل يمكن جعل الارقام العشوائية تسلسلة يعنى عند الضغط على زر جديديعد123456وهكذا وشكرا لك
ضع نوع الحقل ترقيم تلقائي
RE: اريد كود لتوليد ارقام عشوئية - issamsaidd - 02-01-19
شكرا لك ولكن اريده لشى اخر