sdk/samples/WCFSamples/TechnologySamples/Basic/Contract/Service/Asynchronous/VB/client/client.vb

   1 ' Copyright (c) Microsoft Corporation. All rights reserved.
   2
   3 Imports System
   4
   5 Namespace Microsoft.ServiceModel.Samples
   6
   7     ' The service contract is defined in generatedClient.vb, generated from the service by the svcutil tool.
   8
   9     Class Client
  10
  11         Public Shared Sub Main()
  12
  13             Console.WriteLine("Press <ENTER> to terminate client once the output is displayed.")
  14             Console.WriteLine()
  15
  16             ' Create a client
  17             Dim client As New CalculatorClient()
  18
  19             ' AddAsync
  20             Dim value1 As Double = 100
  21             Dim value2 As Double = 15.99
  22             AddHandler client.AddCompleted, AddressOf AddCallback
  23             client.AddAsync(value1, value2)
  24             Console.WriteLine("Add({0},{1})", value1, value2)
  25
  26             ' SubtractAsync
  27             value1 = 145
  28             value2 = 76.54
  29             AddHandler client.SubtractCompleted, AddressOf SubtractCallback
  30             client.SubtractAsync(value1, value2)
  31             Console.WriteLine("Subtract({0},{1})", value1, value2)
  32
  33             ' Multiply
  34             value1 = 9
  35             value2 = 81.25
  36             Dim result As Double = client.Multiply(value1, value2)
  37             Console.WriteLine("Multiply({0},{1}) = {2}", value1, value2, result)
  38
  39             ' Divide
  40             value1 = 22
  41             value2 = 7
  42             result = client.Divide(value1, value2)
  43             Console.WriteLine("Divide({0},{1}) = {2}", value1, value2, result)
  44             Console.ReadLine()
  45
  46             'Closing the client gracefully closes the connection and cleans up resources
  47             client.Close()
  48
  49         End Sub
  50
  51         ' Asynchronous callbacks for displaying results.
  52         Private Shared Sub AddCallback(ByVal sender As Object, ByVal e As AddCompletedEventArgs)
  53
  54             Console.WriteLine("Add Result: {0}", e.Result)
  55
  56         End Sub
  57
  58         Private Shared Sub SubtractCallback(ByVal sender As Object, ByVal e As SubtractCompletedEventArgs)
  59
  60             Console.WriteLine("Subtract Result: {0}", e.Result)
  61
  62         End Sub
  63
  64     End Class
  65
  66 End Namespace