Apuntes de la clase del 13/07/06

Esto es lo que hicimos en la clase :

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



Private sub pausa_ click ()
If pausa. Visible = true then
Pausa . visible = false
Else
Pausa. Visible = true

End if

End sub

Private sub fav _ click ()
Ch.caption = “12”End sub