sebenarnya tanpa menggunakan Sleep bisa, dengan menggunakan perintah do while
dengan timer sebagai pembanding.
function tunda( by val detik as double )
dim awal as long
dim akhir as long
'inisialisasi waktu awal
awal=timer
akhir=timer+(1000*detik)
do while akhir > awal
doevents
loop
end function
for i=0 to 100
'panggil fungsi tunda,program akan terdelay selama x detik
tunda 3
next
bambang supriadi <[EMAIL PROTECTED]> wrote:
Mas eko saya cb ngetes2 fungsi API nya kaya prog dibawah ini. Pas
pake sleep 1000 (1 second) ya masih aman tapi pas coba sleep 9000 atau di
atasnya kok terbebani programnya jadinya ya. Gimana dong ada solusi yang lain
ga. Klu pake timer gimana lebih bagus ga.
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
txtWords.Text = "Hello"
DoEvents
Sleep 9000
txtWords.Text = "Cookie"
DoEvents
Sleep 9000
txtWords.Text = "Train"
DoEvents
Sleep 9000
txtWords.Text = "Cat"
End Sub
Eko Heri Susanto <[EMAIL PROTECTED]> wrote: Coba pake fungsi API sleep
contoh :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub MySub()
For i = 1 To adoRs_don.RecordCount
hp_don(i) = adoRs_don!Nohp_don
Call OpenPort(MSComm1)
Call sendMSG(pesan, hp_don(i))
Call ClosePort(MSComm1)
adoRs_don.MoveNext
'tambahan fungsi sleep
Sleep 50000
Next
End Sub
Demikian semoga membantu
Best Regards
Eko Heri
www.smsqta.com (layanan sms biaya murah)
>
> Saya punya penggalan program ky gni (program bwt kirim SMS)
> For i = 1 To adoRs_don.RecordCount
> hp_don(i) = adoRs_don!Nohp_don
> Call OpenPort(MSComm1)
> Call sendMSG(pesan, hp_don(i))
> Call ClosePort(MSComm1)
> adoRs_don.MoveNext
>
> Next
>
> Nah saya pengen sebelum melakukan perulangan yang berikutnya ada
waktu jeda tujuannya spy HP tidak terbebani saat mengirimkan SMS
misalnya dg delay 5 menit. Mohon petunjuknya yahh! Makasih sebelumnya
>
>
> ---------------------------------
> Luggage? GPS? Comic books?
> Check out fitting gifts for grads at Yahoo! Search.
>
> [Non-text portions of this message have been removed]
>
---------------------------------
It's here! Your new message!
Get new email alerts with the free Yahoo! Toolbar.
[Non-text portions of this message have been removed]
---------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
[Non-text portions of this message have been removed]
