Apunte del dia 12/07/07

Sub canal más_clickif val(nrocanal.caption)<13 thennrocanal.caption=val(nrocanal.caption)+1elsenrocanal.caption = 1end ifend sub
Sub canal menos_clickif val(nrocanal.caption)>1 thennrocanal.caption=val(nrocanal.caption)-1
else
nrocanal.caption=13
end if
end sub
Sub bot tv/catv_clickif tvcatv.caption="tv" thentvcatv.caption="catv"elsetvcatv.caption="tv"
end if
end sub
Sub enter_clickif val(auxcanal.caption)>13 thenauxcanal.caption=" "
elsen
nrocanal.caption=auxcanal.captionauxcanal.caption=" "
end if
end sub