gistfile1.txt

// Listing 11-1. Creating a RandomTicker that defines, publishes, and triggers an event
open System
open System.Timers

type RandomTicker(approxInterval) =
    let timer = new Timer()
    let rnd = new System.Random(99)
    let tickEvent = new Event<float> ()
    let chooseInterval() : float =
        approxInterval + approxInterval / 4.0 - float(rnd.Next((int)(approxInterval / 2.0)))
    do timer.Interval <- chooseInterval()
    do timer.Elapsed.Add(fun args ->
        let interval = chooseInterval()
        tickEvent.Trigger interval;
        timer.Interval <- interval)
    member x.RandomTick = tickEvent.Publish
    member x.Start() = timer.Start()
    member x.Stop() = timer.Stop()
    interface IDisposable with
        member x.Dispose() = timer.Dispose()

let rt = new RandomTicker(1000.0);;
rt.RandomTick.Add(fun nextInterval -> printfn "Tick, next = %A" nextInterval);;
rt.Start();;
rt.Stop();;