From b2de5ccf387463e9b47dbfe41b92168ad4d5e63c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E3=81=93=E3=81=AE=E4=B8=AD=E4=BA=8C=E7=97=85=E3=81=AB?=
 =?UTF-8?q?=E7=88=86=E7=84=94=E3=82=92=EF=BC=81?=
 <xie.guigang@gcmodeller.org>
Date: Sat, 10 Apr 2021 14:13:03 +0800
Subject: [PATCH] fix of multiple threading 100% cpu usage bug

---
 Parallel/ThreadTask/ThreadTask.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Parallel/ThreadTask/ThreadTask.vb b/Parallel/ThreadTask/ThreadTask.vb
index 2b954d8..e3a87e2 100644
--- a/Parallel/ThreadTask/ThreadTask.vb
+++ b/Parallel/ThreadTask/ThreadTask.vb
@@ -42,6 +42,7 @@
 
 #End Region
 
+Imports System.Threading
 Imports Microsoft.VisualBasic.Parallel.Tasks
 
 Namespace ThreadTask
@@ -170,6 +171,8 @@ Namespace ThreadTask
                     Call Console.WriteLine($"{ToString()} [thread_{j + 1}] job done ({threads(j).GetTaskExecTimeSpan.FormatTime})!")
                     threads(j) = Nothing
                 End If
+
+                Call Thread.Sleep(1)
             Loop
 
             Do While Not threads.All(Function(t) t Is Nothing)
@@ -180,6 +183,8 @@ Namespace ThreadTask
                     Call Console.WriteLine($"{ToString()} [thread_{j + 1}] job done ({threads(j).GetTaskExecTimeSpan.FormatTime})!")
                     threads(j) = Nothing
                 End If
+
+                Call Thread.Sleep(1)
             Loop
         End Function
     End Class