F# 타이머 예제

#1. 매 1초마다 한번씩 함수를 실행하는 예제 (auto reset mode)

open System

let OnTrigger() = 
    Console.WriteLine("timer")


[<EntryPoint>]
let main argv = 
    let event = new System.Threading.AutoResetEvent(true)
    let timer = new System.Timers.Timer(1000.0)
    timer.Elapsed.Add(fun _ -> OnTrigger())
    timer.Start()

    while(true) do
        let v = Console.ReadLine()
        ignore

    printfn "%A" argv
    0 // 정수 종료 코드 반환

#2. 매 1초마다 한번씩 함수를 실행하는 예제 (manual reset mode)

open System


let OnTrigger(event : Threading.AutoResetEvent) = 
    Console.WriteLine("timer")
    event.Set() |> ignore


[<EntryPoint>]
let main argv = 
    let event = new System.Threading.AutoResetEvent(false)
    let timer = new System.Timers.Timer(1000.0)
    timer.Elapsed.Add( fun _ -> OnTrigger(event) )
    timer.Start()

    while(true) do
        let v = Console.ReadLine()
        Console.WriteLine(v)

    printfn "%A" argv
    0 // 정수 종료 코드 반환