منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف أصنع برنامج يقوم بعمل قرعة على أسماء

الصفحات : 1 2 3

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 كتب :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.....// 

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

ما شاء الله

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

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

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

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

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.....//

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

كود :

Dim rand As New Random

        MsgBox(ListBox1.Items(rand.Next(0, ListBox1.Items.Count)))

الصفحات : 1 2 3