'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version: 1.0.2914.16 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On Imports System Imports System.Diagnostics Imports System.Web.Services Imports System.Web.Services.Protocols Imports System.Xml.Serialization ' 'This source code was auto-generated by wsdl, Version=1.0.2914.16. ' _ Public Class TemperatureService Inherits System.Web.Services.Protocols.SoapHttpClientProtocol _ Public Sub New() MyBase.New Me.Url = "http://localhost/secureme/TemperatureService.asmx" End Sub _ Public Function ToCelsius(ByVal TF As Double) As Double Dim results() As Object = Me.Invoke("ToCelsius", New Object() {TF}) Return CType(results(0),Double) End Function _ Public Function BeginToCelsius(ByVal TF As Double, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("ToCelsius", New Object() {TF}, callback, asyncState) End Function _ Public Function EndToCelsius(ByVal asyncResult As System.IAsyncResult) As Double Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),Double) End Function _ Public Function ToFahrenheit(ByVal TC As Double) As Double Dim results() As Object = Me.Invoke("ToFahrenheit", New Object() {TC}) Return CType(results(0),Double) End Function _ Public Function BeginToFahrenheit(ByVal TC As Double, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("ToFahrenheit", New Object() {TC}, callback, asyncState) End Function _ Public Function EndToFahrenheit(ByVal asyncResult As System.IAsyncResult) As Double Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),Double) End Function End Class