with Home.Theater.AVDevices
set oProjector = devices.CustomDevices.VPLVW200
if not this.CurrentSource is nothing then
select case this.CurrentSource.ObjectID
case this.BoundObject.VCR.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player3.SetValueForced "PowerState", false
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
case this.BoundObject.PVR.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player3.SetValueForced "PowerState", false
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
'Game - Bluray
case this.BoundObject.Game.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player3.SetValueForced "PowerState", true
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
'Input1 - HTPC
case this.BoundObject.Input1.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn2
.PVR.SetValueForced "MenuNavigation", sys.Schema.Device.MenuNavigationValues.Menu
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
'Input2 - AUX2 - HD DVD
case this.BoundObject.Input2.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player2.SetValueForced "PowerState", true
.DVD_Player3.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
case this.BoundObject.DVD.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player.SetValueForced "PowerState", true
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
system.addTimer 15, "this.lowerSub10dB = True", 1, this.Name
case this.BoundObject.Tape1.ObjectID
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
case this.BoundObject.Phonograph.ObjectID
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
case this.BoundObject.CD.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
case this.BoundObject.Tuner.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
'Music Server Video1
case this.BoundObject.Video1.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
'Internet Radio Video2
case this.BoundObject.Video2.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
'USB Video3
case this.BoundObject.Video3.ObjectID
.Projector.SetValueForced "CurrentSource", oProjector.VideoIn1
.DVD_Player2.SetValueForced "PowerState", false
.DVD_Player.SetValueForced "PowerState", false
.DVD_Player3.SetValueForced "PowerState", false
end select
end if
end with