apuntes de la clase del 13-7-06

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

apuntes del 29/6/06

esta clase vimos como programar el boton tv/catv on/off y como terminar de programar el boton del canal mas y el menos

sub catvtv_click ()
if tvcatv.caption = "tv" then
tvcatv.caption = "catv"
else
tvcatv.caption = "tv"
end if
end sub

sub prender_click ()
if onoff.backcolor = "...." (nombre del color) then
onoff.backcolor = "xxxx" (nombre del color)
else
onoff.backcolor = "...."
end if

sub canalmas_click ()
if canal.caption<13 then
canal.caption = canal.caption + 1
else
canal.caption = 2
end if
end sub