مساعدة لكود يعطي وقت انتظار

[mmam93]

السلام عليكم 

يعطيكم العافية 

عندي كود طويل ودايم البرنامج يعلق عندي لو استخدمته

احتاج كود يعطي وقت انتظار بين تنفيذ الاومر خمس ثواني على المثال

 

وشكرا لكم

[jjafferr]

وعليكم السلام 🙂

 

13 دقائق مضت, mmam93 said:

احتاج كود يعطي وقت انتظار بين تنفيذ الاومر خمس ثواني على المثال

 

تفضل

    Dim PauseTime, Start
      
    PauseTime = 5    ' Set duration in Seconds
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

.

 

13 دقائق مضت, mmam93 said:

عندي كود طويل ودايم البرنامج يعلق عندي لو استخدمته

 

الافضل النظر في الكود ومعرفة وين المشكلة ، وبعض الاوقات ينحل الموضوع بالامر DoEvents بعد الامر اللي يأخذ وقت للتنفيذ ، واكتبه لأكثر من مكان ،

واللي يعمله هو ، ما يطلب من الكود ان يتوقف حتى يكمل الكود عمله ، وانما يعطي امر للمعالج بأن يواصل عمل بعض الاوامر الاخرى 🙂

 

جعفر

[mmam93]

شكرا لك استاذ جعفر