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

Avance apuntes clase 6/7 (Por diego)

Combinaciones nuevas


Para los numeros (ejemplo el 1)

Sub uno . click
Auxcanal.caption = Auxcanal . caption +"1"
End sub

Para el Enter

Sub Enter . click
nrocanal . caption = Auxcanal . caption
Auxcanal. caption = ""
End sub

Para canal +

Sub canalmas . click
nrocanal. caption = val (nrocanal . caption ) +1
End sub