تقييم الموضوع :
  • 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
تشكر يا غالى تعبتك معاى ربنا يبارك فيك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد التعديل علا المثال التالي wolf1120 5 213 26-08-17, 06:41 PM
آخر رد: wolf1120
  اريد اعمل الفليكس قريد مثل هذا المثال على الاكسل hamedi2727 0 66 17-08-17, 10:18 PM
آخر رد: hamedi2727
  [vb6.0] تحية طيبة / اريد كود لترقيم text تلقائي دون ان استخدام الترقيم التلقائي في اكسس sher 1 145 07-07-17, 01:06 AM
آخر رد: Amir_alzubidy
  اريد استفسار حول اداة تكون احسن من listbox wolf1120 2 520 06-10-16, 04:45 PM
آخر رد: wolf1120
  اريد تعديل قيمة هيكس في عددة عناوين wolf1120 6 610 18-09-16, 01:13 PM
آخر رد: wolf1120
  [vb6.0] اريد مثل مافي الصورة amir عمور2016 1 333 21-07-16, 10:57 PM
آخر رد: Amir_alzubidy
  شباب اريد ازرار للفيجوال بيسك6.0 ابراهيم كركوكي 1 537 18-09-15, 06:52 PM
آخر رد: starwarr2005
  [مشروع] اريد المشروع ادراه المكتبة ام اديان 1 681 27-10-14, 02:03 AM
آخر رد: pirategg55
  اريد كود لمعرفة هل السجل الحالى يتم التعديل علية من مستخدم أخر الحزين اوى 0 515 10-09-14, 12:25 AM
آخر رد: الحزين اوى
  اريد تعلم الفيجوال بيسك ولكن بشكل ميسر افيدونى mabrook 6 1,549 18-02-14, 11:00 AM
آخر رد: سعود

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


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