运行简单的计时器

Question

我正在尝试在项目启动时运行简单的计时器：

type NJHomeViewModel(config : Config) as X  =  
    inherit ViewModelBase()

    do
        (X.Timer : Timer).Elapsed.Add(fun args -> X.OnTimedEvent(args))
        (X.Timer : Timer).Interval  <- 3000.0
        (X.Timer : Timer).Enabled   <- true
        (X.Timer : Timer).Start()

    member X.Timer = new Timer()

    member X.OnTimedEvent args = X.Change()

所以我希望每 3 秒运行一次 X.Change() 函数，它不会以这种方式工作，即使我将其添加到按钮也不会发生任何更改。

member X.Next =
    new RelayCommand((fun canExecute -> true),
        (fun action -> 
            (X.Timer : Timer).Elapsed.Add(fun args -> X.OnTimedEvent(args))
            (X.Timer : Timer).Interval  <- 3000.0
            (X.Timer : Timer).Enabled   <- true
            (X.Timer : Timer).Start() ))

通过“Tick”动作启动计时器的正确方法是什么？

Answer 1

优先考虑使用异步循环而不是使用计时器；参见例如

http://lorgonblog.wordpress。 com/2010/03/27/f-async-on-the-client-side/

其中有一个示例

async {
    while true do
        do! Async.Sleep 1000
        textBox.Text <- System.DateTime.Now.ToString()
} |> Async.StartImmediate

Answer 2

member X.Timer = new Timer() 这会创建一个带有 getter 的属性，并且每次创建新的 Timer 时都会访问此属性。

为了避免这种情况，您可以使用 let 绑定：

type NJHomeViewModel(config : Config) as X  =  
    inherit ViewModelBase()


    let timer = new Timer()
    do 
      timer.Elapsed.Add(fun args -> X.OnTimedEvent(args))
      timer.Interval  <- 3000.0
      timer.Enabled   <- true
      timer.Start()

    member X.Timer = timer

    member X.OnTimedEvent args = X.Change()

Answer 3

您正在使用基于服务器的 System.Timers.Timer ，它公开了已过去的事件。还有其他计时器可供您使用（例如系统。 Threading.Timer，您可以在其中提供回调方法或Windows.Forms.Timer，您可以在其中订阅 Tick 事件），因此您需要选择最适合您的应用程序和用例的一个。 MSDN 有一篇文章介绍了何时使用哪个 .NET 计时器此处

您正在使用的计时器，Elapsed 事件在某种状态下只会运行一次。所以这可能是你的问题。来自MSDN

如果 Enabled 设置为 true 并且 AutoReset 设置为 false，则计时器
仅引发一次 Elapsed 事件，即第一次间隔
过去了。

线程计时器看起来像

new Timer((fun _ -> YourMethod), null, 1000, 1000)

Windows.Forms.Timer 看起来像

formsTimer.Tick.Add( fun _ -> YourMethod())

在 WPF 中，您还有 DispatcherTimer 可供您使用（更多此处）。在 F# 中，这看起来像

let tmr = new DispatcherTimer(Interval = TimeSpan.FromSeconds(1.0))
tmr.Tick.Add( fun _ -> YourMethod())
tmr.Start()

另一个问题中对 Forms.Timer 和 DispatcherTimer 进行了简明比较< /a> 这可能会帮助您为您的应用程序选择合适的。