+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة انشاء كود وهمي بطريقة أخرى ! ؟ (/showthread.php?tid=7260)
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 10-12-12
المشكلة سببها انها 21 ولا يمكن اضافت كل رقمين في 21 لانه عدد فردي ... للاسف ما فكرت انا بذلك .. ونسيتك معي :p ... اخي لكن عندما غيرنا الأكواد سار يضيف في الاسبوع الثاني نفس الرقم يعني مثلا يوم السبت في الاسبوع الأول 2|1 وفي الاسبوع الثاني يوم الاثنين 2|3 الرقم 2 نفسه :confused:
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 10-12-12
خلاص أخي اذا لم تستطع حلها .. اشكرك لتعاونك معي .. واتمنى احد يحاول معنا
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - sooriaty03 - 10-12-12
shado1796 كتب :غريب لأني جربته عندي لا يمكن يكررالمشكلة سببها انها 21 ولا يمكن اضافت كل رقمين في 21 لانه عدد فردي ... للاسف ما فكرت انا بذلك .. ونسيتك معي :p ... اخي لكن عندما غيرنا الأكواد سار يضيف في الاسبوع الثاني نفس الرقم يعني مثلا يوم السبت في الاسبوع الأول 2|1 وفي الاسبوع الثاني يوم الاثنين 2|3 الرقم 2 نفسه :confused:
حتى أن الاحتمالات عندما تنتهي فإنه يعلق داخل الحلقة ولا يخرج منها أبدا حنى أطفئ البرنامج بنفسي فكيف يتكرر معك ؟؟!!
يمكن عندك خطأ في مكان ما
حاول التأكد منه
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - sooriaty03 - 10-12-12
shado1796 كتب :خلاص أخي اذا لم تستطع حلها .. اشكرك لتعاونك معي .. واتمنى احد يحاول معنا
آسف على التأخر في الرد
ولكني انشغلت
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 10-12-12
sooriaty03 كتب :غريب لأني جربته عندي لا يمكن يكرر
حتى أن الاحتمالات عندما تنتهي فإنه يعلق داخل الحلقة ولا يخرج منها أبدا حنى أطفئ البرنامج بنفسي فكيف يتكرر معك ؟؟!!
يمكن عندك خطأ في مكان ما
حاول التأكد منه
؟؟؟
يوصل لمستوى 12 شخص ومن ثم يقول ان البرنامج لا يستجيب .. وايضا يتكرر .. أخي اذ امكنك اعطيني المشروع بعد التعديل لاني تأكد ولكن نفس الكود الذي تفضلت علي فيه ...
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - sooriaty03 - 10-12-12
طيب بإذن الله
لكني سأتأخر قليلا في إعداده
فقط ممكن تعطيني عدد الأشخاص بالكامل؟
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 10-12-12
sooriaty03 كتب :طيب بإذن الله[COLOR="#FF0000"]
لكني سأتأخر قليلا في إعداده
فقط ممكن تعطيني عدد الأشخاص بالكامل؟
42 شخص على 21 لجنة يعني كل شخصيين في قاعة واحده .. ويعطيك الف عافية
[/COLOR]
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - sooriaty03 - 10-12-12
تم إرسال رسالة إلى حسابك
أرجو الإطلاع عليها
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - sooriaty03 - 14-12-12
تفضل أخي هذا هو الكود
كود :
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