subroutine with timer requirement

[mark]

I have a sub which needs to do some things then wait a specified length of
time before going on. I tried adding a timer with counter in its tick event
then checking the state of the counter in the subprocedure. But this doesn't
work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[Ken Tucker [MVP]]

Hi,

Try something like this.

timer1.enabled = true
more stuff
end sub

timer1 tick event handler
progress = progress +.01
textbox1.text=p rogress.tostrin g
timer1.enabled = progress<1
end
Ken
------------------------
"mark" <ma**@discussio ns.microsoft.co m> wrote in message
news:0C******** *************** ***********@mic rosoft.com...
I have a sub which needs to do some things then wait a specified length of
time before going on. I tried adding a timer with counter in its tick event
then checking the state of the counter in the subprocedure. But this doesn't
work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[Dennis]

Can you not just use a While loop with the DateTime.Now to wait a certain
number of seconds?

"mark" wrote:

I have a sub which needs to do some things then wait a specified length of
time before going on. I tried adding a timer with counter in its tick event
then checking the state of the counter in the subprocedure. But this doesn't
work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[Fabricio]

Try this Mark...

Sub mysub
stuff
'Wait one second
System.Threadin g.Thread.Sleep( 1000)
more stuff
end sub
"mark" wrote:
I have a sub which needs to do some things then wait a specified length of
time before going on. I tried adding a timer with counter in its tick event
then checking the state of the counter in the subprocedure. But this doesn't
work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[John Armenia]

I've done this several times. The best way to do it is use
System.Threadin g.Thread.Curren tThread.Sleep(< Number of miliseconds to
sleep>)

for example System.Threadin g.Thread.Curren tThread.Sleep(2 000) will sleep for
two seconds.

This works for both single process apps as well as multi-threaded apps.

John
"mark" <ma**@discussio ns.microsoft.co m> wrote in message
news:0C******** *************** ***********@mic rosoft.com...

I have a sub which needs to do some things then wait a specified length of
time before going on. I tried adding a timer with counter in its tick event then checking the state of the counter in the subprocedure. But this doesn't work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[John Armenia]

<<Can you not just use a While loop with the DateTime.Now to wait a certain
number of seconds? >>

This would just kill CPU performance. Best way is using
system.threadin g.thread.sleep( )

John

"Dennis" <De****@discuss ions.microsoft. com> wrote in message
news:31******** *************** ***********@mic rosoft.com...

Can you not just use a While loop with the DateTime.Now to wait a certain
number of seconds?

"mark" wrote:

I have a sub which needs to do some things then wait a specified length of time before going on. I tried adding a timer with counter in its tick event then checking the state of the counter in the subprocedure. But this doesn't work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[mark]

Ken:

It still hangs up in the while loop. When I break the debugger progress=0.0?
"Ken Tucker [MVP]" wrote:

Hi,

Try something like this.

timer1.enabled = true
more stuff
end sub

timer1 tick event handler
progress = progress +.01
textbox1.text=p rogress.tostrin g
timer1.enabled = progress<1
end
Ken
------------------------
"mark" <ma**@discussio ns.microsoft.co m> wrote in message
news:0C******** *************** ***********@mic rosoft.com...
I have a sub which needs to do some things then wait a specified length of
time before going on. I tried adding a timer with counter in its tick event
then checking the state of the counter in the subprocedure. But this doesn't
work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[Ken Tucker [MVP]]

Hi,

Get rid of the while loop let the timer tick event handle it.

Ken
---------
"mark" <ma**@discussio ns.microsoft.co m> wrote in message
news:45******** *************** ***********@mic rosoft.com...

Ken:

It still hangs up in the while loop. When I break the debugger progress=0.0?
"Ken Tucker [MVP]" wrote:

Hi,

Try something like this.

timer1.enabled = true
more stuff
end sub

timer1 tick event handler
progress = progress +.01
textbox1.text=p rogress.tostrin g
timer1.enabled = progress<1
end
Ken
------------------------
"mark" <ma**@discussio ns.microsoft.co m> wrote in message
news:0C******** *************** ***********@mic rosoft.com...
I have a sub which needs to do some things then wait a specified length of
time before going on. I tried adding a timer with counter in its tick
event
then checking the state of the counter in the subprocedure. But this
doesn't
work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[Dennis]

You are correct and i'm sure the thread.sleep is the best way to go. I'm
used to VB3 programming and didn't have the thread class. I used the Now
function a lot in a restaurant cash register program that we used in our
restaurant and along with DoEvents, the CPU was able to keep up with
continuous ringing up of tickets and storing them in a database...fast er than
the waitress could enter the tickets from two cash registers. Still learning
VB.Net though.

"John Armenia" wrote:

<<Can you not just use a While loop with the DateTime.Now to wait a certain
number of seconds? >>

This would just kill CPU performance. Best way is using
system.threadin g.thread.sleep( )

John

"Dennis" <De****@discuss ions.microsoft. com> wrote in message
news:31******** *************** ***********@mic rosoft.com...

Can you not just use a While loop with the DateTime.Now to wait a certain
number of seconds?

"mark" wrote:

I have a sub which needs to do some things then wait a specified length of time before going on. I tried adding a timer with counter in its tick event then checking the state of the counter in the subprocedure. But this doesn't work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark

[mark]

Ken,
That fixes the program hang-up. But the delay does not occur.

"Ken Tucker [MVP]" wrote:

Hi,

Get rid of the while loop let the timer tick event handle it.

Ken
---------
"mark" <ma**@discussio ns.microsoft.co m> wrote in message
news:45******** *************** ***********@mic rosoft.com...

Ken:

It still hangs up in the while loop. When I break the debugger progress=0.0?
"Ken Tucker [MVP]" wrote:

Hi,

Try something like this.

timer1.enabled = true
more stuff
end sub

timer1 tick event handler
progress = progress +.01
textbox1.text=p rogress.tostrin g
timer1.enabled = progress<1
end
Ken
------------------------
"mark" <ma**@discussio ns.microsoft.co m> wrote in message
news:0C******** *************** ***********@mic rosoft.com...
I have a sub which needs to do some things then wait a specified length of
time before going on. I tried adding a timer with counter in its tick
event
then checking the state of the counter in the subprocedure. But this
doesn't
work:

dim progress as single

Sub mysub
stuff

timer1.enabled = true
while progress <1
textbox1.text=p rogress
end while

more stuff
end sub

timer1 tick event handler
progress = progress +.01
end

The textbox shows me that nothing is happening. The program hangs up.

What's the right way to do this? Should this be a threading application?


--
mark