Back to Questions
2.7k
views1
comment
Background worker problem
f#book

I have found a simple recursive program in book "Expert F#" and copied under "Microsoft Visual Studio 2010 Ultimate V.10.0" to try out but didn't work correctly. The program is following.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

open System.IO
open System.ComponentModel
open System.Windows.Forms

let file = new StreamWriter("fibonacci.log", false)

file.WriteLine("Create the worker")
file.Flush()
let worker = new BackgroundWorker()
let numIterations = 1000

worker.DoWork.Add(fun args ->
    let rec computeFibonacci resPrevPrev resPrev i =
        // compute the next result
        let res = resPrevPrev + resPrev

        // At the end of the computation write the result into the mutable state
        if i = numIterations then
            file.WriteLine("end of computation")
            file.Flush()
            args.Result <- box res
        else
            // Compute the next result
            file.WriteLine(sprintf "PrevPrev:%i, Prev:%i, Next i:%i" resPrev res (i+1))
            file.Flush()
            computeFibonacci resPrev res (i+1)

    file.WriteLine(sprintf "PrevPrev:1, Prev:1, Next i:2")
    file.Flush()
    computeFibonacci 1 1 2)

worker.RunWorkerCompleted.Add(fun args ->
    file.WriteLine(sprintf "Result = %A" args.Result)
    file.Flush() |> ignore)

// Execute the worker
file.WriteLine("Execute the worker")
file.Flush()
worker.RunWorkerAsync()

In "fibonacci.log" I found only the next lines.

Create the worker
Execute the worker

Can somebody tell me what is the problem with this sample?

Thanks Janos

.

I haven't tried it, but I bet RunWorkerAsync only starts the BW, it does not wait for it to finish. So the program ends before it finishes. You could await OnRunWorkerCompleted or spin checking IsBusy.

[link:msdn.microsoft.com]

By on 1/12/2011 12:18 AM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper