[shado1796]

المشكلة سببها انها 21 ولا يمكن اضافت كل رقمين في 21 لانه عدد فردي ... للاسف ما فكرت انا بذلك .. ونسيتك معي :p ... اخي لكن عندما غيرنا الأكواد سار يضيف في الاسبوع الثاني نفس الرقم يعني مثلا يوم السبت في الاسبوع الأول 2|1 وفي الاسبوع الثاني يوم الاثنين 2|3 الرقم 2 نفسه :confused:

[shado1796]

خلاص أخي اذا لم تستطع حلها .. اشكرك لتعاونك معي .. واتمنى احد يحاول معنا

[sooriaty03]

shado1796 كتب :

المشكلة سببها انها 21 ولا يمكن اضافت كل رقمين في 21 لانه عدد فردي ... للاسف ما فكرت انا بذلك .. ونسيتك معي :p ... اخي لكن عندما غيرنا الأكواد سار يضيف في الاسبوع الثاني نفس الرقم يعني مثلا يوم السبت في الاسبوع الأول 2|1 وفي الاسبوع الثاني يوم الاثنين 2|3 الرقم 2 نفسه :confused:

غريب لأني جربته عندي لا يمكن يكرر
حتى أن الاحتمالات عندما تنتهي فإنه يعلق داخل الحلقة ولا يخرج منها أبدا حنى أطفئ البرنامج بنفسي فكيف يتكرر معك ؟؟!!
يمكن عندك خطأ في مكان ما
حاول التأكد منه

[sooriaty03]

shado1796 كتب :خلاص أخي اذا لم تستطع حلها .. اشكرك لتعاونك معي .. واتمنى احد يحاول معنا

آسف على التأخر في الرد
ولكني انشغلت

[shado1796]

sooriaty03 كتب :غريب لأني جربته عندي لا يمكن يكرر
حتى أن الاحتمالات عندما تنتهي فإنه يعلق داخل الحلقة ولا يخرج منها أبدا حنى أطفئ البرنامج بنفسي فكيف يتكرر معك ؟؟!!
يمكن عندك خطأ في مكان ما
حاول التأكد منه

؟؟؟
يوصل لمستوى 12 شخص ومن ثم يقول ان البرنامج لا يستجيب .. وايضا يتكرر .. أخي اذ امكنك اعطيني المشروع بعد التعديل لاني تأكد ولكن نفس الكود الذي تفضلت علي فيه ...

[sooriaty03]

طيب بإذن الله
لكني سأتأخر قليلا في إعداده
فقط ممكن تعطيني عدد الأشخاص بالكامل؟

[shado1796]

sooriaty03 كتب :طيب بإذن الله
لكني سأتأخر قليلا في إعداده
فقط ممكن تعطيني عدد الأشخاص بالكامل؟

[COLOR="#FF0000"]
42 شخص على 21 لجنة يعني كل شخصيين في قاعة واحده .. ويعطيك الف عافية
[/COLOR]

[sooriaty03]

تم إرسال رسالة إلى حسابك
أرجو الإطلاع عليها

[sooriaty03]

تفضل أخي هذا هو الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N1 As Integer
        Dim ListedItemes, ListedPersons As New List(Of String)
        For I = 1 To 21
            For H = 1 To 2
10:
                Application.DoEvents()
                N1 = RandomInteger(1, 43)
                If ListedItemes.IndexOf(N1) > -1 Then
                    GoTo 10
                End If
                ListedItemes.Add(N1)
                ListedPersons.Add(I & "-" & H)
            Next
        Next
        For I = 0 To ListedItemes.Count - 1
            ListView1.Items.Add(ListedPersons.Item(I) & "=" & ListedItemes.Item(I))
        Next
    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