الأختيار العشوائي ...

هذا الكود يولد ارقام عشوائية حسب المجال الذي تريده ولكن التكرار موجود ويقل كل ما كان المجال اكبر

myvalue = Int((10 * Rnd) + 1)  '  Generate random value between 1 and 10
Text1 = myvalue

اذا كان لديك مسابقة فيه 100 سؤال فيمكنك ان تضيف كود بسيط وهو ان تجعل كل رقم ينتجه البرنامج يتم تخزينه في List Box ثم بعد ذلك تجعل البرنامج وقت توليد الارقام يفحصها فإذا وجد نفس الرقم واصل العملية مره اخرى لتوليد رقم اخر غير موجود ..

السلام عليكم...وبعد

هذا البرنامج مشروح ومضمون ولا تتكرر فيه الارقام المتولده ابدا مضمون 100% ..

السلام عليكم

نشكر الاخ Sagf2001 على الكود ولكن الملف المضغوط يحتوي على الـفورم فقط . ولتشغيل البرنامج

ابد مشروع جديد

احذف الـ Form1 من المشروع ثم أدرج الفورم الذي كتبه الاخ

السلام عليكم

لي تعليق صغير على سطر الكود الذي كتبه الأخ منصور وهو أنه لابد أن يسبق هذا السطر الجملة

Randomize

حتى لا تكون العشوائية منتظمة بمعني انك في كل مره تشغل البرنامج وتطلب الرقم العشوائي تولد الأرقام عشوائية لكن بنفس ترتيب المره السابقة لفتح البرنامج لكن Randomize تجعل العملية عشوائية بالكامل.

عماد فتحي

www.vbart.com

هذه مشاركة متواضعة تحتوي على مثالين

أحدهما بسيط ومختصر يفي بالغرض إن شاء الله

والآخر فيه نوع من التعقيد لكنه بمكنك من :

1- الترتيب العشوائي

2- الاختيار المتعدد ( دون تكرار للأرقام )

أرجو أن تكون هذه المشاركة مفيدة للجميع

آسف حاولت إرفاق الملف لكن ظهرت رسالة تقول

" الملف الذي تحاول إرفاقه حجمه كبير جداً .. الحجم الأقصى المسموح به هو 1 بايت. " حجم الملف 1.79 ك.ب. (1,838 بايت)

الف شكر استاذ عماد على المعلومة جدا مهمه .. لأن الترتيب لو استمر بنفس الطريقة معناه انه ما فيه عشوائية .

الف شكر استاذ h_vb على الامثلة

..:)

عليك ان تقراء الموضوع والامثله المرفقه معه قبل ان تجاوب فان وضعت نفس الملف الذي انا قد وضعته مسبقا وشكراااااااا..(f) (f) (f) :cool: :cool: :mad:

الأخ sgaf2001 جزيت خيرا

إذا كنت تنكر علي تكرار الملف فأنت على حق ، وأنا آسف حيث لم أطلع على الملف الذي في مشاركتك إلا بعد تنبيهك لي على ذلك

لكن أجب بصراحة : من أين حصلت على هذا الكود ؟ ( لم تنسبه لنفسك وهذه أمانة تحمد عليها )

أخي sgaf2001 هذا الكود سبق أن وضعته لنفسي ثم أرفقته مع أحد الردود في هذا المنتدى أو في منتدى " فيجوال بيسك للمستخدم العربي "

لا أعترض عليك لأنك وضعته هنا لمساعدة أحد الإخوة ، بل يسرني ذلك كثيرا ، فأنا لم أضعه إلا لها الغرض ، ولا يهم أن تنسبه لنفسك أو لصاحبه الحقيقي ، لكن أرجوك أجب بصدق لكي أحافظ على مصداقيتي فقط ، وكما يقال : " إذا عرف السبب بطل العجب "

أخي من أجل رضاك أعلنها للجميع ( كل الحقوق مباحة لك ولغيرك )

على كل ألحقت بالملف فائدة إضافية زائدة عن النسخة السابقة ، وهي إضافة بسيطة توضح طريقة الحصول على أرقام عشوائية متعددة وغير متوقعة

شباب ..... يكفي

نحن هنا لنستفيد ونفيد .. والاكواد منشوره في كل مكان والـ Help المرفق في الـ Visual Basic فيها امثله وأكواد كثيرة ..

لم نخترع شيء من عندنا ..

ونحن هنا إخوان ... أرجو تصفية النفوس .

اخوكم

وهذه ورده لك اخ Sgaf2001 -- (f)

وللاخ h_vb ورده اخرى رمزا للمحبة بيننا اعضاء منتدى الفيجوال بيسك (f)

انا لا انكر هذا وانا اقولها ان هذا الملف ليس من تصميمي لكن احببت ان لافت نضرك فقط لهذا الشيء فقط ولا غير وهذا الملف انا استلمته من احد الاخوان في منتدى فيجوال بيسك للعرب...

" سبحانك اللهم وبحمدك ، اللهم اغفر لنا "

شكرا لكما