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

منتدى جزيرة الرياضيات (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

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

الاستاذ خليل 07-30-2007 10:15 PM

حياك الله اخي الكريم اذا عندك استفسار اطرحه


الاستاذ خليل

zine pef 07-31-2007 12:43 AM

بسم الله نبدأ..
الأخ العزيز تقريب مند 5 اشهر كنت ابحث كيف اربط جدولين أكسيس بالفيجوال 6 و لم اجد الحل
المعروف استطيع ربط جدول1 مع فجـ 6 . و هذا السؤال محيرني ..
شرح الفائدة من هذا ...ج1 معمول للأقسام, ج2 معمول للنتائج التلاميد و اريد ربطهم مع فيجوال6
اخي الفاضل ان ممكن المساعدة فلا تبخل لي و شكراً....

الاستاذ خليل 07-31-2007 09:58 AM

ارسل التطبيق و ساحاول حله بس ارسله بسرعة لاني لن اكون متواجدا كثيرا بالفترة القادمة بدواعي السفر

zine pef 07-31-2007 11:51 AM

مشروع الأقسام
 
1 مرفق
السلام عليكم . اليك المشروع اخي الفاضل و اتمنى ان يكون الشرح كافي و المطلوب واضح و الى اللقاء..

الاستاذ خليل 07-31-2007 11:58 AM

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

الاستاذ خليل

zine pef 07-31-2007 12:19 PM

الصورة توضيحية هنا

الاستاذ خليل 07-31-2007 12:44 PM

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

كما الاحظ انك تستخدم بينات الاتصال بالdao و الافضل ado .
و بصراحة لم اتعود على لعمل الاتصال الا بالكود لذلك ساعمله ان امكن بالكود بال ado

zine pef 07-31-2007 03:40 PM

فعلاً الربط يكون صعب الأصدار97 عملت الربط الأصدار الأول لي emp اما بالنسبة dao اوado لم املك فكرة عنهما .. وجدت درس عن ربط جدول بي فجوال وقمت بالتطبيق ..
و سبب البحث في كل هذا هو في مؤسستنا يوجد برنامج (gesco) موجود فيه تقريب 28 جدول مربوطة بعضها البعض ..يعمل على تسجيل التلاميذ و العلامات و الذخول و الخروج و الغيابات و كل ما يخص بالعمل للتلاميذ داخل مؤسسة انه مشروع طويل جيدا فحولت ان ادخل داخل هذا المشروع و اقوم بالبحث ماذا يوجد فيه لكن للأسف وجدت نفسي داخل بحر طويل بدون جدوى هل ممكن مساعدة اخي الفاضل؟ وان ممكن ابعث لك المالبرنامج ؟

الاستاذ خليل 08-01-2007 12:35 AM

لقد استطعت وضعهم بجدول لكن للاسف السططرين 1 و 3 يضهران لكن 2 لا يضهر و انا حيران لماذا هذا الخلل؟

zine pef 08-01-2007 01:20 AM

ما المقصود من هذا يا استاذ لم افهم القصد

الاستاذ خليل 08-01-2007 08:33 AM

1 مرفق
تم عمله بس لم اعمل استعراض البيانات

شغل form3

الملف بالمرفق

zine pef 08-01-2007 12:11 PM

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

الاستاذ خليل 08-01-2007 08:13 PM

هل تريده كاملا ؟

انت سؤالك كان عن الجدول

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

الاستاذ خليل

zine pef 08-01-2007 08:21 PM

نعم اخي و في رحتك

الاستاذ خليل 08-02-2007 01:01 AM

1 مرفق
تم الانجاز

جرب المرفق

zine pef 08-02-2007 01:38 AM

1 مرفق
من فضلك اخي مساعدة
عملت مشروع فيه قائمة سرد وضهر لي خطأ ماهو المشكل ؟ و شكر على مشروع الأقسام

zine pef 08-02-2007 03:08 AM

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

الاستاذ خليل 08-02-2007 02:45 PM

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

zine pef 08-03-2007 12:26 AM

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

fadi9 08-03-2007 02:48 PM

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

اليك اخي زين تعديل ملف المساحات

واني جاهز لاي مساعدة في vb

اخوك : فادي


الساعة الآن 06:54 AM

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