Avances clase 20/7 (Por Joni M.)

Private Sub canalmas_Click()

If tvcatv.Caption = "tv" Then

If Val(numcanal.Caption) <>

numcanal.Caption = Val(numcanal.Caption) + "1"

Else

numcanal.Caption = "1"

End If

End If

If tvcatv.Caption = "catv" Then

If Val(numcanal.Caption) <>

numcanal.Caption = Val(numcanal.Caption) + "1"

Else

numcanal.Caption = "1"

End If

End If

End Sub

Canal menos se programa igual pero en vez de bajar a 1 sube a 13 o a 125 respectivamente.

Private Sub offon_Click()

If onoff.BackColor = vbRed Then

onoff.BackColor = vbBlack

Else

onoff.BackColor = vbRed

End If

End Sub

Private Sub catvtv_Click()

If tvcatv.Caption = "tv" Then

tvcatv.Caption = "catv"

Else

tvcatv.Caption = "tv"

End If

End Sub

Private Sub brillomas_Click()

pantalla.Top = pantalla.Top - 100

onoff.Top = onoff.Top - 100

numcanal.Top = numcanal.Top - 100

tvcatv.Top = tvcatv.Top - 100

Shape2.Top = Shape2.Top - 100

End Sub

Brillo menos, volumen menos, volumen más, contraste más y contraste menos están programados de la misma forma.