المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الدرس الخامس عشر اضافة ملفات الفلاش(swf) في برنامج الباور بوينت

الاستاذ خليل
07-30-2007, 09:27 AM
السلام عليكم

الدرس الجديد اضافة ملف فلاشي ببرنامج الباور بوينت بالصوت و الصورة (http://hesab.net/PowerPoint/27-flah.exe)

ننتظر تطبيقاتكم

الاستاذ خليل
zine pef
07-30-2007, 03:32 PM
اليكم اخي خليل و اخواني المشاركين هذا الواجب و اتمنى ان اكون في حسن ضنكم اخوكم zine
طقطق هنا::: (http://la.joreyat.org/download.php?id=25f9026ce5dd03008225e1c55ad9cb94)


عندي استفسار عن الدرس المسابقة عملت بي VB6 و ظهر فيها خطأ صغير ولم اجد له الحل
زر الأجابة يظهر اطار متنقط اي الأجابة تكون واضحة
مسابقة VB6 (http://la.joreyat.org/download.php?id=e4242b28ebe76b9476e42296281f0022)
refathafez
07-30-2007, 04:54 PM
شكر جزيلا اخي الاشتاذ خليل
وجزاك الله خيرا
الاستاذ خليل
07-30-2007, 08:42 PM
zine pef شكرا على التشجيع

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

توجد مسابقة بالاكسس و الفجوال بيسك ستنفعك ايضا اضغط هنا (http://www.hesab.net/vb/showthread.php?t=2238) لم يلتفت اليها الاعضاء



الاستاذ خليل
zine pef
07-30-2007, 09:30 PM
شكرا الأخ خليل على المعلومات ..... مسابقة الأخ حبيب موجودة عندي مند اسابيع و هي التي كانت شغلى بالي
و الحمد لله جاء الفرج من حضرتك من شرح الدرس.. شكرا...
سؤال بالنسبة للمسابقة ..اذا كانت الشريحة الأولى فيها 10 اسئلة و بعدها تنتهى ويخرج msgbox و يقول انتهت المسابقة ... اريد كود يتركك تذهب الى الشريحة 2 فيها ايضا اسئلة.. بعد تكملة اسئلة الشريحة 1
الاستاذ خليل
07-30-2007, 09:36 PM
غير المسج الى انتقل للشريحة الثانية

كل ما صنعت برامج ستكون اكثر تقدما بالبرمجة

الاستاذ خليل
zine pef
07-30-2007, 09:44 PM
شكرا اخي
هل اكتب::msgbox("انتقل الى slide2 ") ;و بعد الضغط على ok تنتقل الى slide2 شكرا
الاستاذ خليل
07-30-2007, 10:11 PM
المسج اضغط على زر الشريح الاخرى للانتقال كما انك تستطيع ان تخفي زر الانتقال و يضهره عندما يتحقق الشرط حيث استعمل شرح الاستاذه امل بالدروس السابقة يفيدك في كود الاضهار و الاخفاء للادوات التي ليست في فجوال بيسك ساحاول الحصول على كود الانتقال من شريحة لاخرى من خلال Help

اكتب هذا الكود للانتقال للشريحة التالية :
Me.Parent.SlideShowWindow.View.Next

و للرجوع استخدم هذا الكود
Me.Parent.SlideShowWindow.View.Previous
الاستاذ خليل
Amel2005
07-31-2007, 12:23 AM
السلام عليكم ورحمة الله وبركاته .
أستاذنا الفاضل الأستاذ خليل
زادكم الله عزا وعلما...

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

أخى الفاضل / zine pef
جرب الكود التالى :
ActivePresentation.SlideShowWindow.View.GotoSlide 3

حيث يمكن استبدال الرقم ثلاثة برقم الشريحة التى تريدها .
جرب ... والله أعلم بالنتيجة .

تحياتى لمجهوداتكم بارك الله فيكم.
zine pef
07-31-2007, 01:08 AM
شكر للأستاذين خليل و أمال على الشرح القيم و سوف اطبقه
الاستاذ خليل
07-31-2007, 10:05 AM
حياك الله zine pef شكرا

الاخت امل الذي يحكم هو العمل

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

اذا العمل ثابت اي الملف الفلاشي لن يتغير استعملي البرنامج افضل

و شكرا لتفاعلكم و اثراءكم للموضوع
refathafez
07-31-2007, 07:09 PM
السلام عليكم الدرس الخامس عشر وبدون الفلاشة
ارجو ان يحوذ اعجابكم اضافة فلاشة واختر الاجابة الصحيحة
الاستاذ خليل
08-01-2007, 01:20 AM
شكرا استاذ بس يوجد خطأ بالكود
ShockwaveFlash1.Movie = Application.ActivePresentation.Path & "\ c.exe.swf"

سببه
النص "\ c.exe.swf"

لانك وضغت مسافة بين \ و للحرف c الذي هو اسم الملف
و اخطأت ايضا بالباقي لان كاتب نوعية الملف exe و هو swf

التصحيح هو التالي

ShockwaveFlash1.Movie = Application.ActivePresentation.Path & "\c.swf"

و شكرا لك محاولة طيبة