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

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)
-   -   درس اليوم السادس عشر درس عمل برنامج تعليمي اختيار متعدد (http://www.hesab.net/vb/showthread.php?t=2186)

الاستاذ خليل 08-05-2006 12:06 PM

درس اليوم السادس عشر درس عمل برنامج تعليمي اختيار متعدد
 
السلام عليكم

هنا الدرس بالصور المفصلة

fadi9 08-06-2006 02:25 PM

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

الاستاذ خليل 08-06-2006 08:37 PM

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

fadi9 08-07-2006 12:46 PM

1 مرفق
الطلب جميل جد اومفيد
ارجو ان يكون المشروع المرفق يحقق المطلوب

shjooon 08-07-2006 03:45 PM

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

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

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

الاستاذ خليل 08-07-2006 10:38 PM

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

و يوجد خطا في التقدير يجب ان يكون هكذا

كود:

Private Sub Cmd_Click()
Dim v As Single
v = Val(sumtrue.Caption) / Val(sumq.Caption)
If 0.9 < v And v <= 1 Then L = "ممتاز"
If 0.8 < v And v <= 0.9 Then L = "جيد جدا"
If 0.7 < v And v <= 0.8 Then L = "جيد"
If 0.6 < v And v <= 0.7 Then L = "مقبول"
If v < 0.6 Then L = " ضعيف "
L.Visible = True
Timer3.Enabled = True
Cmd.Visible = False
End Sub

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

لاني اريد مشروع من عندكم عبارة عن برنامج تعليمي متكامل .

fadi9 08-08-2006 06:15 PM

1 مرفق
السلام عليكم

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

بالنسبة للمشروع التعليمي المطلوب ان نعمله:
ما طبيعة المشروع وحول اي مواضيع تعليمية يدور؟؟
ارجو التحديد اكثر لنتمكن من صنعه

وشكرا جزيلا

fadi9 08-08-2006 08:23 PM

الاخت شجون

اقترحي علينا مشروعا تعليميا يحتوي الاسئلة التي تريدينها
ثم نتعاون على تنفيذه .....

shjooon 08-09-2006 05:24 PM

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

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

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

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

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

اخي هذا ما عندي حاليا وانت ايضا شوفنا اطروحاتك الى ان نتفق على عمل شي

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

fadi9 08-09-2006 08:24 PM

1 مرفق
السلام عليكم

الاخت شجون

شكرا لك على الافكار الجميلة التي قدمتيها

حسنا .... لنجرب صنع مشروع ترتيب الاعداد وتكوين اكبر عدد واصغر عدد

في المرفق اعرض المشروع المقترح
وهو غير مكتمل بعد ....

هل عندك افكار لتعديله ..... ام نكمل العمل ؟؟

shjooon 08-12-2006 08:31 AM

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

شلونك الأخ فادي

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

الاستاذ خليل 08-12-2006 07:17 PM

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

الاستاذ خليل

fadi9 08-13-2006 12:06 AM

1 مرفق
السلام عليكم

كيف حالك اخت شجون ؟ شكرا لسؤالك عني انا بخير والحمد لله
كيف حالك استاذ خليل ؟

اسف لعدم ارفاق التوضيح سابقا

بالنسبة لسؤالك عن كيفية عدم تكرار الارقام فكما قال الاستاذ خليل يمكن استخدام if
لكن قد يكون الشرط المستخدم طويل جدا بسبب وجود ستة صناديق نص

لذلك اردت ان نستخدم ( المصفوفات ) اي المتريسات matrix كي نطبق عليها حلقات التكرار
فنختصر بذلك الكود

المصفوفات :array
عند نسخ عنصر تحكم LABEL او TEXTBOX او اي عنصر تحكم اخر بدون حذف العنصر الاصلي , عندها سوف يقوم VB بتشكيل مصفوفة من عنصر التحكم هذا بحيث يكون لجميع العناصر نفس الاسم لكنها تختلف بخاصية الفهرس اي INDEX , حيث ياخذ فهرس العنصر الاصلي رقم 0 والعنصر الثاني رقم 1 وهكذا بقية العناصر ....
مثلا اذا نسخنا الليبل المسمى L مرتين فنحصل على العناصر ( L(2) , L(1) , L(0
وهي متماثلة في كل الخصائص ما عدا الخاصية INDEX فهي 0 للاول و1 للثاني و2 للثالث

لنعدل مشروعك : نفرض لدينا صندوق نص واحد لنسميه T وننسخ خمسة منه فنحصل على ستة صناديق نص هي T(0) , T(1) , T(2) ,T(3),T(4), T(5) 6
بعد توليد الارقام فيها نريد ان نختبر عدم تساوي اي رقمين منها فنقارن قيمة كل عنصر مع العناصر التالية
له باستخدام حلقتي تكرار واحدة لـ i وواحدة لـ j ويكون الكود

for i = 0 to 4
for j = i + 1 to 5
اعد تكوين الارقام if t(i) = t( j) then
next j
next i
في المرفق يوجد التطبيق وقد عدلت ايضا زر - كون عدد- حيث يجب ان يتكون العدد من ارقام
وارجو ان يكون الشرح واضح واذا لزم توضيح اضافي انا حاضر

shjooon 08-14-2006 03:26 PM

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

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

fadi9 08-15-2006 09:16 PM

المشروع الكامل
 
2 مرفق
في المرفق اعرض المشروع كاملا مع امكانية تشغيله بواسطة ملف تنفيذي دون فتح واجهة vb
هل من سؤال او استفسار ؟؟

الاستاذ خليل 08-15-2006 10:36 PM

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

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

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

ايضا يا ريت لو تعمل فورم عن البرنامج تكتب فيها اسمك انه من تنفيذك .
ايضا شرح لطريقة العمل

الاستاذ خليل

يقين الزهراء 02-05-2007 02:27 PM

شكرا لك يااستاذ خليل

يقين الزهراء 02-06-2007 12:05 PM

لو سمحنم اريد المشاركه معكم في المشروع

الاستاذ خليل 02-06-2007 09:30 PM

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

الاستاذ خليل

zine pef 07-30-2007 10:09 PM

مسابقات جيد جداً و مع الأسف كنت غائب عنها؟؟؟؟؟؟


الساعة الآن 09:52 PM

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir