منتدى جزيرة الرياضيات  
     

Left Nav التسجيل التعليمـــات قائمة الأعضاء التقويم البحث مشاركات اليوم اجعل كافة الأقسام مقروءة Right Nav

Left Container Right Container
 

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

منتدى التعليم الإلكتروني منتدى خاص لعمل دورات تعليمية في البرامج و الورش التعليمية خاصة و تتعلق بالتعليم الإلكتروني

إضافة رد
 
أدوات الموضوع تقييم الموضوع
  #21  
قديم 08-09-2007, 02:30 PM
zine pef zine pef غير متواجد حالياً
عضو

 
تاريخ التسجيل: Apr 2007
المشاركات: 148
رائع يا استاذ.. جزاك الله كل الخير.
رد مع اقتباس
  #22  
قديم 08-09-2007, 04:04 PM
ٍSalmanz ٍSalmanz غير متواجد حالياً
عضو
 
تاريخ التسجيل: Aug 2007
المشاركات: 1
اكثر من رائع
ولكن لدي سؤال يحيّرني منذ زمن بعيد نسبيًّا
وهي كيف نحفظ هذا العرض التقديمي حتى يظهر بالصورة المطلوبة
فكلما قمت بالعمل فإنه فاعل وممتاز إلى أن أحفظ وأغلقه ثمّ أفتحه ولا يعمل على الرغم من وجود الأكواد جميعها...
أرجو مساعدتي في ذلك
رد مع اقتباس
  #23  
قديم 08-10-2007, 12:17 AM
fadi9 fadi9 غير متواجد حالياً
عضو

 
تاريخ التسجيل: Jan 2006
المشاركات: 106
اهلا بك اخي ٍSalmanz
اعتقد ان مشكلتك هي في الامان
اذا كنت تعمل على بور بوينت 2003 راجع الدرس الاول للاستاذ خليل في هذه الدورة
واذا كنت تستخدم الاصدار 2007 فاخبرني لانه يجب تمكين عرض الماكرو و vb
رد مع اقتباس
  #24  
قديم 08-13-2007, 03:27 AM
zine pef zine pef غير متواجد حالياً
عضو

 
تاريخ التسجيل: Apr 2007
المشاركات: 148
الأخ قاضي كيف هذ ا ...(واذا كنت تستخدم الاصدار 2007 فاخبرني لانه يجب تمكين عرض الماكرو و vb هل فيه طريقة..
رد مع اقتباس
  #25  
قديم 08-15-2007, 10:51 PM
fadi9 fadi9 غير متواجد حالياً
عضو

 
تاريخ التسجيل: Jan 2006
المشاركات: 106
نعم اخي زين
في الاصدار 2007 يجب تمكين وحدات الماكرو وايضا vba
وذلك كما يلي :
اضغط الزاوية العليا اليمنى واختر من اسفل الصفحة المنبثقة اضغط (خيارات)
ثم اختر ( مركز التوثيق) ثم اضغط (اعدادات مركز التوثيق )ومنها خذ تبويب (اعدادات الماكرو )
واخيرا حدد ( تمكين كافة وحدات الماكرو ) + ( الثقة في الوصول الى طراز كائن vba )
رد مع اقتباس
  #26  
قديم 08-16-2007, 01:45 AM
zine pef zine pef غير متواجد حالياً
عضو

 
تاريخ التسجيل: Apr 2007
المشاركات: 148
شكر اخي لايوجد عندي off_2007 للكن عندي 2003 ودلك لمعلومات اضافية .. وان ممكن تأخد هذا الشرح بالصورة حتى يكون واضح اكثر
رد مع اقتباس
  #27  
قديم 11-21-2007, 03:35 PM
halfmoon88 halfmoon88 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Nov 2007
المشاركات: 9
012

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

رد مع اقتباس
  #28  
قديم 11-21-2007, 06:24 PM
halfmoon88 halfmoon88 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Nov 2007
المشاركات: 9
السلام عليكم
يعطيكو العافية
لو سمحت يا استاذ خليل
ويا قارئي رسالتي
اريد هذا البرنامج ضروري اذا ممكن حده يرفعوا على سيرفر كويس والله موعد تسليم المشروع عند خلص وانا لسا ما عملت برنامج متعدد الاختيار واجابته على هيئة نصوص
أرجوككم ساعدووووووووووووني
اخوكم مزنوووووووووووووق
__________________
توقيعى !

رد مع اقتباس
  #29  
قديم 11-21-2007, 06:27 PM
halfmoon88 halfmoon88 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Nov 2007
المشاركات: 9
اذا في حد حابب يعمل معروف يبعتو الي على المنتدى أو على ايميلي
[email protected]
__________________
توقيعى !

رد مع اقتباس
  #30  
قديم 11-21-2007, 09:07 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
بامكانك تحميل ملفات الاعضاء وهي مفتوحة
__________________
هذا من فضل ربي
رد مع اقتباس
  #31  
قديم 11-21-2007, 09:13 PM
halfmoon88 halfmoon88 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Nov 2007
المشاركات: 9
لو سمحتو يا اخوان الي عندو البرنامج كامل ومرفوع على سيرفر كويس
ارجوكم عايزوووووووووووووووو ضروري
برنامج اختيار متعدد متكاملة اجاباتها على هيئة نصوص
__________________
توقيعى !

رد مع اقتباس
  #32  
قديم 11-21-2007, 09:23 PM
halfmoon88 halfmoon88 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Nov 2007
المشاركات: 9
يا اخوااااااااااااااااااااان من الصبح وانا بقولكوووووووووووو ساعدوني
بحيلكوووووووووووو اخوكوووووووووو مزنوق بدي البرنامج
ارجووووووووووووووكم ساعدوني
pleaseeeeeeeeeeee
__________________
توقيعى !

رد مع اقتباس
  #33  
قديم 11-21-2007, 09:43 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
يا اخي هذا البرنامج كبير عادتا بيجي على قرص اسمه الافس 2003 و هذا البرنامج هو يجي على كمبيوترك .
هنا استخدمنا برنامج الباور بوينت يعني اتوقع 90 % موجود عندك
__________________
هذا من فضل ربي
رد مع اقتباس
  #34  
قديم 08-09-2008, 02:25 AM
mrahmd mrahmd غير متواجد حالياً
عضو
 
تاريخ التسجيل: Mar 2008
المشاركات: 2
طلب ورجاء من أستاذنا الفاضل الأستاذ خليل

السلام عليكم ورحة اللة وبركاتة
استاذنا الفاضل فاتنى دروس الدورة الرائعة ولا استطيع انزال دروسها فهل اطمع فى ارسالها على ايميلى [email protected]
رد مع اقتباس
  #35  
قديم 08-14-2008, 08:18 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
للاسف لا استطيع لو بريديا اهون لان حجمها كبير و مكلفة لانه الانرنت محدود المساحة عندنا حاول تحميله من جهاز اخر او محل انترنت او اعلمنى بعنوانك لعلي ارسله
__________________
هذا من فضل ربي
رد مع اقتباس
  #36  
قديم 04-13-2009, 10:03 PM
islam11 islam11 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Apr 2009
المشاركات: 9
رد مع اقتباس
  #37  
قديم 05-11-2011, 09:14 PM
rohaem2 rohaem2 غير متواجد حالياً
عضو
 
تاريخ التسجيل: Feb 2007
المشاركات: 21
السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أستاذنا الكريم...
ونسأل الكريم أن ينفعك بدعائنا لأننا لا نملك غير الدعاء لك ,وأن يبارك فى اعمال القائمين على المنتدى ويجعل هذه الأعمال فى ميزان حسناتكم
ولدى مشروع ارجو من حضرتكم تقييمه
http://www.4shared.com/file/4KV_Jmia/___online.html

.
رد مع اقتباس
  #38  
قديم 05-19-2011, 12:19 AM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
شكرا لثقتك بنا و الله يجعله في ميزان حسناتك :
الايجابيات :
1- مستواك البرمجي ممتاز .
2- به طريقة الشرح .

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

هذا و شكرا لك اخي الكريم و لا تحرمنا من ابداعاتك و ننتظر لما تنتقل لبرنامج سويش ماكس فهو رائع في عمل البرمجيات التفاعلية .
__________________
هذا من فضل ربي
رد مع اقتباس
  #39  
قديم 12-01-2011, 10:37 PM
mhmking mhmking غير متواجد حالياً
عضو
 
تاريخ التسجيل: Nov 2011
المشاركات: 3
اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل مشاهدة المشاركة
السلام عليكم

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

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

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

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

كود:
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- اريد وضع توقيت لكل سؤال يعني اذا خلص التوقيت يحتسب النتيجة خطأ وينتقل للسؤال التالي
وشكراً مرة ثانية وفي أمان الله
رد مع اقتباس
  #40  
قديم 12-04-2011, 11:35 PM
mhmking mhmking غير متواجد حالياً
عضو
 
تاريخ التسجيل: Nov 2011
المشاركات: 3
عندي بعض الطلبات لو سمحت يا استاذ

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


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


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
تقييم هذا الموضوع
تقييم هذا الموضوع:

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


الساعة الآن 04:14 PM

Style provided by: MonksDiner - Entertainment Forum
Translated To Arabic By: Nile Stars
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir