AllService.svc.vb

' NOTE: You can use the "Rename" command on the context menu to change the class name "Service1" in code, svc and config file together.
Public Class Service1
    Implements AllService

    Public Sub New()
    End Sub

    Public Function GetData(ByVal value As Integer) As String Implements AllService.GetData
        Return String.Format("You entered: {0}", value)
    End Function

    Public Function GetDataUsingDataContract(ByVal composite As CompositeType) As CompositeType Implements AllService.GetDataUsingDataContract
        If composite Is Nothing Then
            Throw New ArgumentNullException("composite")
        End If
        If composite.BoolValue Then
            composite.StringValue &= "Suffix"
        End If
        Return composite
    End Function
    Public Function Tambah(ByVal param1 As String, ByVal param2 As String) As String Implements AllService.Tambah
        Return String.Format("{0}", Val(param1) + Val(param2))
    End Function
End Class