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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ربط برنامج VB.NET بقفل إلكتروني baha 6 147 08-11-19, 01:33 AM
آخر رد: baha
  [VB.NET] لو سمحتوا اريد عمل برنامج يرسل رسائل علي لينك للفيس بوك Waelstar011 1 118 05-11-19, 03:04 PM
آخر رد: Waelstar011
  [سؤال] ابي اسوي برنامج يسحب من تعليقات الانستا الجسمي 4 147 04-11-19, 09:59 PM
آخر رد: الجسمي
  [سؤال] كيف تجعل برنامج يتحكم ببرنامج آخر أمجد وضاح 8 384 04-11-19, 01:44 PM
آخر رد: أمجد وضاح
  ممكن نعمل برنامج بالفيجوال بيسك ونعرف البرنامج كم مستخدمة sherf 4 226 01-11-19, 01:12 AM
آخر رد: 3booody
  كيف عمل برنامج تشغل القران الكريم عن طريق النت حاتمي 5 177 15-10-19, 04:38 AM
آخر رد: elgokr
  سؤال حول أفضل طريقة لتصميم برنامج أختيار الأجابة الصحيحة aldery 3 219 14-10-19, 11:18 PM
آخر رد: elgokr
  [سؤال] AxWindowsMediaPlayer يقوم بالتحديث كل 5 ثواني ! aiham22 0 108 05-10-19, 06:56 PM
آخر رد: aiham22
  الرجاء المساعده فى عمل زر يقوم بتغيير صورة الفورم الى صورة اخرى من Resources على زهران 13 499 05-10-19, 12:16 PM
آخر رد: alshandodi
  سؤال عن برنامج صندوق استثماري nowiglah 0 106 27-09-19, 02:42 PM
آخر رد: nowiglah

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


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