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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  كود انشاء نسخة احتياطية محمد بن عطية 1 131 21-02-24, 09:59 PM
آخر رد: atefkhalf2004
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  مشكلة فى انشاء تقرير خالد كامل1 4 220 04-01-24, 10:04 PM
آخر رد: خالد كامل1
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 347 10-12-23, 04:03 AM
آخر رد: Adel27213

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


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