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

   1 ' Copyright (c) Microsoft Corporation.  All Rights Reserved.
   2
   3 Imports System
   4 Imports System.ServiceModel
   5
   6 Namespace Microsoft.ServiceModel.Samples
   7
   8     ' The service contract is defined in generatedClient.vb, generated from the service by the svcutil tool.
   9
  10     ' Define class which implements callback interface of duplex contract
  11     Public Class CallbackHandler
  12         Implements ICalculatorDuplexCallback
  13
  14         Public Sub Result(ByVal result As Double) Implements ICalculatorDuplexCallback.Result
  15
  16             Console.WriteLine("Result({0})", result)
  17
  18         End Sub
  19
  20         Public Sub Equation(ByVal eqn As String) Implements ICalculatorDuplexCallback.Equation
  21
  22             Console.WriteLine("Equation({0})", eqn)
  23
  24         End Sub
  25
  26     End Class
  27
  28     Class Client
  29
  30         Public Shared Sub Main()
  31
  32             ' Construct InstanceContext to handle messages on callback interface
  33             Dim instanceContext As New InstanceContext(New CallbackHandler())
  34
  35             ' Create a client
  36             Dim client As New CalculatorDuplexClient(instanceContext)
  37             Console.WriteLine("Press <ENTER> to terminate client once the output is displayed.")
  38             Console.WriteLine()
  39
  40             ' Call the AddTo service operation.
  41             Dim value As Double = 100
  42             client.AddTo(value)
  43
  44             ' Call the SubtractFrom service operation.
  45             value = 50
  46             client.SubtractFrom(value)
  47
  48             ' Call the MultiplyBy service operation.
  49             value = 17.65
  50             client.MultiplyBy(value)
  51
  52             ' Call the DivideBy service operation.
  53             value = 2
  54             client.DivideBy(value)
  55
  56             ' Complete equation
  57             client.Clear()
  58
  59             Console.ReadLine()
  60
  61             'Closing the client gracefully closes the connection and cleans up resources
  62             client.Close()
  63
  64         End Sub
  65
  66     End Class
  67
  68 End Namespace