[asto]

السلام عليكم

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

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

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

PHP كود :

h = Second(Now)
hh = h + 27
If hh > 60 Then hh = hh - 60
Text55.Text = 0
If hh = Second(Now) Then
Text55.Text = 1
Timer1.Enabled = False
End If 


[ALBRNS]

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

جرب التالي

PHP كود :

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


بالتوفيق

[VB_Coder]

السلام عليكم

- بعد إذن أخي 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

- تحياتي .