%INCLUDE "lsxsd.lss"
Class TFS20DeviceAddress_n1 As XSD_ANYTYPE
	
	Public Address As String
	Public SubAddress As String
	
	Sub NEW
	End Sub
	
End Class

Class TFS20Device_n1 As XSD_ANYTYPE
	
	Public HomeCode As String
	Public Address As String
	Public SubAddress As String
	Public Mapping() As TFS20DeviceAddress_n1
	
	Sub NEW
	End Sub
	
End Class

Const n1 = "urn:UIPSModuleTypes"
Const n0 = "http://localhost/"
Class IIPSFS20_n0 As PortTypeBase
	
	Sub NEW
		Call Service.Initialize ("HttpLocalhostIIPSFS20Service", _
		"IIPSFS20service.IIPSFS20Port", "http://192.168.11.110:3773/soap/IIPSFS20", _
		"IIPSFS20_n0")
		
	End Sub
	
	Sub SetDeviceAddress(HomeCode As String, Address As String, SubAddress As String)
		Call Service.Invoke("SetDeviceAddress", HomeCode, Address, SubAddress)
	End Sub
	
	Sub AddDeviceMapping(Address As String, SubAddress As String)
		Call Service.Invoke("AddDeviceMapping", Address, SubAddress)
	End Sub
	
	Sub RemoveDeviceMapping(Address As String, SubAddress As String)
		Call Service.Invoke("RemoveDeviceMapping", Address, SubAddress)
	End Sub
	
	Sub SetEnableReceive(Enable As Boolean)
		Call Service.Invoke("SetEnableReceive", Enable)
	End Sub
	
	Sub SetEnableTimer(Enable As Boolean)
		Call Service.Invoke("SetEnableTimer", Enable)
	End Sub
	
	Function GetDeviceAddress() As TFS20Device_n1
		Set GetDeviceAddress = Service.Invoke("GetDeviceAddress")
	End Function
	
	Function GetEnableReceive() As Boolean
		Let GetEnableReceive = Service.Invoke("GetEnableReceive")
	End Function
	
	Function GetEnableTimer() As Boolean
		Let GetEnableTimer = Service.Invoke("GetEnableTimer")
	End Function
	
	Function GetInstanceIDforAddress(HomeCode As String, Address As String, SubAddress As String) As XSD_UNSIGNEDSHORT
		Set GetInstanceIDforAddress = Service.Invoke("GetInstanceIDforAddress", HomeCode, Address, SubAddress)
	End Function
	
	Sub SwitchMode(DeviceOn As Boolean)
		Call Service.Invoke("SwitchMode", DeviceOn)
	End Sub
	
	Sub SwitchDuration(DeviceOn As Boolean, Duration As Long)
		Call Service.Invoke("SwitchDuration", DeviceOn, Duration)
	End Sub
	
	Sub SetIntensity(Intensity As Long, Duration As Long)
		Call Service.Invoke("SetIntensity", Intensity, Duration)
	End Sub
	
	Sub DimUp()
		Call Service.Invoke("DimUp")
	End Sub
	
	Sub DimDown()
		Call Service.Invoke("DimDown")
	End Sub
	
End Class