Sleep (Windows API)

Söz dizimi​

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub Ornek()
    Sleep 1500   ' 1,5 saniye bekler
End Sub

• dwMilliseconds: Beklenecek süre, milisaniye cinsinden (1000 milisaniye = 1 saniye). Zorunludur, varsayılanı yoktur. ByVal ile değer olarak geçirilir.
• Dönüş değeri: Yoktur. Sleep bir Sub olarak bildirilir; sonucu bir değişkene atanmaz ve çağrıda parantez kullanılmaz.
• 0 değeri: İş parçacığı kalan zaman dilimini başka işlere bırakır, fiilen bekleme olmaz.
• Üst sınır: VBA'daki Long türü en fazla 2.147.483.647 değerini taşır (yaklaşık 24 gün). Bundan büyük değer taşma hatası verir.

Declare bildirimi nasıl yazılır​

• PtrSafe: 64 bit Excel'de zorunludur; yoksa derleme hatası alırsınız. Eski 32 bit sürümlerde bu sözcük tanınmaz.
• #If VBA7 Then ... #Else ... #End If: Aynı dosyanın hem eski hem yeni sürümlerde derlenmesini sağlayan koşullu derleme bloğudur. Yukarıdaki iki satırlı biçimi her zaman kullanmak güvenlidir.
• Private ve Public: Standart modülde Public Declare yazarak Sleep'i tüm projeden çağırabilirsiniz. Sayfa, ThisWorkbook, UserForm ve sınıf modüllerinde Declare yalnızca Private olabilir.
• Lib "kernel32": İşlevin bulunduğu Windows kitaplığıdır. Bu bildirim yalnızca Windows'ta çalışır; Mac için Excel'de kernel32 yoktur.

Sleep nasıl çalışır ve sınırları​

• Application.Wait: Saniye hassasiyetindedir ve belirli bir saate kadar bekler; API bildirimi gerektirmez.
• Application.OnTime: Makroyu Excel'i dondurmadan, belirli bir zamanda çalıştırır.
• Timer işlevi: Gün başından beri geçen saniyeyi verir; süre ölçmek için kullanılır.

1. Uzun işlem öncesi kısa bekleme​

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub RaporuHazirla()
    ' Durumu güncelle ve kullanıcıya bilgi ver
    Range("B2").Value = "İşleniyor"
    Application.StatusBar = "Sunucu yanıtı bekleniyor..."

    ' 2000 milisaniye = 2 saniye bekle
    Sleep 2000

    Range("B2").Value = "Tamamlandı"
    Application.StatusBar = False
End Sub

2. Döngüde istekleri aralıklandırma​

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub SehirleriSorgula()
    Dim i As Long
    Dim t As Single

    For i = 2 To 6
        t = Timer

        ' Burada gerçek sorgu işlemi yapılır
        Cells(i, 2).Value = "Sorgulandı"

        ' Sonraki isteğe geçmeden önce 300 ms bekle
        Sleep 300

        ' Geçen süreyi saniye olarak yaz
        Cells(i, 3).Value = Round(Timer - t, 2)
    Next i
End Sub

3. Saniyeyi milisaniyeye çevirme ve sınır denetimi​

Option Explicit

Sub MilisaniyeHesapla()
    Dim ws As Worksheet
    Dim i As Long
    Dim ms As Double

    Set ws = ActiveSheet

    For i = 2 To 6
        ' Saniyeyi milisaniyeye çevir
        ms = ws.Cells(i, 2).Value * 1000

        ' Sleep için Long sınırı: 2.147.483.647
        If ms > 2147483647# Then
            ws.Cells(i, 3).Value = "Sınır aşıldı"
        Else
            ws.Cells(i, 3).Value = CLng(ms)
        End If
    Next i
End Sub

Kullanırken dikkat edin​

• Declare bildirimi en üstte olmalı: Declare deyimi modülün bildirim bölümünde, yani ilk Sub ya da Function'dan önce yer almalıdır. Yordamın içine yazarsanız derleme hatası alırsınız. Aynı adla ikinci bir Sleep bildirimi de "Belirsiz ad" hatasına yol açar.
• 64 bit uyumluluğu: PtrSafe içermeyen eski bildirimler 64 bit Excel'de derlenmez. Dosyayı farklı sürümlerdeki kullanıcılarla paylaşacaksanız #If VBA7 Then bloğunu mutlaka kullanın.
• Excel donar: Sleep sırasında Excel hiçbir işleme yanıt vermez ve Esc ile durdurulamaz. Kullanıcıya uzun süreli donma yaşatmamak için bekleme sürelerini kısa tutun. Sleep'ten önce bir ekran güncellemesi gerekiyorsa tek bir DoEvents çağrısı ekranı tazeleyebilir; bunu bekleme döngüsü olarak kullanmayın.
• Sleep bir Sub'dır: Sleep değer döndürmez. Sleep(1000) biçiminde sonuç bekleyen bir çağrı yazmayın; doğru kullanım Sleep 1000 şeklindedir. Sayıyı değişkenle verecekseniz değişkenin Long olmasına dikkat edin.
• Platform sınırı: kernel32 yalnızca Windows'ta bulunur. Mac için Excel'de ve Excel'in web sürümünde bu bildirim çalışmaz. Platformlar arası dosyalarda Application.Wait gibi API gerektirmeyen yöntemi tercih edin.
• Makro güvenliği: API çağrısı içeren dosyalar .xlsm ya da .xlsb olarak kaydedilmelidir; .xlsx biçimi makro saklamaz. Kullanıcıların makroları etkinleştirmesi gerekir.
• İlgili konular:
  • Declare deyimi: Dış kitaplıktaki yordamları VBA'ya tanıtır.
  • PtrSafe: 64 bit uyumlu API bildirimi anahtar sözcüğüdür.
  • #If...Then...#Else: Koşullu derleme yönergesidir.
  • Application.Wait: Belirli bir zamana kadar bekleten Excel yöntemidir.
  • Application.OnTime: Makroyu zamanlanmış çalıştırır.
  • Timer işlevi: Geçen süreyi saniye olarak ölçer.
  • DoEvents: Excel'in bekleyen olayları işlemesine izin verir.
  • Application.StatusBar: Durum çubuğuna ileti yazar.
  • Application.ScreenUpdating: Ekran güncellemesini açar ya da kapatır.