apuntes

canal mas-clickIfval(nro canal.caption)<13then caption="val(nrocanal.caption)+1" caption="1">1 thenNrocanal.caption=val(nrocanal.caption)-1ElseNro canal.caption=13
End if
End subSub bot tv catv.clickIf tv catv.caption=”tv”thenTvg catv.caption=”catv”ElseTvcatv.caption=”tv”End if
End sub
Sub enter-clickIf val(canal aux.caption)>13thenCanal aux.caption=””ElseNrocanal.caption=canal aux.captionCanal aux.caption=””
End if
End sub
Aux canal.caption=auxcanal.caption+”1”
End sub
Sub enter.clickNro canal.caption=auxcanal.caption-“1”
Auxcanal.caption=””
End sub
Sub canal mas-clickNro canal.caption=val(nro canal.caption)+1
End sub
Sub canal menos-clickNro canal.caption=val(nrocanal.caption)-1
End sub
_Sub tv on_"click" on-off.backcolor = vbredend sub.
_Sub tv off_clickon-off.backcolor = "black"end sub.
_Sub brillo máspantalla.top=pantalla.top -100end sub
_Sub brillo menospantalla.top=pantalla.top+100end sub
_Sub tv.clicktv-catv.caption="tv"end sub
_Sub tv on_"click" on-off.backcolor = vbredend sub.
_Sub tv off_clickon-off.backcolor = "black"end sub.
_Sub brillo máspantalla.top=pantalla.top -100end sub
_Sub brillo menospantalla.top=pantalla.top+100end sub
_Sub tv.clicktv-catv.caption="tv"end sub
_Sub uno_clickaux canal.caption=auxcanal.caption+"1"end sub
sub enter_clicknrocanal.caption=auxcanal.captionauxcanal.caption=" "
end sub_sub más_clicknrocanal.caption=val(nrocanal.caption)+1end sub
_sub menos_clicknrocanal.caption=val(nrocanal.caption) -1end
Sub tv on_"click"
on-off.backcolor = vbred
end sub.
Sub tv off_click
on-off.backcolor = "black"
end sub.

Sub brillo más
pantalla.top=pantalla.top -100
end sub

Sub brillo menos
pantalla.top=pantalla.top+100
end sub
Sub tv.click
tv-catv.caption="tv"
end sub

Sub uno_click
aux canal.caption=auxcanal.caption+"1"
end sub
(igual para los demas números)

Sub enter_click
nrocanal.caption=auxcanal.caption
auxcanal.caption=" "
end sub
Sub más_click
nrocanal.caption=val(nrocanal.caption)+1
end sub
Sub menos_click
nrocanal.caption=val(nrocanal.caption) -1
end sub
Indicaciones para las distintas propiedades:
Mover derecha o izquierda=left
Ancho=width
Labels=caption
Mover hacia arriba o abajo=top
Color=backcolor

Sub canal más_click
if val(nrocanal.caption)<13 then
nrocanal.caption=val(nrocanal.caption)+1
else
nrocanal.caption = 1
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 onoff.click
if onoff.backcolor=vbred then
onoff.backcolor=vbblack
canal más.enabled=false
else
onoff.backcolor=vbred
canalmás.enabled=true
end if
end sub
Sub canal más.click
if tvcatv.caption="tv" then
if nrocanal.caption>13 then
nrocanal.caption=1
else
nrocanal.caption=nrocanal.caption + 1
end if
else
if nrocanal.caption>120 then
nrocanal.caption=1
else
nrocanal.caption=nrocanal.caption + 1
end if
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