From fb2fdbc7a98dce284c0d76512d23aa4be2d6b434 Mon Sep 17 00:00:00 2001
From: xieguigang <xie.guigang@gcmodeller.org>
Date: Sun, 11 Apr 2021 01:11:56 +0800
Subject: [PATCH] improvements of debug output

---
 Parallel/ThreadTask/ThreadTask.vb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Parallel/ThreadTask/ThreadTask.vb b/Parallel/ThreadTask/ThreadTask.vb
index e5b3af3..7369403 100644
--- a/Parallel/ThreadTask/ThreadTask.vb
+++ b/Parallel/ThreadTask/ThreadTask.vb
@@ -61,6 +61,8 @@ Namespace ThreadTask
         Dim threads As AsyncHandle(Of TOut)()
         Dim size As Integer
 
+        ReadOnly startTicks As Double = App.ElapsedMilliseconds
+
         ''' <summary>
         ''' create parallel task pool from a given collection of task handler
         ''' </summary>
@@ -133,8 +135,9 @@ Namespace ThreadTask
             Dim free$ = threads.Where(Function(t) t Is Nothing).Count
             Dim running$ = threads.Where(Function(t) t IsNot Nothing AndAlso Not t.IsCompleted).Count
             Dim delta As Integer = size - taskList.Count
+            Dim deltaTimespan As TimeSpan = TimeSpan.FromMilliseconds(App.ElapsedMilliseconds - startTicks)
 
-            Return $"[free: {free}, running: {running}, progress: {delta} - {CInt(delta / size * 100)}%]"
+            Return $"[free: {free}, running: {running}, progress: {delta} - {(delta / size * 100).ToString("F2")}%, {deltaTimespan.FormatTime}]"
         End Function
 
         ''' <summary>
@@ -161,7 +164,6 @@ Namespace ThreadTask
 
                 If i > -1 Then
                     threads(i) = New AsyncHandle(Of TOut)(taskList.Dequeue).Run
-                    Call Console.WriteLine($"{ToString()} submit new task on thread [{i + 1}]!")
                 End If
 
                 Dim j As Integer = GetCompleteThread()