منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ايقاف لمدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ايقاف لمدة (/showthread.php?tid=8860)

ايقاف لمدة - asto - 12-05-13

السلام عليكم

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

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

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

جرب التالي

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 - 12-05-13

السلام عليكم

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


- تحياتي .