[elta]

http://www.youtube.com/watch?v=6xq_U7_EKQw
مثل هذا ليس الشكل بل أنه يختار إسم من مجموعة أسماء
وصلت إلى نتيجة
http://www.gulfup.com/?vsLtGp
لكن هناك بعض المشاكل عندما أقوم بالقرعة يتجاهل العنصر الأخير و و أريده ان لا يعيد العناصر من جديد
السورس
http://www.gulfup.com/?pZvdOx
*ألرجوا إعطائي كود لإعادة ترتيب ال list

[الشاكي لله]

ممكن مثلا تخلي 10 الاسماء في مصفوفة

وبواسطة الدالة Random تقدر تحصل رقم عشوائي من العشرة

وهذا الرقم المخمن يشير الى عنصر ما في المصفوفة

كود :

PHP كود :

Dim names As String() = New String() {"Ali", "Mohammed", "Salim", "Jassim", "Hassan", "Fatima", _
    "Abo Ehab", "Sajad", "Omar", "Maki"}

Dim rnd As New Random()
Dim n As Integer = rnd.Next(0, 10)

MessageBox.Show(names(n)) 


[elta]

لكن أريده من ليست بوكس

[MSDOS]

elta كتب :http://www.youtube.com/watch?v=6xq_U7_EKQw
مثل هذا ليس الشكل بل أنه يختار إسم من مجموعة أسماء
وصلت إلى نتيجة
[COLOR="#FF0000"]http://www.gulfup.com/?vsLtGp
[/COLOR]لكن هناك بعض المشاكل عندما أقوم بالقرعة يتجاهل العنصر الأخير و و أريده ان لا يعيد العناصر من جديد

كنت اريد اعدل على مشروعك المرفوع على الموقع http://www.gulfup.com وجدته ملف exe وليس بمشروع

[الشاكي لله]

elta كتب :لكن أريده من ليست بوكس

لسحب قيم اللست بوكس ووضعها في مصفوفة :

PHP كود :

Dim names As String() = New String(Listbox1.Items.Count - 1) {}

For i As Integer = 0 To names.Length - 1
    names.SetValue(Listbox1.Items(i), i)
Next

'Random.....// 


[elta]

تم وضع السورس http://www.gulfup.com/?pZvdOx

[MSDOS]

ما شاء الله

إيش إصدار الفجوال لأن عندي مو راض يفتح معي

[elta]

MSDOS كتب :ما شاء الله

إيش إصدار الفجوال لأن عندي مو راض يفتح معي

2012 ................

[MSDOS]

elta كتب :2012 ................

عفواً... الخطأ مني، تلخبطت مع ملف آخر. استعجال....

بس لا حظت ان الفورم الأول فيه كود الاخ الشاكي، الم يكن هذا ما تريده؟

الشاكي لله كتب :لسحب قيم اللست بوكس ووضعها في مصفوفة :

PHP كود :

Dim names As String() = New String(Listbox1.Items.Count - 1) {}

For i As Integer = 0 To names.Length - 1
    names.SetValue(Listbox1.Items(i), i)
Next

'Random.....// 


[3booody]

طبعآ Random القيمة الثانية ياخذ الاصغر منها وليس هي

كود :

Dim rand As New Random
        MsgBox(ListBox1.Items(rand.Next(0, ListBox1.Items.Count)))