Avance apuntes clase 20/7/07 (por diego)

Combinaciones Nuevas

Para el On/Off

SubOffOn_Click
IF onoff.Backcolor = VBred Then
onoff. Backolor = VBblack
Uno . Enabled = False
Dos . Enabled= False
(Todos los botones salvo el On y el Off)
ELSE onoff.Backcolor=VBred
Uno . Enabled = True
(Todos los Botones salvo el On y el Off)
End IF
End sub

Para el Canal mas (y menos)

Sub canal mas _click
IF val (nrocanal . caption) < style="color: rgb(255, 153, 0);">Then
nrocanal. caption= val (nrocanal. caption) + 1
ELSE
nrocanal.caption= 1
end IF
End sub

Para el Tv/Catv

Sub Catvtv _ click
IF TvCatv. caption= " Tv" Then
TvCatv . caption = "Catv"
ELSE
TvCatv . caption = "Tv"
End IF
End Sub