Belirlediğiniz Kadar Milisaniye Durduran API (Sleep Api)

Bu dosya, Windows'un kernel32 kitaplığındaki Sleep API fonksiyonunun VBA içinde nasıl tanımlanıp kullanılacağını gösteren bir örnektir. Bir UserForm üzerindeki düğmeye basıldığında kod milisaniye cinsinden verilen süre kadar bekler. Örnekte bekleme süresi 5000 milisaniye (5 saniye) olarak ayarlanmıştır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: C3:I4 aralığında, formu açan resim/şekil nesnesi bulunur. Sayfada formül yoktur.
• UserForm1: Üzerinde "Sleep ..." yazılı bir düğme (CommandButton1) bulunan form.
• Module1: Formu açan Resim2_Tıkla prosedürü.

Makrolar​

• Resim2_Tıkla: Sayfadaki resme tıklandığında çalışır ve UserForm1 formunu açar.
• UserForm_Initialize: Form açılırken form başlığını boşaltır ve düğmenin yazısını "Sleep ..." yapar.
• CommandButton1_Click: Düğmeye basıldığında form başlığına "Sistem 5 Saniye duracaktır." mesajını yazar, Sleep ile 5000 milisaniye bekler, ardından başlığı tekrar boşaltır.

Sleep fonksiyonu formun kod bölümünde Private Declare Sub ifadesiyle kernel32 kitaplığından tanımlanır. Kodda dosya silme veya dışarıya bağlantı kuran bir işlem yoktur.

Bekleme sırasında Excel arayüzü yanıt vermez; süre dolunca çalışma kaldığı yerden devam eder.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki resme tıklayarak formu açın.
3. "Sleep ..." düğmesine basın; form başlığındaki mesaj görünür ve 5 saniye boyunca Excel bekler.
4. Süreyi değiştirmek için Alt+F11 ile VBA düzenleyicisini açın, UserForm1 kodunda Sleep satırındaki 5000 değerini istediğiniz milisaniye değeriyle değiştirin (1000 = 1 saniye). Başlıktaki mesaj metnini de buna göre güncelleyin.