تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة انشاء كود وهمي بطريقة أخرى ! ؟
#1
[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]
الرد }}}}
تم الشكر بواسطة:
#2
كود :
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
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}}
تم الشكر بواسطة:
#3
شكرا أخي اسامه .. لكنه يضهر لي أخطاء في المؤشر عليه باللون الأحمر

كود :
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 مكررين
الرد }}}}
تم الشكر بواسطة:
#4
استبدل الأمر 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
الرد }}}}
تم الشكر بواسطة:
#5
الله يجزاكم خير ... بس عندي اخر سؤال بما يخص الموضوع .. انا عندي ListView وأريد انه يقوم بالبحث في الجداول واذا رأى شبيه لكود عشوائي مثل 1|2 مرتان فقط واذا زادت يقوم بانشاء عشوائي غيره .
الرد }}}}
تم الشكر بواسطة:
#6
كود :
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")
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}}
تم الشكر بواسطة:
#7
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")



الله يوفقك دنيا وآخر ,, جاري التجربة
الرد }}}}
تم الشكر بواسطة:
#8
للأسف أخي لم يعمل بل انه يضيف اكثر من نفس القيمه يعني يضيفها 2|1 أكثر من مرتان وقد جربت واضفت كثير ووجدت مثال 2|1 اكثر من 5 مرات ... واذا حبيت أن أرفق المثال اخبرني بذلك ..
الرد }}}}
تم الشكر بواسطة:
#9
إيش بدك من الأمر بالضبط ؟؟ يطلع المكرر بس ؟ ولا ما بيحث عن المكرر ؟ ولا...
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}}
تم الشكر بواسطة:
#10
shado1796 كتب :للأسف أخي لم يعمل بل انه يضيف اكثر من نفس القيمه يعني يضيفها 2|1 أكثر من مرتان وقد جربت واضفت كثير ووجدت مثال 2|1 اكثر من 5 مرات ... واذا حبيت أن أرفق المثال اخبرني بذلك ..

اضف هذه الدالة Randomize()
قبل السطر N1 = RandomInteger(0, 21)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow طريقة عمل حضور وانصراف يتجدد يوميًا+طباعة سجلات الحضور والانصراف فاطمة غ 2 91 أمس, 05:52 AM
آخر رد: zinom
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 60 07-12-16, 12:20 AM
آخر رد: amgad525
  طريقة نقل الفيجوال ستيديو من جهاز لاخر CLARO 1 41 06-12-16, 08:15 PM
آخر رد: محمد كريّم
  [سؤال] طريقة لقص صورة في الpictureBox1 CLARO 7 136 06-12-16, 03:30 PM
آخر رد: CLARO
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 135 05-12-16, 03:09 PM
آخر رد: thevirus
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 60 05-12-16, 02:18 PM
آخر رد: a_abdullah
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 306 25-11-16, 11:57 AM
آخر رد: العزابي
  هل يمكن انشاء صفحة متصفح Mohamed20 2 134 20-11-16, 12:38 AM
آخر رد: myalsailamy
  [سؤال] طريقة عمل كشف حساب (دائن ومدين) اليوم مبتدئة وغداً محترفة 11 370 14-11-16, 08:26 AM
آخر رد: Genius Live
  طريقة تحزيم التطبيق اليوم مبتدئة وغداً محترفة 1 125 12-11-16, 08:16 AM
آخر رد: اليوم مبتدئة وغداً محترفة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم