visual basic

Visual Basic

Sub canal mas-click
If
val(nro canal.caption)<13then caption="val(nrocanal.caption)+1" caption="1">1 then
Nrocanal.caption=val(nrocanal.caption)-1

Else
Nro canal.caption=13
End if
End sub

Sub bot tv catv.click
If tv catv.caption=”tv”then
Tvg catv.caption=”catv”
Else

Tvcatv.caption=”tv”
End if
End sub

Sub enter-click
If val(canal aux.caption)>13then
Canal aux.caption=””
Else

Nrocanal.caption=canal aux.caption
Canal aux.caption=””
End if
End sub

visual basic

VISUAL BASIC


Aux canal.caption=auxcanal.caption+”1”
End sub
Sub enter.click
Nro canal.caption=auxcanal.caption-“1”

Auxcanal.caption=””
End sub

Sub canal mas-click
Nro canal.caption=val(nro canal.caption)+1
End sub

Sub canal menos-click
Nro canal.caption=val(nrocanal.caption)-1
End sub

Apunte,visual basic,control

Indicaciones para programar cada botón del control ( algunos ):
_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=
propiedad-------------left

Ancho=
propiedad-------------width

Labels=
propiedad-------------caption

Mover hacia arriba o abajo=
propiedad-------------top

Color=
propiedad-------------backcolor