چگونه در اجرای کدها وقفه و تاخیر زمانی را ایجاد کنیم؟

بسم الله الرحمن الرحیم
سلام

در برنامه‌نویسی گاها نیاز هست تا کدها را با تاخیر اجرا کنیم. مثلا شما برای انجام محاسباتی نیاز هست تا کدها را با کمی تاخیر اجرا کنید یا برای اینترفیس و محیط کاربری تاخیرهایی در نمایش پیام‌ها و فرم‌ها ایجاد کنید.

با استفاده از ماژول زیر می‌توانید این تاخیر و وقفه زمانی را در کدهاتون اعمال کنید.

پس در محیط VBA یک ماژول خام ایجاد کنید و کدهای زیر را درونش قرار دهید.

Public Function Pause(NumberOfSeconds As Variant)

'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||'
'|                               Access-Training.Blog.ir منتشر شده توسط |'
'|----------------------------------------------------------------------|'
'| با استفاده از این ماژول می‌توانید کدها را با فاصله زمانی بر حسب ثانیه |'
'|                                                   با تاخیر اجرا کنید |'
'|                                                       :به عنوان مثال |'
'| Pause(ثانیه مورد نظر)                                                |'
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||'

    On Error GoTo Error_GoTo
    Dim PauseTime As Variant
    Dim Start As Variant
    Dim Elapsed As Variant
    PauseTime = NumberOfSeconds
    Start = Timer
    Elapsed = 0
    Do While Timer < Start + PauseTime
        Elapsed = Elapsed + 1
        If Timer = 0 Then
            ' Crossing midnight
            PauseTime = PauseTime - Elapsed
            Start = 0
            Elapsed = 0
        End If
        DoEvents
    Loop
Exit_GoTo:
    On Error GoTo 0
    Exit Function
Error_GoTo:
    Debug.Print Err.Number, Err.Description, Erl
    GoTo Exit_GoTo
End Function

سپس از طریق تابع Pause() مدت زمان لازم را که به ثانیه است، وارد کرده و تاخیر لازم را ایجاد کنید.

در زیر یک نمونه کاربردی از این ماژول برای شما قرار داده شده تا استفاده کنید.

نظرات شما باعث دلگرمی ماست!

مشخصات

• نوع فایل: rar فشرده
• حجم فایل: 21.3 کیلوبایت
• دانـــلـــود