sdk/samples/WCFSamples/TechnologySamples/Basic/Management/ServiceValidation/VB/service/service.vb

   1 ' Copyright (c) Microsoft Corporation.  All Rights Reserved.
   2
   3 Imports System
   4 Imports System.ServiceModel
   5 Imports System.Diagnostics
   6
   7 Namespace Microsoft.ServiceModel.Samples
   8
   9     ' Define a service contract
  10     <ServiceContract([Namespace]:="http://Microsoft.ServiceModel.Samples")> _
  11     Public Interface ICalculator
  12
  13         <OperationContract()> _
  14         Function Add(ByVal n1 As Double, ByVal n2 As Double) As Double
  15         <OperationContract()> _
  16         Function Subtract(ByVal n1 As Double, ByVal n2 As Double) As Double
  17         <OperationContract()> _
  18         Function Multiply(ByVal n1 As Double, ByVal n2 As Double) As Double
  19         <OperationContract()> _
  20         Function Divide(ByVal n1 As Double, ByVal n2 As Double) As Double
  21
  22     End Interface
  23
  24     ' Service class which implements the service contract.
  25     Public Class CalculatorService
  26         Implements ICalculator
  27
  28         Private Sub New()
  29         End Sub
  30
  31         Public Function Add(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Add
  32
  33             Dim result As Double = n1 + n2
  34             Return result
  35
  36         End Function
  37
  38         Public Function Subtract(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Subtract
  39
  40             Return n1 - n2
  41
  42         End Function
  43
  44         Public Function Multiply(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Multiply
  45
  46             Return n1 * n2
  47
  48         End Function
  49
  50         Public Function Divide(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Divide
  51
  52             Return n1 / n2
  53
  54         End Function
  55
  56     End Class
  57
  58 End Namespace