CPU problem

[Celeris]

My applications supposed to create many threads and after several minutes, the CPU management is 100% busy. What's the problem?? May be that the threads are open?? can i dispose then??

This is the code that generates the CPU problem.

Private Sub tiHour_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiHour.Tick

Dim CurThreadStart As ThreadStart

Dim ThreadCount As Integer

Dim i As Integer

If Not Listener.Pending() Then

Exit Sub

End If

tiHour.Enabled = False



CurThreadStart = New ThreadStart(AddressOf ProcessRequest)

CurThread = New Thread(CurThreadStart)

CurThread.Start()
tiHour.Enabled = true
End Sub

In ProcessRequest

CurThread = System.Threading.Thread.CurrentThread()

Application.DoEvents()

SyncLock CurThread

Try

Call sProcess(ActiveThreads)

Catch ex As Exception

Finally

End Try

End SyncLock

 

[kulrom]

tiHour.Enabled = [size=2][color=#0000ff]False[/color][/size]
[color=#0000ff]tiHour.Dispose()

[/color]


Cheers

 

[Celeris]

Thanks but it is not the solution because my timer generates the threads when a comunication arrives by tcp/ip, and into the thread i generate a socket to work with the message´s value.

Private Listener As TcpListener
Public CurThread As Thread

Private Sub tiHour_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiHour.Tick

Dim CurThreadStart As ThreadStart

Dim ThreadCount As Integer

Dim i As Integer

If Not Listener.Pending() Then

Exit Sub

End If

tiHour.Enabled = False

CurThreadStart = New ThreadStart(AddressOf ProcessRequest)

CurThread = New Thread(CurThreadStart)

CurThread.Start()

tiHour.Enabled = True

End Sub

Any ideas??

Thanks a lot

 

[kulrom]

In that case the timer is not a causer of the issue but rather something about multithreading. Well, recently we had a thread about certain problem ... ah here is .. take a look ... http://www.vbdotnetforums.com/showthread.php?t=4105


Cheers