coba yang ini :
Private Sub Tunggu(ByVal nDetik As Long)
On Error Resume Next
Dim pos As Long
Dim H
H = Second(Time)
While pos < nDetik
DoEvents
If H <> Second(Time) Then
H = Second(Time)
pos = pos + 1
End If
Wend
End Sub
Private Sub Command1_Click()
MsgBox "Mulai"
Call Tunggu(300) '5 menit
MsgBox "setelah 5 menit"
End Sub
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]
---------------------------------
Luggage? GPS? Comic books?
Check out fitting gifts for grads at Yahoo! Search.
[Non-text portions of this message have been removed]
