apuntes, VB control, clase 20/7, ari t

Sub OffOn_Click
IF onoff.Backcolor = VBred Then
onoff. Backolor = VBblack
Uno . Enabled = False
Dos . Enabled= False
(etc ...)
ELSE
onoff.Backcolor=VBred
Uno . Enabled = True
Dos . Enabled = True
(etc ...)
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 catvtv _ click
IF tvcatv. caption= "TV" Then
tvcatv . caption = "CATV"
ELSE
tvcatv . caption = "TV"
End IF
End Sub

analisis de encuesta,scribd,ari.t

perodon por la tardanza, pero ya lo pude hacer.

apuntes de la calse, fecha 6/7

Sub Uno_Click

Auxcanal.Caption = Auxcanal.Caption + "1"

End Sub

Sub Enter_Click

Canal.Caption = Auxcanal.Caption

Auxcanal.Caption = " "

End Sub

Sub Canalmas_Click

Canal.Caption = Val (Canal.Caption) + 1

End Sub

control remoto, VB, ari.t

sub botonon_click
onoff.backcolor = vbred
end sub

sub botonoff_click
onoff.backcolor = vbblack
end sub

sub botontv_click
tvcatv.caption = "tv"
end sub

sub brillomas_click
pantalla.top = pantalla.top-100
end sub

Para ensanchar (el volumen): propiedad width
Para (el contraste): propiedad left