Barre de progression avec async en FsXaml application

Il y a un certain nombre de choses de mal avec votre code.

• Tout d'abord, dans progressBar(), longRunningOperation() vous avez fait appel au long de l'exécution de l'opération et ce qu'il en est exécuté ici. (Autant que je peux le deviner à partir de votre incomplète de l'échantillon, c'est juste un appel de fonction, pas une autre opération asynchrone).

• Vous passez ensuite les résultats operation et progress autour, mais ce sont juste des unit les valeurs qui ne sont pas réellement faire quelque chose.

• Par conséquent, l'opération asynchrone async { operation } que vous passez à onThreadPool ne rien faire du tout.

• Dans doBusyAsyncvous utilisez Async.StartImmediate pour exécuter l'opération dans un blocage de la voie (donc, ce serait de bloquer le thread, même si c'était de l'exécution de certains réelles de fonctionnement).

• En plus d'être de blocage, vous aussi n'avez pas besoin async { do! operation } parce que c'est l'équivalent d'un peu operation.

En résumé, votre code obtenu en quelque sorte trop complexe. Vous devez simplifier à quelque chose de très basique comme la première étape. Je n'ai pas le droit d'installation pour essayer cela, mais je pense que quelque chose comme ce qui suit devrait faire l'affaire:

let ButtonClick _ = 
  let longRunningOperation() = 
    // some long-running operation

  let asyncOperation() = async {
    // Start the progress bar here
    let context = System.Threading.SynchronizationContext.Current
    do! Async.SwitchToThreadPool()
    let result = longRunningOperation()
    do! Async.SwitchToContext context
    // Display the 'result' in your user interface
    // Stop the progress bar here
  }

  Async.Start(asyncOperation)

J'ai enlevé toutes les fonctions inutiles et passage de paramètres et simplifié autant que possible - il est juste de votre opération longue à exécuter, qui est appelée directement à partir de async une fois qu'il passe en pool de threads. Vous obtenez votre résultat, et, après être repassé au contexte d'origine, doit être en mesure d'afficher dans votre interface utilisateur. Idéalement, vous auriez du faire le longRunningOperation lui-même asynchrone (et de l'appeler à l'aide let!) mais la ci-dessus devrait fonctionner.

Pour résumer les choses, j'ai étendu Tomáš Petříček du code avec le code lié à la longue est en cours d'exécution basée sur Jim Foye commentaire (environ saut arrière sur le thread d'INTERFACE utilisateur). Le code fonctionne maintenant comme un charme. Mes remerciements à Tomáš Petříček de son genre et de la réponse détaillée.

    let low = string (this.TextBox2.Text)
    let high = string (this.TextBox3.Text)
    let path = string (this.TextBox4.Text)

    (* longRunningOperation() replaced by textBoxString4() and textBoxString3() 
       based on the comment by Jim Foye
    
    let longRunningOperation() = 
        async
            {
              match textBoxString4 low high >= 0 with
              | false -> this.TextBox1.Text <- textBoxString3 low high path 
              | true  -> this.TextBox1.Text <- "Chybný rozdíl krajních hodnot"        
            }
    *)

    let textBoxString4() = 
        async
            {
              let result = textBoxString4 low high
              return result
            }                  
                           
    let textBoxString3() =        
        async
            {
              //the actual long running operation (reading data 
              //from Google Sheets)
              let result = textBoxString3 low high path 
              return result
            }  

    let asyncOperation() = 
        async
            {
              let context = System.Threading.SynchronizationContext.Current
              this.ProgressBar2.IsIndeterminate <- true
              do! Async.SwitchToThreadPool()
              (*let! result = longRunningOperation() throws an exception 
              "The calling thread cannot access this object because
               a different thread owns it." 
              *)
              let! result4 = textBoxString4()  
              let! result3 = textBoxString3()  
              do! Async.SwitchToContext context
              match result4 >= 0 with
              | false -> this.TextBox1.Text <- result3
              | true  -> this.TextBox1.Text <- "Chybný rozdíl krajních hodnot" 
              this.ProgressBar2.IsIndeterminate <- false
            } 
    Async.StartImmediate(asyncOperation())//not working with Async.Start