منتدى جزيرة الرياضيات - الدرس الرابع عشر عمل مسابقة اختيار متعدد متكاملة اجاباتها على هيئة نصوص

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)

- منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)

الدرس الرابع عشر عمل مسابقة اختيار متعدد متكاملة اجاباتها على هيئة نصوص

السلام عليكم

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

استغرق شرحه وقت طويل الله يعينكم عليه

هنا الشرح بالصوت و الصورة

و هذا كود المسابقة

كود:

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long



Dim trueq, falseq As Long

Dim q, a1, a2, a3, a4 As String

Dim a As Integer

Dim L1, L2, L3, L4, T1, T2, T3, T4 As Integer



Private Sub Comfalse_Click()

Comfalse.Enabled = False

Comtrue.Enabled = False

If jawab = False Then

trueq = trueq + 1

Else

falseq = falseq + 1

End If



natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq



End Sub



Private Sub Com1_Click()

Com1.Enabled = False

Com2.Enabled = False

Com3.Enabled = False

Com4.Enabled = False



trueq = trueq + 1

Com1.BackColor = &HFF00&

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq

Labeltruefalse.Caption = "الاجابة صحيحة"

PlaySound Application.ActivePresentation.Path & "\true.wav", 0, &H1



Labeltruefalse.Visible = True



  Dim Start As Long

    Start = Timer

    Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want)





        DoEvents ' Yield To other processes.

        Loop

        

    

Comsoal_Click



Labeltruefalse.Visible = False



End Sub



Private Sub Com2_Click()

Com1.Enabled = False

Com2.Enabled = False

Com3.Enabled = False

Com4.Enabled = False

Com1.BackColor = &HFF00&

Com2.BackColor = &HFF&



falseq = falseq + 1



natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq

Labeltruefalse.Caption = "الاجابة خاطئة"

PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1



Labeltruefalse.Visible = True



  Dim Start As Long

    Start = Timer

    Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want)





        DoEvents ' Yield To other processes.

        Loop

        

    

Comsoal_Click

Labeltruefalse.Visible = False

End Sub



Private Sub Com3_Click()



Com1.Enabled = False

Com2.Enabled = False

Com3.Enabled = False

Com4.Enabled = False

Com1.BackColor = &HFF00&

Com3.BackColor = &HFF&



falseq = falseq + 1



natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq

Labeltruefalse.Caption = "الاجابة خاطئة"

PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1



Labeltruefalse.Visible = True



  Dim Start As Long

    Start = Timer

    Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want)





        DoEvents ' Yield To other processes.

        Loop

        

    

Comsoal_Click

Labeltruefalse.Visible = False

End Sub



Private Sub Com4_Click()





Com1.Enabled = False

Com2.Enabled = False

Com3.Enabled = False

Com4.Enabled = False

Com1.BackColor = &HFF00&

Com4.BackColor = &HFF&



falseq = falseq + 1



natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq

Labeltruefalse.Caption = "الاجابة خاطئة"

PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1



Labeltruefalse.Visible = True



  Dim Start As Long

    Start = Timer

    Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want)





        DoEvents ' Yield To other processes.

        Loop

        

    

Comsoal_Click

Labeltruefalse.Visible = False

End Sub



Private Sub Comsoal_Click()

If trueq + falseq = 10 Then

Comsoal.Visible = True

MsgBox "انتهت الاسئلة شكرا لاستخدامك البرنامج", vbOKOnly, "رسالة البرنامج"

a = 0

falseq = 0

trueq = 0

soal = "السؤال"

natija = "النتيجة"

Com1.Caption = "الاجابة"

Com2.Caption = "الاجابة"

Com3.Caption = "الاجابة"

Com4.Caption = "الاجابة"



Com1.Enabled = False

Com2.Enabled = False

Com3.Enabled = False

Com4.Enabled = False

Com1.BackColor = &H8000000F

Com2.BackColor = &H8000000F

Com3.BackColor = &H8000000F

Com4.BackColor = &H8000000F



Exit Sub

End If



Com1.BackColor = &H8000000F

Com2.BackColor = &H8000000F

Com3.BackColor = &H8000000F

Com4.BackColor = &H8000000F



Comsoal.Visible = False

Com1.Visible = False

Com2.Visible = False

Com3.Visible = False

Com4.Visible = False

  





a = a + 1



If a = 1 Then

q = "من أول الخلفاء الراشدين"

a1 = "أبو بكر الصديق"

a2 = "عمر بن الخطاب"

a3 = "عثمان بن عفان"

a4 = "علي بن ابي طالب"







ElseIf a = 2 Then

q = "شخصية حاولت هدم بيت الله الحرام"

a1 = "ابرهة الحبشي"

a2 = "يزيد بن معاوية"

a3 = "ابو لؤلؤة المجوسي"

a4 = "الاسكندر المقدوني"



ElseIf a = 3 Then

q = "نبي ولد من غير أب"

a1 = "النبي عيسى"

a2 = "النبي موسى"

a3 = "النبي محمد"

a4 = "النبي زكريا"

ElseIf a = 4 Then

q = "خاتم الأنبياء"

a1 = "النبي محمد"

a2 = "النبي موسى"

a3 = "النبي عيسى"

a4 = "النبي زكريا"

ElseIf a = 5 Then

q = "يخرج آخر الزمان يملألأرض قسطا و عدلا"

a1 = "المهدي"

a2 = "النبي موسى"

a3 = "النبي محمد"

a4 = "النبي زكريا"

ElseIf a = 6 Then

q = "كان يتعبد فيه الرسول محمد (ص)قبل الاسلام"

a1 = "غار حراء"

a2 = "غار ثور"

a3 = "جوف الكعبة"

a4 = "منزله"

ElseIf a = 7 Then

q = "ثالث المجموعة الشمسية هو كوكب"

a1 = "الارض"

a2 = "الزهرة"

a3 = "المريخ"

a4 = "عطارد"

ElseIf a = 8 Then

q = "ما هو أكثر حيوان معمر؟"

a1 = "السلحفاة"

a2 = "الفيل"

a3 = "الحصان"

a4 = "الحوت الأزرق"

ElseIf a = 9 Then

q = "كم يوم يعيش ذكر الذباب؟"

a1 = "16 يوم"

a2 = "3 أيام"

a3 = "50 يوم"

a4 = "7 أيام"

ElseIf a = 10 Then

q = "ما هي سرعة دوران الأرض حول الشمس؟"

a1 = "60 الف ميل بالساعة"

a2 = "25 الف ميل بالساعة"

a3 = "100 الف ميل بالساعة"

a4 = "80 الف ميل بالساعة"



End If







soal.Caption = q



Com1.Caption = a1

Com2.Caption = a2

Com3.Caption = a3

Com4.Caption = a4



L1 = Com1.Left

 L2 = Com2.Left

 L3 = Com3.Left

 L4 = Com4.Left

 T1 = Com1.Top

 T2 = Com2.Top

 T3 = Com3.Top

 T4 = Com4.Top

 

 Randomize

 Dim v As Integer

 v = Int(Rnd * 4)

If v = 0 Then

  Com1.Left = L1

  Com2.Left = L2

  Com3.Left = L3

  Com4.Left = L4

  Com1.Top = T1

  Com2.Top = T2

  Com3.Top = T3

  Com4.Top = T4

  ElseIf v = 1 Then

  Com2.Left = L1

  Com1.Left = L2

  Com3.Left = L3

  Com4.Left = L4

  Com2.Top = T1

  Com1.Top = T2

  Com3.Top = T3

  Com4.Top = T4

   ElseIf v = 2 Then

  Com3.Left = L1

  Com2.Left = L2

  Com1.Left = L3

  Com4.Left = L4

  Com3.Top = T1

  Com2.Top = T2

  Com1.Top = T3

  Com4.Top = T4

   ElseIf v = 1 Then

  Com4.Left = L1

  Com3.Left = L2

  Com2.Left = L3

  Com1.Left = L4

  Com4.Top = T1

  Com3.Top = T2

  Com2.Top = T3

  Com1.Top = T4

End If



Com1.Enabled = True

Com2.Enabled = True

Com3.Enabled = True

Com4.Enabled = True

Com1.Visible = True

Com2.Visible = True

Com3.Visible = True

Com4.Visible = True

natija.Caption = "السؤال رقم : " & a

End Sub

و ننتظر ان تعملوا المسابقة مع تعديلاتكم

الاستاذ خليل

شكر على الدرس استادي

المسابقة

شكرا استاذ على هذا الدرس كنت انتضر فيه على جمر و الحمد لله وصل ..
لي سؤال keypress وجدت هذا الحدث في بعض الأكواد ولم افهم عمله ان ممكن تعطوني استفسار او شرح عنه و شكرا..
اشكر و اشجع كل من حافظ و أمال و فاضي على الواجبات و الى الأمام الى الخبرة و الأجتهاد...
قمت بالمسابقة متوضعة وانتضر التقويم من فضلكم..
المسابقة هنا....

تم ترفيع الملف بالمرفقات ايضا من قبل الاستاذ خليل

عمل ممتاز استاذ zine pef سأضع الدرس التالي اتمنى الاسراع في الرد لان الدورة ستنتهي بنهاية الشهر

بالنسبة keypress فائدته عندما يضغط المستخدم على الازرار في الكي بورد يضهر له هذا الحدث من الممكن ان تمنع المستخدم من الضغط على الحروف و تسمح له بكتابة الارقام مثلا سأكتب اذا فرغت

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

عمل ممتاز و رائع الأخت Amel2005

عمل ممتاز استاذة امل

الاستاذ خليل

اقتباس:

المشاركة الأصلية كتبت بواسطة zine pef

عمل ممتاز و رائع الأخت Amel2005

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

اقتباس:

المشاركة الأصلية كتبت بواسطة الاستاذ خليل

عمل ممتاز استاذة امل

الاستاذ خليل

أستاذى الكريم المفضال ...
لست إلا تلميذتك .
احترامى وتقديرى.

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

تحياتى للجميع.

السلام عليكم...
لا شكر على واجب الأخت(( أمال 2005 ))...مسابقة جيدة وجدتها وعرضتها لنا
لقد تصفحتها و لاحظت ان الكود نفس الطريقة الدرس الأستاذ خليل لكن بطيقة الموديل ...والمشكل هو لغة الأنجليزية نحن في بلادنا نتميز باللغة الفرنسية..
اختاه موقع هذا الملف اكيد ممتاز بحث عن مواقع تستعمل هذه الطريقة و الأكواد و لم اجد عرض علية الأستاذ بعض المواقع لكن وجدتها ناقصة...شكرا للأستاذ
ان كان لديك مواقع تهتم بهذه الأمور و الأكواد فلا تبخل علية بيها وجزاك الله كل الخير و شكرا و الف شكر

وعليكم السلام ورحمة الله وبركاته
شكرا لتصفحك الملف أخى
جزاك الله خيرا .

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

بالنسبة لموقع الملف
http://skp.mvps.org/ppt00031.htm

وعند البحث فى المواقع أكتب ما أريده اما داخل الـ Help الموجودة بالبرنامج
أو - إن لم أجد حلا لما أريد - أستعمل محرك البحث جوجل .

ويمكنك أن تحدد نوع المواقع التى تريد البحث فيها واختيار اللغة المطلوبة ...

فمثلا ... يمكنك أن تدخل الرابط
http://www.google.com/advanced_search?hl=ar

وتختار اللغة الفرنسية.

تمنياتى لك بالتوفيق .

ما رأيك الأخت أمالهنا..

بهذا الملف الاكواد موجودة بالمايكرو

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

الاستاذ خليل

السلام عليكم

هذا هو الواجب بلغة vb

وقد استخدمت الصور للتغلب على مشكلة القوى والاس

http://la.joreyat.org/download.php?i...d0095e2fe3b21e

عندي سؤال : هل ممكن شرح للماكرو الموجود في الرابط ( هنا )

مشروع رائع الأخ قاضى ...ممتاز الى الأمام
سؤال :ما هو تعريف module ؟ و لماذا الوضع الكود فيه بالتفسير الدقيق لأن لا افهم الموديل
و شكرا

اخي الكريم

الوحدة module
هي مكان يكتب بها كود عام فيصبح بالامكان استدعاؤه من مختلف نماذج (forms)المشروع او البرنامج

وهي ليست نموذج ولا يمكن تنفيذ التعليمات التي بداخلها بشكل مستقل , بل تحتاج الى form ليتم من خلاله تنفيذ التعليمات التي تحتويها

ويمكن ان تحوي الـ module على متغيرات عامة على مستوى المشروع كله , كما يمكن ان تحوي على دوال (function) وعلى تطبيقات او اجراءات (sub) يمكن استدعاؤها في اي مكان من المشروع

شكراً أخي فعلاً هو المكان للكود و هل ممكن استغناء عنه وكتابة الكود في مكان projet

في بعض الاحيان يمكن كتابة الكود في form مباشرة ( لكن ذلك قد يؤدي الى كثير من التكرار احيانا لنفس الكود لذلك نلجا الى كتابته في module مرة واحدة ثم نستدعيه عند الحاجة في البرنامج)
ولكن احيانا يلزمنا متحول عام على مستوى المشروع كله فلا يمكن كتابته الا في module
ساشرح ذلك في مثال
امهلني بعض الوقت...

الامثلة في المرفقين التاليين
الاول عن المتحول العام والثاني عن الاجراء sub
بقي مثال عن function وانا بصدد تنفيذه
ارجو ان تكون الفكرة قد وصلت
واذا في اسئلة اخبرني
ملاحظة: هذه الامثلة هي تطبيقات بسيطة الغاية منها فقط الشرح والايضاح
والفائدة العملية لmodule تظهر في المشاريع الكبيرة

شكراً الأخ قاضي على الدرس القيم

وهذا هو درس الدوال وتعريفها في module

http://la.joreyat.org/download.php?i...cb8f91a8e5b548

تم وضع الملف في المرفقات من قبل الاستاذ خليل

رائع يا استاذ.. جزاك الله كل الخير.

اكثر من رائع
ولكن لدي سؤال يحيّرني منذ زمن بعيد نسبيًّا
وهي كيف نحفظ هذا العرض التقديمي حتى يظهر بالصورة المطلوبة
فكلما قمت بالعمل فإنه فاعل وممتاز إلى أن أحفظ وأغلقه ثمّ أفتحه ولا يعمل على الرغم من وجود الأكواد جميعها...
أرجو مساعدتي في ذلك

اهلا بك اخي ٍSalmanz
اعتقد ان مشكلتك هي في الامان
اذا كنت تعمل على بور بوينت 2003 راجع الدرس الاول للاستاذ خليل في هذه الدورة
واذا كنت تستخدم الاصدار 2007 فاخبرني لانه يجب تمكين عرض الماكرو و vb

الأخ قاضي كيف هذ ا ...(واذا كنت تستخدم الاصدار 2007 فاخبرني لانه يجب تمكين عرض الماكرو و vb هل فيه طريقة..

نعم اخي زين
في الاصدار 2007 يجب تمكين وحدات الماكرو وايضا vba
وذلك كما يلي :
اضغط الزاوية العليا اليمنى واختر من اسفل الصفحة المنبثقة اضغط (خيارات)
ثم اختر ( مركز التوثيق) ثم اضغط (اعدادات مركز التوثيق )ومنها خذ تبويب (اعدادات الماكرو )
واخيرا حدد ( تمكين كافة وحدات الماكرو ) + ( الثقة في الوصول الى طراز كائن vba )

شكر اخي لايوجد عندي off_2007 للكن عندي 2003 ودلك لمعلومات اضافية .. وان ممكن تأخد هذا الشرح بالصورة حتى يكون واضح اكثر

لم استطع يا استاذ خليل تطبيقه بصراحة
ارجو التواصل معي على الايميل [email protected]
وشكرا لك

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

اذا في حد حابب يعمل معروف يبعتو الي على المنتدى أو على ايميلي
[email protected]

بامكانك تحميل ملفات الاعضاء وهي مفتوحة

لو سمحتو يا اخوان الي عندو البرنامج كامل ومرفوع على سيرفر كويس
ارجوكم عايزوووووووووووووووو ضروري
برنامج اختيار متعدد متكاملة اجاباتها على هيئة نصوص

يا اخوااااااااااااااااااااان من الصبح وانا بقولكوووووووووووو ساعدوني
بحيلكوووووووووووو اخوكوووووووووو مزنوق بدي البرنامج
ارجووووووووووووووكم ساعدوني
pleaseeeeeeeeeeee

يا اخي هذا البرنامج كبير عادتا بيجي على قرص اسمه الافس 2003 و هذا البرنامج هو يجي على كمبيوترك .
هنا استخدمنا برنامج الباور بوينت يعني اتوقع 90 % موجود عندك

طلب ورجاء من أستاذنا الفاضل الأستاذ خليل

السلام عليكم ورحة اللة وبركاتة
استاذنا الفاضل فاتنى دروس الدورة الرائعة ولا استطيع انزال دروسها فهل اطمع فى ارسالها على ايميلى [email protected]

للاسف لا استطيع لو بريديا اهون لان حجمها كبير و مكلفة لانه الانرنت محدود المساحة عندنا حاول تحميله من جهاز اخر او محل انترنت او اعلمنى بعنوانك لعلي ارسله

السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أستاذنا الكريم...
ونسأل الكريم أن ينفعك بدعائنا لأننا لا نملك غير الدعاء لك ,وأن يبارك فى اعمال القائمين على المنتدى ويجعل هذه الأعمال فى ميزان حسناتكم
ولدى مشروع ارجو من حضرتكم تقييمه
http://www.4shared.com/file/4KV_Jmia/___online.html

.

شكرا لثقتك بنا و الله يجعله في ميزان حسناتك :
الايجابيات :
1- مستواك البرمجي ممتاز .
2- به طريقة الشرح .

الاشياء التي تحتاج لتطوير بنظري:
1- يجب عليك تعديل المتغيرات لكي تصبح الارقام صغيرة فمن غير المعقول مثلا تضرب 23 ×76 مثلا في درس ترتيب العمليات اجعل الضرب في و القسمة في حدود حقائق الضرب مثل 9×5+23
2-شرح العرض سريع بعض الشيء ينصح بجعله يديويا .
3-عدم تكديس المطلوب في التمرين اقصد لا تكتب خطوات التالية:
مثلا اذا تريد من الطالب يكتب الخطوة الاولى كتابة ناتج الضرب و الجمع قم باخفاء الخطوة الثانية و لما يجيب اجابة صحيحة تجعله يرا الخطوة الثانية هذا سينظم الحل و سيضهر التفاعل بشكل افضل .

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

اقتباس:

المشاركة الأصلية كتبت بواسطة الاستاذ خليل (المشاركة 16869)

كود:

private declare function playsound lib "winmm.dll" alias "playsounda" (byval lpszname as string, byval hmodule as long, byval dwflags as long) as long



dim trueq, falseq as long

dim q, a1, a2, a3, a4 as string

dim a as integer

dim l1, l2, l3, l4, t1, t2, t3, t4 as integer



private sub comfalse_click()

comfalse.enabled = false

comtrue.enabled = false

if jawab = false then

trueq = trueq + 1

else

falseq = falseq + 1

end if



natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq



end sub



private sub com1_click()

com1.enabled = false

com2.enabled = false

com3.enabled = false

com4.enabled = false



trueq = trueq + 1

com1.backcolor = &hff00&

natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq

labeltruefalse.caption = "الاجابة صحيحة"

playsound application.activepresentation.path & "\true.wav", 0, &h1



labeltruefalse.visible = true



  dim start as long

    start = timer

    do while timer < start + 3 'a 3 second delay (change to any numer you want)





        doevents ' yield to other processes.

        Loop

        

    

comsoal_click



labeltruefalse.visible = false



end sub



private sub com2_click()

com1.enabled = false

com2.enabled = false

com3.enabled = false

com4.enabled = false

com1.backcolor = &hff00&

com2.backcolor = &hff&



falseq = falseq + 1



natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq

labeltruefalse.caption = "الاجابة خاطئة"

playsound application.activepresentation.path & "\no.wav", 0, &h1



labeltruefalse.visible = true



  dim start as long

    start = timer

    do while timer < start + 3 'a 3 second delay (change to any numer you want)





        doevents ' yield to other processes.

        Loop

        

    

comsoal_click

labeltruefalse.visible = false

end sub



private sub com3_click()



com1.enabled = false

com2.enabled = false

com3.enabled = false

com4.enabled = false

com1.backcolor = &hff00&

com3.backcolor = &hff&



falseq = falseq + 1



natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq

labeltruefalse.caption = "الاجابة خاطئة"

playsound application.activepresentation.path & "\no.wav", 0, &h1



labeltruefalse.visible = true



  dim start as long

    start = timer

    do while timer < start + 3 'a 3 second delay (change to any numer you want)





        doevents ' yield to other processes.

        Loop

        

    

comsoal_click

labeltruefalse.visible = false

end sub



private sub com4_click()





com1.enabled = false

com2.enabled = false

com3.enabled = false

com4.enabled = false

com1.backcolor = &hff00&

com4.backcolor = &hff&



falseq = falseq + 1



natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq

labeltruefalse.caption = "الاجابة خاطئة"

playsound application.activepresentation.path & "\no.wav", 0, &h1



labeltruefalse.visible = true



  dim start as long

    start = timer

    do while timer < start + 3 'a 3 second delay (change to any numer you want)





        doevents ' yield to other processes.

        Loop

        

    

comsoal_click

labeltruefalse.visible = false

end sub



private sub comsoal_click()

if trueq + falseq = 10 then

comsoal.visible = true

msgbox "انتهت الاسئلة شكرا لاستخدامك البرنامج", vbokonly, "رسالة البرنامج"

a = 0

falseq = 0

trueq = 0

soal = "السؤال"

natija = "النتيجة"

com1.caption = "الاجابة"

com2.caption = "الاجابة"

com3.caption = "الاجابة"

com4.caption = "الاجابة"



com1.enabled = false

com2.enabled = false

com3.enabled = false

com4.enabled = false

com1.backcolor = &h8000000f

com2.backcolor = &h8000000f

com3.backcolor = &h8000000f

com4.backcolor = &h8000000f



exit sub

end if



com1.backcolor = &h8000000f

com2.backcolor = &h8000000f

com3.backcolor = &h8000000f

com4.backcolor = &h8000000f



comsoal.visible = false

com1.visible = false

com2.visible = false

com3.visible = false

com4.visible = false

  





a = a + 1



if a = 1 then

q = "من أول الخلفاء الراشدين"

a1 = "أبو بكر الصديق"

a2 = "عمر بن الخطاب"

a3 = "عثمان بن عفان"

a4 = "علي بن ابي طالب"







elseif a = 2 then

q = "شخصية حاولت هدم بيت الله الحرام"

a1 = "ابرهة الحبشي"

a2 = "يزيد بن معاوية"

a3 = "ابو لؤلؤة المجوسي"

a4 = "الاسكندر المقدوني"



elseif a = 3 then

q = "نبي ولد من غير أب"

a1 = "النبي عيسى"

a2 = "النبي موسى"

a3 = "النبي محمد"

a4 = "النبي زكريا"

elseif a = 4 then

q = "خاتم الأنبياء"

a1 = "النبي محمد"

a2 = "النبي موسى"

a3 = "النبي عيسى"

a4 = "النبي زكريا"

elseif a = 5 then

q = "يخرج آخر الزمان يملألأرض قسطا و عدلا"

a1 = "المهدي"

a2 = "النبي موسى"

a3 = "النبي محمد"

a4 = "النبي زكريا"

elseif a = 6 then

q = "كان يتعبد فيه الرسول محمد (ص)قبل الاسلام"

a1 = "غار حراء"

a2 = "غار ثور"

a3 = "جوف الكعبة"

a4 = "منزله"

elseif a = 7 then

q = "ثالث المجموعة الشمسية هو كوكب"

a1 = "الارض"

a2 = "الزهرة"

a3 = "المريخ"

a4 = "عطارد"

elseif a = 8 then

q = "ما هو أكثر حيوان معمر؟"

a1 = "السلحفاة"

a2 = "الفيل"

a3 = "الحصان"

a4 = "الحوت الأزرق"

elseif a = 9 then

q = "كم يوم يعيش ذكر الذباب؟"

a1 = "16 يوم"

a2 = "3 أيام"

a3 = "50 يوم"

a4 = "7 أيام"

elseif a = 10 then

q = "ما هي سرعة دوران الأرض حول الشمس؟"

a1 = "60 الف ميل بالساعة"

a2 = "25 الف ميل بالساعة"

a3 = "100 الف ميل بالساعة"

a4 = "80 الف ميل بالساعة"



end if







soal.caption = q



com1.caption = a1

com2.caption = a2

com3.caption = a3

com4.caption = a4



l1 = com1.left

 l2 = com2.left

 l3 = com3.left

 l4 = com4.left

 t1 = com1.top

 t2 = com2.top

 t3 = com3.top

 t4 = com4.top

 

 randomize

 dim v as integer

 v = int(rnd * 4)

if v = 0 then

  com1.left = l1

  com2.left = l2

  com3.left = l3

  com4.left = l4

  com1.top = t1

  com2.top = t2

  com3.top = t3

  com4.top = t4

  elseif v = 1 then

  com2.left = l1

  com1.left = l2

  com3.left = l3

  com4.left = l4

  com2.top = t1

  com1.top = t2

  com3.top = t3

  com4.top = t4

   elseif v = 2 then

  com3.left = l1

  com2.left = l2

  com1.left = l3

  com4.left = l4

  com3.top = t1

  com2.top = t2

  com1.top = t3

  com4.top = t4

   elseif v = 1 then

  com4.left = l1

  com3.left = l2

  com2.left = l3

  com1.left = l4

  com4.top = t1

  com3.top = t2

  com2.top = t3

  com1.top = t4

end if



com1.enabled = true

com2.enabled = true

com3.enabled = true

com4.enabled = true

com1.visible = true

com2.visible = true

com3.visible = true

com4.visible = true

natija.caption = "السؤال رقم : " & a

end sub

و ننتظر ان تعملوا المسابقة مع تعديلاتكم

الاستاذ خليل

شكراً على البرنامج والشرح الرائع
لكن اريد طلب بسيط يا استاذ ! وأرجو ألأا تخيب أملي في تعديل البرنامج
1-الصوت في البرنامج لا يعمل بتاتاً وعند تشغيل البرنامج يأتيني خطاأ في متغير الصوت
2-اريد ان اجعل الأسئلة تظهر بشكل عشوائي ولي مرتب يعني وضع متغير راندوم لكن لا أعرف كيف وما هو !
3- اريد وضع توقيت لكل سؤال يعني اذا خلص التوقيت يحتسب النتيجة خطأ وينتقل للسؤال التالي
وشكراً مرة ثانية وفي أمان الله

عندي بعض الطلبات لو سمحت يا استاذ

السلام عليكم ورحمة الله وبركاته
انا من سنة كنت أكتب بالبرنامج وطورت عليه بعض الشغلات لكن ظهرت معي مشاكل منها
1- مشكلة الصوت البرنامج لا يشتغل فيه الصوت بتاتاً مع اني تتبعت الخطوات أكثر من مرة ما بزبط معي . لكن وجدت متغير ثاني عن طريق اداة mmc واشتغل 100 % لكن الأن ايضاً نست كيف اشغل الصوت عن طريق هاي الأداة ايضاً , فهل من حل
2- كيف اقدر اخلي البرنامج يعرض الأسئلة عشوائياً مو بالترتيب يعني كل مرة يشتغل فيها البرنامج يجي سؤال شكل (حكولي في متغير اسمو راندوم )
3- كيف أقدر اعمل توقيت محدد لكل سؤال لما يخلص التوقيت يحتسب النتيجة خطأ وينتقل للسؤال التالي

كيف اقدر أعمل شريط أخباري اكتب مثلاً اسمي عليه ويضل يظهل مثل شريط الأخبار
وشكراً جزيلا مرة ثانية وأرجو مساعدتي بأقرب وقت ممكن