|
الدرس السادس عشر : تطبيقات عملية على انتاج برامج خدمية تعليمية
السلام عليكم
بهذه الدروس الان سيتم العمل بشكل مختلف الان المطلوب انتم تصنعو البرنامج مع مساعدتي ان لزم الامر مما يدفعكم للتحدي و اكتساب خوارزمية بناء البرامج . فأرجو ان تكونوا على اتم الاستعداد لذلك و سيكون هذا الموضوع مفتوح و اخر شي نأخذه بالدورة. كيفية العمل : سوف نضع تصورات لعمل شيء ما و احاول مساعدتكم قدر الامكان لانجازه . المشروع الأول : تصور مطلوب منك صنع عرض تقديمي عن حفل التخرج و لديك 200 صورة مطلوب عرضها . فهل ستعمل شرحة تضيف فيها 200 صورة القصد من العدد هو الكثرة و ليس بالفعل عدد الصور 200 . يعني ممكن تستعملو اي عدد من الصور و لو كان قليلا . فكم هو من المرهق ان تضع هذا العدد في برنامج الباور بوينت . و تنسيقها يعني عمل كم يوم اكيد . اليس باحرى منك كتابة كود يستدعي الصور بعد زمن معين كيفية العمل : 1- سم العرض صور فعاليات المدرسة و قم بحفظه . 2- قم بوضع مجلد و ليكن اسمه imges و ضع به الصور مرقمن من 1 الى اخر صورة تريد عرضها . 3- قم بإدراج اداة Image و اجعل صورة افتراضيه بداخلها اي صورة حلوة . 4- ارسم زر و سمه ابدأ مثلا اذا تم ضغطه يأتي بصورة متسلسلة اي صورة رقم 1 حيث هنا يجب تعريف متغير باعلى صفحة الاكواد من النوع الرقمي . و بداخل كود زر ابدا نقول له اجمع على قيمة المتغير السابق واحد ثم يضهرالصورة التي رقمها هي رقم المتغير السابق و ساكتب طريقة استدعاء صورة قد لا اكون شرحتها قبلا . كود:
Image1.Picture=LoadPicture(هنا تكتب المسار الصورة)Picture الخاصية التي نريد تغييرها و هي الصورة LoadPicture تعني احضر صورة التي مسارها بداخل القوسين. و يجب هنا ان نستدعي دالة الحصول على مجلد البرنامج و نربطه مع اسم الصورة و نضع تنسيق الصورة المراد عرضها لكي يضهرها بشكل صحيح كالتالي : كود:
Image1.Picture = LoadPicture(Application.ActivePresentation.Path + "\imges\" & a & ".jpg") ".jpg" هو تنسيق الصورة من النوع jpg ."\imges\" هو المجلد الذي فيه الصور بعد ذلك تضع كود يوقف البرنامج فترة زمنية و( مثل كود يؤخر النتيجة استعملناه سابقا) ثم يرجعك للاعلى مرة اخرى الامر المسؤول عن ذلك هو الامر go to ليكون الكود كالتالي : كود:
10و تحته تكتب كود الذي يضهر الصورة لكي يتنفذ و بعده كود الذي يوقف الصورة زمن معين و بعده كود يذهب للسطر رقم 10 . و لا تنسى اعطاء شرط تحت رقم 10 يقوم اذا وصلت قيمة الصورة الى اخر رقم للصور يعتبر الصورة قيمتها 0 اي المتغير قيمته صفر لكي يتم اعادة الصور مرة اخرى و لا يحسب اكثر من الصور الموجودة ملاحظة يجب ان تكون اصور بتنسيق معين اي jpg او gif و عدم الخلط بين نوعين اتمنى انه وصلت الفكرة و اذا لم تعجبكم الفكرة نعمل غيرها . و ننتظر تطبيقاتكم الاستاذ خليل |
هذا هو الكود يبقى عليكم رسم الادوات
كود:
Dim a As Integer |
المشروع
اخي خليل السلام عليكم و السلام والعافية لكل الأخوى و الأخوات المشاركين
المشروع في الرفق و اتمنى ان اكون في حسن ضنكم المشروع هنا |
شكرا جزيلا عمل ممتاز اخي zine pef
امكانيات اخرى للباور بوينت ارجوا البحث فيها للباور بوينت و اذا امكن التطبيق فيها كي نخرج من الدورة مؤهلين تماما للعمل برامج تفاعلية . 1- يستطيع الباور بوينت باستخدمنا لعناصر تحكم اضافية -مثل درس ادراج الفلاش- ان نربط الريل بليير مع الباور بوينت و ايضا الميديا بلير مع الباور بوينت . الغرض من ذلك : -- قد تريد عرض درس فيديو و لكن توقفه و تشغله و توقفه مؤقتا تستطيع ذلك من خلال الازرار play-stop و غيره و التحكم في الصوت ايضا . و هو امر لا يتاح اذا قمت باضافة فيديو من ادراج ---> أفلام و وأصوات ------> فيلم من ملف . 2- يستطيع الباور بوينت ان يعمل الفجوال بيسك 6 اي اذا كنت لديك برنامج في فجوال بيسك استخدم نفس الاكود و ستراها تعمل بعون الله . 3- تستطيع الربط بين قاعدة بيانات اكسس و الباور بوينت و ذلك باستخدام عناصر تحكم اضافية و تستطيع استخدام جداول و غيره . اتمنى ان ارا تطبيقات على هذه الافكار منكم و اذا لم تستطيعوا اتمنى تزويدنا بافكار لاعمال تريدون انجازها لنرا امكانية عملها بالباوربوينت . اتمني ان كل من لديه معلومة مفيدة عن كود معين عن اسلوب في الاكواد مفيد يعلمنا بما توصل إليه . الاستاذ خليل |
كارثة عمان
مشروع الصور لكارثة عمان بلد الحبايب اصبته مصيبة عفانة الله و ايكم منها( لا حول و لا قوة الا بالله)
الكارثة هنا |
شكرو تقدير
السلام عليكم ورحمة الله وبركاتة
تحية طيبة الي اخواني واستاذنا الجليل الاستاذ / خليل اخواتي واخواني المشتركين في هذه الدورة حياكم الله جميعا فادي /zine pef / امال2005 وجميع الاخوة اسف لظروف شغلتني عنكم تحياتي للجميع اخونا واستاذنا الفاضل الاستاذ خليل جزيل الشكر والعرفان اخوكم رفعت حافظ |
السلام عليكم
درس جميل ساقوم بتنفيذه ان شاء الله قريبا ايضا فكرة جميلة ان يقدم كل شخص ماتوصل اليه من معلومات في بور بوينت او اكسس او vb انا بدوري يمكنني ان اقدم بعض المعلومات الجديدة في vb ان وافقتم اعزائي وطبعا بعد اذنك استاذ خليل انتظر الردود |
وعليكم السلام ورحمة الله وبركاته
أولا : أعتذر للجميع عن تأخرى بالمشاركة بالموضوع لمشاكل بالنت. ثانيا : الشكر الصادق لأفكاركم. وإن شاء الله سأحاول تطبيق البرنامج قريبا . فكرتك رائعة أخى فادى ... أؤيدك . ولى مقترح - إن وافقتم- وهو عمل ورشة عمل تتضمن مشروع بسيط مثل فكرة برنامج من سيربح المليون ويحاول الجميع تطويره وإضافة جديد فيه .... من صور ... وأصوات ... وأكواد. ثم يرفعه والبافى يقوم بتحميله وتطويره حتى نخرج بعمل متكامل ننفذ فيه جميع ما تعلمناه . فما رأيكم بالفكرة ؟ تحياتى للجميع . |
الاخوة الاحباء
استاذ / خليل السلام عليكم ورحمة الله وبركاتة احسنتم وانا معكم في الفكرة الجميلة رفعت حافظ |
الأخ حافظ اتمنى ان تكون بخير و الظروف التي شغلت انتهت بحمد الله
وووووو اتمنى للأستاذ.. عطلة سعيدة و الرجوع الينا بصحة عافية يا الله :p |
الف شكر اخ zine pef علي السؤال
Amel2005 ،fadi9 ،zine pef عندي سؤال علي الجهازي لايوجد فجول بيسك كبرنامج لوحده لكن مع الورد أو مع الاكسس أ, مع الباوربوينت ليه ؟ كنت بفكر بمشورع عمل جدول فيه بيانات شاملة لاي مصلحة عن موظفيها يتضمن ( مسلسل ، اسم الموظف ، الدرجة المالية ، محل الميلاد و.........بيانات شاملة ) كان يلزم الربط بين الفجول بيسك والاكسس علي نظام 97 عملتة لكن أدات الربط موجودة فقط علي الفجول بيسك وهي دي المشكلة مين عنده حل ؟ ارجو التفاعل مع السؤال؟ |
اخي رفعت
كيف حالك..؟ في بور بوينت واكسس يوجد ما يسمى vba وهي لغة برمجة مشتقة من فجول بيزكvb لكنها ليست نفسها للعمل على فجول بيزك vb يجب تحميل هذه الغة على الحاسب وهي متوفرة في الاسواق لكن انصحك بالنسبة للجداول ان تتعامل مع اكسس 2003 او 2007 ففيهما خيارات واسعة عن الربط والبحث والاظهار ...... ويمكن اذا اردت ان تعمل برنامج في vb وتربط به مع جدول في اكسس على كل الاحوال حدد المطلوب بدقة وارسله وساساعدك ضمن امكاناتي |
السلام عليكم ورحمة الله وبركاته.
جزاكم الله خيرا . بالنسبة للبرنامج المطلوب حاولت تطبيق المشروع على مجلد به ستون صورة لشرح كامل "للـأعداد المركبة" ... واستعمال البرمجة فى هذا المشروع سهل كثيرا كثيرا للاستفادة من الصور المشروحة . الملف على الرابط http://la.joreyat.org/download.php?i...71d7b3c737f8d9 أو من الرابط http://upload.9q9q.net/file/VSraa1mmk/less_16.zip.html شكرا لك أستاذنا الكريم وشكرا لجميع اخوتى على ما قدمتموه لنا فى هذه الدورة الرائعة. جزاكم الله خيرا تحياتى للجميع |
شكراً للأستاذة امال2005 و الأستاذ المساعد لك بالفعل درس قيم يرجع قرأه الى سنوات مرت
الأستاذ حافظ سؤالك الأجابة عليه كما قال ألأستاد قاضي و اذا لم تجد عن vb6 في السوق ابحث عنه في الأنت ...في المرفق برنامج vb6 محمول تستطيع تعمل بيه لكن غبر كامل و معنى هذا تستطيع القيام بمساريع بدائية ريتما تجد vb6 الأصلي و عن قاعدة البيانات ادهب الى الرابط ..VB6 هنا الملف هنا |
السلام عليكم ورحمة الله وبركاته
هذه روابط لتحميل برنامج فيجوال بيسك 6 النسخة الكاملة. الرابط الأول : http://www.tntup.com/file.php?file=7...d1265786e5bbb4 الرابط الثانى : http://www.tntup.com/file.php?file=1...a0ff8f93379e38 الرابط الثالث : http://www.tntup.com/file.php?file=0...251bde722872a5 الرابط الرابع : http://www.tntup.com/file.php?file=f...d97ae07b5799f6 تحياتى للجميع. |
الله الله
علي التفاعل الجميل من اخوتي 1- اشكر هذا المنتدي الجميل الذي جمع هذه الصحبة الفريدة من نوعها 2- اشكر الاستاذ الاخ الفاضل الاستاذ خليل الذي جمع اجمل مافي الصحبة في هذه الدورة 3- تحياتي لكل من الاخت / امال / , و الاخ الفاضل / فادي و الاخ الفاضل / zeen 4 - دعاء خالص من القلب للجميع بدوام التوفيق 5 - من ناحية السؤال سوف انزل البرنامج واعرفكم ماتم فيه 6 - الاوفس علي جهازي 2003 واخير دعائي الي الفاضل استاذ خليل والعودة الينا بسلامة الله وشكرا جزيلا للجميع |
موضوع ممتاز
:p دعائي الي الإستاذ الفاضل خليل بدوام التوفيق
ودعاء خالص من القلب للجميع بدوام التوفيق الموضوع جميل وسأشارك فيه إن شاء الله |
شكرا ألأخ_ت ايمان علي عالمرور بالنيابة للأستاذ
يا الله معنا في المشاركة في سفينة العلم... |
1 مرفق
الحمد لله توصلت للربط الجدول في الاكسس مع برنامج الفجول بيسك
واشكر الاخوه الاعزاء جميعا وشكرا للاخت امال نزلت الفجول بيسك من الرابط ولأخ فادي ولأخ زين واتمني رحله سعيدة الي الاستاذ الفاضل الاستاذ خليل والعمل موجود ومفتوح |
الأخ حافظ المشروع فيه خلل form1 غير موجودة في projet اعد النظر في المشروع..
|
1 مرفق
السلام عليكم
اخواتي الاعزاء الاخ العزيز زين كان الموضوع مفتوح للتعديل واخد الرأي سوف ارفعة مرة اخري الاخ فادي ايه رايك في الموضوع علي الفكرة هذا الدرس كان له شرح وانا نفذته الاخت امال انت فين اشكرا شكرا جزيلا لأن الفجول بيسك لم يكن عندي ارجو الرد علي وعاوز اعرف رأيكم في الموضوع مع تمنياتي للأخ الفضل الاستاذ خليل بالصحة والسعادة |
ممتاز الأخ حافظ واصل وانك قلت ليس لك خبرة في vb6 بهذا المشروع يبدو لديك خبرة مسبقا
الى الأمام جزاك الله كل الخير عملك رائع و بدون مجملة اخي لأن ربط قاعدة البيانات بي vb6 شيء مش سهل انك خطوت خطوات جيدة واصل ...اخوك zine ؟؟؟؟؟؟ اتمنى للأستاذ صحة جيدة و ان يقضي عطلة سعيذة انشاء الله...الى اللقاء . |
رائع اخ رفعت .... عمل ممتاز
ان ربط جدولين من اكسس مع فورم من فجول بيزك شيئ جميل وفعال يمكنك تنفيذ نفس العمل ايضا ضمن اكسس نفسه بان تنشئ فورم في اكسس وتربطه مع الجدولين لكن استدعاني سؤال عند اضطلاعي على ملف الاخ زين الذي اراد فيه ربط فورم من vb مع جدولين من اكسس , وهو : كيف يمكن اضهار الجدول باكمله من اكسس في الفورم ؟ بمعنى اخر : كيف تستدعي (جدول اكسس) لاظهاره باكمله في( فورم vb)؟ فهل يمكنك عمل ذلك ؟؟ ملاحظه : يمكنني تقديم شروح عن التعامل مع الجداول في vb وربطها مع اكسس |
السلام عليكم ورحمة الله وبركاتة
شكرا جزيلا للأخ زين وللأخ فادي الأخ فادي اداة الربط بين الجدولين والفجول بسيك هي اداه موجودة اصلا في الفجزل بيسك وهي الداتا بيز data وهي المسؤله عن الربط والسؤال المطروح كيف يظهر الجدول في واجهة الفجول بمشيئة الله سوف احاول وارفعه الاخت امال لم اسمع منك رد علي الموضوع ارجو الرد لكي اعرف في اي نقد نعدلة واحترامي للجميع وتحياتي للأخ الفاضل استاذ خليل ورحلة سعيده بمشيئة الله |
ربط قاعدة البيانات
الأخوى حافظ و قاضي كيفية ربط قاعدة البيانات بفجوال الكتاب في المرفق واتمنى ان يكون في الحسبان
المساعدة واجبة بين الأخوى .. و السلام عليكم الكتاب هنا |
اقتباس:
برنامجك أكثر من رائع أخى الكريم / رفعت وأتعجب منك عندما قلت أنك لم تتعامل مع الفيجوال بيسك سابقا !!!! تمنياتى لك بالتوفيق دوما . أعتقد أن الأداة التى تظهر الجدول تسمى FlexGrid وأفضل شرح لها http://vb.ozq8.com/showthread.php?t=540339 وعذرا لأنى لست على دراية كافية بربط قواعد البيانات بالفيجوال بيسك ... ولكن هذا ماأتذكره .. والله أعلم تحياتى للجميع. |
والله اخت امال لم يكن لدي فجول بيسك وما نزلته الا من الرابط التي ساعدتيني به
ولاخ زين كتاب ممتاز به اكثر مما كنت اتوقع وعندي كتاب بنك الأكواد سوف ارفعه بمشئة الله لو لزم اي منا |
1 مرفق
الاداة المسؤولة عن اظهار جدول اكسس في الفورم هي dataflexgrid
ايضا الاداة flexgrid فهي تنشئ جدول يتم ملء بياناته برمجيا او من قبل المستخدم في المرفق يوجد المشروع وبه يظهر الجدول وشكرا لكافة الاخوة على التفاعل و المعلومات المفيدة ايضا عندي سؤال ابحث عن اجابته: كيف يمكن سحب سطر ما( محدد باحد الخلايا) من جدول ووضعه في جدول اخر؟ |
http://up1.m5zn.com/الاكواد1_1.rar.htm
علي الرابط مكتبة الاكواد |
السلام عليكم اخوتي الاعزاء
ارجو من الاخ فادي زين امال الرد علي سؤال كيف اجمع في الاكسس لاني اعمل كنترول شيت ( اقصد رصد درجات الطلبة في الاكسس ) مثال اجمع درجات الجبر مع درجات الهندسة و غيرها أو المجموع الكلي الذي عرفتة ان الخانات الموجودة في الأكسس يظهرها الفجول بيسك فلازم اجمع في الاكسس مين عندة خبرة في ذلك تحياتي لكم جميعا وللأخ الفاضل الاستاذ خليل التحية والتقدير |
اخي حافظ ضع كل هذه المعلومات التي تبحث عنها في جدول اكسيس ....و نحن نشوف اين المشكل مع السلامة..
|
2 مرفق
لايجاد مجموع بعض عناصر سطر في جدول يجب:
1) انشاء الجدول يضم الحقول( اي الاعمدة) المطلوبة , مثلا ( الاسم , الجبر , الهندسة , .... ) 2) انشاء استعلام query على الجدول المطلوب 3) نضيف للاستعلام حقل جديد لنسميه مثلا : المجموع , ونجعله مرئي 4) نكتب في خانة الحقل للمجموع العبارة التالية المجموع:[الجبر]+[الهندسة]+[ الفيزياء] +... عند تشغيل الاستعلام نلاحظ ظهور حقل جديد للمجموع وبه مجموع مواد كل طالب المثال في المرفق الاول كما يمكنك استعمال الدالة sum لايجاد مجموع عناصر العمود وذلك كما يلي : 1) انشئ نموذج (أي form) مبني على الجدول المطلوب ايجاد المجموع لاحد اعمدته 2) اضف مربع نص للنموذج وضع في الخاصية controlsorse العبارة التالية : (اسم العمود المطلوب جمع عناصره)=sum المثال في المرفق الثاني |
شكر وتفدير
الأخ Fadi شكرا على المعلومة و اضع اخي هذه الدورة سوف تنقلب الى فيجوال بزيك
الأخ الفاضل و الأستاذ خليل حياك الله و اتمنى ان تكون قضيت عطلة سعيدة انشاء الله لاحظت اشارتك اسفل الورقة انك معنا اليوم ياهلا بيك.. |
1 مرفق
السلام عليكم
الاخ الفاضل / فادي والاخ الفاضل / زين الاخت الفاضله / امال اخي فادي عملت ذي ماقلت في الاكسس ولم ينج ذلك لكن ما رايك بهذ العمل كتب اكواد الجمع في الفجول بيسك ارجومن الجميع الاطلاع عليه وما رايك ؟ وبصراحة وايه المطلوب له وشكرا احبائي الاعزاء الاخ خليل الاجازه طولت انت فين يا أستاذ اتمني ان تكون بخير |
السلام عليكم
ملفك اخي رفعت ناقص صفحة FORM1 تاكد من حفظ دائما عملك في مجلد واحد على العموم وجدت ان حلك بسيط في نهاية كود التالي و السابق اعطه امر يجمع الموجود في مربعات النص كود:
text10.text=val(text1.text)+val(text2.text)لا زلت مسافرا لكن امكنني الاتصال بالانترنت حاليا بشكل متقطع و شكرا لكم |
اخي رفعت عملك في فجول بيزك جميل وعملية الجمع ناجحة
لكني اعتقد ان التعامل مع الجداول في اكسس اسهل واسرع وابسط حيث يمكن استعمال دوال جاهزة كما يمكن البرمجة في اكسس عند الحاجة (اضافة ازرار ومربعات نص ... ) |
السلام عليكم
الاخ فادي لو فيه شرح للجمع في الاكسس وكذلك باقي العمليات الحسابية ا لبسيط منه اكون لك شاكرا جدا عملت عملية الجمع كما علمنا اخونا الاستاذ خليل من قبل مثل ما تفضل الاستاذ بعرضه في الكود السابق الاستاذ خليل انت فين وحشنا جدا واتمني ان تطلع علي التواصل الذي تركتنا عليه تحياتي لشخصكم الكريم وتحياتي للأخ فادي المتابع معي والأ خ زين والأخت امال اتمني ان يكون الجميع بخير |
1 مرفق
و عليكم السلام ورحمة الله
تفضل اخي حافظ هذا الملف البسيط فيه العمليات الأربعة و اتمنى ان يكون واضح |
الاخ زين
شكرالك على تقديم الشرح المطلوب عزيزي رفعت افتح ملف الاخ زين وتابع معي الخطوات : 1) انقر قرا مزدوجا على الجدول المسمى table1 ولاحظ ان به حقلين فقط مملوئين ببعض الارقام ( الجدول في اكسس يستعمل لادخال البيانات وتخزينها فقط ) 2)انقر نقرا مزدوجا على الاستعلام المسمى requete1 المبني علة الجدول السابق ولاحظ ان به بالاضافة الى الحقلين السابقين يوجد اربعة حقول اخرى وهي للعمليات الحسابية , وهذه الحقول لا تخزن قيمها بل يتم حسابها عند كل تشغيل 3)انقر بالزر الايمن فوق الاستعلام نفسه واختر ( عرض التصميم ) , ( يمكن الوصول لهذه النافذة بطرق اخرى ايضا) فيظهر لك تصميم الاستعلام اللذي يضم الحقلين n1 , n2 مسحوبين من الجدول table1 وايضا الحقول المحسوبة المسماة s , r , k , expr1 فمثلا الحقل s يظهر عملية جداء الحقلين n1 , n2, حيث كتبنا التعبير[ s: [n1]*[n2 في الحقل وهكذا بقية الحقول المحسوبة .... 4) انقر قرا مزدوجا على النموذج المسمى formulaire 1 وهو مبني على الاستعلام السابق ويظهر كافة حقوله بالتتابع بالنسبة لكل سجل او سطر ( يمكن التنقل بين السجلات بالضغط على السهم اسفل النموذج ) ولكن غيرنا الخاصية caption للتسميات المرافقة لمربعات النص الى : الجداء , المجموع , الفرق , ... بدلا من اسمها الاصلي s , k .... يمكن ايضا ادخال البيانات من هذا النموذج بدون الرجوع للجدول tabel1 اتمنى ان تكون المعلومات قد وضحت امامك اخي , واعتذر لعدم تمكني من ارسال صور مرفقة او فيديو |
شكرا ألأخ فاضي على الشرح انت من جهة و انا من جهة و ننقض اخونا حافظ
الأخت أمال 2005 غابت عنا يا ريت تسعدما .. |
| الساعة الآن 06:32 PM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By
Almuhajir