Apunte Visual Basic (por Ariana)

Programacion:

sub botonon_click
on off.backcolor = vbred

sub botonoff_click
on off.backcolor = vbblack
end sub

sub botontv_click
tvcatv.caption = "tv"
end sub

sub brillomas _click
pantalla.top = pantalla.top 100
end sub


el volumen ensancha (se usa la propiedad width)

el cotraste corre a la derecha (se usa la propiedad left)



sub uno_click
auxcanal.caption=auxcanal.caption + 1

sub enter_click
numerocanal.caption=auxcanal.caption
auxcanal.caption=""
auxfavo.caption = nrocanal.caption
end sub

sub canalmas_click
numerocanal.caption=val(numerocanal.caption) + 1



sub onoff_click
if onoff.backcolor = vbred then
onoff.backcolor = vbblack
uno.enabled = false
dos.enabled = false
...
else
onoff.backcolor = vbred
uno.enabled = true
dos.enabled = true
...
end if
end sub

sub canalmas_click
if val (nrocanal.caption)< 13 then
nrocanal.caption = val (nrocanal.caption ) + 1
else
nrocanal.caption = 1
end if
end sub

sub tvcatv_click
if tvcatv.caption = "tv" then
tvcatv.caption = "catv"
else
tvcatv.caption = "tv"
end if
end sub



if catv.caption = "tv" then
if val (nrocanal.caption)< 13 then
nrocanal.caption = val (nrocanal.caption) + 1
else
nrocanal.caption = 1
end if
else
if val (nrocanal.caption) < 130 then
nrocanal.caption = val (nrocanal.caption) + 1
else
nrocanal.caption = 1
end if
end sub

sub auxfavo_click
auxcanal.caption = auxfavo.caption
auxfavo.caption = auxcanal.caption
nrocanal.caption = auxfavo.caption
end sub