apunte de la clase del 12/7

Estas son las propiedades que usamos en la clase del 12/7 con el visual basic:



Sub canal más_click
if val(nrocanal.caption)<13>
nrocanal.caption=val
(nrocanal.caption)+1
else
nrocanal.caption = 1 e
end if
end sub

Sub canal menos_click
if val(nrocanal.caption)>1 then
nrocanal.caption=val(nrocanal.caption)-1
else
nrocanal.caption=13
end if
end sub


Sub bot tv/catv_click
if tvcatv.caption="tv" then
tvcatv.caption="catv"
else
tvcatv.caption="tv"
end if
end sub




Sub enter_click
if val(auxcanal.caption)>13 then
auxcanal.caption=" "
else
nrocanal.caption=auxcanal.caption
auxcanal.caption=" "
end if
end sub