Solved

Sleep functon from kernel Library works inconsistent in VBA

Posted on 2008-10-10
4
1,316 Views
Last Modified: 2013-11-27
I have a program that uses the sleep function in VBA from the kernel library.

It has a tendency to work inconsistently.  All of the sudden it will start to run really slowly.  I will have to turn the time down from 1 to .1 in order to get it to work at the speed it used to.  

There are not any other programs running that would "slow" it down.  I am running the application on a core 2 processor.

Is there any other functions I can use to delay something by a millesecond?  Perhaps something that may act more consistent.

Thanks,
JOe K.
Public timerCounter As Integer
Const TIMERLIMIT = 1
Private Declare Sub sapiSleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
 
Sub sSleep(lngMilliSec As Long)
    If lngMilliSec > 0 Then
        Call sapiSleep(lngMilliSec)
    End If
End Sub

Open in new window

0
Comment
Question by:ClaudeWalker
  • 2
4 Comments
 
LVL 120

Accepted Solution

by:
Rey Obrero (Capricorn1) earned 500 total points
ID: 22688841
i am just using

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

and to delay i just use

sleep 500  ' or any other value
0
 
LVL 57
ID: 22688897
 
  Your not not going to get that fine of control outside of running in the OS kernel.  A thread shift alone can easily takes 15ms or more.  You'd have to be running in a process that was no swapable and with a high priority.

  I'm curious; what are you trying to do that takes such fine control?

JimD.
0
 

Author Comment

by:ClaudeWalker
ID: 22689059
Using the Alias and calling the other sub was the slowing down issue as far as I can tell. Because the problem is intermittent only time will tell.

Here is the code I am using sleep for.

I created a "screen saver" to prevent burnin on our IO board screen.  Runs every 30 minutes and it cycles from red to blue to green to yellow to blue to red again.  It takes about 30 seconds  Then displays whose gone and whose in the office.  



If timerCounter = TIMERLIMIT Then
        For v = 1 To 36
            For Each ctl In Me.Controls
                If ctl.ControlType = acLabel Then
                    numCtls = numCtls + 1
                    If v = 1 Then
                        ctl.Caption = ""
                        backCol = 10001000
                        ctl.BorderStyle = 0
                    End If
                    
                    If v = 36 Then
                        ctl.BorderStyle = 1
                    End If
                    
                    ctl.BackColor = backCol
                End If
                
                If v < 19 Then
                    backCol = backCol + 20
                Else
                    backCol = backCol - 20
                End If
                                
                Me.Repaint
                Sleep 3
            Next ctl
        Next v
        
        timerCounter = 0
    End If

Open in new window

0
 

Author Comment

by:ClaudeWalker
ID: 22689520
I moved it to a slower computer and sleep didn't work as well.  It seemed to round up after .5 for the number of milleseconds.  I .5 was close but I needed more like .7 and it went as slow as 1.

I made a ghetto solution.

For ghettoTimer = 1 to 150000

next ghettoTimer

It gave much more control and seemed to work well.

Thanks,
JOe K.
0

Featured Post

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question