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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عمل برنامج بالفجوال بيسك و تشغيلة على الجوال مهندس_خالد 2 59 أمس, 09:29 PM
آخر رد: محمود بكرى
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 83 أمس, 01:11 AM
آخر رد: سعود الشامان
  [سؤال] كيف اجعل برنامج التحميل يحتفظ بقيمة التحميل لو النور انقطع ابو روضة 2 92 16-09-17, 05:44 AM
آخر رد: ابو روضة
  [VB.NET] محتاج كود يقوم بإعادة الترقيم 0theghost0 0 37 15-09-17, 02:15 PM
آخر رد: 0theghost0
  برنامج وارد ومصروفات abdohassan 0 63 09-09-17, 08:48 PM
آخر رد: abdohassan
  [مشروع] برنامج قران كريم عبدالرحمن المكاوي 7 145 09-09-17, 02:51 PM
آخر رد: عبدالرحمن المكاوي
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 43 08-09-17, 04:02 PM
آخر رد: Amjad
  [VB.NET] مشكلة بتشغيل برنامج سكول سيرفر 2012 امل عوض 2 114 29-08-17, 02:45 PM
آخر رد: زيد زينوبي
  كود لتشغيل اى برنامج داخل نموذج VB.Net konter 3 130 28-08-17, 11:54 AM
آخر رد: konter
  كيفية تشغيل برنامج من Resources e-coder 6 197 16-08-17, 05:59 AM
آخر رد: e-coder

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


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