Search in ilmuBiner

Loading

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

Tidak ada komentar: