Saya udah coba fungsi delay kaya gini
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Delay(detik As Long)
Dim TimeOut As Long
TimeOut = (GetTickCount / 1000) + detik
Do
DoEvents
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
Belum ada masalah sih. Anyway makasih banget bwt semua yang udah kasih masukan
maaf klo kebanyakan nanya maklum masih tahap belajar. Tapi klo ada masukan
lagi ma source yang saya pake masukannya sangat saya harapkan . Thx b4
aries <[EMAIL PROTECTED]> wrote: 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]
---------------------------------
Looking for earth-friendly autos?
Browse Top Cars by "Green Rating" at Yahoo! Autos' Green Center.
[Non-text portions of this message have been removed]
