شباب ممكن خدمة.....كيف ارفق فيديو على الفورم..جزكم الله خير

مع العلم بان اللغة المستخدمة هي لغة الفيجول بيسك

وجزاكم الله خير

بالنسبه للسؤال الاول

يمكن استخدام اده ا windos media player وهذه ا الاداه سوف تجده في ملفات system32 في الوندوز

وهذه الاده سهله الستعمال

أما السوال الثاني فشرحه طويل جدا

واصه انك تردي استخدام قاعده بيانات

وشكرا

أخوي شكلك ما فهمت مقصدي او اني ما فهمت شرحك

ياليت توضح

بص علشان تشغل ملفات فيديو في البرنامج بتاعك لازم تحمل اداة من الادوات التي بتشغل ملفات الفيديو

ومن هذة الأدوات اداة Windows Media Player كما تفضل الاخ hythamzero وقالك

اولا لازم تحمل الاداة وذلك بالضغط علي شريط الادوات في الفيجوال بيسك بازر الايمن ثم تختار component هاتظهرلك شاشة في الاوات التتي يمكن إضافتها للفيجوال بيسك انزل تحت في اخر الادوات سوف تجد اداة Windows Media Player اختارها واضغط Apply سوف تظهر في شريط الادوات الخاص بالفيجوال بيسك ضعها علي الفورم المراد تشغيل الفيديو فيه ومن خصائصها اختار اسم الملف ومكانه .

ارجوا ان يكون الشرح وافي ، وفي انتظار ردك

بالنسبة للمشروع الثاني

فسهل ان شاء الله

انا عملت نفس المشروع بس كان اصعب لانه كان بالبور بوينت

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

اولا سوف تضع الاجابات في أداة Option

1- تحدد كل سؤال عليه كام درجة لنفترض ان كل سؤال عليه 5 درجات

2- نعمل متغير عام ولنفترض ان اسمه Result عبارة عن مصفوفة ونضعه في Module مثلا

Public Result(2) as integer

رقم (2) عبارة عن عدد الاسئلة ( خلي بالك عدد الاسئلة مش الأجوبه) انا هنا عملت المثال علي انه سؤالين فقط

3- نفترض ان فيه 3 اختيارات لإجابة السؤال الأول opt1 -Opt2- Opt3 وان الاجابة الصحيحة هي في حالة اختيار opt1

- في كود opt1 تحط الكود

if opt1.value=1 then result(1)=5

-في كود opt2 تضع الكود التالي

if Opt2.value=1 then Result(1)=0

-في كود opt3 تضع الكود التالي

if Opt3.value=1 then Result(1)=0

ده بالنسبة للسؤال الأول

بالنسبة للسؤال الثاني هيكون نفس الموضوع ونفس الكود مع وضع في الاعتبار اي opt هايكون هو الاجابة الصحيحة وتضع فيه الكود التالي

If Opt(3).value=1 then Result(2)=5

انا هنا افترضت ان الاجابة هاتكون في Option3

وبعد الانتهاء من كل الاسئله تجي في اخر شاشة مثلا وتضع زر مكتوب عليه النتيجة وفيه تكتب الكود التالي

Dim a as Integer

For x=1 to 2

a=a+Result(x)

Next

وبالتالي هايكون مجموع الاجابات الصحيحه هو اللي هايظهر في المتغير a

وبعدها تكتب

if a>=5 then

form10.show

else

form20.show

end if

رقم 5عبارة عن نصف المجموع الاجمالي زي ما قولتلك عندنا سؤالين وكل سؤال له 5 درجات يعني المجموع الكلي 10 درجات

مع اعتبار form10 عبارة عن الشاشة التي تظهر في حالة النجاح

و Form20 عبارة عن الشاشة التي تظهر في حالة الرسوب

ارجوا ان لا اكون نسيت شئ لاني كتبتها علي استعجال

ولو فيه اي مشكلة ممكن تراسلني علي الايميل

جزاك الله خير اخوي ( busy) بالنسبة لمشكلة الفلم عرفتها ويعطيك العافيه وهي فعلا طريقة سهله

بالنسبه لحل المشكلة الثاني هذا هل انت تستخدم فيه قاعدة بيانات ولا لا في حلك هذا

واعتذر على عدم وضع المشاركه في محلها

وكثر الله خيرك وماقصرت ...................