Apuntes de la clase del 13/7/06 (por Matías W)

A continuación les muestro que fue lo que Guille nos enseño en la programación del control remoto:

Para que cuando la televisión este en Tv pueda llegar hasta el canal 13 y en catv pueda llegar hasta el canal 120 lo que hay que hacer es :
Sub_canalmas_click( )
If (canal.caption >120) and (tvcatv.caption = “catv”) Then
Canal.caption = 2
Else
If ( canal.caption > 13 ) and (tvcatv.caption =”tv”) Then
Canal.caption = 2
Else
Canal.caption = val (canal.caption) + 1
End if
End if
End sub

A continuación les muestro como hacer para programar el botón pause/a:
Private sub pausa_ click ()
If pausa.visible = true Then
Pausa.visible = false
Else
Pausa.visible = true
End if
End sub

Para que cuando la tv este apagada (off) y los botones se bloqueen (en este caso lo voy a demostrar solo con el boton, volumen mas) lo que hay que hacer es:
If volumenmas.Enabled = true Then
volumenmas.Enabled = false
Else
volumenmas.Enabled = true
Y así habría que realizarlo con todos los botones del control remoto.