برنامج اختيار اسماء فايزين في مسابقه عشوائيا

اخى الغالى ابداء بالبرنامج

واحنا إن شاء الله كلنا نساعدك

ويمكنك استخدام داله

Randomize

لتوليد رقم عشوائى

Private Sub Form_Load()
m = Randomize(10)
End Sub

جرب أخوي هذي الطريقة :

حط في الفورم List و Command ، وحط هذا الكود :

Private Sub Form_Load()
	List1.AddItem "محمد"
	List1.AddItem "أحمد"
	List1.AddItem "عمر"
	List1.AddItem "خالد"
	List1.AddItem "محمود"
	List1.AddItem "عبد العزيز"
	List1.AddItem "عمران"
End Sub

Private Sub Command1_Click()
	Dim S As String
	S = Int(Rnd * List1.ListCount) + 0
	List1.Selected(S) = True
	MsgBox "الفائز في المسابقة هو : " & List1.Text
End Sub

يفضل Randomize قبل Rnd و سؤال هى +0 ولا +1 ؟؟؟

بالنسبة لكلمة Randomize فكنت في السابق أستخدمها ، لكنني لا أعرف فائدتها ، لذلك تركت استخدامها

أتمنى لو تفيدنا في هذا الخصوص

أما بالسنبة لـ +0 فلأن عناصر الـ ListBox تبدأ من الصفر ، ولو أننا كتبنا +1 ، فسوف يتجاهل البرنامج الاسم الأول

بالمناسبة .. المفروض أن نكتب Dim S as Integer وليس String مثل ما كتبت أنا

لأن مخرجات S = Int(Rnd * List1.ListCount) + 0 قيمة عددية وليست نصية

آسف على الخطأ

معاك حق فى حتة الـ +1 بس ايه لازمة +0 , وبالنسبة لـ Randomize فهى مهمة جدا لانها هتضمن عشوائية الأختيار

إللي أنا أفهمه من +0 إنها تخلي البرنامج يبدأ العشوائية من الصفر وحتى عدد عناصر اللست بوكس ، وإذا لم تكتبها فلن يضر ( وجودها زي عدمها )

لكن تكون مهمة أحيانا في مواضع أخرى .

أما عن الـ Randomize فبدونها أيضا تتحقق العشوائية في الاختيار

ممكن توضح أكثر أخوي ؟

شبه جسم كتب:

أما عن الـ Randomize فبدونها أيضا تتحقق العشوائية في الاختيار

ممكن توضح أكثر أخوي ؟

مش بالضرورة , أنا أفتكر أول مره أستعملت RND من غيرها فضلت تتطلع نفس الرقم لفترة لكن بالأمر ده أنت بتضمن العشوائية فعلا.

اوافقك الرأي msayed2004

شكرا أخوي msayed2004

وعلى العموم إذا كتبناها ما راح تنكسر إيدنا

يعني نكتبها أحسن .. للضمان

اخوانى الاعزاء

ايوه كده هود ده التفاعل

واحد يسال وكتير يجاوبو لحد منوصل للجواب الاصح

وعلى العموم

الفرق بيم

Rnd

و

Randomize

الاثنين بالفعل بيولدو رقم عشوائى

لكن

Randomize

تجعل الرقم الذى يظهر مره لا يتكرر