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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة او كود kingofring 5 76 22-09-17, 03:26 AM
آخر رد: kingofring
  [سؤال] طريقة أخذ صورة من فيديو thevest_knight 3 75 20-09-17, 05:58 PM
آخر رد: thevest_knight
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 88 20-09-17, 01:11 AM
آخر رد: سعود الشامان
  كود انشاء ملف في System32 bidaya 1 54 17-09-17, 03:47 AM
آخر رد: طـلال
Big Grin [كود] شباب طريقة لإظهار الادوات بشكل شبه مخفى وليس الفورم badr.kamel 3 135 14-09-17, 05:07 AM
آخر رد: Mohamad Anan
  ماهي طريقة الصحيحه لتصفير الرقم طـلال 12 367 10-09-17, 03:37 AM
آخر رد: طـلال
  اريد طريقة دمج صورة مع صورة وحفظها كصورة واحدة soper 1 84 27-08-17, 12:01 PM
آخر رد: khodor1985
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 3 324 26-08-17, 03:55 PM
آخر رد: حسن ايت حدو
  [VB.NET] ممكن طريقة قراءة ملف PDF سطر سطر و وضعه في Array الغلبان 9 618 22-08-17, 05:55 PM
آخر رد: Nabhan Alhashemy
  طريقة جعل زر Enter يعمل عمل زر Tab lkaam 1 196 22-08-17, 03:37 PM
آخر رد: نبيل كونكت

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


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