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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف أصنع برنامج يقوم بعمل قرعة على أسماء (/showthread.php?tid=10185)

الصفحات: 1 2 3

كيف أصنع برنامج يقوم بعمل قرعة على أسماء - elta - 22-08-13

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

كيف أصنع برنامج يقوم بعمل قرعة على أسماء - الشاكي لله - 22-08-13

ممكن مثلا تخلي 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 - 22-08-13

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

كيف أصنع برنامج يقوم بعمل قرعة على أسماء - MSDOS - 22-08-13

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

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

كيف أصنع برنامج يقوم بعمل قرعة على أسماء - الشاكي لله - 22-08-13

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 - 22-08-13

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

كيف أصنع برنامج يقوم بعمل قرعة على أسماء - MSDOS - 22-08-13

ما شاء الله

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

كيف أصنع برنامج يقوم بعمل قرعة على أسماء - elta - 22-08-13

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

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

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

كيف أصنع برنامج يقوم بعمل قرعة على أسماء - MSDOS - 22-08-13

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 - 22-08-13

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

كود :
Dim rand As New Random
        MsgBox(ListBox1.Items(rand.Next(0, ListBox1.Items.Count)))