|
|
|
|
|
|
|
|
|
منتدى التعليم الإلكتروني منتدى خاص لعمل دورات تعليمية في البرامج و الورش التعليمية خاصة و تتعلق بالتعليم الإلكتروني |
08-05-2006, 12:06 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
درس اليوم السادس عشر درس عمل برنامج تعليمي اختيار متعدد
__________________
هذا من فضل ربي
|
08-06-2006, 02:25 PM
|
عضو
|
|
تاريخ التسجيل: Jan 2006
المشاركات: 106
|
|
السلام عليكم
يعطيك العافية استاذ خليل
و سلمت يداك على المجهود الكبير والشرح الرائع
الان احسست اكثر من اي وقت مضى بالمتعة الحقيقية والفائدة الكبرى
حيث اصبح بالامكان صنع برامج تعليمية باستخدام vb
وشكرا
|
08-06-2006, 08:37 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
السلام عليكم
عمل ممتاز اخي فادي اريدك ان تعدل على البرنامج بما يلي تقوم بعمل تقدير للنتائج اقصد بها هل نتيجة الطالب ممتاز ام جيد جدا ام جيد ام مقبول ام ضعيف . هل تستطيع فعل ذلك؟
__________________
هذا من فضل ربي
|
08-07-2006, 12:46 PM
|
عضو
|
|
تاريخ التسجيل: Jan 2006
المشاركات: 106
|
|
الطلب جميل جد اومفيد
ارجو ان يكون المشروع المرفق يحقق المطلوب
|
08-07-2006, 03:45 PM
|
عضو
|
|
تاريخ التسجيل: Apr 2006
المشاركات: 61
|
|
السلام وعليكم ورحمة الله وبركاته
مشكور استاذنا الفاضل على هذا الجهد الرائع بس لو حبيت اسوي اسئلة عامة فكيف لي ذلك وماذا سيكون الكود المناسب في q ولكم مني جزيل الشكر
للأسف استاذنا الفاضل رفق الواجب وذلك بسبب ظهور مسج الي اثناء عملية الارفاق تقول ان حجم البرامج الذي ارفقه يفوق المسموح رغم اني حاولت كثيرا لكنه لا يستجيب وفي كل مرة الرسالة نفسها فهل توجد طريقة اخرى كي استطيع ان ارفقه
|
08-07-2006, 10:38 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
السلام عليكم
الاخ فادي الافضل ان يكون التقدير اتوما تيكيا و اقصد به بعد ان تظهر النتيجة بعد اختيار الاجابة
و يوجد خطا في التقدير يجب ان يكون هكذا
كود:
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
بالنسبة لشجون اتوقع ان تكون ملفات الصوت كبيرة حاولي ان تجدي اصواتا اقل حجما او ارفعيها على احد المواقع التي تسمح باحجام اكبر.
و انتظر ردكم و اقول ان هل تحتاجون لدروس اخرى الان ؟في ماذا ؟
لاني اريد مشروع من عندكم عبارة عن برنامج تعليمي متكامل .
__________________
هذا من فضل ربي
|
08-08-2006, 06:15 PM
|
عضو
|
|
تاريخ التسجيل: Jan 2006
المشاركات: 106
|
|
السلام عليكم
تم تعديل المشروع مرة ثانية حسب المطلوب
ايضا اصبح يعمل اوتوماتيكيا
لكن اظن ان التقدير بهذة الطريقة غير متبع لطلاب المراحل الابتدائية او الاساسية
بل هو خاص بالجامعات
بالنسبة للمشروع التعليمي المطلوب ان نعمله:
ما طبيعة المشروع وحول اي مواضيع تعليمية يدور؟؟
ارجو التحديد اكثر لنتمكن من صنعه
وشكرا جزيلا
|
08-08-2006, 08:23 PM
|
عضو
|
|
تاريخ التسجيل: Jan 2006
المشاركات: 106
|
|
الاخت شجون
اقترحي علينا مشروعا تعليميا يحتوي الاسئلة التي تريدينها
ثم نتعاون على تنفيذه .....
|
08-09-2006, 05:24 PM
|
عضو
|
|
تاريخ التسجيل: Apr 2006
المشاركات: 61
|
|
السلام وعليكم ورحمة الله وبركاته
شلونك استاذي الفاضل ومشكور على الايضاح فعلا ربما الملفات الصوتية الي عندي حجمها كبير حاولت ابحث عن صوت اقل حجما بس ياخذ وقت وياريت تبلغوني عن موقع فيه اصوات ذات حجم صغير
اما بالنسبة للأخ فادي فأنا اشكرك على السؤال وكيف هو حالك بس الآن لا يستحضرني شيئ مما طلبت بس لو حبيت اعمل شي ترفيهي كمسابقة حيث اريد اسوي لوحة تتكون من 50 زر ومكتوب عليه رقم وبعض الارقام يوجد اسفلهاسؤال رياضي وكل سؤال يختلف عن الرقم الثاني وحتى في الصياغة اي مو مثل الي شرحه النا الاستاذ خليل هو كان على وتيرة واحدة كل نتيجة قسمة عدد على 10 وتندرج منه قائمة فيه اربع اجابات مختلفة وواحدة منها فقط صحيحة ولا بد من وضع عداد لحساب الوقت اما بعض الارقام مثلا تحوي اسفلها عبارة جرب مرة ثانية أو جائزة فورية فكيف يكون ذلك ؟
أو مثلا لو حبيت عمل لوحة جيوب للمرحلة الابتدائية ومثلا اعطيتهم ارقام وليكن ستة ارقام وطلبت منهم مثلا الترتيب التصاعدي او التنازلي او من هذي الارقام كوني اكبر رقم أو اصغر او شلون يكملون سلاسل الاعداد
لا ادري اخي هذا ما يستحضرني حاليا هي اشياء ترفيهية وتفيد لو عملنا مسابقة في الصف او عند اقامة اسبوع مهرجان الرياضيان مثلا وذلك لتشجيعهم او لخلق نوع من التحدي لديهم حتى نساعدهم على جذب اهتماهم بالمادة
اخي هذا ما عندي حاليا وانت ايضا شوفنا اطروحاتك الى ان نتفق على عمل شي
ملاحظة : بس لو شفتوني مثلا ما تابعت معاكم اول بأول هذا كله بسبب النيت عندي ضعيف جدا ودائما يقطع لذا لا استطيع الدخول كل مرة ولكن لا يعني انني لست مهتمة بما تفضلتو به ولكم مني جزيل الشكر
|
08-09-2006, 08:24 PM
|
عضو
|
|
تاريخ التسجيل: Jan 2006
المشاركات: 106
|
|
السلام عليكم
الاخت شجون
شكرا لك على الافكار الجميلة التي قدمتيها
حسنا .... لنجرب صنع مشروع ترتيب الاعداد وتكوين اكبر عدد واصغر عدد
في المرفق اعرض المشروع المقترح
وهو غير مكتمل بعد ....
هل عندك افكار لتعديله ..... ام نكمل العمل ؟؟
|
08-12-2006, 08:31 AM
|
عضو
|
|
تاريخ التسجيل: Apr 2006
المشاركات: 61
|
|
السلام وعليكم ورحمة الله وبركاته
شلونك الأخ فادي
بداية اني اعتذر عن تأخري للرد عليك ولكن هذا خارج عن ارادتي يوجد عندي مشكلة في النيت المهم انا اطلعت على الملف المرفق وعملك ممتاز بس ما فهمت ليش انت مستخدم التكرار ياريت توضحه الي اني اخذت المرفق الخاص بك واستخدمت منه الخطوات الأولى بس اريد من اضغط على زر يخرج الي السؤال وفي نفس الوقت الارقام حتى يتسنى للطالب حله بس ظهرت عندي مشكلة وهي في بعض الاحيان الارقام تتكرر واذا تكررت لا يتمكن الطالب من ترتيب الاعداد تصاعديا او تنازليا فكيف لي التخلص من هذه المشكلة ولكم جزيل الشكر
|
08-12-2006, 07:17 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
السلام عليكم
لكي لا تتكرر يجب استعمال دالة If حيث تعطيه كود تقول له اذا وجد ارقاما متشابهة تذهب من جديد للاعلى للسطر الذي يدخل متغيرات من جديد هكذا الحل فكري بالكود.
الاستاذ خليل
__________________
هذا من فضل ربي
|
08-13-2006, 12:06 AM
|
عضو
|
|
تاريخ التسجيل: Jan 2006
المشاركات: 106
|
|
السلام عليكم
كيف حالك اخت شجون ؟ شكرا لسؤالك عني انا بخير والحمد لله
كيف حالك استاذ خليل ؟
اسف لعدم ارفاق التوضيح سابقا
بالنسبة لسؤالك عن كيفية عدم تكرار الارقام فكما قال الاستاذ خليل يمكن استخدام 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
في المرفق يوجد التطبيق وقد عدلت ايضا زر - كون عدد- حيث يجب ان يتكون العدد من ارقام
وارجو ان يكون الشرح واضح واذا لزم توضيح اضافي انا حاضر
|
08-14-2006, 03:26 PM
|
عضو
|
|
تاريخ التسجيل: Apr 2006
المشاركات: 61
|
|
السلام وعليكم ورحمة الله وبركاته
الشكر الجزيل الى الاستاذ الفاضل خليل ابراهيم والى الاخ فادي وان شاء الله فادي الابداع يكون حليفك دوما ولكم مني جزيل الشكر
|
08-15-2006, 09:16 PM
|
عضو
|
|
تاريخ التسجيل: Jan 2006
المشاركات: 106
|
|
المشروع الكامل
في المرفق اعرض المشروع كاملا مع امكانية تشغيله بواسطة ملف تنفيذي دون فتح واجهة vb
هل من سؤال او استفسار ؟؟
|
08-15-2006, 10:36 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
ممتاز عمل رائع لكن يجب عليك استعمال اصوات و تجميل البرنامج و اختبار الاجابات بعد الضغط على الارقام مباشرة لانك لو كان هناك اعادة للارقام في حال الخطا يكون احسن
اهم شي الدزاين للاولاد يجب ان يكون ممتاز ليعجبهم و يتشجعو ليعملوا عليه هذا حسب رايي
لو تعمل مشنقة عندما يضهر خطا يضهر الوجه ثم الجسم ثم تكمل الجسم و هكذا
ايضا يا ريت لو تعمل فورم عن البرنامج تكتب فيها اسمك انه من تنفيذك .
ايضا شرح لطريقة العمل
الاستاذ خليل
__________________
هذا من فضل ربي
|
02-05-2007, 02:27 PM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 10
|
|
شكرا لك يااستاذ خليل
|
02-06-2007, 12:05 PM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 10
|
|
لو سمحنم اريد المشاركه معكم في المشروع
|
02-06-2007, 09:30 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
حياكي الله يقين الزهراء اصنعي برنامج و سنساعدك اذا احتجتي لكود انشاء الله برنامج يخدم صفك و اعطيه للمعلمة هكذا ستكون لك درجات لديها ايضا
الاستاذ خليل
__________________
هذا من فضل ربي
|
07-30-2007, 10:09 PM
|
عضو
|
|
تاريخ التسجيل: Apr 2007
المشاركات: 148
|
|
مسابقات جيد جداً و مع الأسف كنت غائب عنها؟؟؟؟؟؟
|
الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
|
|
تعليمات المشاركة
|
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
كود HTML معطلة
|
|
|
الساعة الآن 09:01 AM
| |
| |