أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





توليد امتحان بشكل عشوائي من بنك أسئلة Generate Random Test Paper From Questions Bank

السلام عليكم ورحمة الله وبركاته إذا كنت من واضعي أسئلة اختبارات ولديك بنك أسئلة ، وتريد اختبار مجموعة من المتقدمين ، بح ..



27-08-2019 07:46 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

السلام عليكم ورحمة الله وبركاته

إذا كنت من واضعي أسئلة اختبارات ولديك بنك أسئلة ، وتريد اختبار مجموعة من المتقدمين ، بحيث يكون لكل متقدم 10 أسئلة بشكل عشوائي ، حتى لا يكون الامتحان مكرر بشكل متعمد .. أقدم لكم هذا الكود الذي يقوم بتوليد 10 أسئلة مختلفة في كل مرة يتم تنفيذ الكود فيها.

Nj6Fn_001

بفرض أن لديك في ورقة العمل Sheet2 مجموعة كبيرة من الأسئلة (بنك الأسئلة) ، والمطلوب هو توليد 10 أسئلة في كل مرة يتم تنفيذ الكود فيها ، وتظهر النتائج في ورقة العمل Sheet1

tTKp5_002

إليكم الكود المستخدم لهذه المهمة مع الشرح لأسطر الكود بالتفصيل
Sub Generate_Test()
    'الإعلان عن المتغيرات
    Dim i                   As Long
    Dim rowNum              As Long
    Dim qNum                As Long

    'إلغاء خاصية تحديث الشاشة لتسريع الكود
    Application.ScreenUpdating = False

    'تعيين قيمة للمتغير ليساوي عدد الأسئلة في ورقة بنك الأسئلة وهنا
    'استخدمنا دالة العد لتقوم بعد الخلايا في العمود الأول في ورقة الأسئلة
    qNum = Application.WorksheetFunction.CountA(Sheets("Sheet2").Columns(1))

    'بدء التعامل مع ورقة النتائج التي تريد توليد الأسئلة العشوائية بها
    With Sheets("Sheet1")

        'مسح محتويات النطاق الذي سيحتوي على النتائج
        .Range("A2:A10000").ClearContents

        'حلقة تكرارية من 1 إلى 10 ويمثل عدد الأسئلة المطلوب توليدها
        'إذا أردت أن تقوم بتوليد عدد أسئلة أكثر قم بتغيير الرقم 10
        For i = 1 To 10

'نقطة انتقال بحيث لو كان السؤال مكرر يرجع لتلك النقطة
Generate:
            'توليد رقم عشوائي بين 1 و أكبر عدد للأسئلة لاختيار صف عشوائي
            rowNum = Application.RoundUp(Rnd() * qNum, 0)

            'هذا الجزء للتأكد من أن السؤال غير مكرر حيث استخدمت دالة العد المشروط
            If Application.CountIf(.[A:A], Sheets("Sheet2").Cells(rowNum, "A")) = 0 Then

                'في حالة أن السؤال غير مكرر يتم جلب السؤال من ورقة الأسئلة
                .Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Sheets("Sheet2").Cells(rowNum, "A").Value
            Else

                'في حالة أن السؤال مكرر يتم الرجوع لنقطة الانتقال
                'لإعادة توليد رقم صف عشوائي جديد
                GoTo Generate

            'نهاية جملة الشرط
            End If

        'الانتقال للحلقة التالية أي للسؤال التالي
        Next i

    'نهاية التعامل مع ورقة العمل
    End With

    'إعادة تفعيل خاصية تحديث الشاشة
    Application.ScreenUpdating = True
End Sub
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: الصقر، Yasser Elaraby، نصر الإيمان، ali mohamed ali،





27-08-2019 08:41 صباحا
مشاهدة مشاركة منفردة [1]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8654
الاعجاب : 464
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif توليد امتحان بشكل عشوائي من بنك أسئلة Generate Random Test Paper From Questions Bank
جميلة الفكرة ممكن تساعدنا في حاجات كتير انا عموما استخدامها في اكتر من برنامج وايضا في الحماية كمان
يعني ممكن عند وضع ملف على جهاز ويتم فتحه اول مرة يتم توليد رقم عشوائي ويتم حفظه في مكان ما ايا كان الريجستري في نوت باد داخل الويندوز او اي مكان
وبعدها يتم عرض الرقم للمستخدم وارساله لنا واعطائه السيريال الخاص بهذا الرقم
ويتم ادخال السيريال بالبرنامج وحفظه ايضا ليعمل البرنامج بدون مشاكل لا هارد ولا مازر بورد ولا اي شئ
يلا جرب الفكرة دي وادعيلي 121

أثارت هذه المشاركة إعجاب: نصر الإيمان، الصقر، YasserKhalil، محمود ابو الدهب،


توقيع :Yasser Elaraby
663013020



27-08-2019 08:56 صباحا
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 719
الاعجاب : 73
 offline 
look/images/icons/i1.gif توليد امتحان بشكل عشوائي من بنك أسئلة Generate Random Test Paper From Questions Bank
جزاك الله خيرا استاذ ياسر خليل
منك نتعلم الكثير3

أثارت هذه المشاركة إعجاب: YasserKhalil،




27-08-2019 09:15 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif توليد امتحان بشكل عشوائي من بنك أسئلة Generate Random Test Paper From Questions Bank

جزاكم الله خيرا ابوبراء 3



أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



27-08-2019 09:53 صباحا
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1210
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5709
الاعجاب : 711
 offline 
look/images/icons/i1.gif توليد امتحان بشكل عشوائي من بنك أسئلة Generate Random Test Paper From Questions Bank
أحسنت استاذ ياسر عمل ممتاز جعله الله فى ميزان حسناتك

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


27-08-2019 12:57 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif توليد امتحان بشكل عشوائي من بنك أسئلة Generate Random Test Paper From Questions Bank
بارك الله فيكم احبابي في الله وجزيتم خيراً على مروركم المشرف بالموضوع

أثارت هذه المشاركة إعجاب: الصقر، نصر الإيمان، ali mohamed ali،




27-08-2019 03:36 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif توليد امتحان بشكل عشوائي من بنك أسئلة Generate Random Test Paper From Questions Bank
الف الف شكرا عمل ممتاز 
بارك الله فيك
 

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


27-08-2019 06:10 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif توليد امتحان بشكل عشوائي من بنك أسئلة Generate Random Test Paper From Questions Bank
بارك الله فيك أخي العزيز محمود ومشكور على كلماتك الطيبة







الكلمات الدلالية
Bank ، Questions ، From ، Paper ، Test ، Random ، Generate ، أسئلة ، عشوائي ، بشكل ، امتحان ، توليد ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 02:55 صباحا

أعلن هنا
أعلن هنا
أعلن هنا