Sabtu, 16 Oktober 2010

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.

1Delarasi:
21 Form
31 Command Button
4



Source Code:

01Private 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   
10End Sub
11 
12Private 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   
22End Sub
23 
24'2010 crowja