Bagikan melalui


Pemrograman asinkron TPL dan .NET tradisional

.NET menyediakan dua pola standar berikut untuk melakukan operasi asinkron terikat I/O dan terikat komputasi:

Pustaka Paralel Tugas (TPL) dapat digunakan dengan berbagai cara bersama dengan salah satu pola asinkron. Anda dapat mengekspos operasi APM dan EAP sebagai Task objek kepada konsumen pustaka, atau Anda dapat mengekspos pola APM tetapi menggunakan Task objek untuk mengimplementasikannya secara internal. Dalam kedua skenario, dengan menggunakan Task objek, Anda dapat menyederhanakan kode dan memanfaatkan fungsionalitas berguna berikut:

  • Daftarkan panggilan balik, dalam bentuk kelanjutan tugas, kapan saja setelah tugas dimulai.

  • Koordinasikan beberapa operasi yang dijalankan sebagai respons terhadap Begin_ metode dengan menggunakan metode ContinueWhenAll dan ContinueWhenAny metode, atau WaitAll dan WaitAny metode.

  • Mengenkpasulasi operasi I/O terikat asinkron dan terikat komputasi dalam objek yang sama Task.

  • Pantau status Task objek.

  • Pertahankan status operasi ke Task objek dengan menggunakan TaskCompletionSource<TResult>.

Membungkus operasi APM dalam Tugas

Kedua kelas System.Threading.Tasks.TaskFactory dan System.Threading.Tasks.TaskFactory<TResult> menyediakan beberapa kelebihan beban metode TaskFactory.FromAsync dan TaskFactory<TResult>.FromAsync yang memungkinkan Anda mengenkapsulasi pasangan metode awal/akhir APM dalam satu Task atau Task<TResult> instans. Berbagai kelebihan mengakomodasi setiap pasangan metode awal/akhir yang memiliki parameter input dari nol hingga tiga.

Untuk pasangan yang memiliki End metode yang mengembalikan nilai (Functiondalam Visual Basic), gunakan metode dalam TaskFactory<TResult> membuat Task<TResult>. Untuk End metode yang mengembalikan void (Subdalam Visual Basic), gunakan metode di TaskFactory yang membuat Task.

Untuk beberapa kasus di mana Begin metode memiliki lebih dari tiga parameter atau berisi parameter ref atau out, FromAsync kelebihan beban tambahan yang hanya mengenkapsulasi End metode yang disediakan.

Contoh berikut menunjukkan tanda tangan untuk FromAsync kelebihan beban yang cocok dengan metode FileStream.BeginRead dan FileStream.EndRead.

public Task<TResult> FromAsync<TArg1, TArg2, TArg3>(
    Func<TArg1, TArg2, TArg3, AsyncCallback, object, IAsyncResult> beginMethod, //BeginRead
     Func<IAsyncResult, TResult> endMethod, //EndRead
     TArg1 arg1, // the byte[] buffer
     TArg2 arg2, // the offset in arg1 at which to start writing data
     TArg3 arg3, // the maximum number of bytes to read
     object state // optional state information
    )
Public Function FromAsync(Of TArg1, TArg2, TArg3)(
                ByVal beginMethod As Func(Of TArg1, TArg2, TArg3, AsyncCallback, Object, IAsyncResult),
                ByVal endMethod As Func(Of IAsyncResult, TResult),
                ByVal dataBuffer As TArg1,
                ByVal byteOffsetToStartAt As TArg2,
                ByVal maxBytesToRead As TArg3,
                ByVal stateInfo As Object)

Kelebihan beban ini membutuhkan tiga parameter input, sebagai berikut. Parameter pertama adalah Func<T1,T2,T3,T4,T5,TResult> delegasi yang cocok dengan tanda tangan FileStream.BeginRead metode. Parameter kedua adalah Func<T,TResult> delegasi yang mengambil IAsyncResult dan mengembalikan TResult. Karena EndRead mengembalikan bilangan bulat, pengkompilasi menyimpulkan jenis TResult sebagai Int32 dan jenis tugas sebagai Task. Empat parameter terakhir identik dengan parameter dalam FileStream.BeginRead metode :

  • Buffer untuk menyimpan data file.

  • Offset dalam buffer untuk mulai menulis data.

  • Jumlah maksimum data yang akan dibaca dari file.

  • Objek opsional yang menyimpan data status yang ditentukan pengguna untuk diteruskan ke panggilan balik.

Gunakan ContinueWith untuk fungsi panggilan balik

Jika Anda memerlukan akses ke data dalam file, bukan hanya jumlah byte, FromAsync metode ini tidak cukup. Sebagai gantinya, gunakan Task, yang Result propertinya berisi data file. Anda dapat melakukan ini dengan menambahkan kelanjutan ke tugas asli. Kelanjutan melakukan pekerjaan yang biasanya akan dilakukan oleh AsyncCallback delegasi. Ini dipanggil ketika antecedent selesai, dan buffer data telah diisi. (Objek FileStream harus ditutup sebelum kembali.)

Contoh berikut menunjukkan cara mengembalikan yang Task mengenkapsulasi BeginRead/EndReadpasangan FileStream kelas.

const int MAX_FILE_SIZE = 14000000;
public static Task<string> GetFileStringAsync(string path)
{
    FileInfo fi = new FileInfo(path);
    byte[] data = null;
    data = new byte[fi.Length];

    FileStream fs = new FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, data.Length, true);

    //Task<int> returns the number of bytes read
    Task<int> task = Task<int>.Factory.FromAsync(
            fs.BeginRead, fs.EndRead, data, 0, data.Length, null);

    // It is possible to do other work here while waiting
    // for the antecedent task to complete.
    // ...

    // Add the continuation, which returns a Task<string>.
    return task.ContinueWith((antecedent) =>
    {
        fs.Close();

        // Result = "number of bytes read" (if we need it.)
        if (antecedent.Result < 100)
        {
            return "Data is too small to bother with.";
        }
        else
        {
            // If we did not receive the entire file, the end of the
            // data buffer will contain garbage.
            if (antecedent.Result < data.Length)
                Array.Resize(ref data, antecedent.Result);

            // Will be returned in the Result property of the Task<string>
            // at some future point after the asynchronous file I/O operation completes.
            return new UTF8Encoding().GetString(data);
        }
    });
}
Const MAX_FILE_SIZE As Integer = 14000000
Shared Function GetFileStringAsync(ByVal path As String) As Task(Of String)
    Dim fi As New FileInfo(path)
    Dim data(fi.Length - 1) As Byte

    Dim fs As FileStream = New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, data.Length, True)

    ' Task(Of Integer) returns the number of bytes read
    Dim myTask As Task(Of Integer) = Task(Of Integer).Factory.FromAsync(
        AddressOf fs.BeginRead, AddressOf fs.EndRead, data, 0, data.Length, Nothing)

    ' It is possible to do other work here while waiting
    ' for the antecedent task to complete.
    ' ...

    ' Add the continuation, which returns a Task<string>. 
    Return myTask.ContinueWith(Function(antecedent)
                                   fs.Close()
                                   If (antecedent.Result < 100) Then
                                       Return "Data is too small to bother with."
                                   End If
                                   ' If we did not receive the entire file, the end of the
                                   ' data buffer will contain garbage.
                                   If (antecedent.Result < data.Length) Then
                                       Array.Resize(data, antecedent.Result)
                                   End If

                                   ' Will be returned in the Result property of the Task<string>
                                   ' at some future point after the asynchronous file I/O operation completes.
                                   Return New UTF8Encoding().GetString(data)
                               End Function)

End Function

Metode ini kemudian dapat dipanggil, sebagai berikut.


Task<string> t = GetFileStringAsync(path);

// Do some other work:
// ...

try
{
     Console.WriteLine(t.Result.Substring(0, 500));
}
catch (AggregateException ae)
{
    Console.WriteLine(ae.InnerException.Message);
}
Dim myTask As Task(Of String) = GetFileStringAsync(path)

' Do some other work
' ...

Try
    Console.WriteLine(myTask.Result.Substring(0, 500))
Catch ex As AggregateException
    Console.WriteLine(ex.InnerException.Message)
End Try

Menyediakan data status kustom

Dalam operasi umum IAsyncResult, jika delegasi Anda AsyncCallback memerlukan beberapa data status kustom, Anda harus meneruskannya melalui parameter terakhir dalam Begin metode, sehingga data dapat dipaketkan ke dalam IAsyncResult objek yang akhirnya diteruskan ke metode panggilan balik. Ini biasanya tidak diperlukan ketika FromAsync metode digunakan. Jika data kustom diketahui kelanjutannya, maka data tersebut dapat ditangkap langsung di delegasi kelanjutan. Contoh berikut menyerupai contoh sebelumnya, tetapi alih-alih memeriksa Result properti antecedent, kelanjutan memeriksa data status kustom yang dapat diakses langsung oleh delegasi pengguna dari kelanjutan.

public Task<string> GetFileStringAsync2(string path)
{
    FileInfo fi = new FileInfo(path);
    byte[] data = new byte[fi.Length];
    MyCustomState state = GetCustomState();
    FileStream fs = new FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, data.Length, true);
    // We still pass null for the last parameter because
    // the state variable is visible to the continuation delegate.
    Task<int> task = Task<int>.Factory.FromAsync(
            fs.BeginRead, fs.EndRead, data, 0, data.Length, null);

    return task.ContinueWith((antecedent) =>
    {
        // It is safe to close the filestream now.
        fs.Close();

        // Capture custom state data directly in the user delegate.
        // No need to pass it through the FromAsync method.
        if (state.StateData.Contains("New York, New York"))
        {
            return "Start spreading the news!";
        }
        else
        {
            // If we did not receive the entire file, the end of the
            // data buffer will contain garbage.
            if (antecedent.Result < data.Length)
                Array.Resize(ref data, antecedent.Result);

            // Will be returned in the Result property of the Task<string>
            // at some future point after the asynchronous file I/O operation completes.
            return new UTF8Encoding().GetString(data);
        }
    });
}
Public Function GetFileStringAsync2(ByVal path As String) As Task(Of String)
    Dim fi = New FileInfo(path)
    Dim data(fi.Length - 1) As Byte
    Dim state As New MyCustomState()

    Dim fs As New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, data.Length, True)
    ' We still pass null for the last parameter because
    ' the state variable is visible to the continuation delegate.
    Dim myTask As Task(Of Integer) = Task(Of Integer).Factory.FromAsync(
            AddressOf fs.BeginRead, AddressOf fs.EndRead, data, 0, data.Length, Nothing)

    Return myTask.ContinueWith(Function(antecedent)
                                   fs.Close()
                                   ' Capture custom state data directly in the user delegate.
                                   ' No need to pass it through the FromAsync method.
                                   If (state.StateData.Contains("New York, New York")) Then
                                       Return "Start spreading the news!"
                                   End If

                                   ' If we did not receive the entire file, the end of the
                                   ' data buffer will contain garbage.
                                   If (antecedent.Result < data.Length) Then
                                       Array.Resize(data, antecedent.Result)
                                   End If
                                   '/ Will be returned in the Result property of the Task<string>
                                   '/ at some future point after the asynchronous file I/O operation completes.
                                   Return New UTF8Encoding().GetString(data)
                               End Function)

End Function

Menyinkronkan beberapa tugas FromAsync

Metode ContinueWhenAll dan ContinueWhenAny statis memberikan fleksibilitas tambahan ketika digunakan bersama dengan FromAsync metode. Contoh berikut menunjukkan cara memulai beberapa operasi I/O asinkron, lalu menunggu semuanya selesai sebelum Anda menjalankan kelanjutan.

public Task<string> GetMultiFileData(string[] filesToRead)
{
    FileStream fs;
    Task<string>[] tasks = new Task<string>[filesToRead.Length];
    byte[] fileData = null;
    for (int i = 0; i < filesToRead.Length; i++)
    {
        fileData = new byte[0x1000];
        fs = new FileStream(filesToRead[i], FileMode.Open, FileAccess.Read, FileShare.Read, fileData.Length, true);

        // By adding the continuation here, the
        // Result of each task will be a string.
        tasks[i] = Task<int>.Factory.FromAsync(
                 fs.BeginRead, fs.EndRead, fileData, 0, fileData.Length, null)
                 .ContinueWith((antecedent) =>
                     {
                         fs.Close();

                         // If we did not receive the entire file, the end of the
                         // data buffer will contain garbage.
                         if (antecedent.Result < fileData.Length)
                             Array.Resize(ref fileData, antecedent.Result);

                         // Will be returned in the Result property of the Task<string>
                         // at some future point after the asynchronous file I/O operation completes.
                         return new UTF8Encoding().GetString(fileData);
                     });
    }

    // Wait for all tasks to complete.
    return Task<string>.Factory.ContinueWhenAll(tasks, (data) =>
    {
        // Propagate all exceptions and mark all faulted tasks as observed.
        Task.WaitAll(data);

        // Combine the results from all tasks.
        StringBuilder sb = new StringBuilder();
        foreach (var t in data)
        {
            sb.Append(t.Result);
        }
        // Final result to be returned eventually on the calling thread.
        return sb.ToString();
    });
}
Public Function GetMultiFileData(ByVal filesToRead As String()) As Task(Of String)
    Dim fs As FileStream
    Dim tasks(filesToRead.Length - 1) As Task(Of String)
    Dim fileData() As Byte = Nothing
    For i As Integer = 0 To filesToRead.Length
        fileData(&H1000) = New Byte()
        fs = New FileStream(filesToRead(i), FileMode.Open, FileAccess.Read, FileShare.Read, fileData.Length, True)

        ' By adding the continuation here, the 
        ' Result of each task will be a string.
        tasks(i) = Task(Of Integer).Factory.FromAsync(AddressOf fs.BeginRead,
                                                      AddressOf fs.EndRead,
                                                      fileData,
                                                      0,
                                                      fileData.Length,
                                                      Nothing).
                                                  ContinueWith(Function(antecedent)
                                                                   fs.Close()
                                                                   'If we did not receive the entire file, the end of the
                                                                   ' data buffer will contain garbage.
                                                                   If (antecedent.Result < fileData.Length) Then
                                                                       ReDim Preserve fileData(antecedent.Result)
                                                                   End If

                                                                   'Will be returned in the Result property of the Task<string>
                                                                   ' at some future point after the asynchronous file I/O operation completes.
                                                                   Return New UTF8Encoding().GetString(fileData)
                                                               End Function)
    Next

    Return Task(Of String).Factory.ContinueWhenAll(tasks, Function(data)

                                                              ' Propagate all exceptions and mark all faulted tasks as observed.
                                                              Task.WaitAll(data)

                                                              ' Combine the results from all tasks.
                                                              Dim sb As New StringBuilder()
                                                              For Each t As Task(Of String) In data
                                                                  sb.Append(t.Result)
                                                              Next
                                                              ' Final result to be returned eventually on the calling thread.
                                                              Return sb.ToString()
                                                          End Function)
End Function

Tugas FromAsync hanya untuk metode Akhir

Untuk beberapa kasus di mana Begin metode memerlukan lebih dari tiga parameter input atau memiliki ref parameter atau out, Anda dapat menggunakan FromAsync kelebihan beban, misalnya, TaskFactory<TResult>.FromAsync(IAsyncResult, Func<IAsyncResult,TResult>), yang hanya End mewakili metode. Metode ini juga dapat digunakan dalam skenario apa pun di mana Anda diteruskan IAsyncResult dan ingin mengenkapsulasi dalam Tugas.

static Task<String> ReturnTaskFromAsyncResult()
{
    IAsyncResult ar = DoSomethingAsynchronously();
    Task<String> t = Task<string>.Factory.FromAsync(ar, _ =>
        {
            return (string)ar.AsyncState;
        });

    return t;
}
Shared Function ReturnTaskFromAsyncResult() As Task(Of String)
    Dim ar As IAsyncResult = DoSomethingAsynchronously()
    Dim t As Task(Of String) = Task(Of String).Factory.FromAsync(ar, Function(res) CStr(res.AsyncState))
    Return t
End Function

Memulai dan membatalkan tugas FromAsync

Tugas yang dikembalikan oleh FromAsync metode memiliki status WaitingForActivation dan akan dimulai oleh sistem di beberapa titik setelah tugas dibuat. Jika Anda mencoba memanggil Mulai pada tugas seperti itu, pengecualian akan dinaikkan.

Anda tidak dapat membatalkan FromAsync tugas, karena API .NET yang mendasarinya saat ini tidak mendukung pembatalan file atau jaringan I/O yang sedang berlangsung. Anda dapat menambahkan fungsi pembatalan ke metode yang mengenkapsulasi FromAsync panggilan, tetapi Anda hanya dapat merespons pembatalan sebelum FromAsync dipanggil atau setelah selesai (misalnya, dalam tugas kelanjutan).

Beberapa kelas yang mendukung EAP, misalnya, WebClient, mendukung pembatalan, dan Anda dapat mengintegrasikan fungsi pembatalan asli tersebut dengan menggunakan token pembatalan.

Mengekspos operasi EAP yang kompleks Sebagai tugas

TPL tidak menyediakan metode apa pun yang dirancang khusus untuk mengenkapsulasi operasi asinkron berbasis peristiwa dengan cara yang FromAsync sama seperti keluarga metode membungkus IAsyncResult pola. Namun, TPL memang menyediakan System.Threading.Tasks.TaskCompletionSource<TResult> kelas, yang dapat digunakan untuk mewakili serangkaian operasi arbitrer apa pun sebagai Task<TResult>. Operasi mungkin sinkron atau asinkron, dan mungkin terikat I/O atau terikat komputasi, atau keduanya.

Contoh berikut menunjukkan cara menggunakan TaskCompletionSource<TResult> untuk mengekspos sekumpulan operasi asinkron WebClient ke kode klien sebagai dasar Task<TResult>. Metode ini memungkinkan Anda memasukkan array URL Web, dan istilah atau nama untuk dicari, lalu mengembalikan berapa kali istilah pencarian terjadi di setiap situs.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Net;
using System.Threading;
using System.Threading.Tasks;

public class SimpleWebExample
{
  public Task<string[]> GetWordCountsSimplified(string[] urls, string name,
                                                CancellationToken token)
  {
      TaskCompletionSource<string[]> tcs = new TaskCompletionSource<string[]>();
      WebClient[] webClients = new WebClient[urls.Length];
      object m_lock = new object();
      int count = 0;
      List<string> results = new List<string>();

      // If the user cancels the CancellationToken, then we can use the
      // WebClient's ability to cancel its own async operations.
      token.Register(() =>
      {
          foreach (var wc in webClients)
          {
              if (wc != null)
                  wc.CancelAsync();
          }
      });

      for (int i = 0; i < urls.Length; i++)
      {
          webClients[i] = new WebClient();

          #region callback
          // Specify the callback for the DownloadStringCompleted
          // event that will be raised by this WebClient instance.
          webClients[i].DownloadStringCompleted += (obj, args) =>
          {

              // Argument validation and exception handling omitted for brevity.

              // Split the string into an array of words,
              // then count the number of elements that match
              // the search term.
              string[] words = args.Result.Split(' ');
              string NAME = name.ToUpper();
              int nameCount = (from word in words.AsParallel()
                               where word.ToUpper().Contains(NAME)
                               select word)
                              .Count();

              // Associate the results with the url, and add new string to the array that
              // the underlying Task object will return in its Result property.
              lock (m_lock)
              {
                 results.Add(String.Format("{0} has {1} instances of {2}", args.UserState, nameCount, name));

                 // If this is the last async operation to complete,
                 // then set the Result property on the underlying Task.
                 count++;
                 if (count == urls.Length)
                 {
                    tcs.TrySetResult(results.ToArray());
                 }
              }
          };
          #endregion

          // Call DownloadStringAsync for each URL.
          Uri address = null;
          address = new Uri(urls[i]);
          webClients[i].DownloadStringAsync(address, address);
      } // end for

      // Return the underlying Task. The client code
      // waits on the Result property, and handles exceptions
      // in the try-catch block there.
      return tcs.Task;
   }
}
Imports System.Collections.Generic
Imports System.Net
Imports System.Threading
Imports System.Threading.Tasks

Public Class SimpleWebExample
    Dim tcs As New TaskCompletionSource(Of String())
    Dim token As CancellationToken
    Dim results As New List(Of String)
    Dim m_lock As New Object()
    Dim count As Integer
    Dim addresses() As String
    Dim nameToSearch As String

    Public Function GetWordCountsSimplified(ByVal urls() As String, ByVal str As String,
                                            ByVal token As CancellationToken) As Task(Of String())
        addresses = urls
        nameToSearch = str

        Dim webClients(urls.Length - 1) As WebClient

        ' If the user cancels the CancellationToken, then we can use the
        ' WebClient's ability to cancel its own async operations.
        token.Register(Sub()
                           For Each wc As WebClient In webClients
                               If wc IsNot Nothing Then
                                   wc.CancelAsync()
                               End If
                           Next
                       End Sub)

        For i As Integer = 0 To urls.Length - 1
            webClients(i) = New WebClient()

            ' Specify the callback for the DownloadStringCompleted
            ' event that will be raised by this WebClient instance.
            AddHandler webClients(i).DownloadStringCompleted, AddressOf WebEventHandler

            Dim address As New Uri(urls(i))
            ' Pass the address, and also use it for the userToken
            ' to identify the page when the delegate is invoked.
            webClients(i).DownloadStringAsync(address, address)
        Next

        ' Return the underlying Task. The client code
        ' waits on the Result property, and handles exceptions
        ' in the try-catch block there.
        Return tcs.Task
    End Function

    Public Sub WebEventHandler(ByVal sender As Object, ByVal args As DownloadStringCompletedEventArgs)

        If args.Cancelled = True Then
            tcs.TrySetCanceled()
            Return
        ElseIf args.Error IsNot Nothing Then
            tcs.TrySetException(args.Error)
            Return
        Else
            ' Split the string into an array of words,
            ' then count the number of elements that match
            ' the search term.
            Dim words() As String = args.Result.Split(" "c)

            Dim name As String = nameToSearch.ToUpper()
            Dim nameCount = (From word In words.AsParallel()
                             Where word.ToUpper().Contains(name)
                             Select word).Count()

            ' Associate the results with the url, and add new string to the array that
            ' the underlying Task object will return in its Result property.
            SyncLock (m_lock)
                results.Add(String.Format("{0} has {1} instances of {2}", args.UserState, nameCount, nameToSearch))
                count = count + 1
                If (count = addresses.Length) Then
                    tcs.TrySetResult(results.ToArray())
                End If
            End SyncLock
        End If
    End Sub
End Class

Untuk contoh yang lebih lengkap, yang mencakup penanganan pengecualian tambahan dan menunjukkan cara memanggil metode dari kode klien, lihat Cara: Membungkus Pola EAP dalam Tugas.

Ingatlah bahwa tugas apa pun yang dibuat oleh TaskCompletionSource<TResult> akan dimulai oleh itu TaskCompletionSource dan, oleh karena itu, kode pengguna tidak boleh memanggil Start metode pada tugas tersebut.

Menerapkan pola APM dengan menggunakan tugas

Dalam beberapa skenario, mungkin diinginkan untuk langsung mengekspos IAsyncResult pola dengan menggunakan pasangan metode awal/akhir dalam API. Misalnya, Anda mungkin ingin mempertahankan konsistensi dengan API yang ada, atau Anda mungkin memiliki alat otomatis yang memerlukan pola ini. Dalam kasus seperti itu, Anda dapat menggunakan Task objek untuk menyederhanakan bagaimana pola APM diterapkan secara internal.

Contoh berikut menunjukkan cara menggunakan tugas untuk mengimplementasikan pasangan metode awal/akhir APM untuk metode terikat komputasi yang berjalan lama.

class Calculator
{
    public IAsyncResult BeginCalculate(int decimalPlaces, AsyncCallback ac, object state)
    {
        Console.WriteLine("Calling BeginCalculate on thread {0}", Thread.CurrentThread.ManagedThreadId);
        Task<string> f = Task<string>.Factory.StartNew(_ => Compute(decimalPlaces), state);
        if (ac != null) f.ContinueWith((res) => ac(f));
        return f;
    }

    public string Compute(int numPlaces)
    {
        Console.WriteLine("Calling compute on thread {0}", Thread.CurrentThread.ManagedThreadId);

        // Simulating some heavy work.
        Thread.SpinWait(500000000);

        // Actual implementation left as exercise for the reader.
        // Several examples are available on the Web.
        return "3.14159265358979323846264338327950288";
    }

    public string EndCalculate(IAsyncResult ar)
    {
        Console.WriteLine("Calling EndCalculate on thread {0}", Thread.CurrentThread.ManagedThreadId);
        return ((Task<string>)ar).Result;
    }
}

public class CalculatorClient
{
    static int decimalPlaces = 12;
    public static void Main()
    {
        Calculator calc = new Calculator();
        int places = 35;

        AsyncCallback callBack = new AsyncCallback(PrintResult);
        IAsyncResult ar = calc.BeginCalculate(places, callBack, calc);

        // Do some work on this thread while the calculator is busy.
        Console.WriteLine("Working...");
        Thread.SpinWait(500000);
        Console.ReadLine();
    }

    public static void PrintResult(IAsyncResult result)
    {
        Calculator c = (Calculator)result.AsyncState;
        string piString = c.EndCalculate(result);
        Console.WriteLine("Calling PrintResult on thread {0}; result = {1}",
                    Thread.CurrentThread.ManagedThreadId, piString);
    }
}
Class Calculator
    Public Function BeginCalculate(ByVal decimalPlaces As Integer, ByVal ac As AsyncCallback, ByVal state As Object) As IAsyncResult
        Console.WriteLine("Calling BeginCalculate on thread {0}", Thread.CurrentThread.ManagedThreadId)
        Dim myTask = Task(Of String).Factory.StartNew(Function(obj) Compute(decimalPlaces), state)
        myTask.ContinueWith(Sub(antecedent) ac(myTask))

    End Function
    Private Function Compute(ByVal decimalPlaces As Integer)
        Console.WriteLine("Calling compute on thread {0}", Thread.CurrentThread.ManagedThreadId)

        ' Simulating some heavy work.
        Thread.SpinWait(500000000)

        ' Actual implementation left as exercise for the reader.
        ' Several examples are available on the Web.
        Return "3.14159265358979323846264338327950288"
    End Function

    Public Function EndCalculate(ByVal ar As IAsyncResult) As String
        Console.WriteLine("Calling EndCalculate on thread {0}", Thread.CurrentThread.ManagedThreadId)
        Return CType(ar, Task(Of String)).Result
    End Function
End Class

Class CalculatorClient
    Shared decimalPlaces As Integer
    Shared Sub Main()
        Dim calc As New Calculator
        Dim places As Integer = 35
        Dim callback As New AsyncCallback(AddressOf PrintResult)
        Dim ar As IAsyncResult = calc.BeginCalculate(places, callback, calc)

        ' Do some work on this thread while the calculator is busy.
        Console.WriteLine("Working...")
        Thread.SpinWait(500000)
        Console.ReadLine()
    End Sub

    Public Shared Sub PrintResult(ByVal result As IAsyncResult)
        Dim c As Calculator = CType(result.AsyncState, Calculator)
        Dim piString As String = c.EndCalculate(result)
        Console.WriteLine("Calling PrintResult on thread {0}; result = {1}",
                   Thread.CurrentThread.ManagedThreadId, piString)
    End Sub

End Class

Menggunakan kode StreamExtensions

File StreamExtensions.cs, dalam repositori ekstra ekstensi paralel .NET Standard, berisi beberapa implementasi referensi yang menggunakan Task objek untuk file asinkron dan I/O jaringan.

Lihat juga