Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Implements IServicevb
- Public Sub New()
- End Sub
- Public Function GetData(ByVal value As Integer) As String Implements IServicevb.GetData
- Return String.Format("You entered: {0}", value)
- End Function
- Public Function GetDataUsingDataContract(ByVal composite As CompositeType) As CompositeType Implements IServicevb.GetDataUsingDataContract
- If composite.BoolValue Then
- composite.StringValue = (composite.StringValue & "Suffix")
- End If
- Return composite
- End Function
- Public Function getSquare(ByVal i As Integer) As Integer Implements IServicevb.getSquare
- Return i * i
- End Function
- Public Function getRandomInt(ByVal Min As Integer, ByVal Max As Integer) As Integer Implements IServicevb.getRandomInt
- Dim Generator As System.Random = New System.Random()
- Return Generator.Next(Min, Max)
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement