تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  متغير يدمج بين String وinteger أمجد وضاح 11 1,216 15-05-20, 03:35 PM
آخر رد: أمجد وضاح
  [كود] Random AbdoDabak 9 675 15-10-19, 04:52 AM
آخر رد: elgokr
  String.Equals dasktop 13 1,326 26-08-19, 06:04 PM
آخر رد: ابراهيم ايبو
  Get connection string from text file moh8880 1 489 12-08-19, 10:35 AM
آخر رد: سعود
  [VB.NET] كيف اقوم بتحويل bolean الي string في داتا جريد فيو alipro 1 627 23-09-18, 08:38 AM
آخر رد: عبدالله الدوسري
  [سؤال] String was not recognized as a valid DateTime Marwan9990 2 1,150 07-07-18, 02:48 AM
آخر رد: elgokr
  [مثال] كيفيه عمل Random Text للفورم YousefOkasha 5 1,005 21-06-18, 02:32 PM
آخر رد: YousefOkasha
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 1,099 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  Random من listbox Mohamed20 9 1,613 01-02-17, 01:18 AM
آخر رد: Mohamed20
Lightbulb [سؤال] كود برنامج string يبحث و يحذف a_abdullah 9 2,411 07-11-16, 11:55 PM
آخر رد: a_abdullah

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


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