Power Point por veronica

apunte por veronica

ONOFF
sub onoff.click
if onoff.backcolor = vbles then
onoff.backcolor = vbblack
canalmas.enbled=FALSE
else
onoff.backcolor= vbred
canalmas.enbled=TRUE
end if
end sub
CANALMAS
sub canalmas.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

Apunte por veronica

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.

Apunte 2 por veronica

BOTONES:
sub uno_click
auxcanal.caption= auxcanal.caption + "1"
end sub (ES IGUAL CON CADA NUMERO)
sub enter_click
nrocanal.caption= auxcanal.caption
auxcanal.caption= " "
end sub
sub canalmas_click
auxcanal.caption= val(nrocanal.caption) + 1
end sub
sub canalmenos_click
val (nrocanal.caption) - 1

Apunte por veronica

Botones:
sub tvon_click
on-off.blackcolor= "red"
end sub
sub tvoff_click
on-off.blackcolor= "black"
end sub
sub brillomas_click
pantalla.top= pantalla.top - 100
end sub
sub brillomenos_click
pantalla.top=pantalla.top + 100
end sub
sub tv.click
tv-catv.caption = "tv"
end sub
sub catv.click
tv-catv.caption= "catv"
end sub


contraste->prop.->left
contraste->prop.->width