[sooriaty03]

طيب أخي الكريم هذا الكود يضيف لك الرقم مرتين أليس هذا ما تريد؟

[shado1796]

sooriaty03 كتب :طيب أخي الكريم هذا الكود يضيف لك الرقم مرتين أليس هذا ما تريد؟

نعم هذا ما اريده اخي .. لكنه لم يظيف بل انه يضيف في نفس المستخدم ,,,, هل أرفق المثال كامل لرؤيته .. مع العلم انه لم تبقى الا مشكلتك الكود العشوائي

[sooriaty03]

أرفق المثال إن شاء الله نجد الحل

[shado1796]

sooriaty03 كتب :أرفق المثال إن شاء الله نجد الحل

ضع قاعدة البيانات في المسار التالي

Data.mdb

C:\Program Files\Shado\Smart Organizing Teachers\Backup

--- أو انقل المجلد المرفق Shado الى C

-----------------------------------------------------------------------
لأكتمال المشروع باقي :
مشكلة تكرار الارقام في نفس المستخدم الواحد.. وأيضا بين المستخدم و المستخدميين الآخرين


المشروع كامل ( التحميل من هنا )

[sooriaty03]

أخي الكريم اطلعت على البرنامج
طيب الآن لديك أسبوعان
هل تريد تكرار المجموعة الأولى مثلا السبت والأحد في الأسبوع الأول والمجموعة الرابعة مثلا الإثنين والثلاثاء في الأسبوع الأول وهكذا....

[shado1796]

sooriaty03 كتب :أخي الكريم اطلعت على البرنامج
طيب الآن لديك أسبوعان
هل تريد تكرار المجموعة الأولى مثلا السبت والأحد في الأسبوع الأول والمجموعة الرابعة مثلا الإثنين والثلاثاء في الأسبوع الأول وهكذا....

لا أخي لا اريد اي شئ يتكرر في الأسابيع ولا في غيرها اريد كل شئ مختلف عن بعضه ما عداااا يتشابه في اليوم شخصان فقط يعني مثلا ( احمد 2__1 ) و ( محمد 2___4 ) لاحظ الفتره الأولى 2 متشابهتين لشخصيين مختلفين فقط وبعدها لا يتم اضافة 2 بل ارقام عشوائية اخرى ولكل رقم نفس الطريقة وفي النهاية يكون الناتج هذه الطريقة انه في كل يوم مجموعه شخصيين استاذيين في الفترة الأولى والثانية .. واذا لم تفهمني ايضا .. ممكن اشرح لك خطوة خطوة وتكون بدايت الخطوات انه كل شئ يختلف مثل في الاسبوع الاول يختلف عن الثاني وكل يوم يختلف عن الثاني ..

[shado1796]

هل من حل أخي ؟

[sooriaty03]

تفضل أخي الكريم
أسأل الله أن يكون كما تريد
شرح بسيط
سيأخذ رقم عشوائي وسيضيف إليه رقمين عشوائيين مختلفين وسيضيفهم ضمن ListView
ولن يكرر الرقم العشوائي الأول أبدا أبدا

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Code As String = ""
        Dim N1, N2, N3 As Integer
        N1 = RandomInteger(0, 21)
        Do While RepeatedRandomCount(N1) > 0
            N1 = RandomInteger(0, 21)
        Loop
        N2 = RandomInteger(0, 21)
        Do While N1 = N2
            N2 = RandomInteger(0, 21)
        Loop
        N3 = RandomInteger(0, 21)
        Do While (N2 = N3) Or (N1 = N3)
            N3 = RandomInteger(0, 21)
        Loop
        TextBox1.Text = N1 & "|" & N2
        ListView1.Items.Add(TextBox1.Text)
        TextBox1.Text = N1 & "|" & N3
        ListView1.Items.Add(TextBox1.Text)
    End Sub
    Private Function RandomInteger(ByVal Lowerbound As Integer, ByVal Upperbound As Integer) As Integer
        Dim Rnd As New Random
        RandomInteger = Rnd.Next(Lowerbound, Upperbound)
    End Function
    Private Function RepeatedRandomCount(ByVal RandomNumber As String) As Integer
        Dim Count As Integer = 0
        For Each Item As ListViewItem In ListView1.Items
            If Item.Text.Split("|")(0) = RandomNumber Then
                Count += 1
            End If
        Next
        Return Count
    End Function

[shado1796]

أخي اشكرك على تعاونك واقدر تعبك معي .. وجاري التجربه

[shado1796]

عند محاولتي اضافت 20 شخص لتجربة الارقام العشوائية عندما وصلت الى 11 شخص واريد اضافة فوق 11 شخص ظهر لي البرنامج لا يستجيب وعند مسح شخص من 11 = 10 يمكنني اضافة شخص واحد

يعني بعد 11 شخص يظهر لي خطأ ,, وعلى ما اعتقد سببه هو مشكلة في كود بحث عن القيمة الأولى .. ؟؟

[b]سبب المشكلة في الصفحة الرابعة

[/b]