From aa65d2143cc81112e674338f634ae6f696acec32 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?= Date: Fri, 15 Jan 2021 12:58:59 +0800 Subject: [PATCH] Update ThreadTask.vb --- Parallel/ThreadTask/ThreadTask.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Parallel/ThreadTask/ThreadTask.vb b/Parallel/ThreadTask/ThreadTask.vb index 304a787..111687b 100644 --- a/Parallel/ThreadTask/ThreadTask.vb +++ b/Parallel/ThreadTask/ThreadTask.vb @@ -40,8 +40,9 @@ Public Class ThreadTask(Of TOut) 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 finished$ = threads.Where(Function(t) t IsNot Nothing AndAlso t.IsCompleted).Count + Dim delta As Integer = size - taskList.Count - Return $"[free: {free}, running: {running}, finished: {finished}, progress: {CInt((size - taskList.Count) / size * 100)}%]" + Return $"[free: {free}, running: {running}, finished: {finished}, progress: {delta} - {CInt(delta / size * 100)}%]" End Function Public Iterator Function RunParallel() As IEnumerable(Of TOut)