sdk/samples/WCFSamples/TechnologySamples/Basic/Ajax/ConfigFreeAjaxService/VB/service/service.vb

   1 ' Copyright (c) Microsoft Corporation. All rights reserved.
   2
   3 Imports System
   4 Imports System.ServiceModel
   5
   6 Namespace Microsoft.Ajax.Samples
   7     ' Define a service contract.
   8     <ServiceContract([Namespace]:="ConfigFreeAjaxService")> _
   9     Public Interface ICalculator
  10         <OperationContract()> _
  11         Function Add(ByVal n1 As Double, ByVal n2 As Double) As Double
  12         <OperationContract()> _
  13         Function Subtract(ByVal n1 As Double, ByVal n2 As Double) As Double
  14         <OperationContract()> _
  15         Function Multiply(ByVal n1 As Double, ByVal n2 As Double) As Double
  16         <OperationContract()> _
  17         Function Divide(ByVal n1 As Double, ByVal n2 As Double) As Double
  18     End Interface
  19
  20     Public Class CalculatorService
  21         Implements ICalculator
  22
  23         Public Function Add(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Add
  24             Return n1 + n2
  25         End Function
  26
  27         Public Function Subtract(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Subtract
  28             Return n1 - n2
  29         End Function
  30
  31         Public Function Multiply(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Multiply
  32             Return n1 * n2
  33         End Function
  34
  35         Public Function Divide(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Divide
  36             Return n1 / n2
  37         End Function
  38     End Class
  39
  40 End Namespace