تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ايقاف لمدة
#1
السلام عليكم

لدي تايمر و كوماند

داخل الكوماند حلقة for و اريد ادخال كود استراحة ل 27 ثانية (ايقاف ال for لمدة 27 ثانية ثم استكمال التنفيذ) باستعمال التايمر او بدون استعمال تايمر

حيث هذه هي الاوامر داخل التايمر

PHP كود :
Second(Now)
hh 27
If hh 60 Then hh hh 60
Text55
.Text 0
If hh Second(NowThen
Text55
.Text 1
Timer1
.Enabled False
End 
If 
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private 
Sub Command1_Click()
Dim i As Integer
For 1 To 2
MsgBox 
"انتظر 27 ثانية"
Sleep 27000
Next i
End Sub 

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

- بعد إذن أخي ALBRNS . هذه طريقة لاتسبب تعليق أو تجميد للبرامج أثناء إنتظار المده :
كود :
Private Sub Wait(zSecond As Integer)
Dim StartTime As Single
StartTime = Timer
Do While Int(Timer - StartTime) < zSecond
   DoEvents
Loop
End Sub

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 2
MsgBox "بداية الإنتظار"
Wait 27
MsgBox "نهاية الإنتظار"
Next i
End Sub


- تحياتي .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود لمعرفة ايقاف زر معين او مفتاح معين في لوحة المفاتيح (الكيبورد ) القناص المحترف 2 484 11-03-13, 03:04 AM
آخر رد: القناص المحترف

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


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