Se agrega un nuevo boton en el control remoto: "tv-catv"
Botones:
CANAL MAS
sub canalmas_click
(borrar lo de la anterior clase)
if val(nrocanal.caption) <13 then
nrocanal. caption = val (nrocanal.caption)
+ 1 else nrocanal. caption = 1
end if
end sub
CANAL MENOS
sub canalmenos_click
if val (nrocanal.caption) > 1 then nrocanal.
caption = val (nrocanal.caption) - 1 else
nrocanal. caption = 13
end if
end sub
TV CATV
sub tvcatv_click
if tvcatv.caption = "TV" then tvcatv.
caption = "CATV" else tvcatv. caption
= "TV"
end if
end sub
ENTER
sub enter_click
if val (auxcanal.caption) > 13 then
auxcanal. caption = " " else
nrocanal. caption = auxcanal.caption
auxcanal. caption = " "
end if
end sub
GRUPOS:
Daiana G.
Veronica B.
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario