.NET 错误 - Threading.Timer 影响 Parallel.For 性能

Question

我有一个使用顺序 Parallel.For 语句的 VB.NET WinForms 应用程序。

添加 Threading.Timer 后，Parallel.For 循环慢到爬行，内核时间量跃升至近 80%。

这两者在我的代码中不相关（即两者都不由另一个运行），也不共享任何代码或数据。

删除计时器可以解决问题。

有没有其他人经历过这种行为？解决此行为的最佳方法是什么（宁愿不创建 WinForms 计时器，但如果必须的话）？

这是定时器执行的代码：

Public Sub Tick()
  IO.File.WriteAllText("c:\test.txt", DateTime.Now.ToString())
End Sub

这是定时器创建语句：

tmrFile = New Threading.Timer(AddressOf Tick, Nothing, New TimeSpan(0, 0, 0), New TimeSpan(0, 1, 0))

Answer 1

您的计时器是否经常发出信号？如果是这样，您可能会对从计时器触发的线程数感到不知所措。可以运行的线程数量是有限的，如果 Timer 因过于频繁地发出信号而花费了太多时间，那么您的其余代码将会受到影响。

你能分析你的计时器在做什么并分享这些信息吗？它多久发出一次信号，它正在执行的任何特别粗略的代码，它是否也在执行并行任务等等。

Answer 2

尝试将其从线程池中取出！我整理了一个简单的计时器类供您试用（请注意，不是生产代码）。此类在单独的线程中运行。

班级：

  public class ThreadedTimer : IDisposable
  {
     private readonly AutoResetEvent _isStopping = new AutoResetEvent(false);
     public ThreadedTimer(Action f, int interval)
     {
        Thread t = new Thread(() =>
        {
           while (!_isStopping.WaitOne(interval))
           {
              f();
           }
        });
        t.IsBackground = true;
        t.Start();
     }

     public void Dispose()
     {
        _isStopping.Set();
     }
  }

启动计时器：

var timer = new ThreadedTimer(() => Debug.WriteLine("Test"), 1000);

更新： 下面的VB中完全未经测试的代码

Imports System.Threading
Public Class ThreadedTimer
    Implements IDisposable
    Private ReadOnly _isStopping As New AutoResetEvent(False)

    Public Sub New(ByVal f As Action, ByVal interval As Integer)
        Dim t As New Thread(Sub()
                                While Not _isStopping.WaitOne(interval)
                                    f()
                                End While
                            End Sub)
        t.IsBackground = True
        t.Start()
    End Sub

    Public Overloads Sub Dispose() Implements IDisposable.Dispose
        _isStopping.[Set]()
    End Sub
End Class