प्रगति पट्टी के साथ async में FsXaml आवेदन

वहाँ रहे हैं चीजों की एक संख्या के साथ गलत अपने कोड.

• पहली, में progressBar(), longRunningOperation() आप वास्तव में फोन के लंबे समय से चल रहे ऑपरेशन और इसलिए यह सब हो जाता है चलाने के लिए यहाँ है । (के रूप में दूर के रूप में मैं कर सकते हैं लगता है अपने अधूरा नमूना है, यह सिर्फ एक समारोह कॉल, नहीं एक और अतुल्यकालिक आपरेशन) ।

• आप तो पास के परिणाम operation और progress के आसपास है, लेकिन उन सिर्फ unit मान नहीं है कि वास्तव में कुछ भी नहीं है ।

• नतीजतन, अतुल्यकालिक आपरेशन async { operation } है कि आप पारित करने के लिए onThreadPool कुछ भी नहीं है सब पर.

• में doBusyAsync, आप का उपयोग Async.StartImmediate आपरेशन चलाने के लिए एक रास्ता अवरुद्ध (तो इस ब्लॉक के लिए होगा धागा, यहां तक कि अगर यह चल रहा था, कुछ वास्तविक ऑपरेशन).

• एक तरफ किया जा रहा से अवरुद्ध है, तुम भी की जरूरत नहीं है async { do! operation } क्योंकि यह करने के लिए बराबर है बस operation.

सारांश में, अपने कोड के किसी भी तरह मिल गया जिस तरह से बहुत जटिल है. आप सरल होना चाहिए यह करने के लिए कुछ बहुत ही बुनियादी है के रूप में पहला कदम है । मैं नहीं है सही सेटअप करने के लिए यह कोशिश है, लेकिन मुझे लगता है कि निम्नलिखित की तरह कुछ चाल करना चाहिए:

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)

मैं सभी को हटा बेकार कार्यों और पैरामीटर गुजर रहा है और सरलीकृत के रूप में ज्यादा के रूप में संभव है - यह सिर्फ अपने लंबे समय से चल रहे ऑपरेशन कहा जाता है, जो सीधे से async एक बार जब यह स्विच करने के लिए धागा पूल. आप अपने परिणाम पाने के लिए और स्विच करने के बाद, वापस मूल करने के लिए संदर्भ के लिए सक्षम होना चाहिए कि प्रदर्शन में अपने उपयोगकर्ता इंटरफ़ेस. आदर्श रूप में, आप बनाना चाहते हैं longRunningOperation खुद अतुल्यकालिक (और यह फोन का उपयोग let!) लेकिन ऊपर काम करना चाहिए ।

योग करने के लिए चीजों को, मैं बढ़ाया है Tomáš Petříček के कोड के साथ कोड से संबंधित के लिए लंबे समय से चल रहे ऑपरेशन पर आधारित जिम Foye की टिप्पणी के बारे में (hopping वापस यूआई धागे पर). अब कोड की तरह काम करता है एक आकर्षण है । मेरा धन्यवाद करने के लिए Tomáš Petříček के लिए उसकी तरह और विस्तृत जवाब.

    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