[الاستاذ خليل]

السلام عليكم

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

كيفية العمل :
سوف نضع تصورات لعمل شيء ما و احاول مساعدتكم قدر الامكان لانجازه .


المشروع الأول :
تصور مطلوب منك صنع عرض تقديمي عن حفل التخرج و لديك 200 صورة مطلوب عرضها .

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

كيفية العمل :
1- سم العرض صور فعاليات المدرسة و قم بحفظه .
2- قم بوضع مجلد و ليكن اسمه imges و ضع به الصور مرقمن من 1 الى اخر صورة تريد عرضها .
3- قم بإدراج اداة Image و اجعل صورة افتراضيه بداخلها اي صورة حلوة .
4- ارسم زر و سمه ابدأ مثلا

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

Image1.Picture=LoadPicture(هنا تكتب المسار الصورة)

حيثImage1 اسم الصورة

Picture الخاصية التي نريد تغييرها و هي الصورة

LoadPicture تعني احضر صورة التي مسارها بداخل القوسين.

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

Image1.Picture = LoadPicture(Application.ActivePresentation.Path + "\imges\" & a & ".jpg")

حيث a هو رقم الصورة و

".jpg"

هو تنسيق الصورة من النوع jpg .


"\imges\" هو المجلد الذي فيه الصور

بعد ذلك تضع كود يوقف البرنامج فترة زمنية و( مثل كود يؤخر النتيجة استعملناه سابقا) ثم يرجعك للاعلى مرة اخرى الامر المسؤول عن ذلك هو الامر go to
ليكون الكود كالتالي :

10


هنا تضع كود يضهر الصورة

GoTo 10

حيث باعلى كود ابدا تقول له السطر هذا رقم 10
و تحته تكتب كود الذي يضهر الصورة لكي يتنفذ
و بعده كود الذي يوقف الصورة زمن معين
و بعده كود يذهب للسطر رقم 10 .

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

ملاحظة يجب ان تكون اصور بتنسيق معين اي jpg او gif و عدم الخلط بين نوعين

اتمنى انه وصلت الفكرة و اذا لم تعجبكم الفكرة نعمل غيرها .



و ننتظر تطبيقاتكم
الاستاذ خليل