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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عمل برنامج نقرات لبرنامج اخر Abdallah61 3 61 26-05-20, 11:02 PM
آخر رد: Abdallah61
  [VB.NET] تم عمل برنامج شات ولكن اسامه الهرماوي 0 38 26-05-20, 08:38 PM
آخر رد: اسامه الهرماوي
Lightbulb [VB.NET] برنامج آلة حاسبة Doctor GME 6 93 24-05-20, 03:17 AM
آخر رد: atefkhalf2004
  كيفية التعديل على برنامج hasanqo 1 64 21-05-20, 06:45 AM
آخر رد: معاند الحظ
  [VB.NET] برنامج تسجيل حضور وغيابات الطلبة عباس ناصر 1 109 17-05-20, 01:11 PM
آخر رد: alshandodi
Wink [سؤال] طريقة عمل برنامج تعديل علي التاريخ والوقت في الويندوز Ali Edal 2022 4 160 12-05-20, 03:05 AM
آخر رد: Ali Edal 2022
Lightbulb [VB.NET] مشكلة مع برنامج حجز مواعيد Doctor GME 5 167 03-05-20, 07:24 AM
آخر رد: Doctor GME
  برنامج دمج ملفات المشروع في ملف تنفيذي واحد ابو محمد محمد محمد 4 151 03-05-20, 04:23 AM
آخر رد: ابو محمد محمد محمد
  [سؤال] مشكلة تغير الخط في برنامج مصمم بالفيجوال بيسك abtum 6 144 01-05-20, 07:45 PM
آخر رد: abtum
  تشغيل قاعدة بيانات sql مع vb.net بدون تحميل برنامج SQL SERVER DR.YASER 7 188 30-04-20, 10:39 PM
آخر رد: aljzazy

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


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