Menangguhkan eksekusi kode dengan Visual Basic 6.0

Menangguhkan eksekusi kode dengan Visual Basic 6.0  - Dalam kasus tertentu, kita perlu sekali untuk menangguhkan eksekusi kode, misalnya ketika melakukan sinkronisasi. Sayangnya , method yang memiliki fungsionalitas seperti ini tidak tersedia di visual basic

Pada kenyataanya  , anda bisa memanfaatkan timer untuk menangguhkan eksekusi dan melanjutkan kembali dalam interval waktu tertentu. Namun, jika anda menginginkan pendekatan yang lebih praktis, gunakan API win32.

‘ Untuk menangguhkan eksekusi
Private Declare Sub Sleep Lib “Kernel32” ( _ ByVal dwMillisecond as Long)
Private Sub Pause (ByVal sngDetik As single)
    ‘ Menangguhkan eksekusi dalam (waktu) detik
    Call Sleep (Int (sngDetik = 1000#))
End Sub

Sebenarnya anda bisa langsung menggunakan method Sleep, tetapi perlu di perhatikan , nilai argumennya adalah waktu dalam satuan milidetik. Oleh karena itu, untuk lebih memudahkan penggunaan method Sleep, kita membuat method Pause yang menerima argumen waktu dalam satuan detik.

Contoh penggunaan method Pause diperlihatkan sebagai berikut :

Dim i As Interger
For  i = 1 To 200
    Me.Caption = 1
   
    If 1 = 100 then
    ‘ Tangguhkan eksekusi selama 5 detik
    Me.Caption = “Berhenti selama 5 detik”
    Pause (5)
    End if
End Sub

Itulah sobat sedikit tips cara Menangguhkan eksekusi kode dengan Visual Basic 6.0 

Menangguhkan eksekusi kode dengan Visual Basic 6.0 2013-04-26T01:29:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown