sdk/samples/WCFSamples/TechnologySamples/Basic/Service/Addressing/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     'Client implementation code.
  11     Class Client
  12
  13         Public Shared Sub Main()
  14
  15             ' Create a client
  16             ' Specify CalculatorEndpoint1 through CalculatorEndpoint4 to try various endpoints.
  17             Dim client As New CalculatorClient("CalculatorEndpoint1")
  18
  19             ' Call the Add service operation.
  20             Dim value1 As Double = 100
  21             Dim value2 As Double = 15.99
  22             Dim result As Double = client.Add(value1, value2)
  23             Console.WriteLine("Add({0},{1}) = {2}", value1, value2, result)
  24
  25             ' Call the Subtract service operation.
  26             value1 = 145
  27             value2 = 76.54
  28             result = client.Subtract(value1, value2)
  29             Console.WriteLine("Subtract({0},{1}) = {2}", value1, value2, result)
  30
  31             ' Call the Multiply service operation.
  32             value1 = 9
  33             value2 = 81.25
  34             result = client.Multiply(value1, value2)
  35             Console.WriteLine("Multiply({0},{1}) = {2}", value1, value2, result)
  36
  37             ' Call the Divide service operation.
  38             value1 = 22
  39             value2 = 7
  40             result = client.Divide(value1, value2)
  41             Console.WriteLine("Divide({0},{1}) = {2}", value1, value2, result)
  42
  43             'Closing the client gracefully closes the connection and cleans up resources
  44             client.Close()
  45
  46             Console.WriteLine()
  47             Console.WriteLine("Press <ENTER> to terminate client.")
  48             Console.ReadLine()
  49
  50         End Sub
  51
  52     End Class
  53
  54 End Namespace