تقييم الموضوع :
  • 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)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال .. عن طريقة ادراج صورة من السكانر وطباعتها ناصر شير 0 10 منذ 2 ساعة مضت
آخر رد: ناصر شير
  طريقة ظهور اسم المستخدم في جميع صفحات الويب عباسة 0 52 14-02-17, 03:17 PM
آخر رد: عباسة
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 189 11-02-17, 12:56 AM
آخر رد: hassan
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 610 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  [سؤال] طريقة عمل ازرار على صرة من الفوتوشوب عبدالرحمن المكاوي 20 747 07-02-17, 02:49 PM
آخر رد: عبدالرحمن المكاوي
  طريقة طباعة ملف RAWAN.HQ 0 43 07-02-17, 11:17 AM
آخر رد: RAWAN.HQ
Question [سؤال] محتاج طريقة لعرض الأسماء المكررة في الداتا بيز refaat130 3 83 06-02-17, 07:50 PM
آخر رد: sendbad100
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 0 73 30-01-17, 02:58 PM
آخر رد: abudawoodd
  طريقة جمع حقل او عمود في قاعدة بيانات محمد بوقزاحة 5 127 29-01-17, 12:33 AM
آخر رد: محمد بوقزاحة
  [سؤال] طريقة اجراء عمليات مختلفة على جدول في قاعدة بيانات محمد بوقزاحة 6 304 28-01-17, 01:43 PM
آخر رد: أسامة السالمي

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


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