Display timer continuously through a long process

[lauren quantrell]

I am using a timer to display the time it takes a user to complete a
file transfer using the code below.
The code below will display the total elapsed time, but is there a way
to update the time continuously as the file is being downloaded?
Help is greatly appreciated,
lq

Public sngStart as Single
Public sngEnd as Single
Public sngElapsed as Single

Function CopyTheFrigginFile()

sngStart = Timer
Call FunctionThatStartsDownloadingTheBeast
sngEnd = Timer
sngElapsed = Format(sngEnd - sngStart,"Fixed")
Me.TimerDisplay = sngElapsed & " seconds"
End Function

[Alan Webb]

Lauren,
The syscmd object will let you put your own message in the Status bar. If
you use the Timer event of a form and set the Timer interval to ?1000? then
you can update the Status bar each second with the elapsed time.

"lauren quantrell" <la*************@hotmail.com> wrote in message
news:11**********************@z14g2000cwz.googlegr oups.com...

I am using a timer to display the time it takes a user to complete a
file transfer using the code below.
The code below will display the total elapsed time, but is there a way
to update the time continuously as the file is being downloaded?
Help is greatly appreciated,
lq

Public sngStart as Single
Public sngEnd as Single
Public sngElapsed as Single

Function CopyTheFrigginFile()

sngStart = Timer
Call FunctionThatStartsDownloadingTheBeast
sngEnd = Timer
sngElapsed = Format(sngEnd - sngStart,"Fixed")
Me.TimerDisplay = sngElapsed & " seconds"
End Function

[Tom van Stiphout]

On Fri, 25 Mar 2005 18:36:27 -0500, "Alan Webb" <kn*****@hotmail.com>
wrote:

But only if FunctionThatStartsDownloadingTheBeast yields the CPU.
-Tom.

Lauren,
The syscmd object will let you put your own message in the Status bar. If
you use the Timer event of a form and set the Timer interval to ?1000? then
you can update the Status bar each second with the elapsed time.

"lauren quantrell" <la*************@hotmail.com> wrote in message
news:11**********************@z14g2000cwz.googleg roups.com...

I am using a timer to display the time it takes a user to complete a
file transfer using the code below.
The code below will display the total elapsed time, but is there a way
to update the time continuously as the file is being downloaded?
Help is greatly appreciated,
lq

Public sngStart as Single
Public sngEnd as Single
Public sngElapsed as Single

Function CopyTheFrigginFile()

sngStart = Timer
Call FunctionThatStartsDownloadingTheBeast
sngEnd = Timer
sngElapsed = Format(sngEnd - sngStart,"Fixed")
Me.TimerDisplay = sngElapsed & " seconds"
End Function

[John Mishefske]

Tom van Stiphout wrote:

On Fri, 25 Mar 2005 18:36:27 -0500, "Alan Webb" <kn*****@hotmail.com>
wrote:

But only if FunctionThatStartsDownloadingTheBeast yields the CPU.
-Tom.

I suspect even with judicious use of the DoEvents command that you won't
get a "very smooth" time display.

--
'---------------
'John Mishefske
'---------------

[Tom van Stiphout]

On Fri, 25 Mar 2005 21:30:08 -0600, John Mishefske
<mi************@JUNKtds.net> wrote:

Agreed. WM_TIMER events are lowest priority. Everything else is done
first; then the timer is updated (= the form_timer event fires).
I remember that I used to find this very strange when I first started
programming for Windows, but once I saw the multi-media timer that
*can* tick in a more reliable fashion, and what is needed to make that
happen, it made a lot of sense. "Stop everything; I need to update the
clock" doesn't make much sense in most applications.

-Tom.

Tom van Stiphout wrote:

On Fri, 25 Mar 2005 18:36:27 -0500, "Alan Webb" <kn*****@hotmail.com>
wrote:

But only if FunctionThatStartsDownloadingTheBeast yields the CPU.
-Tom.

I suspect even with judicious use of the DoEvents command that you won't
get a "very smooth" time display.

[Alan Webb]

Guys,
Uhm, even on my P166 Hitachi Visionbook I was able to write things that
yielded the CPU and updated the status bar. The particular task was a 20
minute run to iterate through a four column, million plus row table stored
on my desktop machine and do a data conversion. With processors running
faster than 3Ghz and 1GB of RAM not such an unusual thing these days I'd
expect to see a monster task freezing the CPU. Plus, Windows XP seems much
better about multitasking than Windows 98. Anyway, syscmd should work.

"Tom van Stiphout" <no*************@cox.net> wrote in message
news:v6********************************@4ax.com...

On Fri, 25 Mar 2005 18:36:27 -0500, "Alan Webb" <kn*****@hotmail.com>
wrote:

But only if FunctionThatStartsDownloadingTheBeast yields the CPU.
-Tom.

Lauren,
The syscmd object will let you put your own message in the Status bar. If
you use the Timer event of a form and set the Timer interval to ?1000?
then
you can update the Status bar each second with the elapsed time.

"lauren quantrell" <la*************@hotmail.com> wrote in message
news:11**********************@z14g2000cwz.google groups.com...

I am using a timer to display the time it takes a user to complete a
file transfer using the code below.
The code below will display the total elapsed time, but is there a way
to update the time continuously as the file is being downloaded?
Help is greatly appreciated,
lq

Public sngStart as Single
Public sngEnd as Single
Public sngElapsed as Single

Function CopyTheFrigginFile()

sngStart = Timer
Call FunctionThatStartsDownloadingTheBeast
sngEnd = Timer
sngElapsed = Format(sngEnd - sngStart,"Fixed")
Me.TimerDisplay = sngElapsed & " seconds"
End Function

[lauren quantrell]

Alan,
Thanks for the reply. I have to do this without using the Status bar
because I don't show it in this application (nor the Access window.)
And putting code in the form's OnTimer doesn't work because the CPU
doesn't yield during the FileCopy.
lq
Alan Webb wrote:

Lauren,
The syscmd object will let you put your own message in the Status bar. If you use the Timer event of a form and set the Timer interval to ?1000? then you can update the Status bar each second with the elapsed time.

"lauren quantrell" <la*************@hotmail.com> wrote in message
news:11**********************@z14g2000cwz.googlegr oups.com...

I am using a timer to display the time it takes a user to complete a
file transfer using the code below.
The code below will display the total elapsed time, but is there a way to update the time continuously as the file is being downloaded?
Help is greatly appreciated,
lq

Public sngStart as Single
Public sngEnd as Single
Public sngElapsed as Single

Function CopyTheFrigginFile()

sngStart = Timer
Call FunctionThatStartsDownloadingTheBeast
sngEnd = Timer
sngElapsed = Format(sngEnd - sngStart,"Fixed")
Me.TimerDisplay = sngElapsed & " seconds"
End Function