?
Solved

Pause execution of code like msgbox

Posted on 2008-06-20
7
Medium Priority
?
345 Views
Last Modified: 2013-11-06
Hi
I would like to pause execution of a script while waiting for another thread to complete. I can't use threading.thread.sleep(xxx) because it sows the script down. What I'm looking for is something that pauses the script the same way a messagebox does:


While Encoder.RunState <> WMENC_ENCODER_STATE.WMENC_ENCODER_STOPPED
            Me.ToolStripStatusLabel1.Text = "...Waiting for response"
            MsgBox("test")
  End While

Open in new window

0
Comment
Question by:koldstar
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 55

Expert Comment

by:Jaime Olivares
ID: 21834135
you have to test for the other thread's .IsAlive property
0
 

Author Comment

by:koldstar
ID: 21834169
can you explain how to?

I'm not making the tread my self, but it's Microsofts wmencoder that is creating a new thread every time you call the start function.

The above code is in my main thread.
0
 
LVL 55

Expert Comment

by:Jaime Olivares
ID: 21834207
Well, that depends if you have a way to obtain this thread's reference, some code snippet will be helpful
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:koldstar
ID: 21834278
Try something like this:

The sub, encodeAll loops throug a collection of songs. If I don't pause the encoding it starts a new thread for every song witch causes an out of memory exception
Dim WithEvents Encoder As WMEncoder
 
private sub EncodeSong(byval songname as string)
 
 	Encoder = New WMEncoder
 
	'do some stuff with the encoder
	'code removed
	'code removed
 
	Encoder.AutoStop = True
	Encoder.RemoteAdmin = True
     
	Encoder.PrepareToEncode(True)
 
	'start encoding (start a new thread)          
	Encoder.Start()
           
	'pause until process is done
	While Encoder.RunState <> WMENC_ENCODER_STATE.WMENC_ENCODER_STOPPED
      		Me.ToolStripStatusLabel1.Text = "...Venter på svar!"
      		MsgBox("test")
	End While
end sub
 
private sub encodeAll()
 
	for each song in song
		EncodeSong(song.path)
	next
 
 
end sub

Open in new window

0
 

Author Comment

by:koldstar
ID: 21834287

private sub encodeAll() 
	for each song in songs
		EncodeSong(song.path)
	next
 end sub

Open in new window

0
 
LVL 55

Accepted Solution

by:
Jaime Olivares earned 500 total points
ID: 21834454
I don't know exactly what you need, do you want to show a messagebox while playing? and hide it after play? You can do something like this:

' Assuming you desing a WaitForm with a message
Dim form as WaitForm = new WaitForm
form.Show()
Me.ToolStripStatusLabel1.Text = "...Venter på svar!"
While Encoder.RunState <> WMENC_ENCODER_STATE.WMENC_ENCODER_STOPPED
                  Application.DoEvents()  'avoid the application to freeze
End While
form.Hide()
0
 

Author Comment

by:koldstar
ID: 21834609
No I was trying to get rid of the messagebox. I just wanted something to stop the code, but the Application.DoEvents()  seems to do just fine. thanks :_)
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

How to install Selenium IDE and loops for quick automated testing. Get Selenium IDE from http://seleniumhq.org Go to that link and select download selenium in the right hand column That will then direct you to their download page. From that p…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
This tutorial covers a step-by-step guide to install VisualVM launcher in eclipse.
The viewer will learn how to use and create new code templates in NetBeans IDE 8.0 for Windows.
Suggested Courses
Course of the Month9 days, 11 hours left to enroll

762 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