تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود لتأجيل تنفيذ الامر بالمايكروثانية
#1
السلام عليكم ورحمة الله وبركاته
اريد كود  لتأجيل تنفيذ الامر بالمايكروثانية
الرد }}}
تم الشكر بواسطة:
#2
هل تقصد بالملي ثانية يعني 1000 ملي بالثانية , أم لا
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم
شكرا اخى احمد منصور على الرد والاهتمام
التاجيل بالملى ثانية عندى كود ليه انا محتاج تاجيل بالمايكرو ثانية اللى هواصغر من المللى ثانية بيساوى واحد على مليون من الثانية واالواحد مل ثانية فيه 1000 ميكرو ثانية
الرد }}}
تم الشكر بواسطة:
#4
إستخدم هذا الكود , لأقرب نتيجة للمايكرو وأيضاً للنانو , المايكرو = 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 ثانية
الرد }}}
تم الشكر بواسطة:
#5
تشكر يا غالى تعبتك معاى ربنا يبارك فيك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد صيغة عمليات جرد البضائع amkhalid 1 1,530 03-01-20, 05:16 PM
آخر رد: asemshahen5
  [vb6.0] اخوتي الكرام / لدي مشروع اريد من الاخوة و الاصدقاء مساعدتي في انجازه AYA2017 8 3,542 06-09-17, 02:20 AM
آخر رد: عبد العزيز البسكري
  اريد التعديل علا المثال التالي wolf1120 5 2,525 26-08-17, 06:41 PM
آخر رد: wolf1120
  اريد اعمل الفليكس قريد مثل هذا المثال على الاكسل hamedi2727 0 1,691 17-08-17, 10:18 PM
آخر رد: hamedi2727
  [vb6.0] تحية طيبة / اريد كود لترقيم text تلقائي دون ان استخدام الترقيم التلقائي في اكسس sher 1 2,180 07-07-17, 01:06 AM
آخر رد: Amir_Alzubidy
  اريد استفسار حول اداة تكون احسن من listbox wolf1120 2 2,618 06-10-16, 04:45 PM
آخر رد: wolf1120
  اريد تعديل قيمة هيكس في عددة عناوين wolf1120 6 3,528 18-09-16, 01:13 PM
آخر رد: wolf1120
  [vb6.0] اريد مثل مافي الصورة amir عمور2016 1 1,889 21-07-16, 10:57 PM
آخر رد: Amir_Alzubidy
  شباب اريد ازرار للفيجوال بيسك6.0 ابراهيم كركوكي 1 2,112 18-09-15, 06:52 PM
آخر رد: starwarr2005
  [مشروع] اريد المشروع ادراه المكتبة ام اديان 1 2,075 27-10-14, 02:03 AM
آخر رد: pirategg55

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم