حول امر random بدون تكرار

Dim Nm%
Nm = Round((Rnd * 12), 0)

ثم ضع شروط تفحص القيمه Nm كما تريد اذا كانت كذا اطبع كذا

Text1.Text = Nm

ارجو افادتي اكثر وبشرح اكثر انا اريد شرح اكثر ياريت

ال 1 يكررها ثلاث مرات ومن2-8 اربع مرات ومن 9-12 خمس مرات وبصورة عشوائية

random

ومشكور اخوي hnhn على محاولتك

تفضل الحل

Round.rar

اخووووي ياحبيي طول بالك علي وانا هلا بشرحلك اللي بدي ياه بالضبظ

عندك اربع اعمدة كل عمود في 51 عنصر مخربطات بشكل عشوائي وبدون تكرار

1 12 3 17

3 5 8 10

51 49 36 22

7 2 2 2

: : : :

: : : :

اخرعنصر اخرعنصر اخر عنصر اخر عنصر

يعني زي ماانت شايف اخوي عندك اربع اعمده كل عمود فية الارقام من 1 -51 وشرط مو مرتبات يعني يكونو ال51 عنصر مخربطات بشكل عشوائي وبدون تكرار

كل عامود فية 51 عنصر او رقم ارجو تكون وصلت فكرتي وسامحني على ازعاجك

السؤال مخربط والشرح مخربط واكيد الرد والاجابه راح تكون مخربطه .. هدي نفسك شوي ورتب افكارك واشرح الموضوع واكيد انت بديت بالمشروع ضع المثال وراح نتوصل لحل ان شاء الله بعد ما نتطلع عليه ونفهم بالضبط عملية العشوائيه المطلوبه في انتقاء الارقام .

اوكى اخوي انا بعتلك بالمرفقات مثال توظيحي على اربع اعمدة وعشر صفوف بدي البرنامج يعطي زي اللي مبين بالملف المرفق

وبرد اذكرك انو ترتيب العناصر في العمود ترتيب عشوائي بدون تكرار وبحيث ان يعبئ العمود الاول حتى يكتمل ثم الثاني حتى يكتمل وهكذا حتى العمود الرابع

وشاكر اهتمامكم

اوكى اخوي انا بعتلك بالمرفقات مثال توظيحي على اربع اعمدة وعشر صفوف بدي البرنامج يعطي زي اللي مبين بالملف المرفق

وبرد اذكرك انو ترتيب العناصر في العمود ترتيب عشوائي بدون تكرار وبحيث ان يعبئ العمود الاول حتى يكتمل ثم الثاني حتى يكتمل وهكذا حتى العمود الرابع

وشاكر اهتمامكم

___________.txt

يااخوان السؤال واضح ام انو غير واضح ام ماذا ارجو افادتي بالاجابة بعتلكم مثال من الارقام من 1 الى 10 ووضعهم في مصفوفة بحيث بكل عمود تكون الارقام من 1-10 غير مكررة وعشوائية

لازم كنت توضح سؤالك من الأول ، فسؤالك النهائي مختلف عن الاول:

rr:
	Number = Int(Rnd * 10)
		For x = 0 To 10
		If List1.List(x) = Number Then GoTo rr:
		Next
	List1.AddItem Number

Round2.rar

مشكور اخوي عبد العزيز والله يقدرك على فعل الخير وللامام إن شاء الله

واعذروني اذا ماعرفت اوصل الفكرة من اولها

مشكور مرة اخرى