03-11-14, 11:00 PM
03-11-14, 11:28 PM
هل تقصد بالملي ثانية يعني 1000 ملي بالثانية , أم لا
03-11-14, 11:46 PM
السلام عليكم
شكرا اخى احمد منصور على الرد والاهتمام
التاجيل بالملى ثانية عندى كود ليه انا محتاج تاجيل بالمايكرو ثانية اللى هواصغر من المللى ثانية بيساوى واحد على مليون من الثانية واالواحد مل ثانية فيه 1000 ميكرو ثانية
شكرا اخى احمد منصور على الرد والاهتمام
التاجيل بالملى ثانية عندى كود ليه انا محتاج تاجيل بالمايكرو ثانية اللى هواصغر من المللى ثانية بيساوى واحد على مليون من الثانية واالواحد مل ثانية فيه 1000 ميكرو ثانية
04-11-14, 10:21 AM
إستخدم هذا الكود , لأقرب نتيجة للمايكرو وأيضاً للنانو , المايكرو = 1000 ملي والنانو = 1000000 ملي , ضع هذا الكود في أعلى كود الفورم :
ثم قم بإستدعاء دالة الإنتظار بهذا الشكل :
للمايكرو
للنانو
المده المنتظره لكل من النوعين هي 2 ثانية
كود :
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 ثانية
05-11-14, 01:41 AM
تشكر يا غالى تعبتك معاى ربنا يبارك فيك