![Metode OnTime](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj0T3DtKPTcI9y4PzDBoSgNJwXraFVdlI0qDBPBu4Pc2y-3phoOysGY7p_36YymE2SCV96ZjcRzOJXfTsONdR99umkseReMT1FiJ4k-jEnjvYNNrRGSL8PdY5e9MQ3jd5j3uBNv5I_F9U7b/s1600/OnTime.png)
Perintah utama dalam menjalankan kondisi ini adalah menggunakan metode
Application.OnTime kode inilah yang kemudian dimasukkan dalam sebuah Module untuk berikutnya dijalankan.
contoh penggunaannya dalam sebuah module
Sub X ()
Application.OnTime Now + TimeValue ("00:00:05"), "Perintah_Lain"
End Sub
Application.Ontime :Application.OnTime Now + TimeValue ("00:00:05"), "Perintah_Lain"
End Sub
digunakan untuk menjalankan sebuah prosedur dalam waktu yang sudah kita spesifikasikan
TimeValue :
merupakan sebuah kondisi dimana perintah akan dijalankan, dalam contoh di atas perintah akan dijalankan dalam hitungan 05 detik
Perintah_Lain :
adalah sebuah prosedur (Module) lain yang akan dijalankan ketika waktu yang yang kita masukkan sedang terjadi.
Untuk membuat prosedur "perintah_lain" maka kita membuat sebuah module baru yang berisi perintah atau kode-kode tertentu yang kita inginkan.
sebagai contoh :
Sub Perintah_Lain()
UserForm1.Show
End Sub
Artinya, ketika pengguna menjalankan perintah Sub X - pengguna harus
menunggu sekitar 05 detik kemudian Sub Perintah_Lain akan dijalankan,
dalam contoh diatas yakni menampilkan UserForm1
UserForm1.Show
End Sub
Ilustrasi dalam menggunakan metode ini sebagai berikut
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9IZ_1_8PKLWFPSl_JPU7WTVe-NWkBq33JfXa1G0nSM8GAIndqF54LorIpAEavjVjWHonIdE_B3L1IEliAV1j0imkK-AJpZ-jNYIr1a6n0E6BxjsZdlo1-c8JS8ErQhGcMSCKDAZOKrNKo/s320/OnTime.gif)
Tidak ada komentar:
Posting Komentar