تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] Random string
#1
لو عندي 2 array واحدة string و الاخري int 

كود :
Dim test = New Integer() {1, 2, 3}
       Dim str = New String() {"Test1", "Test2", "Test3", "Test4"}
و عندي 

كود :
       Dim random = New Random()
على اساس test مثلآ اذا كانت test = 3 يتم اختيار 3 اختيارات من قائمة str مختلفة مثلآ test2 test4 test1

كود :
    Dim str = New String() {"Test1", "Test2", "Test3", "Test4"}
       Dim test = New Integer() {1, 2, 3}

       Dim random = New Random()
       If test(random.Next(1, 3)) = 3 Then
           MsgBox($"{str(random.Next(1, 3))}-{str(random.Next(1, 3))}-{str(random.Next(1, 3))}")
       ElseIf test(random.Next(1, 3)) = 2 Then
           MsgBox($"{str(random.Next(1, 3))}-{str(random.Next(1, 3))}")
       ElseIf test(random.Next(1, 3)) = 1 Then
           MsgBox(str(random.Next(1, 3)))
       End If

مثل هذا يتم تكرار الاختيار مثل Test1-Test3-Test1 هل يوجد حل لي هذا ؟
الرد }}}
تم الشكر بواسطة:
#2
هذا الكود يحضر عدد عشوائي من المصفوفه
كود :
       ListBox1.Items.Clear()
       Dim str = New String() {"Test1", "Test2", "Test3", "Test4"}
       Dim test = 3
       If test > str.Count Then
           MsgBox("العدد المطلوب أكبر من العناصر الموجوده")
           Exit Sub
       End If
       Dim lst As New List(Of String)
       Dim random = New Random()
       For i = 0 To test - 1
           Do
               Dim a = random.Next(0, str.Count)
               If Not lst.Contains(str(a)) Then
                   lst.Add(str(a))
                   Exit Do
               End If
           Loop
       Next
       ListBox1.Items.AddRange(lst.ToArray)
الرد }}}
تم الشكر بواسطة: DK-x , DK-x , elgokr , Mohamed20
#3
(09-04-19, 09:18 PM)بدري كتب : هذا الكود يحضر عدد عشوائي من المصفوفه
كود :
       ListBox1.Items.Clear()
       Dim str = New String() {"Test1", "Test2", "Test3", "Test4"}
       Dim test = 3
       If test > str.Count Then
           MsgBox("العدد المطلوب أكبر من العناصر الموجوده")
           Exit Sub
       End If
       Dim lst As New List(Of String)
       Dim random = New Random()
       For i = 0 To test - 1
           Do
               Dim a = random.Next(0, str.Count)
               If Not lst.Contains(str(a)) Then
                   lst.Add(str(a))
                   Exit Do
               End If
           Loop
       Next
       ListBox1.Items.AddRange(lst.ToArray)

شكرأ اخي
الرد }}}
تم الشكر بواسطة: بدري , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سوال حول convert bytes to string dubai.eig 13 1,191 26-06-23, 04:49 PM
آخر رد: joly
  Conversion from string "" to type 'Double' is not valid. حماده ممدوح البحيرى 13 1,351 22-07-22, 06:59 PM
آخر رد: أبو خالد الشكري
Exclamation [VB.NET] محتاج فكرة لعمل كود او دالة Random anasghost 17 2,955 29-11-21, 09:32 AM
آخر رد: معاند الحظ
  اضافة الى string aldery 2 1,091 01-07-21, 01:07 AM
آخر رد: aldery
  [SQL] connection string ؟ mmaalmesry 2 1,169 23-02-21, 03:14 PM
آخر رد: mmaalmesry
  رسالة خطأ Input string was not in a correct format العيدروس 7 2,212 28-12-20, 11:56 AM
آخر رد: ADAM12
  متغير يدمج بين String وinteger أمجد وضاح 11 3,414 15-05-20, 03:35 PM
آخر رد: أمجد وضاح
  [كود] Random AbdoDabak 9 2,111 15-10-19, 04:52 AM
آخر رد: elgokr
  String.Equals dasktop 13 3,533 26-08-19, 06:04 PM
آخر رد: ابراهيم ايبو
  Get connection string from text file moh8880 1 1,418 12-08-19, 10:35 AM
آخر رد: سعود

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


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