المسابقة الثقافية النسخة 3

[محمد يحياوي]

ملاحظات على هذه النسخة :

- تم وضع الاسئلة في شيت (ورقة) بدل الفورم ليتم التعديل على الاسئلة و الاجوبة

- يتم التقيد بمكان وضع الاجابات الخاطئة و الاجابات الصحيحة (موضحة بالالوان)

- تم ربط الفورم بالورقة و الورقة بالفورم (التناوب في الظهور)

- تم عمل الملف في ملف تنفيذي مدمج معه ملف رجستري ليتم خفض امان الماكرو (صالح لجميع نسخ الاوفيس)

- تم عمل ايقونة للملف لاضافة مسحة جمالية للملف

في الاخير تقبلوا كل الود و المحبة و الشكر للاخ الحبيب يوسف عطا الذي اشار الى الفكرة

المسابقةالثقافية 3.rar

[عبدالله المجرب]

السلام عليكم

الاستاذ الفاضل محمد يحياوي

يسعدني بأن اكون اول الواصلين للرد على هذه الدرة التي وضعتها

بارك الله فيك وسلمت يمينك

ابواحمد

[محمد يحياوي]

الاخ الحبيب "ابو احمد" دائما سبّاق بالخيرات بارك الله فيك و سعدت بمرورك

[saad abed]

السلام عليكم

الاستاذ الفاضل محمد يحياوي

يسعدني بأن اكون اول الواصلين للرد على هذه الدرة التي وضعتها

بارك الله فيك وسلمت يمينك

ابواحمد

اخى يحياوى

صدق ابواحمد اخى عبدالله درر فعلا

تحياتى

سعد عابد

[ريان أحمد]

ezrصدقني عندما قمت بالرد لم احمل الملف لأنني متأكد وكلي يقين من نوع الملف وإتقانه وجودته لأنه من شخص تعودنا دائما على إبداعاته المتواصلة فجزاك الله كل خير

[محمد يحياوي]

الاخوة الافاضل "سعد عابد" ، "طاهر" بارك الله و وفقكم الى الخير

[دغيدى]

أخى الفاضل / يحياوى

مبدع ثم مبدع ثم مبدع

فما أجمل الإبداع

[abouelhassan]

شكر وتقدير واحترام

والله العظيم مبدع

بارك الله فيك

احترامى

[القومي]

احترامى وتقديرى الى استاذنا الكبير يحياوى

فعلا رائع بل اكثر من رائع

بارك الله فيك

[naderwatfa]

رائع .. بل فوق الرائع

و كله فن و ذوق و جمال و بساطة و سهولة

تسلم أستاذ يحياوي

[الـعيدروس]

السلام عليكم

الاستاذ يحياوي اعمالك كله ابداع في ابداع

ملف قيم بارك الله فيك

[القومي]

اساذنا / يحياوى

هل من الممكن تطوير وتغيير نوعية الاسئلة

[القومي]

استاذنا / يحياوى

البرنامج اذا غيرت فى الاسئلة يحتاج ان تضغط على الاجابة الصحيحة فقط واذا اخترت الخطأ يغلق البرنامج

اذا عدلت الاسئلة وحاولت ان اعمل نسخة لمادة اخرى لااستطيع لانها مبرمجة

بمعنى لانستطيع تعدد المواد بها

ولكم جزيل الشكر

تم تعديل نوفمبر 26, 2011 بواسطه القومي

[محمد يحياوي]

الاخوة الافاضل دغيدي - ابو احسان - القومي - نادر - ابو نصار بارك الله فيكم و سعدت بمروركم

الاخ القومي يمكن تطويرو تغيير الاسئلة حسب ما تريد بالنسبة للمشكلة التي ذكرت لم لتعرض لها و اذا احد الاخوة لاحظ ذلك فليخبرنا

على العموم فك الضغط عن الملف التنفيذي و حاول مرة اخرى

[الجزيرة]

ممتاز أخي يحياوي

إبداع غير مستغرب منكـ

[أبوعبد الله]

أخي الحبيب / يحياوي

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

تقبل تحياتي وتقديري

أبو عبدالله

[يوسف عطا]

الف شكر أخونا الغالى يحياوى

والشكر موصول لكل المارين على الموضوع

[يوسف عطا]

أخونا الغالى يحياوى

ما الجزء الذى يجب تغييره فى الكود أو الفورم ليكون عدد الأسئلة مفتوح

مثلاً 100 سؤال بكل مستوى أو أكثر

وهل يمكن إضافة زر بكلمة التالى فى حالة أردنا أن نتحكم فى وقت كل سؤال يدوياً ؟؟

[أول الليل]

ما شاء الله تبارك الله

عمل طيب

بالتوفيق

بالتوفيق

بالتوفيق

[محمد يحياوي]

الاخوة الافاضل : ابو عبد الله - يوسف عطا - ابو الليل جزاكم الله خيرا على المرور

بالنسبة لملاحظة الاستاذ ابو عبد الله في محلها فساعمل على ذلك في نسخة اخرى ان شاء الله

بالنسبة لطلب الاخ يوسف عطا الاول بفرض انك تريد اضافة سؤال حيث يصبح عدد الاسئلة 11 في المستوى الاول يصبح الكود

Private Sub Comsoal1_Click()

If trueq + falseq = 11 Then

و كذلك زيادة هذه الاسطر

ElseIf a = 11 Then

q1 = Worksheets("Sheet1").Range("l1")

a1 = Worksheets("Sheet1").Range("l2")

a2 = Worksheets("Sheet1").Range("l3")

a3 = Worksheets("Sheet1").Range("l4")

a4 = Worksheets("Sheet1").Range("l5")

[يوسف عطا]

مشكور يا غالى على إجابة السؤال الأول

ماذا بشأن السؤال الثانى ؟؟

إضافة زر لضبط وقت كل سؤال يدوياً يكون مكتوب عليه مثلاً السؤال التالى