Rabu, 29 Desember 2010

Trik Membuat Jeda / Penangguhan Waktu (Delay) pada Visual Basic

Kadang dalam program yang kita buat, kita ingin membuat jeda waktu sebelum suatu proses dilanjutkan. Berikut prosedur untuk membuat jeda waktu memanfaatkan fungsi DateDiff.
Public Sub jeda (ByVal detik as Integer)
  Dim awal as date = Now()
  While (DateDiff("s", awal, Now()) <= detik)
    'do nothing
  End While 'diganti Wend jika pakai VB6
End Sub

3 komentar:

CeritaKu CeritaMu mengatakan...

Gan ada contohnya nya ga?

CeritaKu CeritaMu mengatakan...

Bahasa programnya gimana ya gan di VBA Microsofct excel... misalkan saya ingin mengisi kata di cell A1 dengan "Indonesia" kemudian "Ada Jeda Waktu sekitar 5 detik" kemudian baru mengisi kata di cell C1 "Merdeka", jadi ada jeda waktu sewaktu mengisi kata di cell A1 dan C1

Sub jeda_waktu()
Range("A1").Select
ActiveCell.FormulaR1C1 = "INDONESIA"
'ingin ada jeda waktu sekitar 5 detik disini tapi bahasa vba nya bingung
Range("C1").Select
ActiveCell.FormulaR1C1 = "MERDEKA"
Range("A2").Select
End Sub


tolong dibantu ya gan...maklum ane pemula dan belajar otodidak...

seventhsky mengatakan...

Halo bro Firman... terima kasih telah mampir di blog ilmubiner. Sebenarnya source code yang ada di postingan saya itu untuk VB6 / VB.Net bukan VBA. Tapi pertanyaannya membuat saya tergelitik ingin ngutak-atik ...hehehe. Berikut full source code-nya yg sdh jalan di Excel 2010. Selamat belajar

Sub jeda(detik)
awal = Now()
While (DateDiff("s", awal, Now()) <= detik)
'do nothing
Wend
End Sub

Sub jeda_waktu()
Range("A1").Select
ActiveCell.FormulaR1C1 = "INDONESIA"
Call jeda(5)
Range("C1").Select
ActiveCell.FormulaR1C1 = "MERDEKA"
Range("A2").Select
End Sub