تقييم الموضوع :
  • 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)))
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 37 1,160 منذ 2 ساعة مضت
آخر رد: tryold
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 29 منذ 4 ساعة مضت
آخر رد: sal.softip
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 4 77 أمس, 06:21 PM
آخر رد: The Light Fire
  مساعدة في عمل برنامج rabeh.ram 4 169 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 79 24-11-16, 11:40 PM
آخر رد: mohammedbassim
  [VB.NET] حماية برنامج من سرقة السورس كود thevirus 1 58 20-11-16, 07:41 PM
آخر رد: محمود بكرى
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 73 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان
Lightbulb [سؤال] كود برنامج string يبحث و يحذف a_abdullah 9 147 07-11-16, 11:55 PM
آخر رد: a_abdullah
  برنامج مشغل موسيقى اعظم انجاز ليا فى حياتى عايز اخد رأيكم فيه elmobde3 22 2,576 04-11-16, 09:33 PM
آخر رد: زياد مقداد
  [اقتراح] يمكن ان اصنع لكم برنامج تريدونه احمد م. 14 2,425 28-10-16, 06:39 PM
آخر رد: sambro

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


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