Xin hỏi về thời gian mỗi lệnh

[thanhvien1802]

Trong Command gồm nhiều lệnh, bây giờ muốn mỗi lệnh thực hiện cách nhau 5 giây thì làm như thế nào . Xin cảm ơn trước.

 

[nvson]

Bạn sử dụng hàm API Sleep.

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Example()
MsgBox "Nguyen"
Sleep (5000)
MsgBox "Van"
End Sub

 

[nvson]

Nếu không dùng hàm thư viện, thì có cách nào khác không vậy, NVSon ?!

Bác tham khảo đoạn code sau:

Public Sub Sleep_2(t_delay)
    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + t_delay
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime
End Sub
 
Public Sub Example_2()
    MsgBox "A1"
    Sleep_2 (10)
    MsgBox "A2"
End Sub

 

[vbavn]

Cho mình hỏi:
Mình có cần thêm DoEvents không?

Vbavn

 

[SA_DQ]

Bác tham khảo đoạn code sau: . . .

Ờ hen! Vậy mà lâu nay mình cũng biết hàm này, nhưng chỉ xài DateSerial() là thường thôi;
Còn trong trường hợp này, mình dùng kiểu thủ công như sau:

Sub Doi10Giay()
 Dim Timer_ As Double 
 Timer_ = Timer
 Do
    If Timer = Timer_ + 10 Then Exit Do
 Loop
 msgbox Str(Timer - Timer_) 
End Sub

Một lần nữa cảm ơn Nguyễn & Sơn nhiều nha!

 

[nvson]

Cho mình hỏi:
Mình có cần thêm DoEvents không?

Vbavn

Oh, nên thêm lệnh DoEvents vào trong thủ tục Sleep_2 để HĐH làm việc được tốt hơn.