[indoprog-vb] Re: Jeda waktu (delay) tanpa timer ! Ada yg ngerti ga?

[Eko Heri Susanto]

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]
>