Improve performance

[SargumSingh]

I have a VB application which has an inifinte loop. The loop may not be doing anything at times but consumes upto 99% CPU during that time. Even if I have Sleep/DoEvents the CPU consumption is upto 65 - 70%.
Please let me know how to make programs mor CPU efficient
to improve performance
Thanks

[sebs]

what your infinite loop use?
show your code, maybe there's a work around

[SargumSingh]

My loop is
Do While (True)
Sleep (10)
'some processing
Loop

Public Sub Sleep(PauseTime As Integer)
Dim start As Double

start = Timer ' Set start time.

Do While Timer < start + PauseTime

DoEvents ' Yield to other processes.
If Timer < 50 Then
start = Timer
End If

DoEvents
Loop

End Sub

while it is processing the CPU is 2 or 3. But when idle it consumes all the CPU
Thanks

[sebs]

i'm saying, why it has to be infinite loop,explain!!

[CoreyS]

Try this:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Sub DoInFiniteLoop()

    Do While (True)
        DoEvents
        Sleep (10)
        'some processing
    Loop
    
End Sub

[SargumSingh]

Since it is an unattended process supposed to be performed
all the time
thanks

[sebs]

SargumSingh, did you receive my email??

[SargumSingh]

I'm now using the sleep API instead of VB Timer function.
It just works great. Now the app really looks like sleeping
consuming 00 CPU.
Thanks