تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف أصنع برنامج يقوم بعمل قرعة على أسماء
#1
http://www.youtube.com/watch?v=6xq_U7_EKQw
مثل هذا ليس الشكل بل أنه يختار إسم من مجموعة أسماء
وصلت إلى نتيجة
http://www.gulfup.com/?vsLtGp
لكن هناك بعض المشاكل عندما أقوم بالقرعة يتجاهل العنصر الأخير و و أريده ان لا يعيد العناصر من جديد
السورس
http://www.gulfup.com/?pZvdOx
*ألرجوا إعطائي كود لإعادة ترتيب ال list
الرد }}}}
تم الشكر بواسطة:
#2
ممكن مثلا تخلي 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(010)

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

كنت اريد اعدل على مشروعك المرفوع على الموقع http://www.gulfup.com وجدته ملف exe وليس بمشروع
الرد }}}}
تم الشكر بواسطة:
#5
elta كتب :لكن أريده من ليست بوكس

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

PHP كود :
Dim names As String() = New String(Listbox1.Items.Count 1) {}

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

'Random.....// 
الرد }}}}
تم الشكر بواسطة:
#6
تم وضع السورس http://www.gulfup.com/?pZvdOx
الرد }}}}
تم الشكر بواسطة:
#7
ما شاء الله

إيش إصدار الفجوال لأن عندي مو راض يفتح معي
الرد }}}}
تم الشكر بواسطة:
#8
MSDOS كتب :ما شاء الله

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

2012 ................
الرد }}}}
تم الشكر بواسطة:
#9
elta كتب :2012 ................

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

بس لا حظت ان الفورم الأول فيه كود الاخ الشاكي، الم يكن هذا ما تريده؟
الشاكي لله كتب :لسحب قيم اللست بوكس ووضعها في مصفوفة :

PHP كود :
Dim names As String() = New String(Listbox1.Items.Count 1) {}

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

'Random.....// 
الرد }}}}
تم الشكر بواسطة:
#10
طبعآ Random القيمة الثانية ياخذ الاصغر منها وليس هي

كود :
Dim rand As New Random
        MsgBox(ListBox1.Items(rand.Next(0, ListBox1.Items.Count)))
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تتحقق من وجود برنامج مثبت وان لم يكن مثبت تثبته محمد بن عطية 1 56 20-05-17, 09:26 PM
آخر رد: محمود بكرى
  تشغيل برنامج دون الحاجه للاقلاع ببرامج اخري medoddd 0 33 19-05-17, 12:46 PM
آخر رد: medoddd
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 74 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 102 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  طلب برنامج .NET Reactor مع التفعيل OakenShield 0 32 13-05-17, 01:28 PM
آخر رد: OakenShield
  [VB.NET] مشكلة بسيطة في برنامج بسيط يعتمد على( Multi-Threading) أبو نقطة 5 136 13-05-17, 07:41 AM
آخر رد: أبو نقطة
  مساعدة في ربط برنامج بالسكنر zinab ali 3 77 09-05-17, 10:55 PM
آخر رد: mansoor
  [سؤال] تعليم عمل برنامج مبيعات المبرمج العبقري 4 163 30-04-17, 12:42 PM
آخر رد: جميل علي
  انترنت اكسبولور داخل برنامج ديسك توب weswes88 1 59 18-04-17, 05:57 AM
آخر رد: Anas Mahmoud
  برنامج لتعليم ذوي الاحتياجات الخاصة Basil Abdallah 4 113 14-04-17, 12:24 AM
آخر رد: Amir_alzubidy

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


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