تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود لتوليد ارقام عشوئية
#1
 السلام عليكم ورحمه الله وبركاته اريد كود 
لتوليد ارقام عشوئية من 9 اراقام غير قابله للتكرار 
عند الضغط على زر جديد ينزل تلقائى فى رقم الهوية 9 ارقام وهكذا كل مره وتكون غير قابلة للتكرار 
صورة للمشروع ورابط التحميل 
وشكرا لكم مقدما على هذا المنتدى  الرائع الذى اسئل الله ان يجعل اعملكم فى ميزان حسناتكم 

 
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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


هذا هو الكود
PHP كود :
Private Sub Button4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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(100000000999999999)

 
           ' التأكد من عدم وجود الرقم الجديد ضمن القائمة السابقة
            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 
الرد
تم الشكر بواسطة: عبد العزيز البسكري , issamsaidd
#3
شكرا جزيلا لك هلى لى من طلب اخر

 عند اختيار الحالة الاجتماعية اعزب يعدل على تاريخ الميلاد ويذدة 10 ايام
وعند اختيار متزوج يزيد تاريخ الميلاد 20 يوم  
ييعدل على التاريخ الى موجود با الصورة ومشكورين جدا 
الرد
تم الشكر بواسطة:
#4
(26-12-18, 08:04 PM)issamsaidd كتب :
شكرا جزيلا لك هلى لى من طلب اخر

 عند اختيار الحالة الاجتماعية اعزب يعدل على تاريخ الميلاد ويذدة 10 ايام
وعند اختيار متزوج يزيد تاريخ الميلاد 20 يوم  
ييعدل على التاريخ الى موجود با الصورة ومشكورين جدا 


تفضل الكود مع أنه من الأفضل أن تجعل أي تنصيف عبارة عن رقم سواء كانت الحالة الاجتماعية أو ما شابهها
كأن تكون: 
اعزب = 0
متزوج = 1
مطلق = ؟؟     وهكذا

ثم تحفظ الرقم وليس المسمى

لأنه لو تم كتابة"أعزب" بدلا من "اعزب" بتختلف في المقارنة، وقس على ذلك كل التصنيفات

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 
الرد
تم الشكر بواسطة: عبد العزيز البسكري , issamsaidd
#5
شكرا لك تم بنجاح 
Heart

اخى الكريم هلى لى من استفسار لم اجد له حل هذه القاعدة اكسس والوجه فيجول بيسك 
رففعتهم على دربوكس وفتحت الاثنين من اجهزه مختلفة واضضفة جدولين وحفظتهم فى فى نفس الوقت راح نسخ القاعدة ولم يضيف الملف 
هل يمكن جهاز مثل هذا البرنامج يقلبل الادخال من اكثر من يوزر فى نفس الوقت والوسيط دربوكس وشكرا لك 
انتمنى انى اجد اجابة لان لم اجد
الرد
تم الشكر بواسطة: a.wagdi , a.wagdi
#6
(26-12-18, 10:09 PM)issamsaidd كتب :
اخى الكريم هلى لى من استفسار لم اجد له حل هذه القاعدة اكسس والوجه فيجول بيسك 
رففعتهم على دربوكس وفتحت الاثنين من اجهزه مختلفة واضضفة جدولين وحفظتهم فى فى نفس الوقت راح نسخ القاعدة ولم يضيف الملف 
هل يمكن جهاز مثل هذا البرنامج يقلبل الادخال من اكثر من يوزر فى نفس الوقت والوسيط دربوكس وشكرا لك 
انتمنى انى اجد اجابة لان لم اجد


استخدام الأكسس في الشبكات ليس جيدا
وعلى الإنترنت سيء جدا ولا ينصح به

استخدم استضافة MySql على الإنترنت

إليك هذا الموقع وهو مجاني لقواعد بيانات MySql
https://www.db4free.net

تحياتي لك أخي الكريم
الرد
تم الشكر بواسطة: issamsaidd
#7
شكرا لك 
هل يمكن جعل الارقام العشوائية تسلسلة يعنى عند الضغط على زر جديد
يعد
 1
2
3
4
5
6
وهكذا وشكرا لك 
الرد
تم الشكر بواسطة:
#8
(27-12-18, 05:58 PM)issamsaidd كتب :
شكرا لك 
هل يمكن جعل الارقام العشوائية تسلسلة يعنى عند الضغط على زر جديد
يعد
 1
2
3
4
5
6
وهكذا وشكرا لك 


ضع نوع الحقل ترقيم تلقائي
الرد
تم الشكر بواسطة: issamsaidd
#9
شكرا لك ولكن اريده لشى اخر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد جعل قاعدة البينات تقبل ادخل لاكثر من يوزر فى نفس الوقت issamsaidd 2 241 30-12-18, 08:33 PM
آخر رد: issamsaidd
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 387 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
  [سؤال] اريد البدء في عمل برنامج متابعه مديونيات ولا اعرف كيف ابداء مروة الشرقاوي 4 875 07-11-16, 04:07 AM
آخر رد: مروة الشرقاوي
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 1,490 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  اريد اعمل قاعدة بيانات لخزن فيديوهات ابراهيم كركوكي 6 950 05-06-16, 02:34 AM
آخر رد: khodor1985
  اريد اعمل برنامج يخزن اكواد كيف ابراهيم كركوكي 15 1,669 03-06-16, 11:18 PM
آخر رد: سعود
  ياجماعه اريد كتاب ado ابراهيم كركوكي 1 502 31-05-16, 01:16 AM
آخر رد: Adrees
  اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة ledoledo 1 648 02-02-16, 07:07 PM
آخر رد: ledoledo
  اريد مساعدة بقواعد البيانات mohamed haroon 1 525 07-12-15, 11:30 PM
آخر رد: khodor1985
Smile [سؤال] اريد كود برمجي يبحث ويستبدل من خلال قاعدة بيانات بشكل ملف نصي ana ali 2 823 07-12-15, 01:42 AM
آخر رد: ana ali

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم