مساعدة في عمل حركة لليبول او الصورة

[Ashraf Ehab]

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

الاساتذة الافاضل 

اما بعد انا اريد تنفيذ الاتي ولم استطع الوصول الي هذا الكود

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

بمعني الصورة مثلا بعد 0 تبداء من ليبول معين وبعدها تتحرك بالتتابع علي باقي الليول حتي ينتهي عد مثلا 8 ثواني 

وهذه صورة كروكي لها 

ولكم جزيل الشكر

[د.كاف يار]

تفضل هذه المحاولة حسب فهمي لطلبك

 

WindowsApplication1.zip

[Ashraf Ehab]

انا عاجز عن شكرك هذا هو المطلوب لكني استاذن حضرتك تشرحلي معني الاكواد دي 

 Function Imges(ImageNo As Integer)
        Image1.Image = Nothing
        Image2.Image = Nothing
        Image3.Image = Nothing
        Image4.Image = Nothing
        Image5.Image = Nothing
        Image6.Image = Nothing
        Image7.Image = Nothing
        Image8.Image = Nothing
        Image9.Image = Nothing
        Select Case ImageNo
            Case Is = 1 : Image1.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 2 : Image2.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 3 : Image3.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 4 : Image4.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 5 : Image5.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 6 : Image6.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 7 : Image7.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 8 : Image8.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 9 : Image9.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
            Case Is = 0 : PictureBox1.Image = Image.FromFile(newpoth & "\Excel_Icon.png")
        End Select
    End Function

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

تم تعديل يوليو 25, 2022 بواسطه Ashraf Ehab

[Ashraf Ehab]

اخي العزيز لقد قمت بحلها ولكن ظهر امامى مشكلة لا استطيع حلها وهي كل شئ عند الفتح تمام لكن بعد ما يجي يبداء من جديد يتوقف 

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

 

WindowsApplication1.rar

[د.كاف يار]

تفضل التعديل

WindowsApplication1.rar

[Ashraf Ehab]

أخي العزيز ليس هذا ما هو مطلوب ساشرح لك بالتفاصيل 

١ هناك ٣ليبول بأرقام مختلفة 

٢ ليبول رقم ٧ به ٣٥ ثانية إذا وصلت إلي ٠ إبداء الايكونة بالتحرك حتي انتهاء الوقت الذي باليبول ٨ اي ٨ ثواني  بعد انتهاء ال ٨ثواني وبداء بعد ١٦ ثانية في ليبول ٩ ليبداء عد ال٣٥ ثانية من جديد وهكذا حتي ولكن في هذه الحالة إبداء الايكونة بالتحرك من آخر نقطة كانت متوقفة بها حتي اغلاق البرنامج

 

[Ashraf Ehab]

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

الفديو باللنك الاتي

https://www.mediafire.com/file/0staghp7nxyx4sa/es.rar/file