منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)

الصفحات: 1 2 3 4

طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 06-12-12

[COLOR="#000080"]

طريقة انشاء كود وهمي بطريقة وهي رقمان يكون بينهم فاصلة وييجب ان يكونان مختلفان عن بعضهم وهذا مثال لما اقصد 1|2

لقد حاولت بهذا الكود وقد انتج كود وهمي لكني لم استطع ان اجعل الرقمان مختلفان وهذا هو الكود

كود :
Private Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
RandomInteger = Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound)
End Function


كود :
TextBox1.Text = (RandomInteger(0, 21))
اتمنى مساعدتي في أقرب وقت .. ويجزاكم الله خير
[/COLOR]


طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - Osama_Ghareeb - 06-12-12

كود :
Private Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
Dim Rnd As New Random
RandomInteger = Rnd.Next(Lowerbound, Upperbound)
End Function

كود :
Dim Code As String = ""
Dim N1,N2 As Integer
N1 = RandomInteger(0, 21)
N2 = RandomInteger(0, 21)
Do While N1 = N2
N2 = RandomInteger(0, 21)
Next

TextBox1.Text = N1 & "|" & N2


طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 06-12-12

شكرا أخي اسامه .. لكنه يضهر لي أخطاء في المؤشر عليه باللون الأحمر

كود :
Dim Code As String = ""
Dim N1,N2 As Integer
N1 = RandomInteger(0, 21)
N2 = RandomInteger(0, 21)
[color=#FF0000]Do While N1 = N2[/color]
N2 = RandomInteger(0, 21)
[color=#FF0000]Next[/color]

TextBox1.Text = N1 & "|" & N2


واذا قمت بمسح الأخطاء يقوم بوضع الرقمين 1|1 مكررين

طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - sooriaty03 - 06-12-12

استبدل الأمر Next
بالأمر
Loop

كود :
Dim Code As String = ""
        Dim N1, N2 As Integer
        N1 = RandomInteger(0, 21)
        N2 = RandomInteger(0, 21)
        Do While N1 = N2
            N2 = RandomInteger(0, 21)
        Loop
        TextBox1.Text = N1 & "|" & N2


طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 06-12-12

الله يجزاكم خير ... بس عندي اخر سؤال بما يخص الموضوع .. انا عندي ListView وأريد انه يقوم بالبحث في الجداول واذا رأى شبيه لكود عشوائي مثل 1|2 مرتان فقط واذا زادت يقوم بانشاء عشوائي غيره .


طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - Osama_Ghareeb - 06-12-12

كود :
Dim FKeys As New List(Of String)
        For Each Item As ListViewItem In ListView1.Items
            Dim Keys = (From t As ListViewItem.ListViewSubItem In Item.SubItems Select t Where t.Text.Contains("|") AndAlso IsNumeric(t.Text.Split("|")(0)) AndAlso IsNumeric(t.Text.Split("|")(1)))
            For Each Key In Keys
                FKeys.Add(Key.Text)
            Next
        Next
        MsgBox(FKeys.Count & " Keys Found")


طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 06-12-12

Osama_Ghareeb كتب :
كود :
Dim FKeys As New List(Of String)
        For Each Item As ListViewItem In ListView1.Items
            Dim Keys = (From t As ListViewItem.ListViewSubItem In Item.SubItems Select t Where t.Text.Contains("|") AndAlso IsNumeric(t.Text.Split("|")(0)) AndAlso IsNumeric(t.Text.Split("|")(1)))
            For Each Key In Keys
                FKeys.Add(Key.Text)
            Next
        Next
        MsgBox(FKeys.Count & " Keys Found")



الله يوفقك دنيا وآخر ,, جاري التجربة

طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - shado1796 - 06-12-12

للأسف أخي لم يعمل بل انه يضيف اكثر من نفس القيمه يعني يضيفها 2|1 أكثر من مرتان وقد جربت واضفت كثير ووجدت مثال 2|1 اكثر من 5 مرات ... واذا حبيت أن أرفق المثال اخبرني بذلك ..

طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - Osama_Ghareeb - 06-12-12

إيش بدك من الأمر بالضبط ؟؟ يطلع المكرر بس ؟ ولا ما بيحث عن المكرر ؟ ولا...

طريقة انشاء كود وهمي بطريقة أخرى ! ؟ - citysoft - 06-12-12

shado1796 كتب :للأسف أخي لم يعمل بل انه يضيف اكثر من نفس القيمه يعني يضيفها 2|1 أكثر من مرتان وقد جربت واضفت كثير ووجدت مثال 2|1 اكثر من 5 مرات ... واذا حبيت أن أرفق المثال اخبرني بذلك ..

اضف هذه الدالة Randomize()
قبل السطر N1 = RandomInteger(0, 21)