Penggunakan fungsi API

Terkadang untuk suatu keperluan, kamu harus menghentikan sejenak alur code yang kamu buat dalam beberapa detik.
Dalam kasus ini, kamu bisa menggunakan fungsi API yang yaitu Sleep pada VB, apakah kamu tidak ingin membuatnya sendiri?
Hehehe, aneh ya! sudah disediakan fungsi Sleep, masih tidak puas. Oke, untuk iseng-iseng mari kita buat prosedur yang mirip dengan
fungsi Sleep, tetapi mari kita gunakan waktu dalam detik bukan dalam milidetik seperti fungsi Sleep, tidak terlalu rumit kok.

1

Delarasi:

2

1 Form

3	1 Command Button

4

Source Code:

01	Private Sub Command1_Click()

02

03	Dim waktu As Integer

04

05	'waktu tidur=3 detik

06

waktu = 3

07	Ngorok_ZZZ waktu

08	MsgBox "Bangun!!!, kau telah tidur selama " & waktu & " s"

09

10

End Sub

11

12	Private Sub Ngorok_ZZZ(ByVal time As Integer)

13

14	Dim t As Single

15

16

t = Timer

17

18	Do Until (Timer - t) >= time

19

DoEvents

20

Loop

21

22

End Sub

23

24	'2010 crowja