[محترف البرمجة اوي]

بسم الله الرحمن الرحيم

هذا شرح للمطلوب بالتفصيل
الهدف من المشروع وضع مؤقت واحد فقط بدل من وضع 5 أدوات مؤقت




ومن هنا حمل المشروع

http://vb4arb.com/vb/uploaded/425_11350021168.zip

[أبو يعقوب]

تضيف الصور إلى البرنامج داخل الـ Resources

عن الضغط على أي زر تعطي البكجر بوكس الصورة المحددة
مثلا ضغطت على الزر الثاني ستعرض الصورة الثانية من الريسورس

Me.PictureBox1.Image=My.Resources._2.png
Timer1.Start


وعندما تمر ال5 ثواني داخل Timer1_Tick تكتب

Me.PictureBox1.Image=nothing

صعب ؟

[محترف البرمجة اوي]

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

حمل المثال المرفق وضع الكود المطلوب ثم ارفع لنا المثال بعد وضع الكود

مع كامل الشكر لحضرتك

[RaggiTech]

السلام عليكم ورحمة الله وبركاته
هذا هو الحل ان شاء الله

وممكن ان نقتبس من شرح الاخ[b]أبو يعقوب[/b]
ونعدل هذا الكود

كود :

[/b][/FONT][/SIZE][/COLOR]PictureBox1.Image = New Bitmap(PictureBox1.ClientSize.Height, PictureBox1.ClientSize.Width)[COLOR=#000080][SIZE=2][FONT=tahoma][b]

فنستبدله بهذا

كود :

[/b][/FONT][/SIZE][/COLOR]PictureBox1.Image = Nothing[COLOR=#000080][SIZE=2][FONT=tahoma][b]

[محترف البرمجة اوي]

استاذي المبدع مؤمن صباح الخير

جربت المثال نعم عمل الكود بدون اي خطأ ولله الحمد
بس انا اريد يفتح الصور من مسار مجلد تابع للمشروع بجنب المشروع لا اريد فتح الصور وهى مضافه إلى Resources
لو سمحت ممكن التعديل على المشروع حتى يشغل الصور من مسار مجلد الله يستر عليك

[RaggiTech]

لك ما طلبت اخي الغالي
ستجد مجلد الصور pics بجانب ملف exe الخاص بالمشروع في هذا المسار WindowsApplication1\bin\Debug

اتمنى ان يكون هذا هو الحل المناسب لك اخي الكريم

[محترف البرمجة اوي]

أخي واستاذي مؤمن تحيه لك

تابع الصورة المتحركة التالية



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

بس عندما اضغط على زر عرض الصورة رقم 2 مباشرة بعد الضغط على عرض الصورة رقم 1 يقوم الكود بعرض الصورة رقم 2 ويعرضها لمدة 4 ثواني فقط وعندما اضغط على زر عرض الصورة رقم 3 بعد الضغط على زر عرض الصورة رقم 1 و2 مباشرة
سيعرض الصورة رقم 3 لمدة ثلاثة ثواني فقط تخيل الصورة رقم 5 بكذا لن تعرض لمدة خمس ثواني ستعرض لمدة ثانية واحده فقط ؟
وشاهد الصورة المرفقه

كيف يمكن جعل الخمس الثواني تبدأ بعد الضغط على اخر زر لعرض الصورة المطلوبة ؟
:confused:

[RaggiTech]

اليك الحل

قم بتعديل هذا الكود

كود :

[color=#000080][SIZE=2][FONT=tahoma][b]Private Sub img(ByVal path)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b]        PictureBox1.Load(pics_path & path)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b]        Timer1.Enabled = True[/b][/FONT][/SIZE][/color]
[COLOR=#000080][SIZE=2][FONT=tahoma][b]    End Sub
[/b][/FONT][/SIZE][/COLOR]

استبدله بهذا

كود :

[color=#000080][SIZE=2][FONT=tahoma][b]Private Sub img(ByVal path)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b]        Timer1.Enabled = False[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b]        PictureBox1.Load(pics_path & path)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b]        Timer1.Enabled = True[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b]    End Sub[/b][/FONT][/SIZE][/color]

اتمنى ان يكون هذا الحل المناسب لك ان شاء الله

[محترف البرمجة اوي]

يا سلام عليك يا استاذ مؤمن نعم بكذا الكود 100%

بارك الله فيك

[RaggiTech]

بالتوفيق اخي الكريم
تحياتي لك