[احمد نجاح]

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

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

[Ahmed_Mansoor]

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

[احمد نجاح]

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

[Ahmed_Mansoor]

إستخدم هذا الكود , لأقرب نتيجة للمايكرو وأيضاً للنانو , المايكرو = 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 ثانية

[احمد نجاح]

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