المشكلة سببها انها 21 ولا يمكن اضافت كل رقمين في 21 لانه عدد فردي ... للاسف ما فكرت انا بذلك .. ونسيتك معي :p ... اخي لكن عندما غيرنا الأكواد سار يضيف في الاسبوع الثاني نفس الرقم يعني مثلا يوم السبت في الاسبوع الأول 2|1 وفي الاسبوع الثاني يوم الاثنين 2|3 الرقم 2 نفسه :confused:
خلاص أخي اذا لم تستطع حلها .. اشكرك لتعاونك معي .. واتمنى احد يحاول معنا
shado1796 كتب :المشكلة سببها انها 21 ولا يمكن اضافت كل رقمين في 21 لانه عدد فردي ... للاسف ما فكرت انا بذلك .. ونسيتك معي :p ... اخي لكن عندما غيرنا الأكواد سار يضيف في الاسبوع الثاني نفس الرقم يعني مثلا يوم السبت في الاسبوع الأول 2|1 وفي الاسبوع الثاني يوم الاثنين 2|3 الرقم 2 نفسه :confused:
غريب لأني جربته عندي لا يمكن يكرر
حتى أن الاحتمالات عندما تنتهي فإنه يعلق داخل الحلقة ولا يخرج منها أبدا حنى أطفئ البرنامج بنفسي فكيف يتكرر معك ؟؟!!
يمكن عندك خطأ في مكان ما
حاول التأكد منه
shado1796 كتب :خلاص أخي اذا لم تستطع حلها .. اشكرك لتعاونك معي .. واتمنى احد يحاول معنا
آسف على التأخر في الرد
ولكني انشغلت
sooriaty03 كتب :غريب لأني جربته عندي لا يمكن يكرر
حتى أن الاحتمالات عندما تنتهي فإنه يعلق داخل الحلقة ولا يخرج منها أبدا حنى أطفئ البرنامج بنفسي فكيف يتكرر معك ؟؟!!
يمكن عندك خطأ في مكان ما
حاول التأكد منه
؟؟؟
يوصل لمستوى 12 شخص ومن ثم يقول ان البرنامج لا يستجيب .. وايضا يتكرر .. أخي اذ امكنك اعطيني المشروع بعد التعديل لاني تأكد ولكن نفس الكود الذي تفضلت علي فيه ...
طيب بإذن الله
لكني سأتأخر قليلا في إعداده
فقط ممكن تعطيني عدد الأشخاص بالكامل؟
sooriaty03 كتب :طيب بإذن الله
لكني سأتأخر قليلا في إعداده
فقط ممكن تعطيني عدد الأشخاص بالكامل؟
[COLOR="#FF0000"]
42 شخص على 21 لجنة يعني كل شخصيين في قاعة واحده .. ويعطيك الف عافية
[/COLOR]
تم إرسال رسالة إلى حسابك
أرجو الإطلاع عليها
تفضل أخي هذا هو الكود
كود :
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