منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

داخل الكوماند حلقة 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 

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

جرب التالي

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 

بالتوفيق

السلام عليكم

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

- تحياتي .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

asto

ALBRNS

VB_Coder