sdk/samples/WCFSamples/TechnologySamples/Basic/Service/Hosting/SelfHost/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             Dim client As New CalculatorClient()
  17
  18             ' Call the Add service operation.
  19             Dim value1 As Double = 100
  20             Dim value2 As Double = 15.99
  21             Dim result As Double = client.Add(value1, value2)
  22             Console.WriteLine("Add({0},{1}) = {2}", value1, value2, result)
  23
  24             ' Call the Subtract service operation.
  25             value1 = 145
  26             value2 = 76.54
  27             result = client.Subtract(value1, value2)
  28             Console.WriteLine("Subtract({0},{1}) = {2}", value1, value2, result)
  29
  30             ' Call the Multiply service operation.
  31             value1 = 9
  32             value2 = 81.25
  33             result = client.Multiply(value1, value2)
  34             Console.WriteLine("Multiply({0},{1}) = {2}", value1, value2, result)
  35
  36             ' Call the Divide service operation.
  37             value1 = 22
  38             value2 = 7
  39             result = client.Divide(value1, value2)
  40             Console.WriteLine("Divide({0},{1}) = {2}", value1, value2, result)
  41
  42             'Closing the client gracefully closes the connection and cleans up resources
  43             client.Close()
  44
  45             Console.WriteLine()
  46             Console.WriteLine("Press <ENTER> to terminate client.")
  47             Console.ReadLine()
  48         End Sub
  49     End Class
  50 End Namespace