منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اريد كود لتأجيل تنفيذ الامر بالمايكروثانية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [سؤال] اريد كود لتأجيل تنفيذ الامر بالمايكروثانية (/showthread.php?tid=10592)

اريد كود لتأجيل تنفيذ الامر بالمايكروثانية - احمد نجاح - 03-11-14

السلام عليكم ورحمة الله وبركاته
اريد كود  لتأجيل تنفيذ الامر بالمايكروثانية


RE: اريد كود لتأجيل تنفيذ الامر بالمايكروثانية - Ahmed_Mansoor - 03-11-14

هل تقصد بالملي ثانية يعني 1000 ملي بالثانية , أم لا

RE: اريد كود لتأجيل تنفيذ الامر بالمايكروثانية - احمد نجاح - 03-11-14

السلام عليكم
شكرا اخى احمد منصور على الرد والاهتمام
التاجيل بالملى ثانية عندى كود ليه انا محتاج تاجيل بالمايكرو ثانية اللى هواصغر من المللى ثانية بيساوى واحد على مليون من الثانية واالواحد مل ثانية فيه 1000 ميكرو ثانية

RE: اريد كود لتأجيل تنفيذ الامر بالمايكروثانية - Ahmed_Mansoor - 04-11-14

إستخدم هذا الكود , لأقرب نتيجة للمايكرو وأيضاً للنانو , المايكرو = 1000 ملي والنانو = 1000000 ملي , ضع هذا الكود في أعلى كود الفورم :

كود :
Private Enum WaitType
        wMicroSeconds = 1
        wNanoSeconds = 2
End Enum

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Function Wait(zWaitType As WaitType, zNumber As Currency)

Dim EndTime As Currency

If zWaitType = wMicroSeconds Then
   EndTime = GetTickCount + (zNumber / 1000)
ElseIf zWaitType = wNanoSeconds Then
   EndTime = GetTickCount + (zNumber / 1000000)
End If

Do Until GetTickCount >= EndTime
   DoEvents
Loop

End Function

ثم قم بإستدعاء دالة الإنتظار بهذا الشكل :

للمايكرو

كود :
Wait wMicroSeconds, 2000000

للنانو

كود :
Wait wNanoSeconds, 2000000000

المده المنتظره لكل من النوعين هي 2 ثانية

RE: اريد كود لتأجيل تنفيذ الامر بالمايكروثانية - احمد نجاح - 05-11-14

تشكر يا غالى تعبتك معاى ربنا يبارك فيك