تقييم الموضوع :
  • 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
شكرا لك ولكن اريده لشى اخر
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد امثلة على هذه الدوال floor , substr , instr , replce في الاوراكل غدير الصليحي 0 787 14-12-21, 12:51 PM
آخر رد: غدير الصليحي
  اريد دمج استعلامين بسام محمدغانم 6 1,559 10-11-21, 04:50 AM
آخر رد: بسام محمدغانم
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 833 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم
  اريد ربط 3 جداول (relation ship) فى sql server سلام و محبه 0 1,250 23-01-21, 08:10 PM
آخر رد: سلام و محبه
  اريد ترقية قاعدة بيانات برنامجي فإلى ايهم تقترحوا علي alfaiz678 5 3,099 22-11-20, 10:10 PM
آخر رد: sendbad100
  اريد عمل تواصل بين الادارات عن طريق ال SQL Serverو الدوت نت الحزين اوى 1 1,386 02-07-20, 09:47 AM
آخر رد: kiki
  اريد فكرة الطرح والجمع من داخل قاعدة البيانات مراد بورجي 2 2,288 28-12-19, 07:41 PM
آخر رد: مراد بورجي
  [SQL] اريد استعلام يظهر لي الناتج بهذه الصورة alfaiz678 8 3,394 30-11-19, 12:16 PM
آخر رد: alfaiz678
  اضافة ارقام تسلسلية فيsql Hassan.syria 1 1,367 21-11-19, 09:07 PM
آخر رد: Hassan.syria
  [سؤال] اخواني السلام عليكم ورحمة الله انا مبتدي في البرمجة اريد كود ربط sql server 2014 mohamedhota 1 1,998 04-04-19, 07:55 PM
آخر رد: elgokr

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


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