Membuat Delay

ntuk membuat delay selama 1 detik dalam visual basic kebanyakan pemula masih mengalami kesulitan, dari banyaknya pertanyaan tentang membuat delay pada visual basic, maka saya akan menuliskan source codenya pada blog ini supaya dapat bermanfaat bagi semua yang sedang belajar visual basic. Berikut adalah contoh source code delay 1 detik :

'delay 1 sekon
Public Sub delay1()
Dim a As Single
a = Timer + 1
Do While a > Timer
DoEvents
Loop
End Sub

Untuk merubah delay atau tunda, anda tinggal merubah angka pada a = Timer + 1

Jika ingin membuat delay 2 detik, anda Cuma mengganti angka 1 menjadi 2
Jika ingin membuat delay 0.5 detik, anda Cuma mengganti angka 1 menjadi 0.5